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.invoicing
let apiVersion = "2024-12-01"
let endpointPrefix = "invoicing"
let serviceFullName = "AWS Invoicing"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "Invoicing"
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 BasicString =
  struct
    type nonrec t = string
    let context_ = "BasicString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BasicString" j
    let to_json = simple_to_json to_value
  end
module DiscountsBreakdownAmount =
  struct
    type nonrec t =
      {
      description: BasicString.t option
        [@ocaml.doc "The list of discounts information."];
      amount: BasicString.t option [@ocaml.doc "The discounted amount."];
      rate: BasicString.t option
        [@ocaml.doc "The details for the discount rate.."]}
    let make ?description =
      fun ?amount -> fun ?rate -> fun () -> { description; amount; rate }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:BasicString.to_value));
        ("Amount", (Option.map x.amount ~f:BasicString.to_value));
        ("Rate", (Option.map x.rate ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rate =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Rate") in
      let amount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Amount") in
      let description =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Description") in
      make ?rate ?amount ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rate = field_map json__ "Rate" BasicString.of_json in
      let amount = field_map json__ "Amount" BasicString.of_json in
      let description = field_map json__ "Description" BasicString.of_json in
      make ?rate ?amount ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The discounted amount."]
module FeesBreakdownAmount =
  struct
    type nonrec t =
      {
      description: BasicString.t option
        [@ocaml.doc "The list of fees information."];
      amount: BasicString.t option [@ocaml.doc "The fee amount."];
      rate: BasicString.t option
        [@ocaml.doc "Details about the rate amount."]}
    let make ?description =
      fun ?amount -> fun ?rate -> fun () -> { description; amount; rate }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:BasicString.to_value));
        ("Amount", (Option.map x.amount ~f:BasicString.to_value));
        ("Rate", (Option.map x.rate ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rate =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Rate") in
      let amount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Amount") in
      let description =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Description") in
      make ?rate ?amount ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rate = field_map json__ "Rate" BasicString.of_json in
      let amount = field_map json__ "Amount" BasicString.of_json in
      let description = field_map json__ "Description" BasicString.of_json in
      make ?rate ?amount ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The fee amount."]
module TaxesBreakdownAmount =
  struct
    type nonrec t =
      {
      description: BasicString.t option
        [@ocaml.doc "The details of the taxes."];
      amount: BasicString.t option [@ocaml.doc "The tax amount."];
      rate: BasicString.t option [@ocaml.doc "The details of the tax rate."]}
    let make ?description =
      fun ?amount -> fun ?rate -> fun () -> { description; amount; rate }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:BasicString.to_value));
        ("Amount", (Option.map x.amount ~f:BasicString.to_value));
        ("Rate", (Option.map x.rate ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rate =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Rate") in
      let amount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Amount") in
      let description =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Description") in
      make ?rate ?amount ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rate = field_map json__ "Rate" BasicString.of_json in
      let amount = field_map json__ "Amount" BasicString.of_json in
      let description = field_map json__ "Description" BasicString.of_json in
      make ?rate ?amount ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tax amount."]
module DiscountsBreakdownAmountList =
  struct
    type nonrec t = DiscountsBreakdownAmount.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:DiscountsBreakdownAmount.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:DiscountsBreakdownAmount.of_xml)
    let of_json j =
      list_of_json ~kind:"DiscountsBreakdownAmountList"
        ~of_json:DiscountsBreakdownAmount.of_json j
    let to_json v = composed_to_json to_value v
  end
module FeesBreakdownAmountList =
  struct
    type nonrec t = FeesBreakdownAmount.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:FeesBreakdownAmount.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:FeesBreakdownAmount.of_xml)
    let of_json j =
      list_of_json ~kind:"FeesBreakdownAmountList"
        ~of_json:FeesBreakdownAmount.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaxesBreakdownAmountList =
  struct
    type nonrec t = TaxesBreakdownAmount.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:TaxesBreakdownAmount.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:TaxesBreakdownAmount.of_xml)
    let of_json j =
      list_of_json ~kind:"TaxesBreakdownAmountList"
        ~of_json:TaxesBreakdownAmount.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvoiceUnitArnString =
  struct
    type nonrec t = string
    let context_ = "InvoiceUnitArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[-a-z0-9]*:[a-z0-9]+:[-a-z0-9]*:[0-9]{12}:[-a-zA-Z0-9/:_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InvoiceUnitArnString" j
    let to_json = simple_to_json to_value
  end
module BasicStringWithoutSpace =
  struct
    type nonrec t = string
    let context_ = "BasicStringWithoutSpace"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BasicStringWithoutSpace" j
    let to_json = simple_to_json to_value
  end
module AccountIdString =
  struct
    type nonrec t = string
    let context_ = "AccountIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountIdString" j
    let to_json = simple_to_json to_value
  end
module DiscountsBreakdown =
  struct
    type nonrec t =
      {
      breakdown: DiscountsBreakdownAmountList.t option
        [@ocaml.doc "The list of discounts information."];
      totalAmount: BasicString.t option
        [@ocaml.doc "The discount's total amount."]}
    let make ?breakdown =
      fun ?totalAmount -> fun () -> { breakdown; totalAmount }
    let to_value x =
      structure_to_value
        [("Breakdown",
           (Option.map x.breakdown ~f:DiscountsBreakdownAmountList.to_value));
        ("TotalAmount", (Option.map x.totalAmount ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalAmount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "TotalAmount") in
      let breakdown =
        (Option.map ~f:DiscountsBreakdownAmountList.of_xml)
          (Xml.child xml_arg0 "Breakdown") in
      make ?totalAmount ?breakdown ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalAmount = field_map json__ "TotalAmount" BasicString.of_json in
      let breakdown =
        field_map json__ "Breakdown" DiscountsBreakdownAmountList.of_json in
      make ?totalAmount ?breakdown ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The discounts details."]
module FeesBreakdown =
  struct
    type nonrec t =
      {
      breakdown: FeesBreakdownAmountList.t option
        [@ocaml.doc "The list of fees information."];
      totalAmount: BasicString.t option
        [@ocaml.doc "The total amount of fees."]}
    let make ?breakdown =
      fun ?totalAmount -> fun () -> { breakdown; totalAmount }
    let to_value x =
      structure_to_value
        [("Breakdown",
           (Option.map x.breakdown ~f:FeesBreakdownAmountList.to_value));
        ("TotalAmount", (Option.map x.totalAmount ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalAmount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "TotalAmount") in
      let breakdown =
        (Option.map ~f:FeesBreakdownAmountList.of_xml)
          (Xml.child xml_arg0 "Breakdown") in
      make ?totalAmount ?breakdown ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalAmount = field_map json__ "TotalAmount" BasicString.of_json in
      let breakdown =
        field_map json__ "Breakdown" FeesBreakdownAmountList.of_json in
      make ?totalAmount ?breakdown ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of fees."]
module TaxesBreakdown =
  struct
    type nonrec t =
      {
      breakdown: TaxesBreakdownAmountList.t option
        [@ocaml.doc "A list of tax information."];
      totalAmount: BasicString.t option
        [@ocaml.doc "The total amount for your taxes."]}
    let make ?breakdown =
      fun ?totalAmount -> fun () -> { breakdown; totalAmount }
    let to_value x =
      structure_to_value
        [("Breakdown",
           (Option.map x.breakdown ~f:TaxesBreakdownAmountList.to_value));
        ("TotalAmount", (Option.map x.totalAmount ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalAmount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "TotalAmount") in
      let breakdown =
        (Option.map ~f:TaxesBreakdownAmountList.of_xml)
          (Xml.child xml_arg0 "Breakdown") in
      make ?totalAmount ?breakdown ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalAmount = field_map json__ "TotalAmount" BasicString.of_json in
      let breakdown =
        field_map json__ "Breakdown" TaxesBreakdownAmountList.of_json in
      make ?totalAmount ?breakdown ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the taxes."]
module EinvoiceDeliveryDocumentType =
  struct
    type nonrec t =
      | AWS_CLOUD_INVOICE 
      | AWS_CLOUD_CREDIT_MEMO 
      | AWS_MARKETPLACE_INVOICE 
      | AWS_MARKETPLACE_CREDIT_MEMO 
      | AWS_REQUEST_FOR_PAYMENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_CLOUD_INVOICE -> "AWS_CLOUD_INVOICE"
      | AWS_CLOUD_CREDIT_MEMO -> "AWS_CLOUD_CREDIT_MEMO"
      | AWS_MARKETPLACE_INVOICE -> "AWS_MARKETPLACE_INVOICE"
      | AWS_MARKETPLACE_CREDIT_MEMO -> "AWS_MARKETPLACE_CREDIT_MEMO"
      | AWS_REQUEST_FOR_PAYMENT -> "AWS_REQUEST_FOR_PAYMENT"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_CLOUD_INVOICE" -> AWS_CLOUD_INVOICE
      | "AWS_CLOUD_CREDIT_MEMO" -> AWS_CLOUD_CREDIT_MEMO
      | "AWS_MARKETPLACE_INVOICE" -> AWS_MARKETPLACE_INVOICE
      | "AWS_MARKETPLACE_CREDIT_MEMO" -> AWS_MARKETPLACE_CREDIT_MEMO
      | "AWS_REQUEST_FOR_PAYMENT" -> AWS_REQUEST_FOR_PAYMENT
      | 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 EinvoiceDeliveryDocumentType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EinvoiceDeliveryDocumentType" j)
    let to_json = simple_to_json to_value
  end
module PurchaseOrderDataSourceType =
  struct
    type nonrec t =
      | ASSOCIATED_PURCHASE_ORDER_REQUIRED 
      | PURCHASE_ORDER_NOT_REQUIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATED_PURCHASE_ORDER_REQUIRED ->
          "ASSOCIATED_PURCHASE_ORDER_REQUIRED"
      | PURCHASE_ORDER_NOT_REQUIRED -> "PURCHASE_ORDER_NOT_REQUIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATED_PURCHASE_ORDER_REQUIRED" ->
          ASSOCIATED_PURCHASE_ORDER_REQUIRED
      | "PURCHASE_ORDER_NOT_REQUIRED" -> PURCHASE_ORDER_NOT_REQUIRED
      | 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 PurchaseOrderDataSourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PurchaseOrderDataSourceType" j)
    let to_json = simple_to_json to_value
  end
module InvoiceUnitArns =
  struct
    type nonrec t = InvoiceUnitArnString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InvoiceUnitArnString.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:InvoiceUnitArnString.of_xml)
    let of_json j =
      list_of_json ~kind:"InvoiceUnitArns"
        ~of_json:InvoiceUnitArnString.of_json j
    let to_json v = composed_to_json to_value v
  end
module SellerOfRecords =
  struct
    type nonrec t = BasicStringWithoutSpace.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BasicStringWithoutSpace.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:BasicStringWithoutSpace.of_xml)
    let of_json j =
      list_of_json ~kind:"SellerOfRecords"
        ~of_json:BasicStringWithoutSpace.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleAccountIdList =
  struct
    type nonrec t = AccountIdString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AccountIdString.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:AccountIdString.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleAccountIdList" ~of_json:AccountIdString.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Month =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:12) >>= (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 Month" 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 Year =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2050) >>=
             (fun () -> check_int_min i ~min:2005));
        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 Year" 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 BillingEntity =
  struct
    type nonrec t =
      | AWS 
      | AWS_MARKETPLACE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS -> "AWS"
      | AWS_MARKETPLACE -> "AWS_MARKETPLACE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS" -> AWS
      | "AWS_MARKETPLACE" -> AWS_MARKETPLACE
      | 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 BillingEntity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillingEntity" j)
    let to_json = simple_to_json to_value
  end
module AmountBreakdown =
  struct
    type nonrec t =
      {
      subTotalAmount: BasicString.t option
        [@ocaml.doc "The total of a set of the breakdown."];
      discounts: DiscountsBreakdown.t option
        [@ocaml.doc "The discounted amount."];
      taxes: TaxesBreakdown.t option [@ocaml.doc "The tax amount."];
      fees: FeesBreakdown.t option [@ocaml.doc "The fee amount."]}
    let make ?subTotalAmount =
      fun ?discounts ->
        fun ?taxes ->
          fun ?fees -> fun () -> { subTotalAmount; discounts; taxes; fees }
    let to_value x =
      structure_to_value
        [("SubTotalAmount",
           (Option.map x.subTotalAmount ~f:BasicString.to_value));
        ("Discounts",
          (Option.map x.discounts ~f:DiscountsBreakdown.to_value));
        ("Taxes", (Option.map x.taxes ~f:TaxesBreakdown.to_value));
        ("Fees", (Option.map x.fees ~f:FeesBreakdown.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fees =
        (Option.map ~f:FeesBreakdown.of_xml) (Xml.child xml_arg0 "Fees") in
      let taxes =
        (Option.map ~f:TaxesBreakdown.of_xml) (Xml.child xml_arg0 "Taxes") in
      let discounts =
        (Option.map ~f:DiscountsBreakdown.of_xml)
          (Xml.child xml_arg0 "Discounts") in
      let subTotalAmount =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "SubTotalAmount") in
      make ?fees ?taxes ?discounts ?subTotalAmount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fees = field_map json__ "Fees" FeesBreakdown.of_json in
      let taxes = field_map json__ "Taxes" TaxesBreakdown.of_json in
      let discounts = field_map json__ "Discounts" DiscountsBreakdown.of_json in
      let subTotalAmount =
        field_map json__ "SubTotalAmount" BasicString.of_json in
      make ?fees ?taxes ?discounts ?subTotalAmount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about how the total amount was calculated and categorized."]
module CurrencyCode =
  struct
    type nonrec t = string
    let context_ = "CurrencyCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:3) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CurrencyCode" j
    let to_json = simple_to_json to_value
  end
module CurrencyExchangeDetails =
  struct
    type nonrec t =
      {
      sourceCurrencyCode: BasicString.t option
        [@ocaml.doc "The exchange source currency."];
      targetCurrencyCode: BasicString.t option
        [@ocaml.doc "The exchange target currency."];
      rate: BasicString.t option [@ocaml.doc "The currency exchange rate."]}
    let make ?sourceCurrencyCode =
      fun ?targetCurrencyCode ->
        fun ?rate ->
          fun () -> { sourceCurrencyCode; targetCurrencyCode; rate }
    let to_value x =
      structure_to_value
        [("SourceCurrencyCode",
           (Option.map x.sourceCurrencyCode ~f:BasicString.to_value));
        ("TargetCurrencyCode",
          (Option.map x.targetCurrencyCode ~f:BasicString.to_value));
        ("Rate", (Option.map x.rate ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rate =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Rate") in
      let targetCurrencyCode =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "TargetCurrencyCode") in
      let sourceCurrencyCode =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "SourceCurrencyCode") in
      make ?rate ?targetCurrencyCode ?sourceCurrencyCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rate = field_map json__ "Rate" BasicString.of_json in
      let targetCurrencyCode =
        field_map json__ "TargetCurrencyCode" BasicString.of_json in
      let sourceCurrencyCode =
        field_map json__ "SourceCurrencyCode" BasicString.of_json in
      make ?rate ?targetCurrencyCode ?sourceCurrencyCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of currency exchange."]
module EmailString =
  struct
    type nonrec t = string
    let context_ = "EmailString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EmailString" j
    let to_json = simple_to_json to_value
  end
module EinvoiceDeliveryAttachmentType =
  struct
    type nonrec t =
      | INVOICE_PDF 
      | RFP_PDF 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVOICE_PDF -> "INVOICE_PDF"
      | RFP_PDF -> "RFP_PDF"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVOICE_PDF" -> INVOICE_PDF
      | "RFP_PDF" -> RFP_PDF
      | 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 EinvoiceDeliveryAttachmentType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EinvoiceDeliveryAttachmentType" j)
    let to_json = simple_to_json to_value
  end
module PurchaseOrderDataSource =
  struct
    type nonrec t =
      {
      einvoiceDeliveryDocumentType: EinvoiceDeliveryDocumentType.t option
        [@ocaml.doc
          "The type of e-invoice document that requires purchase order data."];
      purchaseOrderDataSourceType: PurchaseOrderDataSourceType.t option
        [@ocaml.doc "The type of source for purchase order data."]}
    let make ?einvoiceDeliveryDocumentType =
      fun ?purchaseOrderDataSourceType ->
        fun () ->
          { einvoiceDeliveryDocumentType; purchaseOrderDataSourceType }
    let to_value x =
      structure_to_value
        [("EinvoiceDeliveryDocumentType",
           (Option.map x.einvoiceDeliveryDocumentType
              ~f:EinvoiceDeliveryDocumentType.to_value));
        ("PurchaseOrderDataSourceType",
          (Option.map x.purchaseOrderDataSourceType
             ~f:PurchaseOrderDataSourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let purchaseOrderDataSourceType =
        (Option.map ~f:PurchaseOrderDataSourceType.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderDataSourceType") in
      let einvoiceDeliveryDocumentType =
        (Option.map ~f:EinvoiceDeliveryDocumentType.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryDocumentType") in
      make ?purchaseOrderDataSourceType ?einvoiceDeliveryDocumentType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let purchaseOrderDataSourceType =
        field_map json__ "PurchaseOrderDataSourceType"
          PurchaseOrderDataSourceType.of_json in
      let einvoiceDeliveryDocumentType =
        field_map json__ "EinvoiceDeliveryDocumentType"
          EinvoiceDeliveryDocumentType.of_json in
      make ?purchaseOrderDataSourceType ?einvoiceDeliveryDocumentType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the source configuration for retrieving purchase order data."]
module StringWithoutNewLine =
  struct
    type nonrec t = string
    let context_ = "StringWithoutNewLine"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StringWithoutNewLine" j
    let to_json = simple_to_json to_value
  end
module SupplementalDocumentType =
  struct
    type nonrec t =
      | GOVERNMENT_INVOICE 
      | TAX_E_INVOICE 
      | PAYMENT_RECEIPT 
      | SUPPLEMENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GOVERNMENT_INVOICE -> "GOVERNMENT_INVOICE"
      | TAX_E_INVOICE -> "TAX_E_INVOICE"
      | PAYMENT_RECEIPT -> "PAYMENT_RECEIPT"
      | SUPPLEMENT -> "SUPPLEMENT"
      | Non_static_id s -> s
    let of_string =
      function
      | "GOVERNMENT_INVOICE" -> GOVERNMENT_INVOICE
      | "TAX_E_INVOICE" -> TAX_E_INVOICE
      | "PAYMENT_RECEIPT" -> PAYMENT_RECEIPT
      | "SUPPLEMENT" -> SUPPLEMENT
      | 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 SupplementalDocumentType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SupplementalDocumentType" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: BasicString.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by an Amazon Web Services service."];
      message: BasicString.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by an Amazon Web Services service."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:BasicString.to_value));
        ("message", (Option.map x.message ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "message") in
      let name =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" BasicString.of_json in
      let name = field_map json__ "name" BasicString.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module ResourceTagKey =
  struct
    type nonrec t = string
    let context_ = "ResourceTagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceTagKey" j
    let to_json = simple_to_json to_value
  end
module ResourceTagValue =
  struct
    type nonrec t = string
    let context_ = "ResourceTagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceTagValue" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module BuyerDomain =
  struct
    type nonrec t =
      | NetworkID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | NetworkID -> "NetworkID" | Non_static_id s -> s
    let of_string =
      function | "NetworkID" -> NetworkID | 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 BuyerDomain" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BuyerDomain" j)
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ProcurementPortalName =
  struct
    type nonrec t =
      | SAP_BUSINESS_NETWORK 
      | COUPA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SAP_BUSINESS_NETWORK -> "SAP_BUSINESS_NETWORK"
      | COUPA -> "COUPA"
      | Non_static_id s -> s
    let of_string =
      function
      | "SAP_BUSINESS_NETWORK" -> SAP_BUSINESS_NETWORK
      | "COUPA" -> COUPA
      | 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 ProcurementPortalName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ProcurementPortalName" j)
    let to_json = simple_to_json to_value
  end
module ProcurementPortalPreferenceArnString =
  struct
    type nonrec t = string
    let context_ = "ProcurementPortalPreferenceArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:invoicing::[0-9]{12}:procurement-portal-preference/[-a-zA-Z0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ProcurementPortalPreferenceArnString" j
    let to_json = simple_to_json to_value
  end
module ProcurementPortalPreferenceSelector =
  struct
    type nonrec t =
      {
      invoiceUnitArns: InvoiceUnitArns.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of invoice unit identifiers to which this preference applies."];
      sellerOfRecords: SellerOfRecords.t option
        [@ocaml.doc
          "The list of seller of record IDs to which this preference applies."]}
    let make ?invoiceUnitArns =
      fun ?sellerOfRecords -> fun () -> { invoiceUnitArns; sellerOfRecords }
    let to_value x =
      structure_to_value
        [("InvoiceUnitArns",
           (Option.map x.invoiceUnitArns ~f:InvoiceUnitArns.to_value));
        ("SellerOfRecords",
          (Option.map x.sellerOfRecords ~f:SellerOfRecords.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sellerOfRecords =
        (Option.map ~f:SellerOfRecords.of_xml)
          (Xml.child xml_arg0 "SellerOfRecords") in
      let invoiceUnitArns =
        (Option.map ~f:InvoiceUnitArns.of_xml)
          (Xml.child xml_arg0 "InvoiceUnitArns") in
      make ?sellerOfRecords ?invoiceUnitArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sellerOfRecords =
        field_map json__ "SellerOfRecords" SellerOfRecords.of_json in
      let invoiceUnitArns =
        field_map json__ "InvoiceUnitArns" InvoiceUnitArns.of_json in
      make ?sellerOfRecords ?invoiceUnitArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies criteria for selecting which invoices should be processed using a particular procurement portal preference."]
module ProcurementPortalPreferenceStatus =
  struct
    type nonrec t =
      | PENDING_VERIFICATION 
      | TEST_INITIALIZED 
      | TEST_INITIALIZATION_FAILED 
      | TEST_FAILED 
      | ACTIVE 
      | SUSPENDED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_VERIFICATION -> "PENDING_VERIFICATION"
      | TEST_INITIALIZED -> "TEST_INITIALIZED"
      | TEST_INITIALIZATION_FAILED -> "TEST_INITIALIZATION_FAILED"
      | TEST_FAILED -> "TEST_FAILED"
      | ACTIVE -> "ACTIVE"
      | SUSPENDED -> "SUSPENDED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_VERIFICATION" -> PENDING_VERIFICATION
      | "TEST_INITIALIZED" -> TEST_INITIALIZED
      | "TEST_INITIALIZATION_FAILED" -> TEST_INITIALIZATION_FAILED
      | "TEST_FAILED" -> TEST_FAILED
      | "ACTIVE" -> ACTIVE
      | "SUSPENDED" -> SUSPENDED
      | 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 ProcurementPortalPreferenceStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ProcurementPortalPreferenceStatus" j)
    let to_json = simple_to_json to_value
  end
module SupplierDomain =
  struct
    type nonrec t =
      | NetworkID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | NetworkID -> "NetworkID" | Non_static_id s -> s
    let of_string =
      function | "NetworkID" -> NetworkID | 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 SupplierDomain" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SupplierDomain" j)
    let to_json = simple_to_json to_value
  end
module DescriptionString =
  struct
    type nonrec t = string
    let context_ = "DescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DescriptionString" j
    let to_json = simple_to_json to_value
  end
module InvoiceUnitName =
  struct
    type nonrec t = string
    let context_ = "InvoiceUnitName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?! )[\\p{L}\\p{N}\\p{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:"InvoiceUnitName" j
    let to_json = simple_to_json to_value
  end
module InvoiceUnitRule =
  struct
    type nonrec t =
      {
      linkedAccounts: RuleAccountIdList.t option
        [@ocaml.doc
          "The list of LINKED_ACCOUNT IDs where charges are included within the invoice unit."];
      billSourceAccounts: RuleAccountIdList.t option
        [@ocaml.doc
          "A list of Amazon Web Services account IDs that have delegated their billing responsibility to the receiver account through transfer billing. Unlike linked accounts, these bill source accounts can be payer accounts from other organizations that have authorized billing transfer to this account."]}
    let make ?linkedAccounts =
      fun ?billSourceAccounts ->
        fun () -> { linkedAccounts; billSourceAccounts }
    let to_value x =
      structure_to_value
        [("LinkedAccounts",
           (Option.map x.linkedAccounts ~f:RuleAccountIdList.to_value));
        ("BillSourceAccounts",
          (Option.map x.billSourceAccounts ~f:RuleAccountIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billSourceAccounts =
        (Option.map ~f:RuleAccountIdList.of_xml)
          (Xml.child xml_arg0 "BillSourceAccounts") in
      let linkedAccounts =
        (Option.map ~f:RuleAccountIdList.of_xml)
          (Xml.child xml_arg0 "LinkedAccounts") in
      make ?billSourceAccounts ?linkedAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billSourceAccounts =
        field_map json__ "BillSourceAccounts" RuleAccountIdList.of_json in
      let linkedAccounts =
        field_map json__ "LinkedAccounts" RuleAccountIdList.of_json in
      make ?billSourceAccounts ?linkedAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is used to categorize the invoice unit. Values are Amazon Web Services account IDs. Currently, the only supported rule is LINKED_ACCOUNT."]
module LastModifiedTimestamp =
  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 TaxInheritanceDisabledFlag =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module BillSourceAccountList =
  struct
    type nonrec t = AccountIdString.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:AccountIdString.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:AccountIdString.of_xml)
    let of_json j =
      list_of_json ~kind:"BillSourceAccountList"
        ~of_json:AccountIdString.of_json j
    let to_json v = composed_to_json to_value v
  end
module BillType =
  struct
    type nonrec t =
      | ANNIVERSARY 
      | PURCHASE 
      | REFUND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ANNIVERSARY -> "ANNIVERSARY"
      | PURCHASE -> "PURCHASE"
      | REFUND -> "REFUND"
      | Non_static_id s -> s
    let of_string =
      function
      | "ANNIVERSARY" -> ANNIVERSARY
      | "PURCHASE" -> PURCHASE
      | "REFUND" -> REFUND
      | 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 BillType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillType" j)
    let to_json = simple_to_json to_value
  end
module BillingPeriod =
  struct
    type nonrec t =
      {
      month: Month.t [@ocaml.doc "The billing period month."];
      year: Year.t [@ocaml.doc "The billing period year."]}
    let context_ = "BillingPeriod"
    let make ~month = fun ~year -> fun () -> { month; year }
    let to_value x =
      structure_to_value
        [("Month", (Some (Month.to_value x.month)));
        ("Year", (Some (Year.to_value x.year)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let year =
        Year.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Year") in
      let month =
        Month.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Month") in
      make ~year ~month ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let year = field_map_exn json__ "Year" Year.of_json in
      let month = field_map_exn json__ "Month" Month.of_json in
      make ~year ~month ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The billing period for which you want to retrieve invoice-related documents."]
module EinvoiceDeliveryStatus =
  struct
    type nonrec t =
      | DELIVERED 
      | NOT_DELIVERED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELIVERED -> "DELIVERED"
      | NOT_DELIVERED -> "NOT_DELIVERED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELIVERED" -> DELIVERED
      | "NOT_DELIVERED" -> NOT_DELIVERED
      | 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 EinvoiceDeliveryStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EinvoiceDeliveryStatus" j)
    let to_json = simple_to_json to_value
  end
module Entity =
  struct
    type nonrec t =
      {
      invoicingEntity: BasicString.t option
        [@ocaml.doc
          "The name of the entity that issues the Amazon Web Services invoice."];
      billingEntity: BillingEntity.t option
        [@ocaml.doc
          "Helps you identify whether your invoices are for Amazon Web Services Marketplace or for purchases of other Amazon Web Services services."]}
    let make ?invoicingEntity =
      fun ?billingEntity -> fun () -> { invoicingEntity; billingEntity }
    let to_value x =
      structure_to_value
        [("InvoicingEntity",
           (Option.map x.invoicingEntity ~f:BasicString.to_value));
        ("BillingEntity",
          (Option.map x.billingEntity ~f:BillingEntity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingEntity =
        (Option.map ~f:BillingEntity.of_xml)
          (Xml.child xml_arg0 "BillingEntity") in
      let invoicingEntity =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "InvoicingEntity") in
      make ?billingEntity ?invoicingEntity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingEntity =
        field_map json__ "BillingEntity" BillingEntity.of_json in
      let invoicingEntity =
        field_map json__ "InvoicingEntity" BasicString.of_json in
      make ?billingEntity ?invoicingEntity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The organization name providing Amazon Web Services services."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module InvoiceCurrencyAmount =
  struct
    type nonrec t =
      {
      totalAmount: BasicString.t option
        [@ocaml.doc "The invoice currency amount."];
      totalAmountBeforeTax: BasicString.t option
        [@ocaml.doc "Details about the invoice total amount before tax."];
      currencyCode: CurrencyCode.t option
        [@ocaml.doc "The currency dominion of the invoice document."];
      amountBreakdown: AmountBreakdown.t option
        [@ocaml.doc "Details about the invoice currency amount."];
      currencyExchangeDetails: CurrencyExchangeDetails.t option
        [@ocaml.doc "The details of currency exchange."]}
    let make ?totalAmount =
      fun ?totalAmountBeforeTax ->
        fun ?currencyCode ->
          fun ?amountBreakdown ->
            fun ?currencyExchangeDetails ->
              fun () ->
                {
                  totalAmount;
                  totalAmountBeforeTax;
                  currencyCode;
                  amountBreakdown;
                  currencyExchangeDetails
                }
    let to_value x =
      structure_to_value
        [("TotalAmount", (Option.map x.totalAmount ~f:BasicString.to_value));
        ("TotalAmountBeforeTax",
          (Option.map x.totalAmountBeforeTax ~f:BasicString.to_value));
        ("CurrencyCode",
          (Option.map x.currencyCode ~f:CurrencyCode.to_value));
        ("AmountBreakdown",
          (Option.map x.amountBreakdown ~f:AmountBreakdown.to_value));
        ("CurrencyExchangeDetails",
          (Option.map x.currencyExchangeDetails
             ~f:CurrencyExchangeDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currencyExchangeDetails =
        (Option.map ~f:CurrencyExchangeDetails.of_xml)
          (Xml.child xml_arg0 "CurrencyExchangeDetails") in
      let amountBreakdown =
        (Option.map ~f:AmountBreakdown.of_xml)
          (Xml.child xml_arg0 "AmountBreakdown") in
      let currencyCode =
        (Option.map ~f:CurrencyCode.of_xml)
          (Xml.child xml_arg0 "CurrencyCode") in
      let totalAmountBeforeTax =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "TotalAmountBeforeTax") in
      let totalAmount =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "TotalAmount") in
      make ?currencyExchangeDetails ?amountBreakdown ?currencyCode
        ?totalAmountBeforeTax ?totalAmount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currencyExchangeDetails =
        field_map json__ "CurrencyExchangeDetails"
          CurrencyExchangeDetails.of_json in
      let amountBreakdown =
        field_map json__ "AmountBreakdown" AmountBreakdown.of_json in
      let currencyCode = field_map json__ "CurrencyCode" CurrencyCode.of_json in
      let totalAmountBeforeTax =
        field_map json__ "TotalAmountBeforeTax" BasicString.of_json in
      let totalAmount = field_map json__ "TotalAmount" BasicString.of_json in
      make ?currencyExchangeDetails ?amountBreakdown ?currencyCode
        ?totalAmountBeforeTax ?totalAmount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The amount charged after taxes, in the preferred currency."]
module InvoiceFrequency =
  struct
    type nonrec t =
      | ONE_TIME 
      | RECURRING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ONE_TIME -> "ONE_TIME"
      | RECURRING -> "RECURRING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ONE_TIME" -> ONE_TIME
      | "RECURRING" -> RECURRING
      | 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 InvoiceFrequency" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InvoiceFrequency" j)
    let to_json = simple_to_json to_value
  end
module InvoiceType =
  struct
    type nonrec t =
      | INVOICE 
      | CREDIT_MEMO 
      | PAYMENT_RECEIPT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVOICE -> "INVOICE"
      | CREDIT_MEMO -> "CREDIT_MEMO"
      | PAYMENT_RECEIPT -> "PAYMENT_RECEIPT"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVOICE" -> INVOICE
      | "CREDIT_MEMO" -> CREDIT_MEMO
      | "PAYMENT_RECEIPT" -> PAYMENT_RECEIPT
      | 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 InvoiceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InvoiceType" j)
    let to_json = simple_to_json to_value
  end
module ReceiverRole =
  struct
    type nonrec t =
      | SELLER 
      | RESELLER 
      | BUYER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SELLER -> "SELLER"
      | RESELLER -> "RESELLER"
      | BUYER -> "BUYER"
      | Non_static_id s -> s
    let of_string =
      function
      | "SELLER" -> SELLER
      | "RESELLER" -> RESELLER
      | "BUYER" -> BUYER
      | 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 ReceiverRole" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReceiverRole" j)
    let to_json = simple_to_json to_value
  end
module TaxAuthorityStatus =
  struct
    type nonrec t =
      | ISSUED 
      | CANCELLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ISSUED -> "ISSUED"
      | CANCELLED -> "CANCELLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ISSUED" -> ISSUED
      | "CANCELLED" -> CANCELLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TaxAuthorityStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TaxAuthorityStatus" j)
    let to_json = simple_to_json to_value
  end
module Contact =
  struct
    type nonrec t =
      {
      name: BasicString.t option
        [@ocaml.doc "The name of the contact person or role."];
      email: EmailString.t option
        [@ocaml.doc "The email address of the contact person or role."]}
    let make ?name = fun ?email -> fun () -> { name; email }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:BasicString.to_value));
        ("Email", (Option.map x.email ~f:EmailString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email =
        (Option.map ~f:EmailString.of_xml) (Xml.child xml_arg0 "Email") in
      let name =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?email ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map json__ "Email" EmailString.of_json in
      let name = field_map json__ "Name" BasicString.of_json in
      make ?email ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents contact information for a person or role associated with the procurement portal preference."]
module ConnectionTestingMethod =
  struct
    type nonrec t =
      | PROD_ENV_DOLLAR_TEST 
      | TEST_ENV_REPLAY_TEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROD_ENV_DOLLAR_TEST -> "PROD_ENV_DOLLAR_TEST"
      | TEST_ENV_REPLAY_TEST -> "TEST_ENV_REPLAY_TEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROD_ENV_DOLLAR_TEST" -> PROD_ENV_DOLLAR_TEST
      | "TEST_ENV_REPLAY_TEST" -> TEST_ENV_REPLAY_TEST
      | 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 ConnectionTestingMethod" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConnectionTestingMethod" j)
    let to_json = simple_to_json to_value
  end
module EinvoiceDeliveryAttachmentTypes =
  struct
    type nonrec t = EinvoiceDeliveryAttachmentType.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:EinvoiceDeliveryAttachmentType.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:EinvoiceDeliveryAttachmentType.of_xml)
    let of_json j =
      list_of_json ~kind:"EinvoiceDeliveryAttachmentTypes"
        ~of_json:EinvoiceDeliveryAttachmentType.of_json j
    let to_json v = composed_to_json to_value v
  end
module EinvoiceDeliveryDocumentTypes =
  struct
    type nonrec t = EinvoiceDeliveryDocumentType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EinvoiceDeliveryDocumentType.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:EinvoiceDeliveryDocumentType.of_xml)
    let of_json j =
      list_of_json ~kind:"EinvoiceDeliveryDocumentTypes"
        ~of_json:EinvoiceDeliveryDocumentType.of_json j
    let to_json v = composed_to_json to_value v
  end
module Protocol =
  struct
    type nonrec t =
      | CXML 
      | Non_static_id of string 
    let make i = i
    let to_string = function | CXML -> "CXML" | Non_static_id s -> s
    let of_string = function | "CXML" -> CXML | 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 Protocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Protocol" j)
    let to_json = simple_to_json to_value
  end
module PurchaseOrderDataSources =
  struct
    type nonrec t = PurchaseOrderDataSource.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:PurchaseOrderDataSource.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:PurchaseOrderDataSource.of_xml)
    let of_json j =
      list_of_json ~kind:"PurchaseOrderDataSources"
        ~of_json:PurchaseOrderDataSource.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupplementalDocument =
  struct
    type nonrec t =
      {
      documentType: SupplementalDocumentType.t option
        [@ocaml.doc "The type of supplemental document."];
      documentId: StringWithoutNewLine.t option
        [@ocaml.doc "The ID of the supplemental document."];
      documentUrl: StringWithoutNewLine.t option
        [@ocaml.doc
          "The pre-signed URL to download invoice supplemental document."];
      documentUrlExpirationDate: Timestamp.t option
        [@ocaml.doc
          "The pre-signed URL expiration date of invoice supplemental document."]}
    let make ?documentType =
      fun ?documentId ->
        fun ?documentUrl ->
          fun ?documentUrlExpirationDate ->
            fun () ->
              {
                documentType;
                documentId;
                documentUrl;
                documentUrlExpirationDate
              }
    let to_value x =
      structure_to_value
        [("DocumentType",
           (Option.map x.documentType ~f:SupplementalDocumentType.to_value));
        ("DocumentId",
          (Option.map x.documentId ~f:StringWithoutNewLine.to_value));
        ("DocumentUrl",
          (Option.map x.documentUrl ~f:StringWithoutNewLine.to_value));
        ("DocumentUrlExpirationDate",
          (Option.map x.documentUrlExpirationDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentUrlExpirationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DocumentUrlExpirationDate") in
      let documentUrl =
        (Option.map ~f:StringWithoutNewLine.of_xml)
          (Xml.child xml_arg0 "DocumentUrl") in
      let documentId =
        (Option.map ~f:StringWithoutNewLine.of_xml)
          (Xml.child xml_arg0 "DocumentId") in
      let documentType =
        (Option.map ~f:SupplementalDocumentType.of_xml)
          (Xml.child xml_arg0 "DocumentType") in
      make ?documentUrlExpirationDate ?documentUrl ?documentId ?documentType
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentUrlExpirationDate =
        field_map json__ "DocumentUrlExpirationDate" Timestamp.of_json in
      let documentUrl =
        field_map json__ "DocumentUrl" StringWithoutNewLine.of_json in
      let documentId =
        field_map json__ "DocumentId" StringWithoutNewLine.of_json in
      let documentType =
        field_map json__ "DocumentType" SupplementalDocumentType.of_json in
      make ?documentUrlExpirationDate ?documentUrl ?documentId ?documentType
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Supplemental document associated with the invoice."]
module ReceiverAddress =
  struct
    type nonrec t =
      {
      addressLine1: BasicString.t option
        [@ocaml.doc "The first line of the address."];
      addressLine2: BasicString.t option
        [@ocaml.doc "The second line of the address, if applicable."];
      addressLine3: BasicString.t option
        [@ocaml.doc "The third line of the address, if applicable."];
      districtOrCounty: BasicString.t option
        [@ocaml.doc "The district or country the address is located in."];
      city: BasicString.t option
        [@ocaml.doc "The city that the address is in."];
      stateOrRegion: BasicString.t option
        [@ocaml.doc "The state, region, or province the address is located."];
      countryCode: BasicString.t option
        [@ocaml.doc "The country code for the country the address is in."];
      companyName: BasicString.t option [@ocaml.doc "A unique company name."];
      postalCode: BasicString.t option
        [@ocaml.doc "The postal code associated with the address."]}
    let make ?addressLine1 =
      fun ?addressLine2 ->
        fun ?addressLine3 ->
          fun ?districtOrCounty ->
            fun ?city ->
              fun ?stateOrRegion ->
                fun ?countryCode ->
                  fun ?companyName ->
                    fun ?postalCode ->
                      fun () ->
                        {
                          addressLine1;
                          addressLine2;
                          addressLine3;
                          districtOrCounty;
                          city;
                          stateOrRegion;
                          countryCode;
                          companyName;
                          postalCode
                        }
    let to_value x =
      structure_to_value
        [("AddressLine1",
           (Option.map x.addressLine1 ~f:BasicString.to_value));
        ("AddressLine2", (Option.map x.addressLine2 ~f:BasicString.to_value));
        ("AddressLine3", (Option.map x.addressLine3 ~f:BasicString.to_value));
        ("DistrictOrCounty",
          (Option.map x.districtOrCounty ~f:BasicString.to_value));
        ("City", (Option.map x.city ~f:BasicString.to_value));
        ("StateOrRegion",
          (Option.map x.stateOrRegion ~f:BasicString.to_value));
        ("CountryCode", (Option.map x.countryCode ~f:BasicString.to_value));
        ("CompanyName", (Option.map x.companyName ~f:BasicString.to_value));
        ("PostalCode", (Option.map x.postalCode ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let postalCode =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "PostalCode") in
      let companyName =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "CompanyName") in
      let countryCode =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "CountryCode") in
      let stateOrRegion =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "StateOrRegion") in
      let city =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "City") in
      let districtOrCounty =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "DistrictOrCounty") in
      let addressLine3 =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "AddressLine3") in
      let addressLine2 =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "AddressLine2") in
      let addressLine1 =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "AddressLine1") in
      make ?postalCode ?companyName ?countryCode ?stateOrRegion ?city
        ?districtOrCounty ?addressLine3 ?addressLine2 ?addressLine1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let postalCode = field_map json__ "PostalCode" BasicString.of_json in
      let companyName = field_map json__ "CompanyName" BasicString.of_json in
      let countryCode = field_map json__ "CountryCode" BasicString.of_json in
      let stateOrRegion =
        field_map json__ "StateOrRegion" BasicString.of_json in
      let city = field_map json__ "City" BasicString.of_json in
      let districtOrCounty =
        field_map json__ "DistrictOrCounty" BasicString.of_json in
      let addressLine3 = field_map json__ "AddressLine3" BasicString.of_json in
      let addressLine2 = field_map json__ "AddressLine2" BasicString.of_json in
      let addressLine1 = field_map json__ "AddressLine1" BasicString.of_json in
      make ?postalCode ?companyName ?countryCode ?stateOrRegion ?city
        ?districtOrCounty ?addressLine3 ?addressLine2 ?addressLine1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the address associated with the receiver."]
module SensitiveBasicStringWithoutSpace =
  struct
    type nonrec t = string
    let context_ = "SensitiveBasicStringWithoutSpace"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveBasicStringWithoutSpace" 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 =
      | NonMemberPresent 
      | MaxAccountsExceeded 
      | MaxInvoiceUnitsExceeded 
      | DuplicateInvoiceUnit 
      | MutualExclusionError 
      | AccountMembershipError 
      | TaxSettingsError 
      | ExpiredNextToken 
      | InvalidNextToken 
      | InvalidInput 
      | FieldValidationFailed 
      | CannotParse 
      | UnknownOperation 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NonMemberPresent -> "nonMemberPresent"
      | MaxAccountsExceeded -> "maxAccountsExceeded"
      | MaxInvoiceUnitsExceeded -> "maxInvoiceUnitsExceeded"
      | DuplicateInvoiceUnit -> "duplicateInvoiceUnit"
      | MutualExclusionError -> "mutualExclusionError"
      | AccountMembershipError -> "accountMembershipError"
      | TaxSettingsError -> "taxSettingsError"
      | ExpiredNextToken -> "expiredNextToken"
      | InvalidNextToken -> "invalidNextToken"
      | InvalidInput -> "invalidInput"
      | FieldValidationFailed -> "fieldValidationFailed"
      | CannotParse -> "cannotParse"
      | UnknownOperation -> "unknownOperation"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "nonMemberPresent" -> NonMemberPresent
      | "maxAccountsExceeded" -> MaxAccountsExceeded
      | "maxInvoiceUnitsExceeded" -> MaxInvoiceUnitsExceeded
      | "duplicateInvoiceUnit" -> DuplicateInvoiceUnit
      | "mutualExclusionError" -> MutualExclusionError
      | "accountMembershipError" -> AccountMembershipError
      | "taxSettingsError" -> TaxSettingsError
      | "expiredNextToken" -> ExpiredNextToken
      | "invalidNextToken" -> InvalidNextToken
      | "invalidInput" -> InvalidInput
      | "fieldValidationFailed" -> FieldValidationFailed
      | "cannotParse" -> CannotParse
      | "unknownOperation" -> UnknownOperation
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ResourceTag =
  struct
    type nonrec t =
      {
      key: ResourceTagKey.t
        [@ocaml.doc "The object key of your of your resource tag."];
      value: ResourceTagValue.t
        [@ocaml.doc "The specific value of the resource tag."]}
    let context_ = "ResourceTag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (ResourceTagKey.to_value x.key)));
        ("Value", (Some (ResourceTagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        ResourceTagValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        ResourceTagKey.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" ResourceTagValue.of_json in
      let key = field_map_exn json__ "Key" ResourceTagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tag structure that contains a tag key and value."]
module ProcurementPortalPreferenceSummary =
  struct
    type nonrec t =
      {
      awsAccountId: AccountIdString.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with this procurement portal preference summary."];
      procurementPortalPreferenceArn:
        ProcurementPortalPreferenceArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference."];
      procurementPortalName: ProcurementPortalName.t option
        [@ocaml.doc "The name of the procurement portal."];
      buyerDomain: BuyerDomain.t option
        [@ocaml.doc
          "The domain identifier for the buyer in the procurement portal."];
      buyerIdentifier: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The unique identifier for the buyer in the procurement portal."];
      supplierDomain: SupplierDomain.t option
        [@ocaml.doc
          "The domain identifier for the supplier in the procurement portal."];
      supplierIdentifier: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The unique identifier for the supplier in the procurement portal."];
      selector: ProcurementPortalPreferenceSelector.t option ;
      einvoiceDeliveryEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether e-invoice delivery is enabled for this procurement portal preference."];
      purchaseOrderRetrievalEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether purchase order retrieval is enabled for this procurement portal preference."];
      einvoiceDeliveryPreferenceStatus:
        ProcurementPortalPreferenceStatus.t option
        [@ocaml.doc
          "The current status of the e-invoice delivery preference in this summary."];
      einvoiceDeliveryPreferenceStatusReason: BasicString.t option
        [@ocaml.doc
          "The reason for the current e-invoice delivery preference status in this summary."];
      purchaseOrderRetrievalPreferenceStatus:
        ProcurementPortalPreferenceStatus.t option
        [@ocaml.doc
          "The current status of the purchase order retrieval preference in this summary."];
      purchaseOrderRetrievalPreferenceStatusReason: BasicString.t option
        [@ocaml.doc
          "The reason for the current purchase order retrieval preference status in this summary."];
      version: Long.t option
        [@ocaml.doc
          "The version number of the procurement portal preference configuration in this summary."];
      createDate: Timestamp.t option
        [@ocaml.doc
          "The date and time when the procurement portal preference was created."];
      lastUpdateDate: Timestamp.t option
        [@ocaml.doc
          "The date and time when the procurement portal preference was last updated."]}
    let make ?awsAccountId =
      fun ?procurementPortalPreferenceArn ->
        fun ?procurementPortalName ->
          fun ?buyerDomain ->
            fun ?buyerIdentifier ->
              fun ?supplierDomain ->
                fun ?supplierIdentifier ->
                  fun ?selector ->
                    fun ?einvoiceDeliveryEnabled ->
                      fun ?purchaseOrderRetrievalEnabled ->
                        fun ?einvoiceDeliveryPreferenceStatus ->
                          fun ?einvoiceDeliveryPreferenceStatusReason ->
                            fun ?purchaseOrderRetrievalPreferenceStatus ->
                              fun
                                ?purchaseOrderRetrievalPreferenceStatusReason
                                ->
                                fun ?version ->
                                  fun ?createDate ->
                                    fun ?lastUpdateDate ->
                                      fun () ->
                                        {
                                          awsAccountId;
                                          procurementPortalPreferenceArn;
                                          procurementPortalName;
                                          buyerDomain;
                                          buyerIdentifier;
                                          supplierDomain;
                                          supplierIdentifier;
                                          selector;
                                          einvoiceDeliveryEnabled;
                                          purchaseOrderRetrievalEnabled;
                                          einvoiceDeliveryPreferenceStatus;
                                          einvoiceDeliveryPreferenceStatusReason;
                                          purchaseOrderRetrievalPreferenceStatus;
                                          purchaseOrderRetrievalPreferenceStatusReason;
                                          version;
                                          createDate;
                                          lastUpdateDate
                                        }
    let to_value x =
      structure_to_value
        [("AwsAccountId",
           (Option.map x.awsAccountId ~f:AccountIdString.to_value));
        ("ProcurementPortalPreferenceArn",
          (Option.map x.procurementPortalPreferenceArn
             ~f:ProcurementPortalPreferenceArnString.to_value));
        ("ProcurementPortalName",
          (Option.map x.procurementPortalName
             ~f:ProcurementPortalName.to_value));
        ("BuyerDomain", (Option.map x.buyerDomain ~f:BuyerDomain.to_value));
        ("BuyerIdentifier",
          (Option.map x.buyerIdentifier ~f:BasicStringWithoutSpace.to_value));
        ("SupplierDomain",
          (Option.map x.supplierDomain ~f:SupplierDomain.to_value));
        ("SupplierIdentifier",
          (Option.map x.supplierIdentifier
             ~f:BasicStringWithoutSpace.to_value));
        ("Selector",
          (Option.map x.selector
             ~f:ProcurementPortalPreferenceSelector.to_value));
        ("EinvoiceDeliveryEnabled",
          (Option.map x.einvoiceDeliveryEnabled ~f:Boolean.to_value));
        ("PurchaseOrderRetrievalEnabled",
          (Option.map x.purchaseOrderRetrievalEnabled ~f:Boolean.to_value));
        ("EinvoiceDeliveryPreferenceStatus",
          (Option.map x.einvoiceDeliveryPreferenceStatus
             ~f:ProcurementPortalPreferenceStatus.to_value));
        ("EinvoiceDeliveryPreferenceStatusReason",
          (Option.map x.einvoiceDeliveryPreferenceStatusReason
             ~f:BasicString.to_value));
        ("PurchaseOrderRetrievalPreferenceStatus",
          (Option.map x.purchaseOrderRetrievalPreferenceStatus
             ~f:ProcurementPortalPreferenceStatus.to_value));
        ("PurchaseOrderRetrievalPreferenceStatusReason",
          (Option.map x.purchaseOrderRetrievalPreferenceStatusReason
             ~f:BasicString.to_value));
        ("Version", (Option.map x.version ~f:Long.to_value));
        ("CreateDate", (Option.map x.createDate ~f:Timestamp.to_value));
        ("LastUpdateDate",
          (Option.map x.lastUpdateDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdateDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateDate") in
      let createDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreateDate") in
      let version =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Version") in
      let purchaseOrderRetrievalPreferenceStatusReason =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalPreferenceStatusReason") in
      let purchaseOrderRetrievalPreferenceStatus =
        (Option.map ~f:ProcurementPortalPreferenceStatus.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalPreferenceStatus") in
      let einvoiceDeliveryPreferenceStatusReason =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreferenceStatusReason") in
      let einvoiceDeliveryPreferenceStatus =
        (Option.map ~f:ProcurementPortalPreferenceStatus.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreferenceStatus") in
      let purchaseOrderRetrievalEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalEnabled") in
      let einvoiceDeliveryEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryEnabled") in
      let selector =
        (Option.map ~f:ProcurementPortalPreferenceSelector.of_xml)
          (Xml.child xml_arg0 "Selector") in
      let supplierIdentifier =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "SupplierIdentifier") in
      let supplierDomain =
        (Option.map ~f:SupplierDomain.of_xml)
          (Xml.child xml_arg0 "SupplierDomain") in
      let buyerIdentifier =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "BuyerIdentifier") in
      let buyerDomain =
        (Option.map ~f:BuyerDomain.of_xml) (Xml.child xml_arg0 "BuyerDomain") in
      let procurementPortalName =
        (Option.map ~f:ProcurementPortalName.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalName") in
      let procurementPortalPreferenceArn =
        (Option.map ~f:ProcurementPortalPreferenceArnString.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferenceArn") in
      let awsAccountId =
        (Option.map ~f:AccountIdString.of_xml)
          (Xml.child xml_arg0 "AwsAccountId") in
      make ?lastUpdateDate ?createDate ?version
        ?purchaseOrderRetrievalPreferenceStatusReason
        ?purchaseOrderRetrievalPreferenceStatus
        ?einvoiceDeliveryPreferenceStatusReason
        ?einvoiceDeliveryPreferenceStatus ?purchaseOrderRetrievalEnabled
        ?einvoiceDeliveryEnabled ?selector ?supplierIdentifier
        ?supplierDomain ?buyerIdentifier ?buyerDomain ?procurementPortalName
        ?procurementPortalPreferenceArn ?awsAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdateDate =
        field_map json__ "LastUpdateDate" Timestamp.of_json in
      let createDate = field_map json__ "CreateDate" Timestamp.of_json in
      let version = field_map json__ "Version" Long.of_json in
      let purchaseOrderRetrievalPreferenceStatusReason =
        field_map json__ "PurchaseOrderRetrievalPreferenceStatusReason"
          BasicString.of_json in
      let purchaseOrderRetrievalPreferenceStatus =
        field_map json__ "PurchaseOrderRetrievalPreferenceStatus"
          ProcurementPortalPreferenceStatus.of_json in
      let einvoiceDeliveryPreferenceStatusReason =
        field_map json__ "EinvoiceDeliveryPreferenceStatusReason"
          BasicString.of_json in
      let einvoiceDeliveryPreferenceStatus =
        field_map json__ "EinvoiceDeliveryPreferenceStatus"
          ProcurementPortalPreferenceStatus.of_json in
      let purchaseOrderRetrievalEnabled =
        field_map json__ "PurchaseOrderRetrievalEnabled" Boolean.of_json in
      let einvoiceDeliveryEnabled =
        field_map json__ "EinvoiceDeliveryEnabled" Boolean.of_json in
      let selector =
        field_map json__ "Selector"
          ProcurementPortalPreferenceSelector.of_json in
      let supplierIdentifier =
        field_map json__ "SupplierIdentifier" BasicStringWithoutSpace.of_json in
      let supplierDomain =
        field_map json__ "SupplierDomain" SupplierDomain.of_json in
      let buyerIdentifier =
        field_map json__ "BuyerIdentifier" BasicStringWithoutSpace.of_json in
      let buyerDomain = field_map json__ "BuyerDomain" BuyerDomain.of_json in
      let procurementPortalName =
        field_map json__ "ProcurementPortalName"
          ProcurementPortalName.of_json in
      let procurementPortalPreferenceArn =
        field_map json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      let awsAccountId =
        field_map json__ "AwsAccountId" AccountIdString.of_json in
      make ?lastUpdateDate ?createDate ?version
        ?purchaseOrderRetrievalPreferenceStatusReason
        ?purchaseOrderRetrievalPreferenceStatus
        ?einvoiceDeliveryPreferenceStatusReason
        ?einvoiceDeliveryPreferenceStatus ?purchaseOrderRetrievalEnabled
        ?einvoiceDeliveryEnabled ?selector ?supplierIdentifier
        ?supplierDomain ?buyerIdentifier ?buyerDomain ?procurementPortalName
        ?procurementPortalPreferenceArn ?awsAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of a procurement portal preference, including key identifiers and status information."]
module InvoiceUnit =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t option
        [@ocaml.doc
          "ARN to identify an invoice unit. This information can't be modified or deleted."];
      invoiceReceiver: AccountIdString.t option
        [@ocaml.doc
          "The account that receives invoices related to the invoice unit."];
      name: InvoiceUnitName.t option
        [@ocaml.doc
          "A unique name that is distinctive within your Amazon Web Services."];
      description: DescriptionString.t option
        [@ocaml.doc
          "The assigned description for an invoice unit. This information can't be modified or deleted."];
      taxInheritanceDisabled: TaxInheritanceDisabledFlag.t option
        [@ocaml.doc
          "Whether the invoice unit based tax inheritance is/ should be enabled or disabled."];
      rule: InvoiceUnitRule.t option
        [@ocaml.doc
          "An InvoiceUnitRule object used the categorize invoice units."];
      lastModified: LastModifiedTimestamp.t option
        [@ocaml.doc
          "The last time the invoice unit was updated. This is important to determine the version of invoice unit configuration used to create the invoices. Any invoice created after this modified time will use this invoice unit configuration."]}
    let make ?invoiceUnitArn =
      fun ?invoiceReceiver ->
        fun ?name ->
          fun ?description ->
            fun ?taxInheritanceDisabled ->
              fun ?rule ->
                fun ?lastModified ->
                  fun () ->
                    {
                      invoiceUnitArn;
                      invoiceReceiver;
                      name;
                      description;
                      taxInheritanceDisabled;
                      rule;
                      lastModified
                    }
    let to_value x =
      structure_to_value
        [("InvoiceUnitArn",
           (Option.map x.invoiceUnitArn ~f:InvoiceUnitArnString.to_value));
        ("InvoiceReceiver",
          (Option.map x.invoiceReceiver ~f:AccountIdString.to_value));
        ("Name", (Option.map x.name ~f:InvoiceUnitName.to_value));
        ("Description",
          (Option.map x.description ~f:DescriptionString.to_value));
        ("TaxInheritanceDisabled",
          (Option.map x.taxInheritanceDisabled
             ~f:TaxInheritanceDisabledFlag.to_value));
        ("Rule", (Option.map x.rule ~f:InvoiceUnitRule.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:LastModifiedTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModified =
        (Option.map ~f:LastModifiedTimestamp.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let rule =
        (Option.map ~f:InvoiceUnitRule.of_xml) (Xml.child xml_arg0 "Rule") in
      let taxInheritanceDisabled =
        (Option.map ~f:TaxInheritanceDisabledFlag.of_xml)
          (Xml.child xml_arg0 "TaxInheritanceDisabled") in
      let description =
        (Option.map ~f:DescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:InvoiceUnitName.of_xml) (Xml.child xml_arg0 "Name") in
      let invoiceReceiver =
        (Option.map ~f:AccountIdString.of_xml)
          (Xml.child xml_arg0 "InvoiceReceiver") in
      let invoiceUnitArn =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "InvoiceUnitArn") in
      make ?lastModified ?rule ?taxInheritanceDisabled ?description ?name
        ?invoiceReceiver ?invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModified =
        field_map json__ "LastModified" LastModifiedTimestamp.of_json in
      let rule = field_map json__ "Rule" InvoiceUnitRule.of_json in
      let taxInheritanceDisabled =
        field_map json__ "TaxInheritanceDisabled"
          TaxInheritanceDisabledFlag.of_json in
      let description =
        field_map json__ "Description" DescriptionString.of_json in
      let name = field_map json__ "Name" InvoiceUnitName.of_json in
      let invoiceReceiver =
        field_map json__ "InvoiceReceiver" AccountIdString.of_json in
      let invoiceUnitArn =
        field_map json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?lastModified ?rule ?taxInheritanceDisabled ?description ?name
        ?invoiceReceiver ?invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An invoice unit is a set of mutually exclusive accounts that correspond to your business entity. Invoice units allow you separate Amazon Web Services account costs and configures your invoice for each business entity going forward."]
module AccountIdList =
  struct
    type nonrec t = AccountIdString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AccountIdString.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:AccountIdString.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountIdList" ~of_json:AccountIdString.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvoiceUnitNames =
  struct
    type nonrec t = InvoiceUnitName.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:InvoiceUnitName.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:InvoiceUnitName.of_xml)
    let of_json j =
      list_of_json ~kind:"InvoiceUnitNames" ~of_json:InvoiceUnitName.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module InvoiceSummary =
  struct
    type nonrec t =
      {
      accountId: AccountIdString.t option
        [@ocaml.doc "The Amazon Web Services account ID."];
      invoiceId: BasicString.t option [@ocaml.doc "The invoice ID."];
      issuedDate: Timestamp.t option
        [@ocaml.doc "The issued date of the invoice."];
      dueDate: Timestamp.t option [@ocaml.doc "The invoice due date."];
      billSourceAccounts: BillSourceAccountList.t option
        [@ocaml.doc
          "The list of Amazon Web Services account IDs that are the bill source of the invoice. Currently, only a single bill source account is returned."];
      billSourceAccountsTotalCount: Integer.t option
        [@ocaml.doc
          "The total number of accounts that are the bill source of the invoice."];
      receiverRole: ReceiverRole.t option
        [@ocaml.doc "The role of the invoice receiver."];
      entity: Entity.t option
        [@ocaml.doc
          "The organization name providing Amazon Web Services services."];
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc "The billing period of the invoice-related document."];
      invoiceFrequency: InvoiceFrequency.t option
        [@ocaml.doc "The frequency of the invoice."];
      billType: BillType.t option [@ocaml.doc "The type of the bill."];
      invoiceType: InvoiceType.t option [@ocaml.doc "The type of invoice."];
      commercialInvoiceId: BasicString.t option
        [@ocaml.doc
          "The commercial invoice ID. This is only applicable for tax invoices and identifies the associated commercial invoice."];
      originalInvoiceId: BasicString.t option
        [@ocaml.doc "The initial or original invoice ID."];
      purchaseOrderNumber: BasicString.t option
        [@ocaml.doc "The purchase order number associated to the invoice."];
      einvoiceDeliveryStatus: EinvoiceDeliveryStatus.t option
        [@ocaml.doc "The e-invoice delivery status."];
      taxAuthorityStatus: TaxAuthorityStatus.t option
        [@ocaml.doc
          "The current status of an invoice as reported to the tax authority. This captures scenarios where an invoice may be cancelled after issuance."];
      baseCurrencyAmount: InvoiceCurrencyAmount.t option
        [@ocaml.doc "The summary with the product and service currency."];
      taxCurrencyAmount: InvoiceCurrencyAmount.t option
        [@ocaml.doc "The summary with the tax currency."];
      paymentCurrencyAmount: InvoiceCurrencyAmount.t option
        [@ocaml.doc "The summary with the customer configured currency."]}
    let make ?accountId =
      fun ?invoiceId ->
        fun ?issuedDate ->
          fun ?dueDate ->
            fun ?billSourceAccounts ->
              fun ?billSourceAccountsTotalCount ->
                fun ?receiverRole ->
                  fun ?entity ->
                    fun ?billingPeriod ->
                      fun ?invoiceFrequency ->
                        fun ?billType ->
                          fun ?invoiceType ->
                            fun ?commercialInvoiceId ->
                              fun ?originalInvoiceId ->
                                fun ?purchaseOrderNumber ->
                                  fun ?einvoiceDeliveryStatus ->
                                    fun ?taxAuthorityStatus ->
                                      fun ?baseCurrencyAmount ->
                                        fun ?taxCurrencyAmount ->
                                          fun ?paymentCurrencyAmount ->
                                            fun () ->
                                              {
                                                accountId;
                                                invoiceId;
                                                issuedDate;
                                                dueDate;
                                                billSourceAccounts;
                                                billSourceAccountsTotalCount;
                                                receiverRole;
                                                entity;
                                                billingPeriod;
                                                invoiceFrequency;
                                                billType;
                                                invoiceType;
                                                commercialInvoiceId;
                                                originalInvoiceId;
                                                purchaseOrderNumber;
                                                einvoiceDeliveryStatus;
                                                taxAuthorityStatus;
                                                baseCurrencyAmount;
                                                taxCurrencyAmount;
                                                paymentCurrencyAmount
                                              }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountIdString.to_value));
        ("InvoiceId", (Option.map x.invoiceId ~f:BasicString.to_value));
        ("IssuedDate", (Option.map x.issuedDate ~f:Timestamp.to_value));
        ("DueDate", (Option.map x.dueDate ~f:Timestamp.to_value));
        ("BillSourceAccounts",
          (Option.map x.billSourceAccounts ~f:BillSourceAccountList.to_value));
        ("BillSourceAccountsTotalCount",
          (Option.map x.billSourceAccountsTotalCount ~f:Integer.to_value));
        ("ReceiverRole",
          (Option.map x.receiverRole ~f:ReceiverRole.to_value));
        ("Entity", (Option.map x.entity ~f:Entity.to_value));
        ("BillingPeriod",
          (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("InvoiceFrequency",
          (Option.map x.invoiceFrequency ~f:InvoiceFrequency.to_value));
        ("BillType", (Option.map x.billType ~f:BillType.to_value));
        ("InvoiceType", (Option.map x.invoiceType ~f:InvoiceType.to_value));
        ("CommercialInvoiceId",
          (Option.map x.commercialInvoiceId ~f:BasicString.to_value));
        ("OriginalInvoiceId",
          (Option.map x.originalInvoiceId ~f:BasicString.to_value));
        ("PurchaseOrderNumber",
          (Option.map x.purchaseOrderNumber ~f:BasicString.to_value));
        ("EinvoiceDeliveryStatus",
          (Option.map x.einvoiceDeliveryStatus
             ~f:EinvoiceDeliveryStatus.to_value));
        ("TaxAuthorityStatus",
          (Option.map x.taxAuthorityStatus ~f:TaxAuthorityStatus.to_value));
        ("BaseCurrencyAmount",
          (Option.map x.baseCurrencyAmount ~f:InvoiceCurrencyAmount.to_value));
        ("TaxCurrencyAmount",
          (Option.map x.taxCurrencyAmount ~f:InvoiceCurrencyAmount.to_value));
        ("PaymentCurrencyAmount",
          (Option.map x.paymentCurrencyAmount
             ~f:InvoiceCurrencyAmount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let paymentCurrencyAmount =
        (Option.map ~f:InvoiceCurrencyAmount.of_xml)
          (Xml.child xml_arg0 "PaymentCurrencyAmount") in
      let taxCurrencyAmount =
        (Option.map ~f:InvoiceCurrencyAmount.of_xml)
          (Xml.child xml_arg0 "TaxCurrencyAmount") in
      let baseCurrencyAmount =
        (Option.map ~f:InvoiceCurrencyAmount.of_xml)
          (Xml.child xml_arg0 "BaseCurrencyAmount") in
      let taxAuthorityStatus =
        (Option.map ~f:TaxAuthorityStatus.of_xml)
          (Xml.child xml_arg0 "TaxAuthorityStatus") in
      let einvoiceDeliveryStatus =
        (Option.map ~f:EinvoiceDeliveryStatus.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryStatus") in
      let purchaseOrderNumber =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderNumber") in
      let originalInvoiceId =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "OriginalInvoiceId") in
      let commercialInvoiceId =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "CommercialInvoiceId") in
      let invoiceType =
        (Option.map ~f:InvoiceType.of_xml) (Xml.child xml_arg0 "InvoiceType") in
      let billType =
        (Option.map ~f:BillType.of_xml) (Xml.child xml_arg0 "BillType") in
      let invoiceFrequency =
        (Option.map ~f:InvoiceFrequency.of_xml)
          (Xml.child xml_arg0 "InvoiceFrequency") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      let entity =
        (Option.map ~f:Entity.of_xml) (Xml.child xml_arg0 "Entity") in
      let receiverRole =
        (Option.map ~f:ReceiverRole.of_xml)
          (Xml.child xml_arg0 "ReceiverRole") in
      let billSourceAccountsTotalCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "BillSourceAccountsTotalCount") in
      let billSourceAccounts =
        (Option.map ~f:BillSourceAccountList.of_xml)
          (Xml.child xml_arg0 "BillSourceAccounts") in
      let dueDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "DueDate") in
      let issuedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "IssuedDate") in
      let invoiceId =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "InvoiceId") in
      let accountId =
        (Option.map ~f:AccountIdString.of_xml)
          (Xml.child xml_arg0 "AccountId") in
      make ?paymentCurrencyAmount ?taxCurrencyAmount ?baseCurrencyAmount
        ?taxAuthorityStatus ?einvoiceDeliveryStatus ?purchaseOrderNumber
        ?originalInvoiceId ?commercialInvoiceId ?invoiceType ?billType
        ?invoiceFrequency ?billingPeriod ?entity ?receiverRole
        ?billSourceAccountsTotalCount ?billSourceAccounts ?dueDate
        ?issuedDate ?invoiceId ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let paymentCurrencyAmount =
        field_map json__ "PaymentCurrencyAmount"
          InvoiceCurrencyAmount.of_json in
      let taxCurrencyAmount =
        field_map json__ "TaxCurrencyAmount" InvoiceCurrencyAmount.of_json in
      let baseCurrencyAmount =
        field_map json__ "BaseCurrencyAmount" InvoiceCurrencyAmount.of_json in
      let taxAuthorityStatus =
        field_map json__ "TaxAuthorityStatus" TaxAuthorityStatus.of_json in
      let einvoiceDeliveryStatus =
        field_map json__ "EinvoiceDeliveryStatus"
          EinvoiceDeliveryStatus.of_json in
      let purchaseOrderNumber =
        field_map json__ "PurchaseOrderNumber" BasicString.of_json in
      let originalInvoiceId =
        field_map json__ "OriginalInvoiceId" BasicString.of_json in
      let commercialInvoiceId =
        field_map json__ "CommercialInvoiceId" BasicString.of_json in
      let invoiceType = field_map json__ "InvoiceType" InvoiceType.of_json in
      let billType = field_map json__ "BillType" BillType.of_json in
      let invoiceFrequency =
        field_map json__ "InvoiceFrequency" InvoiceFrequency.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      let entity = field_map json__ "Entity" Entity.of_json in
      let receiverRole = field_map json__ "ReceiverRole" ReceiverRole.of_json in
      let billSourceAccountsTotalCount =
        field_map json__ "BillSourceAccountsTotalCount" Integer.of_json in
      let billSourceAccounts =
        field_map json__ "BillSourceAccounts" BillSourceAccountList.of_json in
      let dueDate = field_map json__ "DueDate" Timestamp.of_json in
      let issuedDate = field_map json__ "IssuedDate" Timestamp.of_json in
      let invoiceId = field_map json__ "InvoiceId" BasicString.of_json in
      let accountId = field_map json__ "AccountId" AccountIdString.of_json in
      make ?paymentCurrencyAmount ?taxCurrencyAmount ?baseCurrencyAmount
        ?taxAuthorityStatus ?einvoiceDeliveryStatus ?purchaseOrderNumber
        ?originalInvoiceId ?commercialInvoiceId ?invoiceType ?billType
        ?invoiceFrequency ?billingPeriod ?entity ?receiverRole
        ?billSourceAccountsTotalCount ?billSourceAccounts ?dueDate
        ?issuedDate ?invoiceId ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The invoice that the API retrieved."]
module DateInterval =
  struct
    type nonrec t =
      {
      startDate: Timestamp.t
        [@ocaml.doc
          "The beginning of the time period that you want invoice-related documents for. The start date is inclusive. For example, if start is 2019-01-01, AWS retrieves invoices starting at 2019-01-01 up to the end date."];
      endDate: Timestamp.t
        [@ocaml.doc
          "The end of the time period that you want invoice-related documents for. The end date is exclusive. For example, if end is 2019-01-10, Amazon Web Services retrieves invoice-related documents from the start date up to, but not including, 2018-01-10."]}
    let context_ = "DateInterval"
    let make ~startDate = fun ~endDate -> fun () -> { startDate; endDate }
    let to_value x =
      structure_to_value
        [("StartDate", (Some (Timestamp.to_value x.startDate)));
        ("EndDate", (Some (Timestamp.to_value x.endDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndDate") in
      let startDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartDate") in
      make ~endDate ~startDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map_exn json__ "EndDate" Timestamp.of_json in
      let startDate = field_map_exn json__ "StartDate" Timestamp.of_json in
      make ~endDate ~startDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The time period that you want invoice-related documents for."]
module ListInvoiceSummariesResourceType =
  struct
    type nonrec t =
      | ACCOUNT_ID 
      | INVOICE_ID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCOUNT_ID -> "ACCOUNT_ID"
      | INVOICE_ID -> "INVOICE_ID"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCOUNT_ID" -> ACCOUNT_ID
      | "INVOICE_ID" -> INVOICE_ID
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ListInvoiceSummariesResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListInvoiceSummariesResourceType" j)
    let to_json = simple_to_json to_value
  end
module Contacts =
  struct
    type nonrec t = Contact.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Contact.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Contact.of_xml)
    let of_json j = list_of_json ~kind:"Contacts" ~of_json:Contact.of_json j
    let to_json v = composed_to_json to_value v
  end
module EinvoiceDeliveryPreference =
  struct
    type nonrec t =
      {
      einvoiceDeliveryDocumentTypes: EinvoiceDeliveryDocumentTypes.t
        [@ocaml.doc "The types of e-invoice documents to be delivered."];
      einvoiceDeliveryAttachmentTypes:
        EinvoiceDeliveryAttachmentTypes.t option
        [@ocaml.doc
          "The types of attachments to include with the e-invoice delivery."];
      protocol: Protocol.t
        [@ocaml.doc
          "The communication protocol to use for e-invoice delivery."];
      purchaseOrderDataSources: PurchaseOrderDataSources.t
        [@ocaml.doc
          "The sources of purchase order data to use for e-invoice generation and delivery."];
      connectionTestingMethod: ConnectionTestingMethod.t
        [@ocaml.doc
          "The method to use for testing the connection to the procurement portal."];
      einvoiceDeliveryActivationDate: Timestamp.t
        [@ocaml.doc
          "The date when e-invoice delivery should be activated for this preference."]}
    let context_ = "EinvoiceDeliveryPreference"
    let make ?einvoiceDeliveryAttachmentTypes =
      fun ~einvoiceDeliveryDocumentTypes ->
        fun ~protocol ->
          fun ~purchaseOrderDataSources ->
            fun ~connectionTestingMethod ->
              fun ~einvoiceDeliveryActivationDate ->
                fun () ->
                  {
                    einvoiceDeliveryAttachmentTypes;
                    einvoiceDeliveryDocumentTypes;
                    protocol;
                    purchaseOrderDataSources;
                    connectionTestingMethod;
                    einvoiceDeliveryActivationDate
                  }
    let to_value x =
      structure_to_value
        [("EinvoiceDeliveryDocumentTypes",
           (Some
              (EinvoiceDeliveryDocumentTypes.to_value
                 x.einvoiceDeliveryDocumentTypes)));
        ("EinvoiceDeliveryAttachmentTypes",
          (Option.map x.einvoiceDeliveryAttachmentTypes
             ~f:EinvoiceDeliveryAttachmentTypes.to_value));
        ("Protocol", (Some (Protocol.to_value x.protocol)));
        ("PurchaseOrderDataSources",
          (Some
             (PurchaseOrderDataSources.to_value x.purchaseOrderDataSources)));
        ("ConnectionTestingMethod",
          (Some (ConnectionTestingMethod.to_value x.connectionTestingMethod)));
        ("EinvoiceDeliveryActivationDate",
          (Some (Timestamp.to_value x.einvoiceDeliveryActivationDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let einvoiceDeliveryActivationDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "EinvoiceDeliveryActivationDate") in
      let connectionTestingMethod =
        ConnectionTestingMethod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionTestingMethod") in
      let purchaseOrderDataSources =
        PurchaseOrderDataSources.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PurchaseOrderDataSources") in
      let protocol =
        Protocol.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Protocol") in
      let einvoiceDeliveryAttachmentTypes =
        (Option.map ~f:EinvoiceDeliveryAttachmentTypes.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryAttachmentTypes") in
      let einvoiceDeliveryDocumentTypes =
        EinvoiceDeliveryDocumentTypes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "EinvoiceDeliveryDocumentTypes") in
      make ~einvoiceDeliveryActivationDate ~connectionTestingMethod
        ~purchaseOrderDataSources ~protocol ?einvoiceDeliveryAttachmentTypes
        ~einvoiceDeliveryDocumentTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let einvoiceDeliveryActivationDate =
        field_map_exn json__ "EinvoiceDeliveryActivationDate"
          Timestamp.of_json in
      let connectionTestingMethod =
        field_map_exn json__ "ConnectionTestingMethod"
          ConnectionTestingMethod.of_json in
      let purchaseOrderDataSources =
        field_map_exn json__ "PurchaseOrderDataSources"
          PurchaseOrderDataSources.of_json in
      let protocol = field_map_exn json__ "Protocol" Protocol.of_json in
      let einvoiceDeliveryAttachmentTypes =
        field_map json__ "EinvoiceDeliveryAttachmentTypes"
          EinvoiceDeliveryAttachmentTypes.of_json in
      let einvoiceDeliveryDocumentTypes =
        field_map_exn json__ "EinvoiceDeliveryDocumentTypes"
          EinvoiceDeliveryDocumentTypes.of_json in
      make ~einvoiceDeliveryActivationDate ~connectionTestingMethod
        ~purchaseOrderDataSources ~protocol ?einvoiceDeliveryAttachmentTypes
        ~einvoiceDeliveryDocumentTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the preferences for e-invoice delivery, including document types, attachment types, and customization settings."]
module TestEnvPreference =
  struct
    type nonrec t =
      {
      buyerDomain: BuyerDomain.t option
        [@ocaml.doc
          "The domain identifier for the buyer in the test environment of the procurement portal."];
      buyerIdentifier: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The unique identifier for the buyer in the test environment of the procurement portal."];
      supplierDomain: SupplierDomain.t option
        [@ocaml.doc
          "The domain identifier for the supplier in the test environment of the procurement portal."];
      supplierIdentifier: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The unique identifier for the supplier in the test environment of the procurement portal."];
      procurementPortalSharedSecret: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The shared secret or authentication credential used for secure communication with the test environment."];
      procurementPortalInstanceEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The endpoint URL where e-invoices are delivered in the test environment."];
      purchaseOrderRetrievalEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The endpoint URL used for retrieving purchase orders in the test environment."]}
    let make ?buyerDomain =
      fun ?buyerIdentifier ->
        fun ?supplierDomain ->
          fun ?supplierIdentifier ->
            fun ?procurementPortalSharedSecret ->
              fun ?procurementPortalInstanceEndpoint ->
                fun ?purchaseOrderRetrievalEndpoint ->
                  fun () ->
                    {
                      buyerDomain;
                      buyerIdentifier;
                      supplierDomain;
                      supplierIdentifier;
                      procurementPortalSharedSecret;
                      procurementPortalInstanceEndpoint;
                      purchaseOrderRetrievalEndpoint
                    }
    let to_value x =
      structure_to_value
        [("BuyerDomain", (Option.map x.buyerDomain ~f:BuyerDomain.to_value));
        ("BuyerIdentifier",
          (Option.map x.buyerIdentifier ~f:BasicStringWithoutSpace.to_value));
        ("SupplierDomain",
          (Option.map x.supplierDomain ~f:SupplierDomain.to_value));
        ("SupplierIdentifier",
          (Option.map x.supplierIdentifier
             ~f:BasicStringWithoutSpace.to_value));
        ("ProcurementPortalSharedSecret",
          (Option.map x.procurementPortalSharedSecret
             ~f:BasicStringWithoutSpace.to_value));
        ("ProcurementPortalInstanceEndpoint",
          (Option.map x.procurementPortalInstanceEndpoint
             ~f:BasicStringWithoutSpace.to_value));
        ("PurchaseOrderRetrievalEndpoint",
          (Option.map x.purchaseOrderRetrievalEndpoint
             ~f:BasicStringWithoutSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let purchaseOrderRetrievalEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalEndpoint") in
      let procurementPortalInstanceEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalInstanceEndpoint") in
      let procurementPortalSharedSecret =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalSharedSecret") in
      let supplierIdentifier =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "SupplierIdentifier") in
      let supplierDomain =
        (Option.map ~f:SupplierDomain.of_xml)
          (Xml.child xml_arg0 "SupplierDomain") in
      let buyerIdentifier =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "BuyerIdentifier") in
      let buyerDomain =
        (Option.map ~f:BuyerDomain.of_xml) (Xml.child xml_arg0 "BuyerDomain") in
      make ?purchaseOrderRetrievalEndpoint ?procurementPortalInstanceEndpoint
        ?procurementPortalSharedSecret ?supplierIdentifier ?supplierDomain
        ?buyerIdentifier ?buyerDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let purchaseOrderRetrievalEndpoint =
        field_map json__ "PurchaseOrderRetrievalEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalInstanceEndpoint =
        field_map json__ "ProcurementPortalInstanceEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalSharedSecret =
        field_map json__ "ProcurementPortalSharedSecret"
          BasicStringWithoutSpace.of_json in
      let supplierIdentifier =
        field_map json__ "SupplierIdentifier" BasicStringWithoutSpace.of_json in
      let supplierDomain =
        field_map json__ "SupplierDomain" SupplierDomain.of_json in
      let buyerIdentifier =
        field_map json__ "BuyerIdentifier" BasicStringWithoutSpace.of_json in
      let buyerDomain = field_map json__ "BuyerDomain" BuyerDomain.of_json in
      make ?purchaseOrderRetrievalEndpoint ?procurementPortalInstanceEndpoint
        ?procurementPortalSharedSecret ?supplierIdentifier ?supplierDomain
        ?buyerIdentifier ?buyerDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains configuration settings for testing the procurement portal integration in a non-production environment."]
module SupplementalDocuments =
  struct
    type nonrec t = SupplementalDocument.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:SupplementalDocument.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:SupplementalDocument.of_xml)
    let of_json j =
      list_of_json ~kind:"SupplementalDocuments"
        ~of_json:SupplementalDocument.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvoiceProfile =
  struct
    type nonrec t =
      {
      accountId: AccountIdString.t option
        [@ocaml.doc "The account ID the invoice profile is generated for."];
      receiverName: BasicStringWithoutSpace.t option
        [@ocaml.doc "The name of the person receiving the invoice profile."];
      receiverAddress: ReceiverAddress.t option
        [@ocaml.doc
          "The address of the receiver that will be printed on the invoice."];
      receiverEmail: SensitiveBasicStringWithoutSpace.t option
        [@ocaml.doc "The email address for the invoice profile receiver."];
      issuer: BasicStringWithoutSpace.t option
        [@ocaml.doc "This specifies the issuing entity of the invoice."];
      taxRegistrationNumber: SensitiveBasicStringWithoutSpace.t option
        [@ocaml.doc "Your Tax Registration Number (TRN) information."]}
    let make ?accountId =
      fun ?receiverName ->
        fun ?receiverAddress ->
          fun ?receiverEmail ->
            fun ?issuer ->
              fun ?taxRegistrationNumber ->
                fun () ->
                  {
                    accountId;
                    receiverName;
                    receiverAddress;
                    receiverEmail;
                    issuer;
                    taxRegistrationNumber
                  }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountIdString.to_value));
        ("ReceiverName",
          (Option.map x.receiverName ~f:BasicStringWithoutSpace.to_value));
        ("ReceiverAddress",
          (Option.map x.receiverAddress ~f:ReceiverAddress.to_value));
        ("ReceiverEmail",
          (Option.map x.receiverEmail
             ~f:SensitiveBasicStringWithoutSpace.to_value));
        ("Issuer", (Option.map x.issuer ~f:BasicStringWithoutSpace.to_value));
        ("TaxRegistrationNumber",
          (Option.map x.taxRegistrationNumber
             ~f:SensitiveBasicStringWithoutSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationNumber =
        (Option.map ~f:SensitiveBasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "TaxRegistrationNumber") in
      let issuer =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "Issuer") in
      let receiverEmail =
        (Option.map ~f:SensitiveBasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ReceiverEmail") in
      let receiverAddress =
        (Option.map ~f:ReceiverAddress.of_xml)
          (Xml.child xml_arg0 "ReceiverAddress") in
      let receiverName =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ReceiverName") in
      let accountId =
        (Option.map ~f:AccountIdString.of_xml)
          (Xml.child xml_arg0 "AccountId") in
      make ?taxRegistrationNumber ?issuer ?receiverEmail ?receiverAddress
        ?receiverName ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationNumber =
        field_map json__ "TaxRegistrationNumber"
          SensitiveBasicStringWithoutSpace.of_json in
      let issuer = field_map json__ "Issuer" BasicStringWithoutSpace.of_json in
      let receiverEmail =
        field_map json__ "ReceiverEmail"
          SensitiveBasicStringWithoutSpace.of_json in
      let receiverAddress =
        field_map json__ "ReceiverAddress" ReceiverAddress.of_json in
      let receiverName =
        field_map json__ "ReceiverName" BasicStringWithoutSpace.of_json in
      let accountId = field_map json__ "AccountId" AccountIdString.of_json in
      make ?taxRegistrationNumber ?issuer ?receiverEmail ?receiverAddress
        ?receiverName ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains high-level information about the invoice receiver."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: BasicString.t option ;
      resourceName: InvoiceUnitArnString.t option
        [@ocaml.doc
          "You don't have sufficient access to perform this action."]}
    let make ?message =
      fun ?resourceName -> fun () -> { message; resourceName }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:BasicString.to_value));
        ("resourceName",
          (Option.map x.resourceName ~f:InvoiceUnitArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceName =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "resourceName") in
      let message =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceName ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceName =
        field_map json__ "resourceName" InvoiceUnitArnString.of_json in
      let message = field_map json__ "message" BasicString.of_json in
      make ?resourceName ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You don't have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: BasicString.t option ;
      resourceId: BasicString.t option
        [@ocaml.doc
          "The identifier of the resource that caused the conflict."];
      resourceType: BasicString.t option
        [@ocaml.doc "The type of 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:BasicString.to_value));
        ("resourceId", (Option.map x.resourceId ~f:BasicString.to_value));
        ("resourceType", (Option.map x.resourceType ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:BasicString.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" BasicString.of_json in
      let resourceId = field_map json__ "resourceId" BasicString.of_json in
      let message = field_map json__ "message" BasicString.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. This exception occurs when a concurrent modification is detected during an update operation, or when attempting to create a resource that already exists."]
module InternalServerException =
  struct
    type nonrec t =
      {
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The processing request failed because of an unknown error, exception, or failure."];
      message: BasicString.t option }
    let make ?retryAfterSeconds =
      fun ?message -> fun () -> { retryAfterSeconds; message }
    let to_value x =
      structure_to_value
        [("retryAfterSeconds",
           (Option.map x.retryAfterSeconds ~f:Integer.to_value));
        ("message", (Option.map x.message ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "message") in
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "retryAfterSeconds") in
      make ?message ?retryAfterSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" BasicString.of_json in
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      make ?message ?retryAfterSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The processing request failed because of an unknown error, exception, or failure."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: BasicString.t option ;
      resourceName: InvoiceUnitArnString.t option
        [@ocaml.doc "The resource could not be found."]}
    let make ?message =
      fun ?resourceName -> fun () -> { message; resourceName }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:BasicString.to_value));
        ("resourceName",
          (Option.map x.resourceName ~f:InvoiceUnitArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceName =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "resourceName") in
      let message =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceName ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceName =
        field_map json__ "resourceName" InvoiceUnitArnString.of_json in
      let message = field_map json__ "message" BasicString.of_json in
      make ?resourceName ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource could not be found."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: BasicString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:BasicString.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" BasicString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because it attempted to create resources beyond the current Amazon Web Services account limits. The error message describes the limit exceeded."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: BasicString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:BasicString.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" BasicString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: BasicString.t option ;
      resourceName: InvoiceUnitArnString.t option
        [@ocaml.doc
          "You don't have sufficient access to perform this action."];
      reason: ValidationExceptionReason.t option
        [@ocaml.doc
          "You don't have sufficient access to perform this action."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by an Amazon Web Services service."]}
    let make ?message =
      fun ?resourceName ->
        fun ?reason ->
          fun ?fieldList ->
            fun () -> { message; resourceName; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:BasicString.to_value));
        ("resourceName",
          (Option.map x.resourceName ~f:InvoiceUnitArnString.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 resourceName =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "resourceName") in
      let message =
        (Option.map ~f:BasicString.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?resourceName ?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 resourceName =
        field_map json__ "resourceName" InvoiceUnitArnString.of_json in
      let message = field_map json__ "message" BasicString.of_json in
      make ?fieldList ?reason ?resourceName ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module ResourceTagKeyList =
  struct
    type nonrec t = ResourceTagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceTagKey.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:ResourceTagKey.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagKeyList" ~of_json:ResourceTagKey.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module TagrisArn =
  struct
    type nonrec t = string
    let context_ = "TagrisArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[-a-z0-9]*:(invoicing)::[0-9]{12}:[-a-zA-Z0-9/:_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagrisArn" j
    let to_json = simple_to_json to_value
  end
module ResourceTagList =
  struct
    type nonrec t = ResourceTag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceTag.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:ResourceTag.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagList" ~of_json:ResourceTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module TestEnvPreferenceInput =
  struct
    type nonrec t =
      {
      buyerDomain: BuyerDomain.t
        [@ocaml.doc
          "The domain identifier to use for the buyer in the test environment."];
      buyerIdentifier: BasicStringWithoutSpace.t
        [@ocaml.doc
          "The unique identifier to use for the buyer in the test environment."];
      supplierDomain: SupplierDomain.t
        [@ocaml.doc
          "The domain identifier to use for the supplier in the test environment."];
      supplierIdentifier: BasicStringWithoutSpace.t
        [@ocaml.doc
          "The unique identifier to use for the supplier in the test environment."];
      procurementPortalSharedSecret: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The shared secret or authentication credential to use for secure communication in the test environment."];
      procurementPortalInstanceEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The endpoint URL where e-invoices will be delivered in the test environment."]}
    let context_ = "TestEnvPreferenceInput"
    let make ?procurementPortalSharedSecret =
      fun ?procurementPortalInstanceEndpoint ->
        fun ~buyerDomain ->
          fun ~buyerIdentifier ->
            fun ~supplierDomain ->
              fun ~supplierIdentifier ->
                fun () ->
                  {
                    procurementPortalSharedSecret;
                    procurementPortalInstanceEndpoint;
                    buyerDomain;
                    buyerIdentifier;
                    supplierDomain;
                    supplierIdentifier
                  }
    let to_value x =
      structure_to_value
        [("BuyerDomain", (Some (BuyerDomain.to_value x.buyerDomain)));
        ("BuyerIdentifier",
          (Some (BasicStringWithoutSpace.to_value x.buyerIdentifier)));
        ("SupplierDomain", (Some (SupplierDomain.to_value x.supplierDomain)));
        ("SupplierIdentifier",
          (Some (BasicStringWithoutSpace.to_value x.supplierIdentifier)));
        ("ProcurementPortalSharedSecret",
          (Option.map x.procurementPortalSharedSecret
             ~f:BasicStringWithoutSpace.to_value));
        ("ProcurementPortalInstanceEndpoint",
          (Option.map x.procurementPortalInstanceEndpoint
             ~f:BasicStringWithoutSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalInstanceEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalInstanceEndpoint") in
      let procurementPortalSharedSecret =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalSharedSecret") in
      let supplierIdentifier =
        BasicStringWithoutSpace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SupplierIdentifier") in
      let supplierDomain =
        SupplierDomain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SupplierDomain") in
      let buyerIdentifier =
        BasicStringWithoutSpace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BuyerIdentifier") in
      let buyerDomain =
        BuyerDomain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BuyerDomain") in
      make ?procurementPortalInstanceEndpoint ?procurementPortalSharedSecret
        ~supplierIdentifier ~supplierDomain ~buyerIdentifier ~buyerDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalInstanceEndpoint =
        field_map json__ "ProcurementPortalInstanceEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalSharedSecret =
        field_map json__ "ProcurementPortalSharedSecret"
          BasicStringWithoutSpace.of_json in
      let supplierIdentifier =
        field_map_exn json__ "SupplierIdentifier"
          BasicStringWithoutSpace.of_json in
      let supplierDomain =
        field_map_exn json__ "SupplierDomain" SupplierDomain.of_json in
      let buyerIdentifier =
        field_map_exn json__ "BuyerIdentifier"
          BasicStringWithoutSpace.of_json in
      let buyerDomain =
        field_map_exn json__ "BuyerDomain" BuyerDomain.of_json in
      make ?procurementPortalInstanceEndpoint ?procurementPortalSharedSecret
        ~supplierIdentifier ~supplierDomain ~buyerIdentifier ~buyerDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input parameters for configuring test environment preferences for a procurement portal."]
module ProcurementPortalPreferenceSummaries =
  struct
    type nonrec t = ProcurementPortalPreferenceSummary.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:ProcurementPortalPreferenceSummary.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:ProcurementPortalPreferenceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ProcurementPortalPreferenceSummaries"
        ~of_json:ProcurementPortalPreferenceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module InvoiceUnits =
  struct
    type nonrec t = InvoiceUnit.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:InvoiceUnit.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:InvoiceUnit.of_xml)
    let of_json j =
      list_of_json ~kind:"InvoiceUnits" ~of_json:InvoiceUnit.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextTokenString =
  struct
    type nonrec t = string
    let context_ = "NextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () -> check_pattern i ~pattern:"[\\S\\s]*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextTokenString" j
    let to_json = simple_to_json to_value
  end
module AsOfTimestamp =
  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 Filters =
  struct
    type nonrec t =
      {
      names: InvoiceUnitNames.t option
        [@ocaml.doc
          "An optional input to the list API. You can specify a list of invoice unit names inside filters to return invoice units that match only the specified invoice unit names. If multiple names are provided, the result is an OR condition (match any) of the specified invoice unit names."];
      invoiceReceivers: AccountIdList.t option
        [@ocaml.doc
          "You can specify a list of Amazon Web Services account IDs inside filters to return invoice units that match only the specified accounts. If multiple accounts are provided, the result is an OR condition (match any) of the specified accounts. This filter only matches the specified accounts on the invoice receivers of the invoice units."];
      accounts: AccountIdList.t option
        [@ocaml.doc
          "You can specify a list of Amazon Web Services account IDs inside filters to return invoice units that match only the specified accounts. If multiple accounts are provided, the result is an OR condition (match any) of the specified accounts. The specified account IDs are matched with either the receiver or the linked accounts in the rules."];
      billSourceAccounts: AccountIdList.t option
        [@ocaml.doc
          "A list of Amazon Web Services account IDs used to filter invoice units. These are payer accounts from other Organizations that have delegated their billing responsibility to the receiver account through the billing transfer feature."]}
    let make ?names =
      fun ?invoiceReceivers ->
        fun ?accounts ->
          fun ?billSourceAccounts ->
            fun () ->
              { names; invoiceReceivers; accounts; billSourceAccounts }
    let to_value x =
      structure_to_value
        [("Names", (Option.map x.names ~f:InvoiceUnitNames.to_value));
        ("InvoiceReceivers",
          (Option.map x.invoiceReceivers ~f:AccountIdList.to_value));
        ("Accounts", (Option.map x.accounts ~f:AccountIdList.to_value));
        ("BillSourceAccounts",
          (Option.map x.billSourceAccounts ~f:AccountIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billSourceAccounts =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "BillSourceAccounts") in
      let accounts =
        (Option.map ~f:AccountIdList.of_xml) (Xml.child xml_arg0 "Accounts") in
      let invoiceReceivers =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "InvoiceReceivers") in
      let names =
        (Option.map ~f:InvoiceUnitNames.of_xml) (Xml.child xml_arg0 "Names") in
      make ?billSourceAccounts ?accounts ?invoiceReceivers ?names ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billSourceAccounts =
        field_map json__ "BillSourceAccounts" AccountIdList.of_json in
      let accounts = field_map json__ "Accounts" AccountIdList.of_json in
      let invoiceReceivers =
        field_map json__ "InvoiceReceivers" AccountIdList.of_json in
      let names = field_map json__ "Names" InvoiceUnitNames.of_json in
      make ?billSourceAccounts ?accounts ?invoiceReceivers ?names ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An optional input to the list API. If multiple filters are specified, the returned list will be a configuration that match all of the provided filters. Supported filter types are InvoiceReceivers, Names, and Accounts."]
module MaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 MaxResultsInteger" 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 InvoiceSummaries =
  struct
    type nonrec t = InvoiceSummary.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:InvoiceSummary.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:InvoiceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"InvoiceSummaries" ~of_json:InvoiceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvoiceSummariesFilter =
  struct
    type nonrec t =
      {
      timeInterval: DateInterval.t option
        [@ocaml.doc "The date range for invoice summary retrieval."];
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The billing period associated with the invoice documents."];
      invoicingEntity: BasicString.t option
        [@ocaml.doc
          "The name of the entity that issues the Amazon Web Services invoice."];
      receiverRole: ReceiverRole.t option
        [@ocaml.doc
          "The role of the invoice receiver to filter by. When ReceiverRole is specified: Data is available starting 2025-06-01. Queries for periods before 2025-06-01 return a validation error. TimeInterval supports a time interval of up to 5 years. Without ReceiverRole, TimeInterval is limited to one month."]}
    let make ?timeInterval =
      fun ?billingPeriod ->
        fun ?invoicingEntity ->
          fun ?receiverRole ->
            fun () ->
              { timeInterval; billingPeriod; invoicingEntity; receiverRole }
    let to_value x =
      structure_to_value
        [("TimeInterval",
           (Option.map x.timeInterval ~f:DateInterval.to_value));
        ("BillingPeriod",
          (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("InvoicingEntity",
          (Option.map x.invoicingEntity ~f:BasicString.to_value));
        ("ReceiverRole",
          (Option.map x.receiverRole ~f:ReceiverRole.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receiverRole =
        (Option.map ~f:ReceiverRole.of_xml)
          (Xml.child xml_arg0 "ReceiverRole") in
      let invoicingEntity =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "InvoicingEntity") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      let timeInterval =
        (Option.map ~f:DateInterval.of_xml)
          (Xml.child xml_arg0 "TimeInterval") in
      make ?receiverRole ?invoicingEntity ?billingPeriod ?timeInterval ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receiverRole = field_map json__ "ReceiverRole" ReceiverRole.of_json in
      let invoicingEntity =
        field_map json__ "InvoicingEntity" BasicString.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      let timeInterval = field_map json__ "TimeInterval" DateInterval.of_json in
      make ?receiverRole ?invoicingEntity ?billingPeriod ?timeInterval ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters for your invoice summaries."]
module InvoiceSummariesMaxResults =
  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 InvoiceSummariesMaxResults"
           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 InvoiceSummariesSelector =
  struct
    type nonrec t =
      {
      resourceType: ListInvoiceSummariesResourceType.t
        [@ocaml.doc "The query identifier type (INVOICE_ID or ACCOUNT_ID)."];
      value: StringWithoutNewLine.t
        [@ocaml.doc "The value of the query identifier."]}
    let context_ = "InvoiceSummariesSelector"
    let make ~resourceType = fun ~value -> fun () -> { resourceType; value }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Some (ListInvoiceSummariesResourceType.to_value x.resourceType)));
        ("Value", (Some (StringWithoutNewLine.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        StringWithoutNewLine.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let resourceType =
        ListInvoiceSummariesResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceType") in
      make ~value ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" StringWithoutNewLine.of_json in
      let resourceType =
        field_map_exn json__ "ResourceType"
          ListInvoiceSummariesResourceType.of_json in
      make ~value ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the invoice summary."]
module ProcurementPortalPreference =
  struct
    type nonrec t =
      {
      awsAccountId: AccountIdString.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with this procurement portal preference."];
      procurementPortalPreferenceArn:
        ProcurementPortalPreferenceArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference."];
      procurementPortalName: ProcurementPortalName.t option
        [@ocaml.doc "The name of the procurement portal."];
      buyerDomain: BuyerDomain.t option
        [@ocaml.doc
          "The domain identifier for the buyer in the procurement portal."];
      buyerIdentifier: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The unique identifier for the buyer in the procurement portal."];
      supplierDomain: SupplierDomain.t option
        [@ocaml.doc
          "The domain identifier for the supplier in the procurement portal."];
      supplierIdentifier: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The unique identifier for the supplier in the procurement portal."];
      selector: ProcurementPortalPreferenceSelector.t option ;
      procurementPortalSharedSecret: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The shared secret or authentication credential used for secure communication with the procurement portal."];
      procurementPortalInstanceEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The endpoint URL where e-invoices are delivered to the procurement portal."];
      purchaseOrderRetrievalEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The endpoint URL used for retrieving purchase orders from the procurement portal."];
      testEnvPreference: TestEnvPreference.t option
        [@ocaml.doc
          "Configuration on settings for the test environment of the procurement portal."];
      einvoiceDeliveryEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether e-invoice delivery is enabled for this procurement portal preference."];
      einvoiceDeliveryPreference: EinvoiceDeliveryPreference.t option
        [@ocaml.doc
          "The configuration settings that specify how e-invoices are delivered to the procurement portal."];
      purchaseOrderRetrievalEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether purchase order retrieval is enabled for this procurement portal preference."];
      contacts: Contacts.t option
        [@ocaml.doc
          "List of contact information for portal administrators and technical contacts."];
      einvoiceDeliveryPreferenceStatus:
        ProcurementPortalPreferenceStatus.t option
        [@ocaml.doc
          "The current status of the e-invoice delivery preference."];
      einvoiceDeliveryPreferenceStatusReason: BasicString.t option
        [@ocaml.doc
          "The reason for the current e-invoice delivery preference status."];
      purchaseOrderRetrievalPreferenceStatus:
        ProcurementPortalPreferenceStatus.t option
        [@ocaml.doc
          "The current status of the purchase order retrieval preference."];
      purchaseOrderRetrievalPreferenceStatusReason: BasicString.t option
        [@ocaml.doc
          "The reason for the current purchase order retrieval preference status."];
      version: Long.t option
        [@ocaml.doc
          "The version number of the procurement portal preference configuration."];
      createDate: Timestamp.t option
        [@ocaml.doc
          "The date and time when the procurement portal preference was created."];
      lastUpdateDate: Timestamp.t option
        [@ocaml.doc
          "The date and time when the procurement portal preference was last updated."]}
    let make ?awsAccountId =
      fun ?procurementPortalPreferenceArn ->
        fun ?procurementPortalName ->
          fun ?buyerDomain ->
            fun ?buyerIdentifier ->
              fun ?supplierDomain ->
                fun ?supplierIdentifier ->
                  fun ?selector ->
                    fun ?procurementPortalSharedSecret ->
                      fun ?procurementPortalInstanceEndpoint ->
                        fun ?purchaseOrderRetrievalEndpoint ->
                          fun ?testEnvPreference ->
                            fun ?einvoiceDeliveryEnabled ->
                              fun ?einvoiceDeliveryPreference ->
                                fun ?purchaseOrderRetrievalEnabled ->
                                  fun ?contacts ->
                                    fun ?einvoiceDeliveryPreferenceStatus ->
                                      fun
                                        ?einvoiceDeliveryPreferenceStatusReason
                                        ->
                                        fun
                                          ?purchaseOrderRetrievalPreferenceStatus
                                          ->
                                          fun
                                            ?purchaseOrderRetrievalPreferenceStatusReason
                                            ->
                                            fun ?version ->
                                              fun ?createDate ->
                                                fun ?lastUpdateDate ->
                                                  fun () ->
                                                    {
                                                      awsAccountId;
                                                      procurementPortalPreferenceArn;
                                                      procurementPortalName;
                                                      buyerDomain;
                                                      buyerIdentifier;
                                                      supplierDomain;
                                                      supplierIdentifier;
                                                      selector;
                                                      procurementPortalSharedSecret;
                                                      procurementPortalInstanceEndpoint;
                                                      purchaseOrderRetrievalEndpoint;
                                                      testEnvPreference;
                                                      einvoiceDeliveryEnabled;
                                                      einvoiceDeliveryPreference;
                                                      purchaseOrderRetrievalEnabled;
                                                      contacts;
                                                      einvoiceDeliveryPreferenceStatus;
                                                      einvoiceDeliveryPreferenceStatusReason;
                                                      purchaseOrderRetrievalPreferenceStatus;
                                                      purchaseOrderRetrievalPreferenceStatusReason;
                                                      version;
                                                      createDate;
                                                      lastUpdateDate
                                                    }
    let to_value x =
      structure_to_value
        [("AwsAccountId",
           (Option.map x.awsAccountId ~f:AccountIdString.to_value));
        ("ProcurementPortalPreferenceArn",
          (Option.map x.procurementPortalPreferenceArn
             ~f:ProcurementPortalPreferenceArnString.to_value));
        ("ProcurementPortalName",
          (Option.map x.procurementPortalName
             ~f:ProcurementPortalName.to_value));
        ("BuyerDomain", (Option.map x.buyerDomain ~f:BuyerDomain.to_value));
        ("BuyerIdentifier",
          (Option.map x.buyerIdentifier ~f:BasicStringWithoutSpace.to_value));
        ("SupplierDomain",
          (Option.map x.supplierDomain ~f:SupplierDomain.to_value));
        ("SupplierIdentifier",
          (Option.map x.supplierIdentifier
             ~f:BasicStringWithoutSpace.to_value));
        ("Selector",
          (Option.map x.selector
             ~f:ProcurementPortalPreferenceSelector.to_value));
        ("ProcurementPortalSharedSecret",
          (Option.map x.procurementPortalSharedSecret
             ~f:BasicStringWithoutSpace.to_value));
        ("ProcurementPortalInstanceEndpoint",
          (Option.map x.procurementPortalInstanceEndpoint
             ~f:BasicStringWithoutSpace.to_value));
        ("PurchaseOrderRetrievalEndpoint",
          (Option.map x.purchaseOrderRetrievalEndpoint
             ~f:BasicStringWithoutSpace.to_value));
        ("TestEnvPreference",
          (Option.map x.testEnvPreference ~f:TestEnvPreference.to_value));
        ("EinvoiceDeliveryEnabled",
          (Option.map x.einvoiceDeliveryEnabled ~f:Boolean.to_value));
        ("EinvoiceDeliveryPreference",
          (Option.map x.einvoiceDeliveryPreference
             ~f:EinvoiceDeliveryPreference.to_value));
        ("PurchaseOrderRetrievalEnabled",
          (Option.map x.purchaseOrderRetrievalEnabled ~f:Boolean.to_value));
        ("Contacts", (Option.map x.contacts ~f:Contacts.to_value));
        ("EinvoiceDeliveryPreferenceStatus",
          (Option.map x.einvoiceDeliveryPreferenceStatus
             ~f:ProcurementPortalPreferenceStatus.to_value));
        ("EinvoiceDeliveryPreferenceStatusReason",
          (Option.map x.einvoiceDeliveryPreferenceStatusReason
             ~f:BasicString.to_value));
        ("PurchaseOrderRetrievalPreferenceStatus",
          (Option.map x.purchaseOrderRetrievalPreferenceStatus
             ~f:ProcurementPortalPreferenceStatus.to_value));
        ("PurchaseOrderRetrievalPreferenceStatusReason",
          (Option.map x.purchaseOrderRetrievalPreferenceStatusReason
             ~f:BasicString.to_value));
        ("Version", (Option.map x.version ~f:Long.to_value));
        ("CreateDate", (Option.map x.createDate ~f:Timestamp.to_value));
        ("LastUpdateDate",
          (Option.map x.lastUpdateDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdateDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateDate") in
      let createDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreateDate") in
      let version =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Version") in
      let purchaseOrderRetrievalPreferenceStatusReason =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalPreferenceStatusReason") in
      let purchaseOrderRetrievalPreferenceStatus =
        (Option.map ~f:ProcurementPortalPreferenceStatus.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalPreferenceStatus") in
      let einvoiceDeliveryPreferenceStatusReason =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreferenceStatusReason") in
      let einvoiceDeliveryPreferenceStatus =
        (Option.map ~f:ProcurementPortalPreferenceStatus.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreferenceStatus") in
      let contacts =
        (Option.map ~f:Contacts.of_xml) (Xml.child xml_arg0 "Contacts") in
      let purchaseOrderRetrievalEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalEnabled") in
      let einvoiceDeliveryPreference =
        (Option.map ~f:EinvoiceDeliveryPreference.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreference") in
      let einvoiceDeliveryEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryEnabled") in
      let testEnvPreference =
        (Option.map ~f:TestEnvPreference.of_xml)
          (Xml.child xml_arg0 "TestEnvPreference") in
      let purchaseOrderRetrievalEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalEndpoint") in
      let procurementPortalInstanceEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalInstanceEndpoint") in
      let procurementPortalSharedSecret =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalSharedSecret") in
      let selector =
        (Option.map ~f:ProcurementPortalPreferenceSelector.of_xml)
          (Xml.child xml_arg0 "Selector") in
      let supplierIdentifier =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "SupplierIdentifier") in
      let supplierDomain =
        (Option.map ~f:SupplierDomain.of_xml)
          (Xml.child xml_arg0 "SupplierDomain") in
      let buyerIdentifier =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "BuyerIdentifier") in
      let buyerDomain =
        (Option.map ~f:BuyerDomain.of_xml) (Xml.child xml_arg0 "BuyerDomain") in
      let procurementPortalName =
        (Option.map ~f:ProcurementPortalName.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalName") in
      let procurementPortalPreferenceArn =
        (Option.map ~f:ProcurementPortalPreferenceArnString.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferenceArn") in
      let awsAccountId =
        (Option.map ~f:AccountIdString.of_xml)
          (Xml.child xml_arg0 "AwsAccountId") in
      make ?lastUpdateDate ?createDate ?version
        ?purchaseOrderRetrievalPreferenceStatusReason
        ?purchaseOrderRetrievalPreferenceStatus
        ?einvoiceDeliveryPreferenceStatusReason
        ?einvoiceDeliveryPreferenceStatus ?contacts
        ?purchaseOrderRetrievalEnabled ?einvoiceDeliveryPreference
        ?einvoiceDeliveryEnabled ?testEnvPreference
        ?purchaseOrderRetrievalEndpoint ?procurementPortalInstanceEndpoint
        ?procurementPortalSharedSecret ?selector ?supplierIdentifier
        ?supplierDomain ?buyerIdentifier ?buyerDomain ?procurementPortalName
        ?procurementPortalPreferenceArn ?awsAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdateDate =
        field_map json__ "LastUpdateDate" Timestamp.of_json in
      let createDate = field_map json__ "CreateDate" Timestamp.of_json in
      let version = field_map json__ "Version" Long.of_json in
      let purchaseOrderRetrievalPreferenceStatusReason =
        field_map json__ "PurchaseOrderRetrievalPreferenceStatusReason"
          BasicString.of_json in
      let purchaseOrderRetrievalPreferenceStatus =
        field_map json__ "PurchaseOrderRetrievalPreferenceStatus"
          ProcurementPortalPreferenceStatus.of_json in
      let einvoiceDeliveryPreferenceStatusReason =
        field_map json__ "EinvoiceDeliveryPreferenceStatusReason"
          BasicString.of_json in
      let einvoiceDeliveryPreferenceStatus =
        field_map json__ "EinvoiceDeliveryPreferenceStatus"
          ProcurementPortalPreferenceStatus.of_json in
      let contacts = field_map json__ "Contacts" Contacts.of_json in
      let purchaseOrderRetrievalEnabled =
        field_map json__ "PurchaseOrderRetrievalEnabled" Boolean.of_json in
      let einvoiceDeliveryPreference =
        field_map json__ "EinvoiceDeliveryPreference"
          EinvoiceDeliveryPreference.of_json in
      let einvoiceDeliveryEnabled =
        field_map json__ "EinvoiceDeliveryEnabled" Boolean.of_json in
      let testEnvPreference =
        field_map json__ "TestEnvPreference" TestEnvPreference.of_json in
      let purchaseOrderRetrievalEndpoint =
        field_map json__ "PurchaseOrderRetrievalEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalInstanceEndpoint =
        field_map json__ "ProcurementPortalInstanceEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalSharedSecret =
        field_map json__ "ProcurementPortalSharedSecret"
          BasicStringWithoutSpace.of_json in
      let selector =
        field_map json__ "Selector"
          ProcurementPortalPreferenceSelector.of_json in
      let supplierIdentifier =
        field_map json__ "SupplierIdentifier" BasicStringWithoutSpace.of_json in
      let supplierDomain =
        field_map json__ "SupplierDomain" SupplierDomain.of_json in
      let buyerIdentifier =
        field_map json__ "BuyerIdentifier" BasicStringWithoutSpace.of_json in
      let buyerDomain = field_map json__ "BuyerDomain" BuyerDomain.of_json in
      let procurementPortalName =
        field_map json__ "ProcurementPortalName"
          ProcurementPortalName.of_json in
      let procurementPortalPreferenceArn =
        field_map json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      let awsAccountId =
        field_map json__ "AwsAccountId" AccountIdString.of_json in
      make ?lastUpdateDate ?createDate ?version
        ?purchaseOrderRetrievalPreferenceStatusReason
        ?purchaseOrderRetrievalPreferenceStatus
        ?einvoiceDeliveryPreferenceStatusReason
        ?einvoiceDeliveryPreferenceStatus ?contacts
        ?purchaseOrderRetrievalEnabled ?einvoiceDeliveryPreference
        ?einvoiceDeliveryEnabled ?testEnvPreference
        ?purchaseOrderRetrievalEndpoint ?procurementPortalInstanceEndpoint
        ?procurementPortalSharedSecret ?selector ?supplierIdentifier
        ?supplierDomain ?buyerIdentifier ?buyerDomain ?procurementPortalName
        ?procurementPortalPreferenceArn ?awsAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the full configuration of a procurement portal preference, including settings for e-invoice delivery and purchase order retrieval."]
module InvoicePDF =
  struct
    type nonrec t =
      {
      invoiceId: StringWithoutNewLine.t option
        [@ocaml.doc "Your unique invoice ID."];
      documentUrl: StringWithoutNewLine.t option
        [@ocaml.doc "The pre-signed URL to download the invoice document."];
      documentUrlExpirationDate: Timestamp.t option
        [@ocaml.doc
          "The pre-signed URL expiration date of the invoice document."];
      supplementalDocuments: SupplementalDocuments.t option
        [@ocaml.doc
          "List of supplemental documents associated with the invoice."]}
    let make ?invoiceId =
      fun ?documentUrl ->
        fun ?documentUrlExpirationDate ->
          fun ?supplementalDocuments ->
            fun () ->
              {
                invoiceId;
                documentUrl;
                documentUrlExpirationDate;
                supplementalDocuments
              }
    let to_value x =
      structure_to_value
        [("InvoiceId",
           (Option.map x.invoiceId ~f:StringWithoutNewLine.to_value));
        ("DocumentUrl",
          (Option.map x.documentUrl ~f:StringWithoutNewLine.to_value));
        ("DocumentUrlExpirationDate",
          (Option.map x.documentUrlExpirationDate ~f:Timestamp.to_value));
        ("SupplementalDocuments",
          (Option.map x.supplementalDocuments
             ~f:SupplementalDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supplementalDocuments =
        (Option.map ~f:SupplementalDocuments.of_xml)
          (Xml.child xml_arg0 "SupplementalDocuments") in
      let documentUrlExpirationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DocumentUrlExpirationDate") in
      let documentUrl =
        (Option.map ~f:StringWithoutNewLine.of_xml)
          (Xml.child xml_arg0 "DocumentUrl") in
      let invoiceId =
        (Option.map ~f:StringWithoutNewLine.of_xml)
          (Xml.child xml_arg0 "InvoiceId") in
      make ?supplementalDocuments ?documentUrlExpirationDate ?documentUrl
        ?invoiceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supplementalDocuments =
        field_map json__ "SupplementalDocuments"
          SupplementalDocuments.of_json in
      let documentUrlExpirationDate =
        field_map json__ "DocumentUrlExpirationDate" Timestamp.of_json in
      let documentUrl =
        field_map json__ "DocumentUrl" StringWithoutNewLine.of_json in
      let invoiceId =
        field_map json__ "InvoiceId" StringWithoutNewLine.of_json in
      make ?supplementalDocuments ?documentUrlExpirationDate ?documentUrl
        ?invoiceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invoice document data."]
module ProfileList =
  struct
    type nonrec t = InvoiceProfile.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:InvoiceProfile.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:InvoiceProfile.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfileList" ~of_json:InvoiceProfile.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateProcurementPortalPreferenceStatusResponse =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn:
        ProcurementPortalPreferenceArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference with updated status."]}
    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 ?procurementPortalPreferenceArn =
      fun () -> { procurementPortalPreferenceArn }
    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
        [("ProcurementPortalPreferenceArn",
           (Option.map x.procurementPortalPreferenceArn
              ~f:ProcurementPortalPreferenceArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreferenceArn =
        (Option.map ~f:ProcurementPortalPreferenceArnString.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferenceArn") in
      make ?procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreferenceArn =
        field_map json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ?procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Updates the status of a procurement portal preference, including the activation state of e-invoice delivery and purchase order retrieval features."]
module UpdateProcurementPortalPreferenceStatusRequest =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn: ProcurementPortalPreferenceArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference to update."];
      einvoiceDeliveryPreferenceStatus:
        ProcurementPortalPreferenceStatus.t option
        [@ocaml.doc
          "The updated status of the e-invoice delivery preference."];
      einvoiceDeliveryPreferenceStatusReason: BasicString.t option
        [@ocaml.doc
          "The reason for the e-invoice delivery preference status update, providing context for the change."];
      purchaseOrderRetrievalPreferenceStatus:
        ProcurementPortalPreferenceStatus.t option
        [@ocaml.doc
          "The updated status of the purchase order retrieval preference."];
      purchaseOrderRetrievalPreferenceStatusReason: BasicString.t option
        [@ocaml.doc
          "The reason for the purchase order retrieval preference status update, providing context for the change."]}
    let context_ = "UpdateProcurementPortalPreferenceStatusRequest"
    let make ?einvoiceDeliveryPreferenceStatus =
      fun ?einvoiceDeliveryPreferenceStatusReason ->
        fun ?purchaseOrderRetrievalPreferenceStatus ->
          fun ?purchaseOrderRetrievalPreferenceStatusReason ->
            fun ~procurementPortalPreferenceArn ->
              fun () ->
                {
                  einvoiceDeliveryPreferenceStatus;
                  einvoiceDeliveryPreferenceStatusReason;
                  purchaseOrderRetrievalPreferenceStatus;
                  purchaseOrderRetrievalPreferenceStatusReason;
                  procurementPortalPreferenceArn
                }
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferenceArn",
           (Some
              (ProcurementPortalPreferenceArnString.to_value
                 x.procurementPortalPreferenceArn)));
        ("EinvoiceDeliveryPreferenceStatus",
          (Option.map x.einvoiceDeliveryPreferenceStatus
             ~f:ProcurementPortalPreferenceStatus.to_value));
        ("EinvoiceDeliveryPreferenceStatusReason",
          (Option.map x.einvoiceDeliveryPreferenceStatusReason
             ~f:BasicString.to_value));
        ("PurchaseOrderRetrievalPreferenceStatus",
          (Option.map x.purchaseOrderRetrievalPreferenceStatus
             ~f:ProcurementPortalPreferenceStatus.to_value));
        ("PurchaseOrderRetrievalPreferenceStatusReason",
          (Option.map x.purchaseOrderRetrievalPreferenceStatusReason
             ~f:BasicString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let purchaseOrderRetrievalPreferenceStatusReason =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalPreferenceStatusReason") in
      let purchaseOrderRetrievalPreferenceStatus =
        (Option.map ~f:ProcurementPortalPreferenceStatus.of_xml)
          (Xml.child xml_arg0 "PurchaseOrderRetrievalPreferenceStatus") in
      let einvoiceDeliveryPreferenceStatusReason =
        (Option.map ~f:BasicString.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreferenceStatusReason") in
      let einvoiceDeliveryPreferenceStatus =
        (Option.map ~f:ProcurementPortalPreferenceStatus.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreferenceStatus") in
      let procurementPortalPreferenceArn =
        ProcurementPortalPreferenceArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProcurementPortalPreferenceArn") in
      make ?purchaseOrderRetrievalPreferenceStatusReason
        ?purchaseOrderRetrievalPreferenceStatus
        ?einvoiceDeliveryPreferenceStatusReason
        ?einvoiceDeliveryPreferenceStatus ~procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let purchaseOrderRetrievalPreferenceStatusReason =
        field_map json__ "PurchaseOrderRetrievalPreferenceStatusReason"
          BasicString.of_json in
      let purchaseOrderRetrievalPreferenceStatus =
        field_map json__ "PurchaseOrderRetrievalPreferenceStatus"
          ProcurementPortalPreferenceStatus.of_json in
      let einvoiceDeliveryPreferenceStatusReason =
        field_map json__ "EinvoiceDeliveryPreferenceStatusReason"
          BasicString.of_json in
      let einvoiceDeliveryPreferenceStatus =
        field_map json__ "EinvoiceDeliveryPreferenceStatus"
          ProcurementPortalPreferenceStatus.of_json in
      let procurementPortalPreferenceArn =
        field_map_exn json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ?purchaseOrderRetrievalPreferenceStatusReason
        ?purchaseOrderRetrievalPreferenceStatus
        ?einvoiceDeliveryPreferenceStatusReason
        ?einvoiceDeliveryPreferenceStatus ~procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Updates the status of a procurement portal preference, including the activation state of e-invoice delivery and purchase order retrieval features."]
module UpdateInvoiceUnitResponse =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t option
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?invoiceUnitArn = fun () -> { invoiceUnitArn }
    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
        [("InvoiceUnitArn",
           (Option.map x.invoiceUnitArn ~f:InvoiceUnitArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invoiceUnitArn =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "InvoiceUnitArn") in
      make ?invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invoiceUnitArn =
        field_map json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can update the invoice unit configuration at any time, and Amazon Web Services will use the latest configuration at the end of the month."]
module UpdateInvoiceUnitRequest =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."];
      description: DescriptionString.t option
        [@ocaml.doc
          "The assigned description for an invoice unit. This information can't be modified or deleted."];
      taxInheritanceDisabled: TaxInheritanceDisabledFlag.t option
        [@ocaml.doc
          "Whether the invoice unit based tax inheritance is/ should be enabled or disabled."];
      rule: InvoiceUnitRule.t option
        [@ocaml.doc
          "The InvoiceUnitRule object used to update invoice units."]}
    let context_ = "UpdateInvoiceUnitRequest"
    let make ?description =
      fun ?taxInheritanceDisabled ->
        fun ?rule ->
          fun ~invoiceUnitArn ->
            fun () ->
              { description; taxInheritanceDisabled; rule; invoiceUnitArn }
    let to_value x =
      structure_to_value
        [("InvoiceUnitArn",
           (Some (InvoiceUnitArnString.to_value x.invoiceUnitArn)));
        ("Description",
          (Option.map x.description ~f:DescriptionString.to_value));
        ("TaxInheritanceDisabled",
          (Option.map x.taxInheritanceDisabled
             ~f:TaxInheritanceDisabledFlag.to_value));
        ("Rule", (Option.map x.rule ~f:InvoiceUnitRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rule =
        (Option.map ~f:InvoiceUnitRule.of_xml) (Xml.child xml_arg0 "Rule") in
      let taxInheritanceDisabled =
        (Option.map ~f:TaxInheritanceDisabledFlag.of_xml)
          (Xml.child xml_arg0 "TaxInheritanceDisabled") in
      let description =
        (Option.map ~f:DescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let invoiceUnitArn =
        InvoiceUnitArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InvoiceUnitArn") in
      make ?rule ?taxInheritanceDisabled ?description ~invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rule = field_map json__ "Rule" InvoiceUnitRule.of_json in
      let taxInheritanceDisabled =
        field_map json__ "TaxInheritanceDisabled"
          TaxInheritanceDisabledFlag.of_json in
      let description =
        field_map json__ "Description" DescriptionString.of_json in
      let invoiceUnitArn =
        field_map_exn json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?rule ?taxInheritanceDisabled ?description ~invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can update the invoice unit configuration at any time, and Amazon Web Services will use the latest configuration at the end of the month."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TagrisArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) to untag."];
      resourceTagKeys: ResourceTagKeyList.t
        [@ocaml.doc "Keys for the tags to be removed."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~resourceTagKeys -> fun () -> { resourceArn; resourceTagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TagrisArn.to_value x.resourceArn)));
        ("ResourceTagKeys",
          (Some (ResourceTagKeyList.to_value x.resourceTagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTagKeys =
        ResourceTagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceTagKeys") in
      let resourceArn =
        TagrisArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceTagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTagKeys =
        field_map_exn json__ "ResourceTagKeys" ResourceTagKeyList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" TagrisArn.of_json in
      make ~resourceTagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a tag to a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TagrisArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the tags."];
      resourceTags: ResourceTagList.t
        [@ocaml.doc "Adds a tag to a resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn =
      fun ~resourceTags -> fun () -> { resourceArn; resourceTags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TagrisArn.to_value x.resourceArn)));
        ("ResourceTags", (Some (ResourceTagList.to_value x.resourceTags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        ResourceTagList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceTags") in
      let resourceArn =
        TagrisArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceTags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map_exn json__ "ResourceTags" ResourceTagList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" TagrisArn.of_json in
      make ~resourceTags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a tag to a resource."]
module PutProcurementPortalPreferenceResponse =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn:
        ProcurementPortalPreferenceArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated procurement portal preference."]}
    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 ?procurementPortalPreferenceArn =
      fun () -> { procurementPortalPreferenceArn }
    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
        [("ProcurementPortalPreferenceArn",
           (Option.map x.procurementPortalPreferenceArn
              ~f:ProcurementPortalPreferenceArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreferenceArn =
        (Option.map ~f:ProcurementPortalPreferenceArnString.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferenceArn") in
      make ?procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreferenceArn =
        field_map json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ?procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Updates an existing procurement portal preference configuration. This operation can modify settings for e-invoice delivery and purchase order retrieval."]
module PutProcurementPortalPreferenceRequest =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn: ProcurementPortalPreferenceArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference to update."];
      selector: ProcurementPortalPreferenceSelector.t option ;
      procurementPortalSharedSecret:
        SensitiveBasicStringWithoutSpace.t option
        [@ocaml.doc
          "The updated shared secret or authentication credential for the procurement portal. This value must be encrypted at rest."];
      procurementPortalInstanceEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The updated endpoint URL where e-invoices will be delivered to the procurement portal. Must be a valid HTTPS URL."];
      testEnvPreference: TestEnvPreferenceInput.t option
        [@ocaml.doc
          "Updated configuration settings for the test environment of the procurement portal."];
      einvoiceDeliveryEnabled: Boolean.t
        [@ocaml.doc
          "Updated flag indicating whether e-invoice delivery is enabled for this procurement portal preference."];
      einvoiceDeliveryPreference: EinvoiceDeliveryPreference.t option
        [@ocaml.doc
          "Updated e-invoice delivery configuration including document types, attachment types, and customization settings for the portal."];
      purchaseOrderRetrievalEnabled: Boolean.t
        [@ocaml.doc
          "Updated flag indicating whether purchase order retrieval is enabled for this procurement portal preference."];
      contacts: Contacts.t
        [@ocaml.doc
          "Updated list of contact information for portal administrators and technical contacts."]}
    let context_ = "PutProcurementPortalPreferenceRequest"
    let make ?selector =
      fun ?procurementPortalSharedSecret ->
        fun ?procurementPortalInstanceEndpoint ->
          fun ?testEnvPreference ->
            fun ?einvoiceDeliveryPreference ->
              fun ~procurementPortalPreferenceArn ->
                fun ~einvoiceDeliveryEnabled ->
                  fun ~purchaseOrderRetrievalEnabled ->
                    fun ~contacts ->
                      fun () ->
                        {
                          selector;
                          procurementPortalSharedSecret;
                          procurementPortalInstanceEndpoint;
                          testEnvPreference;
                          einvoiceDeliveryPreference;
                          procurementPortalPreferenceArn;
                          einvoiceDeliveryEnabled;
                          purchaseOrderRetrievalEnabled;
                          contacts
                        }
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferenceArn",
           (Some
              (ProcurementPortalPreferenceArnString.to_value
                 x.procurementPortalPreferenceArn)));
        ("Selector",
          (Option.map x.selector
             ~f:ProcurementPortalPreferenceSelector.to_value));
        ("ProcurementPortalSharedSecret",
          (Option.map x.procurementPortalSharedSecret
             ~f:SensitiveBasicStringWithoutSpace.to_value));
        ("ProcurementPortalInstanceEndpoint",
          (Option.map x.procurementPortalInstanceEndpoint
             ~f:BasicStringWithoutSpace.to_value));
        ("TestEnvPreference",
          (Option.map x.testEnvPreference ~f:TestEnvPreferenceInput.to_value));
        ("EinvoiceDeliveryEnabled",
          (Some (Boolean.to_value x.einvoiceDeliveryEnabled)));
        ("EinvoiceDeliveryPreference",
          (Option.map x.einvoiceDeliveryPreference
             ~f:EinvoiceDeliveryPreference.to_value));
        ("PurchaseOrderRetrievalEnabled",
          (Some (Boolean.to_value x.purchaseOrderRetrievalEnabled)));
        ("Contacts", (Some (Contacts.to_value x.contacts)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contacts =
        Contacts.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Contacts") in
      let purchaseOrderRetrievalEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PurchaseOrderRetrievalEnabled") in
      let einvoiceDeliveryPreference =
        (Option.map ~f:EinvoiceDeliveryPreference.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreference") in
      let einvoiceDeliveryEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EinvoiceDeliveryEnabled") in
      let testEnvPreference =
        (Option.map ~f:TestEnvPreferenceInput.of_xml)
          (Xml.child xml_arg0 "TestEnvPreference") in
      let procurementPortalInstanceEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalInstanceEndpoint") in
      let procurementPortalSharedSecret =
        (Option.map ~f:SensitiveBasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalSharedSecret") in
      let selector =
        (Option.map ~f:ProcurementPortalPreferenceSelector.of_xml)
          (Xml.child xml_arg0 "Selector") in
      let procurementPortalPreferenceArn =
        ProcurementPortalPreferenceArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProcurementPortalPreferenceArn") in
      make ~contacts ~purchaseOrderRetrievalEnabled
        ?einvoiceDeliveryPreference ~einvoiceDeliveryEnabled
        ?testEnvPreference ?procurementPortalInstanceEndpoint
        ?procurementPortalSharedSecret ?selector
        ~procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contacts = field_map_exn json__ "Contacts" Contacts.of_json in
      let purchaseOrderRetrievalEnabled =
        field_map_exn json__ "PurchaseOrderRetrievalEnabled" Boolean.of_json in
      let einvoiceDeliveryPreference =
        field_map json__ "EinvoiceDeliveryPreference"
          EinvoiceDeliveryPreference.of_json in
      let einvoiceDeliveryEnabled =
        field_map_exn json__ "EinvoiceDeliveryEnabled" Boolean.of_json in
      let testEnvPreference =
        field_map json__ "TestEnvPreference" TestEnvPreferenceInput.of_json in
      let procurementPortalInstanceEndpoint =
        field_map json__ "ProcurementPortalInstanceEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalSharedSecret =
        field_map json__ "ProcurementPortalSharedSecret"
          SensitiveBasicStringWithoutSpace.of_json in
      let selector =
        field_map json__ "Selector"
          ProcurementPortalPreferenceSelector.of_json in
      let procurementPortalPreferenceArn =
        field_map_exn json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ~contacts ~purchaseOrderRetrievalEnabled
        ?einvoiceDeliveryPreference ~einvoiceDeliveryEnabled
        ?testEnvPreference ?procurementPortalInstanceEndpoint
        ?procurementPortalSharedSecret ?selector
        ~procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Updates an existing procurement portal preference configuration. This operation can modify settings for e-invoice delivery and purchase order retrieval."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      resourceTags: ResourceTagList.t option
        [@ocaml.doc "Adds a tag to a 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 ?resourceTags = fun () -> { resourceTags }
    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
        [("ResourceTags",
           (Option.map x.resourceTags ~f:ResourceTagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "ResourceTags") in
      make ?resourceTags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map json__ "ResourceTags" ResourceTagList.of_json in
      make ?resourceTags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TagrisArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of tags to list."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TagrisArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        TagrisArn.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" TagrisArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a resource."]
module ListProcurementPortalPreferencesResponse =
  struct
    type nonrec t =
      {
      procurementPortalPreferences:
        ProcurementPortalPreferenceSummaries.t option
        [@ocaml.doc
          "The list of procurement portal preferences associated with the Amazon Web Services account."];
      nextToken: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The token to use to retrieve the next set of results, or null if there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?procurementPortalPreferences =
      fun ?nextToken -> fun () -> { procurementPortalPreferences; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferences",
           (Option.map x.procurementPortalPreferences
              ~f:ProcurementPortalPreferenceSummaries.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:BasicStringWithoutSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let procurementPortalPreferences =
        (Option.map ~f:ProcurementPortalPreferenceSummaries.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferences") in
      make ?nextToken ?procurementPortalPreferences ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" BasicStringWithoutSpace.of_json in
      let procurementPortalPreferences =
        field_map json__ "ProcurementPortalPreferences"
          ProcurementPortalPreferenceSummaries.of_json in
      make ?nextToken ?procurementPortalPreferences ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Retrieves a list of procurement portal preferences associated with the Amazon Web Services account."]
module ListProcurementPortalPreferencesRequest =
  struct
    type nonrec t =
      {
      nextToken: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The token for the next set of results. (You received this token from a previous call.)"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:BasicStringWithoutSpace.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" BasicStringWithoutSpace.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Retrieves a list of procurement portal preferences associated with the Amazon Web Services account."]
module ListInvoiceUnitsResponse =
  struct
    type nonrec t =
      {
      invoiceUnits: InvoiceUnits.t option
        [@ocaml.doc
          "An invoice unit is a set of mutually exclusive accounts that correspond to your business entity."];
      nextToken: NextTokenString.t option
        [@ocaml.doc
          "The next token used to indicate where the returned list should start from."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?invoiceUnits =
      fun ?nextToken -> fun () -> { invoiceUnits; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("InvoiceUnits",
           (Option.map x.invoiceUnits ~f:InvoiceUnits.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let invoiceUnits =
        (Option.map ~f:InvoiceUnits.of_xml)
          (Xml.child xml_arg0 "InvoiceUnits") in
      make ?nextToken ?invoiceUnits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let invoiceUnits = field_map json__ "InvoiceUnits" InvoiceUnits.of_json in
      make ?nextToken ?invoiceUnits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This fetches a list of all invoice unit definitions for a given account, as of the provided AsOf date."]
module ListInvoiceUnitsRequest =
  struct
    type nonrec t =
      {
      filters: Filters.t option
        [@ocaml.doc
          "An optional input to the list API. If multiple filters are specified, the returned list will be a configuration that match all of the provided filters. Supported filter types are InvoiceReceivers, Names, and Accounts."];
      nextToken: NextTokenString.t option
        [@ocaml.doc
          "The next token used to indicate where the returned list should start from."];
      maxResults: MaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of invoice units that can be returned."];
      asOf: AsOfTimestamp.t option
        [@ocaml.doc
          "The state of an invoice unit at a specified time. You can see legacy invoice units that are currently deleted if the AsOf time is set to before it was deleted. If an AsOf is not provided, the default value is the current time."]}
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?asOf -> fun () -> { filters; nextToken; maxResults; asOf }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:Filters.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsInteger.to_value));
        ("AsOf", (Option.map x.asOf ~f:AsOfTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let asOf =
        (Option.map ~f:AsOfTimestamp.of_xml) (Xml.child xml_arg0 "AsOf") in
      let maxResults =
        (Option.map ~f:MaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?asOf ?maxResults ?nextToken ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let asOf = field_map json__ "AsOf" AsOfTimestamp.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let filters = field_map json__ "Filters" Filters.of_json in
      make ?asOf ?maxResults ?nextToken ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This fetches a list of all invoice unit definitions for a given account, as of the provided AsOf date."]
module ListInvoiceSummariesResponse =
  struct
    type nonrec t =
      {
      invoiceSummaries: InvoiceSummaries.t option
        [@ocaml.doc
          "List of key (summary level) invoice details without line item details."];
      nextToken: NextTokenString.t option
        [@ocaml.doc
          "The token to retrieve the next set of results. Amazon Web Services provides the token when the response from a previous call has more results than the maximum page size."]}
    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 ?invoiceSummaries =
      fun ?nextToken -> fun () -> { invoiceSummaries; 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
        [("InvoiceSummaries",
           (Option.map x.invoiceSummaries ~f:InvoiceSummaries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let invoiceSummaries =
        (Option.map ~f:InvoiceSummaries.of_xml)
          (Xml.child xml_arg0 "InvoiceSummaries") in
      make ?nextToken ?invoiceSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let invoiceSummaries =
        field_map json__ "InvoiceSummaries" InvoiceSummaries.of_json in
      make ?nextToken ?invoiceSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves your invoice details programmatically, without line item details."]
module ListInvoiceSummariesRequest =
  struct
    type nonrec t =
      {
      selector: InvoiceSummariesSelector.t
        [@ocaml.doc
          "The option to retrieve details for a specific invoice by providing its unique ID. Alternatively, access information for all invoices linked to the account by providing an account ID."];
      filter: InvoiceSummariesFilter.t option
        [@ocaml.doc "Filters you can use to customize your invoice summary."];
      nextToken: NextTokenString.t option
        [@ocaml.doc
          "The token to retrieve the next set of results. Amazon Web Services provides the token when the response from a previous call has more results than the maximum page size."];
      maxResults: InvoiceSummariesMaxResults.t option
        [@ocaml.doc
          "The maximum number of invoice summaries a paginated response can contain."]}
    let context_ = "ListInvoiceSummariesRequest"
    let make ?filter =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~selector ->
            fun () -> { filter; nextToken; maxResults; selector }
    let to_value x =
      structure_to_value
        [("Selector", (Some (InvoiceSummariesSelector.to_value x.selector)));
        ("Filter", (Option.map x.filter ~f:InvoiceSummariesFilter.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:InvoiceSummariesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:InvoiceSummariesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let filter =
        (Option.map ~f:InvoiceSummariesFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      let selector =
        InvoiceSummariesSelector.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Selector") in
      make ?maxResults ?nextToken ?filter ~selector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" InvoiceSummariesMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let filter = field_map json__ "Filter" InvoiceSummariesFilter.of_json in
      let selector =
        field_map_exn json__ "Selector" InvoiceSummariesSelector.of_json in
      make ?maxResults ?nextToken ?filter ~selector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves your invoice details programmatically, without line item details."]
module GetProcurementPortalPreferenceResponse =
  struct
    type nonrec t =
      {
      procurementPortalPreference: ProcurementPortalPreference.t option
        [@ocaml.doc
          "The detailed configuration of the requested procurement portal preference."]}
    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 ?procurementPortalPreference =
      fun () -> { procurementPortalPreference }
    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
        [("ProcurementPortalPreference",
           (Option.map x.procurementPortalPreference
              ~f:ProcurementPortalPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreference =
        (Option.map ~f:ProcurementPortalPreference.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreference") in
      make ?procurementPortalPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreference =
        field_map json__ "ProcurementPortalPreference"
          ProcurementPortalPreference.of_json in
      make ?procurementPortalPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Retrieves the details of a specific procurement portal preference configuration."]
module GetProcurementPortalPreferenceRequest =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn: ProcurementPortalPreferenceArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference to retrieve."]}
    let context_ = "GetProcurementPortalPreferenceRequest"
    let make ~procurementPortalPreferenceArn =
      fun () -> { procurementPortalPreferenceArn }
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferenceArn",
           (Some
              (ProcurementPortalPreferenceArnString.to_value
                 x.procurementPortalPreferenceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreferenceArn =
        ProcurementPortalPreferenceArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProcurementPortalPreferenceArn") in
      make ~procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreferenceArn =
        field_map_exn json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ~procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Retrieves the details of a specific procurement portal preference configuration."]
module GetInvoiceUnitResponse =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t option
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."];
      invoiceReceiver: AccountIdString.t option
        [@ocaml.doc
          "The Amazon Web Services account ID chosen to be the receiver of an invoice unit. All invoices generated for that invoice unit will be sent to this account ID."];
      name: InvoiceUnitName.t option
        [@ocaml.doc
          "The unique name of the invoice unit that is shown on the generated invoice."];
      description: DescriptionString.t option
        [@ocaml.doc "The assigned description for an invoice unit."];
      taxInheritanceDisabled: TaxInheritanceDisabledFlag.t option
        [@ocaml.doc
          "Whether the invoice unit based tax inheritance is/ should be enabled or disabled."];
      rule: InvoiceUnitRule.t option ;
      lastModified: LastModifiedTimestamp.t option
        [@ocaml.doc
          "The most recent date the invoice unit response was updated."]}
    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 ?invoiceUnitArn =
      fun ?invoiceReceiver ->
        fun ?name ->
          fun ?description ->
            fun ?taxInheritanceDisabled ->
              fun ?rule ->
                fun ?lastModified ->
                  fun () ->
                    {
                      invoiceUnitArn;
                      invoiceReceiver;
                      name;
                      description;
                      taxInheritanceDisabled;
                      rule;
                      lastModified
                    }
    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
        [("InvoiceUnitArn",
           (Option.map x.invoiceUnitArn ~f:InvoiceUnitArnString.to_value));
        ("InvoiceReceiver",
          (Option.map x.invoiceReceiver ~f:AccountIdString.to_value));
        ("Name", (Option.map x.name ~f:InvoiceUnitName.to_value));
        ("Description",
          (Option.map x.description ~f:DescriptionString.to_value));
        ("TaxInheritanceDisabled",
          (Option.map x.taxInheritanceDisabled
             ~f:TaxInheritanceDisabledFlag.to_value));
        ("Rule", (Option.map x.rule ~f:InvoiceUnitRule.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:LastModifiedTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModified =
        (Option.map ~f:LastModifiedTimestamp.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let rule =
        (Option.map ~f:InvoiceUnitRule.of_xml) (Xml.child xml_arg0 "Rule") in
      let taxInheritanceDisabled =
        (Option.map ~f:TaxInheritanceDisabledFlag.of_xml)
          (Xml.child xml_arg0 "TaxInheritanceDisabled") in
      let description =
        (Option.map ~f:DescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:InvoiceUnitName.of_xml) (Xml.child xml_arg0 "Name") in
      let invoiceReceiver =
        (Option.map ~f:AccountIdString.of_xml)
          (Xml.child xml_arg0 "InvoiceReceiver") in
      let invoiceUnitArn =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "InvoiceUnitArn") in
      make ?lastModified ?rule ?taxInheritanceDisabled ?description ?name
        ?invoiceReceiver ?invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModified =
        field_map json__ "LastModified" LastModifiedTimestamp.of_json in
      let rule = field_map json__ "Rule" InvoiceUnitRule.of_json in
      let taxInheritanceDisabled =
        field_map json__ "TaxInheritanceDisabled"
          TaxInheritanceDisabledFlag.of_json in
      let description =
        field_map json__ "Description" DescriptionString.of_json in
      let name = field_map json__ "Name" InvoiceUnitName.of_json in
      let invoiceReceiver =
        field_map json__ "InvoiceReceiver" AccountIdString.of_json in
      let invoiceUnitArn =
        field_map json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?lastModified ?rule ?taxInheritanceDisabled ?description ?name
        ?invoiceReceiver ?invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This retrieves the invoice unit definition."]
module GetInvoiceUnitRequest =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."];
      asOf: AsOfTimestamp.t option
        [@ocaml.doc
          "The state of an invoice unit at a specified time. You can see legacy invoice units that are currently deleted if the AsOf time is set to before it was deleted. If an AsOf is not provided, the default value is the current time."]}
    let context_ = "GetInvoiceUnitRequest"
    let make ?asOf =
      fun ~invoiceUnitArn -> fun () -> { asOf; invoiceUnitArn }
    let to_value x =
      structure_to_value
        [("InvoiceUnitArn",
           (Some (InvoiceUnitArnString.to_value x.invoiceUnitArn)));
        ("AsOf", (Option.map x.asOf ~f:AsOfTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let asOf =
        (Option.map ~f:AsOfTimestamp.of_xml) (Xml.child xml_arg0 "AsOf") in
      let invoiceUnitArn =
        InvoiceUnitArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InvoiceUnitArn") in
      make ?asOf ~invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let asOf = field_map json__ "AsOf" AsOfTimestamp.of_json in
      let invoiceUnitArn =
        field_map_exn json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?asOf ~invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This retrieves the invoice unit definition."]
module GetInvoicePDFResponse =
  struct
    type nonrec t =
      {
      invoicePDF: InvoicePDF.t option
        [@ocaml.doc
          "The invoice document and supplemental documents associated with the invoice."]}
    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 ?invoicePDF = fun () -> { invoicePDF }
    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
        [("InvoicePDF", (Option.map x.invoicePDF ~f:InvoicePDF.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invoicePDF =
        (Option.map ~f:InvoicePDF.of_xml) (Xml.child xml_arg0 "InvoicePDF") in
      make ?invoicePDF ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invoicePDF = field_map json__ "InvoicePDF" InvoicePDF.of_json in
      make ?invoicePDF ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a URL to download the invoice document and supplemental documents associated with an invoice. The URLs are pre-signed and have expiration time. For special cases like Brazil, where Amazon Web Services generated invoice identifiers and government provided identifiers do not match, use the Amazon Web Services generated invoice identifier when making API requests. To grant IAM permission to use this operation, the caller needs the invoicing:GetInvoicePDF policy action."]
module GetInvoicePDFRequest =
  struct
    type nonrec t =
      {
      invoiceId: StringWithoutNewLine.t
        [@ocaml.doc "Your unique invoice ID."]}
    let context_ = "GetInvoicePDFRequest"
    let make ~invoiceId = fun () -> { invoiceId }
    let to_value x =
      structure_to_value
        [("InvoiceId", (Some (StringWithoutNewLine.to_value x.invoiceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invoiceId =
        StringWithoutNewLine.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InvoiceId") in
      make ~invoiceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invoiceId =
        field_map_exn json__ "InvoiceId" StringWithoutNewLine.of_json in
      make ~invoiceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a URL to download the invoice document and supplemental documents associated with an invoice. The URLs are pre-signed and have expiration time. For special cases like Brazil, where Amazon Web Services generated invoice identifiers and government provided identifiers do not match, use the Amazon Web Services generated invoice identifier when making API requests. To grant IAM permission to use this operation, the caller needs the invoicing:GetInvoicePDF policy action."]
module DeleteProcurementPortalPreferenceResponse =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn:
        ProcurementPortalPreferenceArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted procurement portal preference."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?procurementPortalPreferenceArn =
      fun () -> { procurementPortalPreferenceArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferenceArn",
           (Option.map x.procurementPortalPreferenceArn
              ~f:ProcurementPortalPreferenceArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreferenceArn =
        (Option.map ~f:ProcurementPortalPreferenceArnString.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferenceArn") in
      make ?procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreferenceArn =
        field_map json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ?procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Deletes an existing procurement portal preference. This action cannot be undone. Active e-invoice delivery and PO retrieval configurations will be terminated."]
module DeleteProcurementPortalPreferenceRequest =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn: ProcurementPortalPreferenceArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the procurement portal preference to delete."]}
    let context_ = "DeleteProcurementPortalPreferenceRequest"
    let make ~procurementPortalPreferenceArn =
      fun () -> { procurementPortalPreferenceArn }
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferenceArn",
           (Some
              (ProcurementPortalPreferenceArnString.to_value
                 x.procurementPortalPreferenceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreferenceArn =
        ProcurementPortalPreferenceArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProcurementPortalPreferenceArn") in
      make ~procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreferenceArn =
        field_map_exn json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ~procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Deletes an existing procurement portal preference. This action cannot be undone. Active e-invoice delivery and PO retrieval configurations will be terminated."]
module DeleteInvoiceUnitResponse =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t option
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?invoiceUnitArn = fun () -> { invoiceUnitArn }
    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
        [("InvoiceUnitArn",
           (Option.map x.invoiceUnitArn ~f:InvoiceUnitArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invoiceUnitArn =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "InvoiceUnitArn") in
      make ?invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invoiceUnitArn =
        field_map json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This deletes an invoice unit with the provided invoice unit ARN."]
module DeleteInvoiceUnitRequest =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."]}
    let context_ = "DeleteInvoiceUnitRequest"
    let make ~invoiceUnitArn = fun () -> { invoiceUnitArn }
    let to_value x =
      structure_to_value
        [("InvoiceUnitArn",
           (Some (InvoiceUnitArnString.to_value x.invoiceUnitArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invoiceUnitArn =
        InvoiceUnitArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InvoiceUnitArn") in
      make ~invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invoiceUnitArn =
        field_map_exn json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ~invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This deletes an invoice unit with the provided invoice unit ARN."]
module CreateProcurementPortalPreferenceResponse =
  struct
    type nonrec t =
      {
      procurementPortalPreferenceArn:
        ProcurementPortalPreferenceArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created procurement portal preference."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?procurementPortalPreferenceArn =
      fun () -> { procurementPortalPreferenceArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProcurementPortalPreferenceArn",
           (Option.map x.procurementPortalPreferenceArn
              ~f:ProcurementPortalPreferenceArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let procurementPortalPreferenceArn =
        (Option.map ~f:ProcurementPortalPreferenceArnString.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalPreferenceArn") in
      make ?procurementPortalPreferenceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let procurementPortalPreferenceArn =
        field_map json__ "ProcurementPortalPreferenceArn"
          ProcurementPortalPreferenceArnString.of_json in
      make ?procurementPortalPreferenceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Creates a procurement portal preference configuration for e-invoice delivery and purchase order retrieval. This preference defines how invoices are delivered to a procurement portal and how purchase orders are retrieved."]
module CreateProcurementPortalPreferenceRequest =
  struct
    type nonrec t =
      {
      procurementPortalName: ProcurementPortalName.t
        [@ocaml.doc "The name of the procurement portal."];
      buyerDomain: BuyerDomain.t
        [@ocaml.doc
          "The domain identifier for the buyer in the procurement portal."];
      buyerIdentifier: BasicStringWithoutSpace.t
        [@ocaml.doc
          "The unique identifier for the buyer in the procurement portal."];
      supplierDomain: SupplierDomain.t
        [@ocaml.doc
          "The domain identifier for the supplier in the procurement portal."];
      supplierIdentifier: BasicStringWithoutSpace.t
        [@ocaml.doc
          "The unique identifier for the supplier in the procurement portal."];
      selector: ProcurementPortalPreferenceSelector.t option ;
      procurementPortalSharedSecret:
        SensitiveBasicStringWithoutSpace.t option
        [@ocaml.doc
          "The shared secret or authentication credential used to establish secure communication with the procurement portal. This value must be encrypted at rest."];
      procurementPortalInstanceEndpoint: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "The endpoint URL where e-invoices will be delivered to the procurement portal. Must be a valid HTTPS URL."];
      testEnvPreference: TestEnvPreferenceInput.t option
        [@ocaml.doc
          "Configuration settings for the test environment of the procurement portal. Includes test credentials and endpoints that are used for validation before production deployment."];
      einvoiceDeliveryEnabled: Boolean.t
        [@ocaml.doc
          "Indicates whether e-invoice delivery is enabled for this procurement portal preference. Set to true to enable e-invoice delivery, false to disable."];
      einvoiceDeliveryPreference: EinvoiceDeliveryPreference.t option
        [@ocaml.doc
          "Specifies the e-invoice delivery configuration including document types, attachment types, and customization settings for the portal."];
      purchaseOrderRetrievalEnabled: Boolean.t
        [@ocaml.doc
          "Indicates whether purchase order retrieval is enabled for this procurement portal preference. Set to true to enable PO retrieval, false to disable."];
      contacts: Contacts.t
        [@ocaml.doc
          "List of contact information for portal administrators and technical contacts responsible for the e-invoice integration."];
      resourceTags: ResourceTagList.t option
        [@ocaml.doc
          "The tags to apply to this procurement portal preference resource. Each tag consists of a key and an optional value."];
      clientToken: BasicStringWithoutSpace.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure idempotency of the request."]}
    let context_ = "CreateProcurementPortalPreferenceRequest"
    let make ?selector =
      fun ?procurementPortalSharedSecret ->
        fun ?procurementPortalInstanceEndpoint ->
          fun ?testEnvPreference ->
            fun ?einvoiceDeliveryPreference ->
              fun ?resourceTags ->
                fun ?clientToken ->
                  fun ~procurementPortalName ->
                    fun ~buyerDomain ->
                      fun ~buyerIdentifier ->
                        fun ~supplierDomain ->
                          fun ~supplierIdentifier ->
                            fun ~einvoiceDeliveryEnabled ->
                              fun ~purchaseOrderRetrievalEnabled ->
                                fun ~contacts ->
                                  fun () ->
                                    {
                                      selector;
                                      procurementPortalSharedSecret;
                                      procurementPortalInstanceEndpoint;
                                      testEnvPreference;
                                      einvoiceDeliveryPreference;
                                      resourceTags;
                                      clientToken;
                                      procurementPortalName;
                                      buyerDomain;
                                      buyerIdentifier;
                                      supplierDomain;
                                      supplierIdentifier;
                                      einvoiceDeliveryEnabled;
                                      purchaseOrderRetrievalEnabled;
                                      contacts
                                    }
    let to_value x =
      structure_to_value
        [("ProcurementPortalName",
           (Some (ProcurementPortalName.to_value x.procurementPortalName)));
        ("BuyerDomain", (Some (BuyerDomain.to_value x.buyerDomain)));
        ("BuyerIdentifier",
          (Some (BasicStringWithoutSpace.to_value x.buyerIdentifier)));
        ("SupplierDomain", (Some (SupplierDomain.to_value x.supplierDomain)));
        ("SupplierIdentifier",
          (Some (BasicStringWithoutSpace.to_value x.supplierIdentifier)));
        ("Selector",
          (Option.map x.selector
             ~f:ProcurementPortalPreferenceSelector.to_value));
        ("ProcurementPortalSharedSecret",
          (Option.map x.procurementPortalSharedSecret
             ~f:SensitiveBasicStringWithoutSpace.to_value));
        ("ProcurementPortalInstanceEndpoint",
          (Option.map x.procurementPortalInstanceEndpoint
             ~f:BasicStringWithoutSpace.to_value));
        ("TestEnvPreference",
          (Option.map x.testEnvPreference ~f:TestEnvPreferenceInput.to_value));
        ("EinvoiceDeliveryEnabled",
          (Some (Boolean.to_value x.einvoiceDeliveryEnabled)));
        ("EinvoiceDeliveryPreference",
          (Option.map x.einvoiceDeliveryPreference
             ~f:EinvoiceDeliveryPreference.to_value));
        ("PurchaseOrderRetrievalEnabled",
          (Some (Boolean.to_value x.purchaseOrderRetrievalEnabled)));
        ("Contacts", (Some (Contacts.to_value x.contacts)));
        ("ResourceTags",
          (Option.map x.resourceTags ~f:ResourceTagList.to_value));
        ("ClientToken",
          (Option.map x.clientToken ~f:BasicStringWithoutSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "ResourceTags") in
      let contacts =
        Contacts.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Contacts") in
      let purchaseOrderRetrievalEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PurchaseOrderRetrievalEnabled") in
      let einvoiceDeliveryPreference =
        (Option.map ~f:EinvoiceDeliveryPreference.of_xml)
          (Xml.child xml_arg0 "EinvoiceDeliveryPreference") in
      let einvoiceDeliveryEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EinvoiceDeliveryEnabled") in
      let testEnvPreference =
        (Option.map ~f:TestEnvPreferenceInput.of_xml)
          (Xml.child xml_arg0 "TestEnvPreference") in
      let procurementPortalInstanceEndpoint =
        (Option.map ~f:BasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalInstanceEndpoint") in
      let procurementPortalSharedSecret =
        (Option.map ~f:SensitiveBasicStringWithoutSpace.of_xml)
          (Xml.child xml_arg0 "ProcurementPortalSharedSecret") in
      let selector =
        (Option.map ~f:ProcurementPortalPreferenceSelector.of_xml)
          (Xml.child xml_arg0 "Selector") in
      let supplierIdentifier =
        BasicStringWithoutSpace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SupplierIdentifier") in
      let supplierDomain =
        SupplierDomain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SupplierDomain") in
      let buyerIdentifier =
        BasicStringWithoutSpace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BuyerIdentifier") in
      let buyerDomain =
        BuyerDomain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BuyerDomain") in
      let procurementPortalName =
        ProcurementPortalName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProcurementPortalName") in
      make ?clientToken ?resourceTags ~contacts
        ~purchaseOrderRetrievalEnabled ?einvoiceDeliveryPreference
        ~einvoiceDeliveryEnabled ?testEnvPreference
        ?procurementPortalInstanceEndpoint ?procurementPortalSharedSecret
        ?selector ~supplierIdentifier ~supplierDomain ~buyerIdentifier
        ~buyerDomain ~procurementPortalName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map json__ "ClientToken" BasicStringWithoutSpace.of_json in
      let resourceTags =
        field_map json__ "ResourceTags" ResourceTagList.of_json in
      let contacts = field_map_exn json__ "Contacts" Contacts.of_json in
      let purchaseOrderRetrievalEnabled =
        field_map_exn json__ "PurchaseOrderRetrievalEnabled" Boolean.of_json in
      let einvoiceDeliveryPreference =
        field_map json__ "EinvoiceDeliveryPreference"
          EinvoiceDeliveryPreference.of_json in
      let einvoiceDeliveryEnabled =
        field_map_exn json__ "EinvoiceDeliveryEnabled" Boolean.of_json in
      let testEnvPreference =
        field_map json__ "TestEnvPreference" TestEnvPreferenceInput.of_json in
      let procurementPortalInstanceEndpoint =
        field_map json__ "ProcurementPortalInstanceEndpoint"
          BasicStringWithoutSpace.of_json in
      let procurementPortalSharedSecret =
        field_map json__ "ProcurementPortalSharedSecret"
          SensitiveBasicStringWithoutSpace.of_json in
      let selector =
        field_map json__ "Selector"
          ProcurementPortalPreferenceSelector.of_json in
      let supplierIdentifier =
        field_map_exn json__ "SupplierIdentifier"
          BasicStringWithoutSpace.of_json in
      let supplierDomain =
        field_map_exn json__ "SupplierDomain" SupplierDomain.of_json in
      let buyerIdentifier =
        field_map_exn json__ "BuyerIdentifier"
          BasicStringWithoutSpace.of_json in
      let buyerDomain =
        field_map_exn json__ "BuyerDomain" BuyerDomain.of_json in
      let procurementPortalName =
        field_map_exn json__ "ProcurementPortalName"
          ProcurementPortalName.of_json in
      make ?clientToken ?resourceTags ~contacts
        ~purchaseOrderRetrievalEnabled ?einvoiceDeliveryPreference
        ~einvoiceDeliveryEnabled ?testEnvPreference
        ?procurementPortalInstanceEndpoint ?procurementPortalSharedSecret
        ?selector ~supplierIdentifier ~supplierDomain ~buyerIdentifier
        ~buyerDomain ~procurementPortalName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This feature API is subject to changing at any time. For more information, see the Amazon Web Services Service Terms (Betas and Previews). Creates a procurement portal preference configuration for e-invoice delivery and purchase order retrieval. This preference defines how invoices are delivered to a procurement portal and how purchase orders are retrieved."]
module CreateInvoiceUnitResponse =
  struct
    type nonrec t =
      {
      invoiceUnitArn: InvoiceUnitArnString.t option
        [@ocaml.doc
          "The ARN to identify an invoice unit. This information can't be modified or deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?invoiceUnitArn = fun () -> { invoiceUnitArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("InvoiceUnitArn",
           (Option.map x.invoiceUnitArn ~f:InvoiceUnitArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invoiceUnitArn =
        (Option.map ~f:InvoiceUnitArnString.of_xml)
          (Xml.child xml_arg0 "InvoiceUnitArn") in
      make ?invoiceUnitArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invoiceUnitArn =
        field_map json__ "InvoiceUnitArn" InvoiceUnitArnString.of_json in
      make ?invoiceUnitArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This creates a new invoice unit with the provided definition."]
module CreateInvoiceUnitRequest =
  struct
    type nonrec t =
      {
      name: InvoiceUnitName.t
        [@ocaml.doc
          "The unique name of the invoice unit that is shown on the generated invoice. This can't be changed once it is set. To change this name, you must delete the invoice unit recreate."];
      invoiceReceiver: AccountIdString.t
        [@ocaml.doc
          "The Amazon Web Services account ID chosen to be the receiver of an invoice unit. All invoices generated for that invoice unit will be sent to this account ID."];
      description: DescriptionString.t option
        [@ocaml.doc
          "The invoice unit's description. This can be changed at a later time."];
      taxInheritanceDisabled: TaxInheritanceDisabledFlag.t option
        [@ocaml.doc
          "Whether the invoice unit based tax inheritance is/ should be enabled or disabled."];
      rule: InvoiceUnitRule.t
        [@ocaml.doc
          "The InvoiceUnitRule object used to create invoice units."];
      resourceTags: ResourceTagList.t option
        [@ocaml.doc "The tag structure that contains a tag key and value."]}
    let context_ = "CreateInvoiceUnitRequest"
    let make ?description =
      fun ?taxInheritanceDisabled ->
        fun ?resourceTags ->
          fun ~name ->
            fun ~invoiceReceiver ->
              fun ~rule ->
                fun () ->
                  {
                    description;
                    taxInheritanceDisabled;
                    resourceTags;
                    name;
                    invoiceReceiver;
                    rule
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (InvoiceUnitName.to_value x.name)));
        ("InvoiceReceiver",
          (Some (AccountIdString.to_value x.invoiceReceiver)));
        ("Description",
          (Option.map x.description ~f:DescriptionString.to_value));
        ("TaxInheritanceDisabled",
          (Option.map x.taxInheritanceDisabled
             ~f:TaxInheritanceDisabledFlag.to_value));
        ("Rule", (Some (InvoiceUnitRule.to_value x.rule)));
        ("ResourceTags",
          (Option.map x.resourceTags ~f:ResourceTagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "ResourceTags") in
      let rule =
        InvoiceUnitRule.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rule") in
      let taxInheritanceDisabled =
        (Option.map ~f:TaxInheritanceDisabledFlag.of_xml)
          (Xml.child xml_arg0 "TaxInheritanceDisabled") in
      let description =
        (Option.map ~f:DescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let invoiceReceiver =
        AccountIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InvoiceReceiver") in
      let name =
        InvoiceUnitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?resourceTags ~rule ?taxInheritanceDisabled ?description
        ~invoiceReceiver ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map json__ "ResourceTags" ResourceTagList.of_json in
      let rule = field_map_exn json__ "Rule" InvoiceUnitRule.of_json in
      let taxInheritanceDisabled =
        field_map json__ "TaxInheritanceDisabled"
          TaxInheritanceDisabledFlag.of_json in
      let description =
        field_map json__ "Description" DescriptionString.of_json in
      let invoiceReceiver =
        field_map_exn json__ "InvoiceReceiver" AccountIdString.of_json in
      let name = field_map_exn json__ "Name" InvoiceUnitName.of_json in
      make ?resourceTags ~rule ?taxInheritanceDisabled ?description
        ~invoiceReceiver ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This creates a new invoice unit with the provided definition."]
module BatchGetInvoiceProfileResponse =
  struct
    type nonrec t =
      {
      profiles: ProfileList.t option
        [@ocaml.doc
          "A list of invoice profiles corresponding to the requested accounts."]}
    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 ?profiles = fun () -> { profiles }
    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
        [("Profiles", (Option.map x.profiles ~f:ProfileList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profiles =
        (Option.map ~f:ProfileList.of_xml) (Xml.child xml_arg0 "Profiles") in
      make ?profiles ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profiles = field_map json__ "Profiles" ProfileList.of_json in
      make ?profiles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This gets the invoice profile associated with a set of accounts. The accounts must be linked accounts under the requester management account organization."]
module BatchGetInvoiceProfileRequest =
  struct
    type nonrec t =
      {
      accountIds: AccountIdList.t
        [@ocaml.doc
          "Retrieves the corresponding invoice profile data for these account IDs."]}
    let context_ = "BatchGetInvoiceProfileRequest"
    let make ~accountIds = fun () -> { accountIds }
    let to_value x =
      structure_to_value
        [("AccountIds", (Some (AccountIdList.to_value x.accountIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        AccountIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountIds") in
      make ~accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map_exn json__ "AccountIds" AccountIdList.of_json in
      make ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This gets the invoice profile associated with a set of accounts. The accounts must be linked accounts under the requester management account organization."]