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.taxsettings
let apiVersion = "2018-05-10"
let endpointPrefix = "tax"
let serviceFullName = "Tax Settings"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module CountryCode =
  struct
    type nonrec t = string
    let context_ = "CountryCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CountryCode" j
    let to_json = simple_to_json to_value
  end
module State =
  struct
    type nonrec t = string
    let context_ = "State"
    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:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"State" j
    let to_json = simple_to_json to_value
  end
module MalaysiaServiceTaxCode =
  struct
    type nonrec t =
      | Consultancy 
      | Digital_Service_And_Electronic_Medium 
      | IT_Services 
      | Training_Or_Coaching 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Consultancy -> "Consultancy"
      | Digital_Service_And_Electronic_Medium ->
          "Digital Service And Electronic Medium"
      | IT_Services -> "IT Services"
      | Training_Or_Coaching -> "Training Or Coaching"
      | Non_static_id s -> s
    let of_string =
      function
      | "Consultancy" -> Consultancy
      | "Digital Service And Electronic Medium" ->
          Digital_Service_And_Electronic_Medium
      | "IT Services" -> IT_Services
      | "Training Or Coaching" -> Training_Or_Coaching
      | 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 MalaysiaServiceTaxCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MalaysiaServiceTaxCode" j)
    let to_json = simple_to_json to_value
  end
module Authority =
  struct
    type nonrec t =
      {
      country: CountryCode.t
        [@ocaml.doc
          "The country code for the country that the address is in."];
      state: State.t option
        [@ocaml.doc "The state that the address is located."]}
    let context_ = "Authority"
    let make ?state = fun ~country -> fun () -> { state; country }
    let to_value x =
      structure_to_value
        [("country", (Some (CountryCode.to_value x.country)));
        ("state", (Option.map x.state ~f:State.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state = (Option.map ~f:State.of_xml) (Xml.child xml_arg0 "state") in
      let country =
        CountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "country") in
      make ?state ~country ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" State.of_json in
      let country = field_map_exn json__ "country" CountryCode.of_json in
      make ?state ~country ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The address domain associate with the tax information."]
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?=^.{3,63}$)(?!^(\\d+\\.)+\\d+$)(^(([a-z0-9]|[a-z0-9][a-z0-9\\-]*[a-z0-9])\\.)*([a-z0-9]|[a-z0-9][a-z0-9\\-]*[a-z0-9])$)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module S3Key =
  struct
    type nonrec t = string
    let context_ = "S3Key"
    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:"^.*\\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:"S3Key" j
    let to_json = simple_to_json to_value
  end
module FileBlob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module TaxDocumentName =
  struct
    type nonrec t = string
    let context_ = "TaxDocumentName"
    let make i =
      let open Result in
        ok_or_failwith (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:"TaxDocumentName" j
    let to_json = simple_to_json to_value
  end
module CcmCode =
  struct
    type nonrec t = string
    let context_ = "CcmCode"
    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:"^\\d+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CcmCode" j
    let to_json = simple_to_json to_value
  end
module LegalNatureCode =
  struct
    type nonrec t = string
    let context_ = "LegalNatureCode"
    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:"^\\d+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LegalNatureCode" 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 CanadaProvincialSalesTaxIdString =
  struct
    type nonrec t = string
    let context_ = "CanadaProvincialSalesTaxIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"^([0-9A-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:"CanadaProvincialSalesTaxIdString" j
    let to_json = simple_to_json to_value
  end
module CanadaQuebecSalesTaxNumberString =
  struct
    type nonrec t = string
    let context_ = "CanadaQuebecSalesTaxNumberString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^([0-9]{10})(TQ[0-9]{4})?$");
        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:"CanadaQuebecSalesTaxNumberString" j
    let to_json = simple_to_json to_value
  end
module CanadaRetailSalesTaxNumberString =
  struct
    type nonrec t = string
    let context_ = "CanadaRetailSalesTaxNumberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^([0-9]{6}-[0-9]{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:"CanadaRetailSalesTaxNumberString" j
    let to_json = simple_to_json to_value
  end
module DateString =
  struct
    type nonrec t = string
    let context_ = "DateString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(\\d{4}-(0[0-9]|1[0-2])-([0-2][0-9]|3[0-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:"DateString" j
    let to_json = simple_to_json to_value
  end
module UniqueIdentificationNumber =
  struct
    type nonrec t = string
    let context_ = "UniqueIdentificationNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[a-zA-Z0-9]{39}$"); 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:"UniqueIdentificationNumber" j
    let to_json = simple_to_json to_value
  end
module RegistryCommercialCode =
  struct
    type nonrec t = string
    let context_ = "RegistryCommercialCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:8) >>=
                  (fun () -> check_pattern i ~pattern:"^\\d+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegistryCommercialCode" j
    let to_json = simple_to_json to_value
  end
module PersonType =
  struct
    type nonrec t =
      | Legal_Person 
      | Physical_Person 
      | Business 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Legal_Person -> "Legal Person"
      | Physical_Person -> "Physical Person"
      | Business -> "Business"
      | Non_static_id s -> s
    let of_string =
      function
      | "Legal Person" -> Legal_Person
      | "Physical Person" -> Physical_Person
      | "Business" -> Business
      | 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 PersonType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PersonType" j)
    let to_json = simple_to_json to_value
  end
module ContractingAuthorityCode =
  struct
    type nonrec t = string
    let context_ = "ContractingAuthorityCode"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^\\d{4}\\.[A-Z]\\d{5}\\.\\d{4}$");
        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:"ContractingAuthorityCode" j
    let to_json = simple_to_json to_value
  end
module Pan =
  struct
    type nonrec t = string
    let context_ = "Pan"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[A-Z]{5}[0-9]{4}[A-Z]{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:"Pan" j
    let to_json = simple_to_json to_value
  end
module DecisionNumber =
  struct
    type nonrec t = string
    let context_ = "DecisionNumber"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^([a-zA-Z0-9/.\\-]{0,200})$");
        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:"DecisionNumber" j
    let to_json = simple_to_json to_value
  end
module IndonesiaTaxRegistrationNumberType =
  struct
    type nonrec t =
      | NIK 
      | PassportNumber 
      | NPWP 
      | NITKU 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NIK -> "NIK"
      | PassportNumber -> "PassportNumber"
      | NPWP -> "NPWP"
      | NITKU -> "NITKU"
      | Non_static_id s -> s
    let of_string =
      function
      | "NIK" -> NIK
      | "PassportNumber" -> PassportNumber
      | "NPWP" -> NPWP
      | "NITKU" -> NITKU
      | 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 IndonesiaTaxRegistrationNumberType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IndonesiaTaxRegistrationNumberType" j)
    let to_json = simple_to_json to_value
  end
module PpnExceptionDesignationCode =
  struct
    type nonrec t = string
    let context_ = "PpnExceptionDesignationCode"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^(01|02|03|07|08)$"); 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:"PpnExceptionDesignationCode" j
    let to_json = simple_to_json to_value
  end
module IsraelCustomerType =
  struct
    type nonrec t =
      | Business 
      | Individual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Business -> "Business"
      | Individual -> "Individual"
      | Non_static_id s -> s
    let of_string =
      function
      | "Business" -> Business
      | "Individual" -> Individual
      | 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 IsraelCustomerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IsraelCustomerType" j)
    let to_json = simple_to_json to_value
  end
module IsraelDealerType =
  struct
    type nonrec t =
      | Authorized 
      | Non_authorized 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Authorized -> "Authorized"
      | Non_authorized -> "Non-authorized"
      | Non_static_id s -> s
    let of_string =
      function
      | "Authorized" -> Authorized
      | "Non-authorized" -> Non_authorized
      | 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 IsraelDealerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IsraelDealerType" j)
    let to_json = simple_to_json to_value
  end
module CigNumber =
  struct
    type nonrec t = string
    let context_ = "CigNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^([0-9A-Z]{1,15})$"); 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:"CigNumber" j
    let to_json = simple_to_json to_value
  end
module CupNumber =
  struct
    type nonrec t = string
    let context_ = "CupNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^([0-9A-Z]{1,15})$"); 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:"CupNumber" j
    let to_json = simple_to_json to_value
  end
module SdiAccountId =
  struct
    type nonrec t = string
    let context_ = "SdiAccountId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[0-9A-Z]{6,7}$"); 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:"SdiAccountId" j
    let to_json = simple_to_json to_value
  end
module TaxCode =
  struct
    type nonrec t = string
    let context_ = "TaxCode"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^([0-9]{11}|[A-Z]{6}[0-9]{2}[A-Z][0-9]{2}[A-Z][0-9]{3}[A-Z])$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TaxCode" j
    let to_json = simple_to_json to_value
  end
module BusinessRegistrationNumber =
  struct
    type nonrec t = string
    let context_ = "BusinessRegistrationNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[0-9]{12}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BusinessRegistrationNumber" j
    let to_json = simple_to_json to_value
  end
module MalaysiaServiceTaxCodesList =
  struct
    type nonrec t = MalaysiaServiceTaxCode.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:4) >>= (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:MalaysiaServiceTaxCode.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:MalaysiaServiceTaxCode.of_xml)
    let of_json j =
      list_of_json ~kind:"MalaysiaServiceTaxCodesList"
        ~of_json:MalaysiaServiceTaxCode.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaxInformationNumber =
  struct
    type nonrec t = string
    let context_ = "TaxInformationNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[A-Z]{1,2}[0-9]{1,11}$");
        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:"TaxInformationNumber" j
    let to_json = simple_to_json to_value
  end
module IndividualRegistrationNumber =
  struct
    type nonrec t = string
    let context_ = "IndividualRegistrationNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^([0-9]{10})$"); 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:"IndividualRegistrationNumber" j
    let to_json = simple_to_json to_value
  end
module TaxRegistrationNumberType =
  struct
    type nonrec t =
      | TaxRegistrationNumber 
      | LocalRegistrationNumber 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TaxRegistrationNumber -> "TaxRegistrationNumber"
      | LocalRegistrationNumber -> "LocalRegistrationNumber"
      | Non_static_id s -> s
    let of_string =
      function
      | "TaxRegistrationNumber" -> TaxRegistrationNumber
      | "LocalRegistrationNumber" -> LocalRegistrationNumber
      | 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 TaxRegistrationNumberType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TaxRegistrationNumberType" j)
    let to_json = simple_to_json to_value
  end
module SaudiArabiaTaxRegistrationNumberType =
  struct
    type nonrec t =
      | TaxRegistrationNumber 
      | TaxIdentificationNumber 
      | CommercialRegistrationNumber 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TaxRegistrationNumber -> "TaxRegistrationNumber"
      | TaxIdentificationNumber -> "TaxIdentificationNumber"
      | CommercialRegistrationNumber -> "CommercialRegistrationNumber"
      | Non_static_id s -> s
    let of_string =
      function
      | "TaxRegistrationNumber" -> TaxRegistrationNumber
      | "TaxIdentificationNumber" -> TaxIdentificationNumber
      | "CommercialRegistrationNumber" -> CommercialRegistrationNumber
      | 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 SaudiArabiaTaxRegistrationNumberType" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SaudiArabiaTaxRegistrationNumberType" j)
    let to_json = simple_to_json to_value
  end
module BusinessRepresentativeName =
  struct
    type nonrec t = string
    let context_ = "BusinessRepresentativeName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[0-9\\u3130-\\u318F\\uAC00-\\uD7AF,.( )-\\\\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:"BusinessRepresentativeName" j
    let to_json = simple_to_json to_value
  end
module ItemOfBusiness =
  struct
    type nonrec t = string
    let context_ = "ItemOfBusiness"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[0-9\\u3130-\\u318F\\uAC00-\\uD7AF,.( )-\\\\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:"ItemOfBusiness" j
    let to_json = simple_to_json to_value
  end
module LineOfBusiness =
  struct
    type nonrec t = string
    let context_ = "LineOfBusiness"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[0-9\\u3130-\\u318F\\uAC00-\\uD7AF,.( )-\\\\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:"LineOfBusiness" j
    let to_json = simple_to_json to_value
  end
module RegistrationType =
  struct
    type nonrec t =
      | Intra_EU 
      | Local 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Intra_EU -> "Intra-EU"
      | Local -> "Local"
      | Non_static_id s -> s
    let of_string =
      function
      | "Intra-EU" -> Intra_EU
      | "Local" -> Local
      | 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 RegistrationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegistrationType" j)
    let to_json = simple_to_json to_value
  end
module Industries =
  struct
    type nonrec t =
      | CirculatingOrg 
      | ProfessionalOrg 
      | Banks 
      | Insurance 
      | PensionAndBenefitFunds 
      | DevelopmentAgencies 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CirculatingOrg -> "CirculatingOrg"
      | ProfessionalOrg -> "ProfessionalOrg"
      | Banks -> "Banks"
      | Insurance -> "Insurance"
      | PensionAndBenefitFunds -> "PensionAndBenefitFunds"
      | DevelopmentAgencies -> "DevelopmentAgencies"
      | Non_static_id s -> s
    let of_string =
      function
      | "CirculatingOrg" -> CirculatingOrg
      | "ProfessionalOrg" -> ProfessionalOrg
      | "Banks" -> Banks
      | "Insurance" -> Insurance
      | "PensionAndBenefitFunds" -> PensionAndBenefitFunds
      | "DevelopmentAgencies" -> DevelopmentAgencies
      | 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 Industries" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Industries" j)
    let to_json = simple_to_json to_value
  end
module KepEmailId =
  struct
    type nonrec t = string
    let context_ = "KepEmailId"
    let make i =
      let open Result in
        ok_or_failwith (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:"KepEmailId" j
    let to_json = simple_to_json to_value
  end
module SecondaryTaxId =
  struct
    type nonrec t = string
    let context_ = "SecondaryTaxId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^([0-9]{10})$"); 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:"SecondaryTaxId" j
    let to_json = simple_to_json to_value
  end
module TaxOffice =
  struct
    type nonrec t = string
    let context_ = "TaxOffice"
    let make i =
      let open Result in
        ok_or_failwith (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:"TaxOffice" j
    let to_json = simple_to_json to_value
  end
module UkraineTrnType =
  struct
    type nonrec t =
      | Business 
      | Individual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Business -> "Business"
      | Individual -> "Individual"
      | Non_static_id s -> s
    let of_string =
      function
      | "Business" -> Business
      | "Individual" -> Individual
      | 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 UkraineTrnType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UkraineTrnType" j)
    let to_json = simple_to_json to_value
  end
module UzbekistanTaxRegistrationNumberType =
  struct
    type nonrec t =
      | Business 
      | Individual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Business -> "Business"
      | Individual -> "Individual"
      | Non_static_id s -> s
    let of_string =
      function
      | "Business" -> Business
      | "Individual" -> Individual
      | 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 UzbekistanTaxRegistrationNumberType" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"UzbekistanTaxRegistrationNumberType" j)
    let to_json = simple_to_json to_value
  end
module VatRegistrationNumber =
  struct
    type nonrec t = string
    let context_ = "VatRegistrationNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[0-9]{12}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VatRegistrationNumber" j
    let to_json = simple_to_json to_value
  end
module ElectronicTransactionCodeNumber =
  struct
    type nonrec t = string
    let context_ = "ElectronicTransactionCodeNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^\\d{17}$"); 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:"ElectronicTransactionCodeNumber" j
    let to_json = simple_to_json to_value
  end
module EnterpriseIdentificationNumber =
  struct
    type nonrec t = string
    let context_ = "EnterpriseIdentificationNumber"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^(\\d{10}|(\\d{10}-\\d{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:"EnterpriseIdentificationNumber" j
    let to_json = simple_to_json to_value
  end
module PaymentVoucherNumber =
  struct
    type nonrec t = string
    let context_ = "PaymentVoucherNumber"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^(\\d{17}|[A-Za-z]{3}\\d{13})$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaymentVoucherNumber" j
    let to_json = simple_to_json to_value
  end
module TaxDocumentAccessToken =
  struct
    type nonrec t = string
    let context_ = "TaxDocumentAccessToken"
    let make i =
      let open Result in
        ok_or_failwith (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:"TaxDocumentAccessToken" j
    let to_json = simple_to_json to_value
  end
module Authorities =
  struct
    type nonrec t = Authority.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:Authority.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:Authority.of_xml)
    let of_json j =
      list_of_json ~kind:"Authorities" ~of_json:Authority.of_json j
    let to_json v = composed_to_json to_value v
  end
module DisplayName =
  struct
    type nonrec t = string
    let context_ = "DisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (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:"DisplayName" j
    let to_json = simple_to_json to_value
  end
module GenericString =
  struct
    type nonrec t = string
    let context_ = "GenericString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\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:"GenericString" j
    let to_json = simple_to_json to_value
  end
module SourceS3Location =
  struct
    type nonrec t =
      {
      bucket: S3BucketName.t
        [@ocaml.doc
          "The name of your Amazon S3 bucket that your tax document is located."];
      key: S3Key.t
        [@ocaml.doc
          "The object key of your tax document object in Amazon S3."]}
    let context_ = "SourceS3Location"
    let make ~bucket = fun ~key -> fun () -> { bucket; key }
    let to_value x =
      structure_to_value
        [("bucket", (Some (S3BucketName.to_value x.bucket)));
        ("key", (Some (S3Key.to_value x.key)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = S3Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      let bucket =
        S3BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucket") in
      make ~key ~bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map_exn json__ "key" S3Key.of_json in
      let bucket = field_map_exn json__ "bucket" S3BucketName.of_json in
      make ~key ~bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon S3 bucket in your account where your tax document is located."]
module TaxRegistrationDocFile =
  struct
    type nonrec t =
      {
      fileContent: FileBlob.t
        [@ocaml.doc "The tax registration document content."];
      fileName: TaxDocumentName.t
        [@ocaml.doc "The tax registration document name."]}
    let context_ = "TaxRegistrationDocFile"
    let make ~fileContent =
      fun ~fileName -> fun () -> { fileContent; fileName }
    let to_value x =
      structure_to_value
        [("fileContent", (Some (FileBlob.to_value x.fileContent)));
        ("fileName", (Some (TaxDocumentName.to_value x.fileName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileName =
        TaxDocumentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileName") in
      let fileContent =
        FileBlob.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileContent") in
      make ~fileName ~fileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileName = field_map_exn json__ "fileName" TaxDocumentName.of_json in
      let fileContent = field_map_exn json__ "fileContent" FileBlob.of_json in
      make ~fileName ~fileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tax registration document."]
module AddressLine1 =
  struct
    type nonrec t = string
    let context_ = "AddressLine1"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:180) >>=
                  (fun () -> check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AddressLine1" j
    let to_json = simple_to_json to_value
  end
module AddressLine2 =
  struct
    type nonrec t = string
    let context_ = "AddressLine2"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:60) >>=
                  (fun () -> check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AddressLine2" j
    let to_json = simple_to_json to_value
  end
module AddressLine3 =
  struct
    type nonrec t = string
    let context_ = "AddressLine3"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:60) >>=
                  (fun () -> check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AddressLine3" j
    let to_json = simple_to_json to_value
  end
module City =
  struct
    type nonrec t = string
    let context_ = "City"
    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:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"City" j
    let to_json = simple_to_json to_value
  end
module District =
  struct
    type nonrec t = string
    let context_ = "District"
    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:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"District" j
    let to_json = simple_to_json to_value
  end
module PostalCode =
  struct
    type nonrec t = string
    let context_ = "PostalCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PostalCode" j
    let to_json = simple_to_json to_value
  end
module AddressRoleType =
  struct
    type nonrec t =
      | TaxAddress 
      | BillingAddress 
      | ContactAddress 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TaxAddress -> "TaxAddress"
      | BillingAddress -> "BillingAddress"
      | ContactAddress -> "ContactAddress"
      | Non_static_id s -> s
    let of_string =
      function
      | "TaxAddress" -> TaxAddress
      | "BillingAddress" -> BillingAddress
      | "ContactAddress" -> ContactAddress
      | 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 AddressRoleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AddressRoleType" j)
    let to_json = simple_to_json to_value
  end
module Jurisdiction =
  struct
    type nonrec t =
      {
      countryCode: CountryCode.t option
        [@ocaml.doc "The country code of the jurisdiction."];
      stateOrRegion: State.t option
        [@ocaml.doc
          "The state, region, or province associated with the country of the jurisdiction, if applicable."]}
    let make ?countryCode =
      fun ?stateOrRegion -> fun () -> { countryCode; stateOrRegion }
    let to_value x =
      structure_to_value
        [("countryCode", (Option.map x.countryCode ~f:CountryCode.to_value));
        ("stateOrRegion", (Option.map x.stateOrRegion ~f:State.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateOrRegion =
        (Option.map ~f:State.of_xml) (Xml.child xml_arg0 "stateOrRegion") in
      let countryCode =
        (Option.map ~f:CountryCode.of_xml) (Xml.child xml_arg0 "countryCode") in
      make ?stateOrRegion ?countryCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateOrRegion = field_map json__ "stateOrRegion" State.of_json in
      let countryCode = field_map json__ "countryCode" CountryCode.of_json in
      make ?stateOrRegion ?countryCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The jurisdiction details of the TRN information of the customers. This doesn't contain full legal address, and contains only country code and state/region/province."]
module BrazilAdditionalInfo =
  struct
    type nonrec t =
      {
      ccmCode: CcmCode.t option
        [@ocaml.doc
          "The Cadastro de Contribuintes Mobili\195\161rios (CCM) code for your TRN in Brazil. This only applies for a CNPJ tax type for the S\195\163o Paulo municipality."];
      legalNatureCode: LegalNatureCode.t option
        [@ocaml.doc
          "Legal nature of business, based on your TRN in Brazil. This only applies for a CNPJ tax type."]}
    let make ?ccmCode =
      fun ?legalNatureCode -> fun () -> { ccmCode; legalNatureCode }
    let to_value x =
      structure_to_value
        [("ccmCode", (Option.map x.ccmCode ~f:CcmCode.to_value));
        ("legalNatureCode",
          (Option.map x.legalNatureCode ~f:LegalNatureCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let legalNatureCode =
        (Option.map ~f:LegalNatureCode.of_xml)
          (Xml.child xml_arg0 "legalNatureCode") in
      let ccmCode =
        (Option.map ~f:CcmCode.of_xml) (Xml.child xml_arg0 "ccmCode") in
      make ?legalNatureCode ?ccmCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let legalNatureCode =
        field_map json__ "legalNatureCode" LegalNatureCode.of_json in
      let ccmCode = field_map json__ "ccmCode" CcmCode.of_json in
      make ?legalNatureCode ?ccmCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Brazil."]
module CanadaAdditionalInfo =
  struct
    type nonrec t =
      {
      canadaQuebecSalesTaxNumber: CanadaQuebecSalesTaxNumberString.t option
        [@ocaml.doc
          "The Quebec Sales Tax ID number. Leave blank if you do not have a Quebec Sales Tax ID number."];
      canadaRetailSalesTaxNumber: CanadaRetailSalesTaxNumberString.t option
        [@ocaml.doc
          "Manitoba Retail Sales Tax ID number. Customers purchasing Amazon Web Services services for resale in Manitoba must provide a valid Retail Sales Tax ID number for Manitoba. Leave this blank if you do not have a Retail Sales Tax ID number in Manitoba or are not purchasing Amazon Web Services services for resale."];
      isResellerAccount: Boolean.t option
        [@ocaml.doc
          "The value for this parameter must be true if the provincialSalesTaxId value is provided for a TRN in British Columbia, Saskatchewan, or Manitoba provinces. To claim a provincial sales tax (PST) and retail sales tax (RST) reseller exemption, you must confirm that purchases from this account were made for resale. Otherwise, remove the PST or RST number from the provincialSalesTaxId parameter from your request."];
      provincialSalesTaxId: CanadaProvincialSalesTaxIdString.t option
        [@ocaml.doc
          "The provincial sales tax ID for your TRN in Canada. This parameter can represent the following: Provincial sales tax ID number for British Columbia and Saskatchewan provinces Manitoba retail sales tax ID number for Manitoba province Quebec sales tax ID number for Quebec province The Tax Setting API only accepts this parameter if the TRN is specified for the previous provinces. For other provinces, the Tax Settings API doesn't accept this parameter."]}
    let make ?canadaQuebecSalesTaxNumber =
      fun ?canadaRetailSalesTaxNumber ->
        fun ?isResellerAccount ->
          fun ?provincialSalesTaxId ->
            fun () ->
              {
                canadaQuebecSalesTaxNumber;
                canadaRetailSalesTaxNumber;
                isResellerAccount;
                provincialSalesTaxId
              }
    let to_value x =
      structure_to_value
        [("canadaQuebecSalesTaxNumber",
           (Option.map x.canadaQuebecSalesTaxNumber
              ~f:CanadaQuebecSalesTaxNumberString.to_value));
        ("canadaRetailSalesTaxNumber",
          (Option.map x.canadaRetailSalesTaxNumber
             ~f:CanadaRetailSalesTaxNumberString.to_value));
        ("isResellerAccount",
          (Option.map x.isResellerAccount ~f:Boolean.to_value));
        ("provincialSalesTaxId",
          (Option.map x.provincialSalesTaxId
             ~f:CanadaProvincialSalesTaxIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let provincialSalesTaxId =
        (Option.map ~f:CanadaProvincialSalesTaxIdString.of_xml)
          (Xml.child xml_arg0 "provincialSalesTaxId") in
      let isResellerAccount =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isResellerAccount") in
      let canadaRetailSalesTaxNumber =
        (Option.map ~f:CanadaRetailSalesTaxNumberString.of_xml)
          (Xml.child xml_arg0 "canadaRetailSalesTaxNumber") in
      let canadaQuebecSalesTaxNumber =
        (Option.map ~f:CanadaQuebecSalesTaxNumberString.of_xml)
          (Xml.child xml_arg0 "canadaQuebecSalesTaxNumber") in
      make ?provincialSalesTaxId ?isResellerAccount
        ?canadaRetailSalesTaxNumber ?canadaQuebecSalesTaxNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let provincialSalesTaxId =
        field_map json__ "provincialSalesTaxId"
          CanadaProvincialSalesTaxIdString.of_json in
      let isResellerAccount =
        field_map json__ "isResellerAccount" Boolean.of_json in
      let canadaRetailSalesTaxNumber =
        field_map json__ "canadaRetailSalesTaxNumber"
          CanadaRetailSalesTaxNumberString.of_json in
      let canadaQuebecSalesTaxNumber =
        field_map json__ "canadaQuebecSalesTaxNumber"
          CanadaQuebecSalesTaxNumberString.of_json in
      make ?provincialSalesTaxId ?isResellerAccount
        ?canadaRetailSalesTaxNumber ?canadaQuebecSalesTaxNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Canada ."]
module EgyptAdditionalInfo =
  struct
    type nonrec t =
      {
      uniqueIdentificationNumber: UniqueIdentificationNumber.t option
        [@ocaml.doc
          "The unique identification number provided by the Egypt Tax Authority."];
      uniqueIdentificationNumberExpirationDate: DateString.t option
        [@ocaml.doc
          "The expiration date of the unique identification number provided by the Egypt Tax Authority."]}
    let make ?uniqueIdentificationNumber =
      fun ?uniqueIdentificationNumberExpirationDate ->
        fun () ->
          {
            uniqueIdentificationNumber;
            uniqueIdentificationNumberExpirationDate
          }
    let to_value x =
      structure_to_value
        [("uniqueIdentificationNumber",
           (Option.map x.uniqueIdentificationNumber
              ~f:UniqueIdentificationNumber.to_value));
        ("uniqueIdentificationNumberExpirationDate",
          (Option.map x.uniqueIdentificationNumberExpirationDate
             ~f:DateString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uniqueIdentificationNumberExpirationDate =
        (Option.map ~f:DateString.of_xml)
          (Xml.child xml_arg0 "uniqueIdentificationNumberExpirationDate") in
      let uniqueIdentificationNumber =
        (Option.map ~f:UniqueIdentificationNumber.of_xml)
          (Xml.child xml_arg0 "uniqueIdentificationNumber") in
      make ?uniqueIdentificationNumberExpirationDate
        ?uniqueIdentificationNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uniqueIdentificationNumberExpirationDate =
        field_map json__ "uniqueIdentificationNumberExpirationDate"
          DateString.of_json in
      let uniqueIdentificationNumber =
        field_map json__ "uniqueIdentificationNumber"
          UniqueIdentificationNumber.of_json in
      make ?uniqueIdentificationNumberExpirationDate
        ?uniqueIdentificationNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information to specify for a TRN in Egypt."]
module EstoniaAdditionalInfo =
  struct
    type nonrec t =
      {
      registryCommercialCode: RegistryCommercialCode.t
        [@ocaml.doc
          "Registry commercial code (RCC) for your TRN in Estonia. This value is an eight-numeric string, such as 12345678."]}
    let context_ = "EstoniaAdditionalInfo"
    let make ~registryCommercialCode = fun () -> { registryCommercialCode }
    let to_value x =
      structure_to_value
        [("registryCommercialCode",
           (Some (RegistryCommercialCode.to_value x.registryCommercialCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryCommercialCode =
        RegistryCommercialCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryCommercialCode") in
      make ~registryCommercialCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryCommercialCode =
        field_map_exn json__ "registryCommercialCode"
          RegistryCommercialCode.of_json in
      make ~registryCommercialCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Estonia."]
module GeorgiaAdditionalInfo =
  struct
    type nonrec t =
      {
      personType: PersonType.t
        [@ocaml.doc
          "The legal person or physical person assigned to this TRN in Georgia."]}
    let context_ = "GeorgiaAdditionalInfo"
    let make ~personType = fun () -> { personType }
    let to_value x =
      structure_to_value
        [("personType", (Some (PersonType.to_value x.personType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let personType =
        PersonType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "personType") in
      make ~personType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let personType = field_map_exn json__ "personType" PersonType.of_json in
      make ~personType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Georgia."]
module GreeceAdditionalInfo =
  struct
    type nonrec t =
      {
      contractingAuthorityCode: ContractingAuthorityCode.t option
        [@ocaml.doc "The code of contracting authority for e-invoicing."]}
    let make ?contractingAuthorityCode =
      fun () -> { contractingAuthorityCode }
    let to_value x =
      structure_to_value
        [("contractingAuthorityCode",
           (Option.map x.contractingAuthorityCode
              ~f:ContractingAuthorityCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contractingAuthorityCode =
        (Option.map ~f:ContractingAuthorityCode.of_xml)
          (Xml.child xml_arg0 "contractingAuthorityCode") in
      make ?contractingAuthorityCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contractingAuthorityCode =
        field_map json__ "contractingAuthorityCode"
          ContractingAuthorityCode.of_json in
      make ?contractingAuthorityCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information to specify for a TRN in Greece."]
module IndiaAdditionalInfo =
  struct
    type nonrec t =
      {
      pan: Pan.t option
        [@ocaml.doc "India pan information associated with the account."]}
    let make ?pan = fun () -> { pan }
    let to_value x =
      structure_to_value [("pan", (Option.map x.pan ~f:Pan.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pan = (Option.map ~f:Pan.of_xml) (Xml.child xml_arg0 "pan") in
      make ?pan ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pan = field_map json__ "pan" Pan.of_json in make ?pan ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional tax information in India."]
module IndonesiaAdditionalInfo =
  struct
    type nonrec t =
      {
      decisionNumber: DecisionNumber.t option
        [@ocaml.doc
          "VAT-exempt customers have a Directorate General of Taxation (DGT) exemption letter or certificate (Surat Keterangan Bebas) decision number. Non-collected VAT have a DGT letter or certificate (Surat Keterangan Tidak Dipungut)."];
      ppnExceptionDesignationCode: PpnExceptionDesignationCode.t option
        [@ocaml.doc
          "Exception code if you are designated by Directorate General of Taxation (DGT) as a VAT collector, non-collected VAT, or VAT-exempt customer."];
      taxRegistrationNumberType: IndonesiaTaxRegistrationNumberType.t option
        [@ocaml.doc "The tax registration number type."]}
    let make ?decisionNumber =
      fun ?ppnExceptionDesignationCode ->
        fun ?taxRegistrationNumberType ->
          fun () ->
            {
              decisionNumber;
              ppnExceptionDesignationCode;
              taxRegistrationNumberType
            }
    let to_value x =
      structure_to_value
        [("decisionNumber",
           (Option.map x.decisionNumber ~f:DecisionNumber.to_value));
        ("ppnExceptionDesignationCode",
          (Option.map x.ppnExceptionDesignationCode
             ~f:PpnExceptionDesignationCode.to_value));
        ("taxRegistrationNumberType",
          (Option.map x.taxRegistrationNumberType
             ~f:IndonesiaTaxRegistrationNumberType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationNumberType =
        (Option.map ~f:IndonesiaTaxRegistrationNumberType.of_xml)
          (Xml.child xml_arg0 "taxRegistrationNumberType") in
      let ppnExceptionDesignationCode =
        (Option.map ~f:PpnExceptionDesignationCode.of_xml)
          (Xml.child xml_arg0 "ppnExceptionDesignationCode") in
      let decisionNumber =
        (Option.map ~f:DecisionNumber.of_xml)
          (Xml.child xml_arg0 "decisionNumber") in
      make ?taxRegistrationNumberType ?ppnExceptionDesignationCode
        ?decisionNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationNumberType =
        field_map json__ "taxRegistrationNumberType"
          IndonesiaTaxRegistrationNumberType.of_json in
      let ppnExceptionDesignationCode =
        field_map json__ "ppnExceptionDesignationCode"
          PpnExceptionDesignationCode.of_json in
      let decisionNumber =
        field_map json__ "decisionNumber" DecisionNumber.of_json in
      make ?taxRegistrationNumberType ?ppnExceptionDesignationCode
        ?decisionNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Indonesia."]
module IsraelAdditionalInfo =
  struct
    type nonrec t =
      {
      customerType: IsraelCustomerType.t
        [@ocaml.doc
          "Customer type for your TRN in Israel. The value can be Business or Individual. Use Businessfor entities such as not-for-profit and financial institutions."];
      dealerType: IsraelDealerType.t
        [@ocaml.doc
          "Dealer type for your TRN in Israel. If you're not a local authorized dealer with an Israeli VAT ID, specify your tax identification number so that Amazon Web Services can send you a compliant tax invoice."]}
    let context_ = "IsraelAdditionalInfo"
    let make ~customerType =
      fun ~dealerType -> fun () -> { customerType; dealerType }
    let to_value x =
      structure_to_value
        [("customerType",
           (Some (IsraelCustomerType.to_value x.customerType)));
        ("dealerType", (Some (IsraelDealerType.to_value x.dealerType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dealerType =
        IsraelDealerType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dealerType") in
      let customerType =
        IsraelCustomerType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "customerType") in
      make ~dealerType ~customerType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dealerType =
        field_map_exn json__ "dealerType" IsraelDealerType.of_json in
      let customerType =
        field_map_exn json__ "customerType" IsraelCustomerType.of_json in
      make ~dealerType ~customerType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Israel."]
module ItalyAdditionalInfo =
  struct
    type nonrec t =
      {
      cigNumber: CigNumber.t option
        [@ocaml.doc "The tender procedure identification code."];
      cupNumber: CupNumber.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Italy. This is managed by the Interministerial Committee for Economic Planning (CIPE) which characterizes every public investment project (Individual Project Code)."];
      sdiAccountId: SdiAccountId.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Italy. Use CodiceDestinatario to receive your invoices via web service (API) or FTP."];
      taxCode: TaxCode.t option
        [@ocaml.doc
          "List of service tax codes for your TRN in Italy. You can use your customer tax code as part of a VAT Group."]}
    let make ?cigNumber =
      fun ?cupNumber ->
        fun ?sdiAccountId ->
          fun ?taxCode ->
            fun () -> { cigNumber; cupNumber; sdiAccountId; taxCode }
    let to_value x =
      structure_to_value
        [("cigNumber", (Option.map x.cigNumber ~f:CigNumber.to_value));
        ("cupNumber", (Option.map x.cupNumber ~f:CupNumber.to_value));
        ("sdiAccountId",
          (Option.map x.sdiAccountId ~f:SdiAccountId.to_value));
        ("taxCode", (Option.map x.taxCode ~f:TaxCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxCode =
        (Option.map ~f:TaxCode.of_xml) (Xml.child xml_arg0 "taxCode") in
      let sdiAccountId =
        (Option.map ~f:SdiAccountId.of_xml)
          (Xml.child xml_arg0 "sdiAccountId") in
      let cupNumber =
        (Option.map ~f:CupNumber.of_xml) (Xml.child xml_arg0 "cupNumber") in
      let cigNumber =
        (Option.map ~f:CigNumber.of_xml) (Xml.child xml_arg0 "cigNumber") in
      make ?taxCode ?sdiAccountId ?cupNumber ?cigNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxCode = field_map json__ "taxCode" TaxCode.of_json in
      let sdiAccountId = field_map json__ "sdiAccountId" SdiAccountId.of_json in
      let cupNumber = field_map json__ "cupNumber" CupNumber.of_json in
      let cigNumber = field_map json__ "cigNumber" CigNumber.of_json in
      make ?taxCode ?sdiAccountId ?cupNumber ?cigNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Italy."]
module KenyaAdditionalInfo =
  struct
    type nonrec t =
      {
      personType: PersonType.t
        [@ocaml.doc
          "The legal person or physical person assigned to this TRN in Kenya."]}
    let context_ = "KenyaAdditionalInfo"
    let make ~personType = fun () -> { personType }
    let to_value x =
      structure_to_value
        [("personType", (Some (PersonType.to_value x.personType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let personType =
        PersonType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "personType") in
      make ~personType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let personType = field_map_exn json__ "personType" PersonType.of_json in
      make ~personType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Kenya."]
module MalaysiaAdditionalInfo =
  struct
    type nonrec t =
      {
      businessRegistrationNumber: BusinessRegistrationNumber.t option
        [@ocaml.doc
          "The tax registration number (TRN) in Malaysia. For individual, you can specify the taxInformationNumber in MalaysiaAdditionalInfo with NRIC type, and a valid MyKad or NRIC number. For business, you must specify a businessRegistrationNumber in MalaysiaAdditionalInfo with a TIN type and tax identification number. For business resellers, you must specify a businessRegistrationNumber and taxInformationNumber in MalaysiaAdditionalInfo with a sales and service tax (SST) type and a valid SST number. For business resellers with service codes, you must specify businessRegistrationNumber, taxInformationNumber, and distinct serviceTaxCodes in MalaysiaAdditionalInfo with a SST type and valid sales and service tax (SST) number. By using this API operation, Amazon Web Services registers your self-declaration that you\226\128\153re an authorized business reseller registered with the Royal Malaysia Customs Department (RMCD), and have a valid SST number."];
      serviceTaxCodes: MalaysiaServiceTaxCodesList.t option
        [@ocaml.doc "List of service tax codes for your TRN in Malaysia."];
      taxInformationNumber: TaxInformationNumber.t option
        [@ocaml.doc
          "The tax information number in Malaysia. For individual, you can specify the taxInformationNumber in MalaysiaAdditionalInfo with NRIC type, and a valid MyKad or NRIC number. For business resellers, you must specify a businessRegistrationNumber and taxInformationNumber in MalaysiaAdditionalInfo with a sales and service tax (SST) type and a valid SST number. For business resellers with service codes, you must specify businessRegistrationNumber, taxInformationNumber, and distinct serviceTaxCodes in MalaysiaAdditionalInfo with a SST type and valid sales and service tax (SST) number. By using this API operation, Amazon Web Services registers your self-declaration that you\226\128\153re an authorized business reseller registered with the Royal Malaysia Customs Department (RMCD), and have a valid SST number."]}
    let make ?businessRegistrationNumber =
      fun ?serviceTaxCodes ->
        fun ?taxInformationNumber ->
          fun () ->
            {
              businessRegistrationNumber;
              serviceTaxCodes;
              taxInformationNumber
            }
    let to_value x =
      structure_to_value
        [("businessRegistrationNumber",
           (Option.map x.businessRegistrationNumber
              ~f:BusinessRegistrationNumber.to_value));
        ("serviceTaxCodes",
          (Option.map x.serviceTaxCodes
             ~f:MalaysiaServiceTaxCodesList.to_value));
        ("taxInformationNumber",
          (Option.map x.taxInformationNumber ~f:TaxInformationNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxInformationNumber =
        (Option.map ~f:TaxInformationNumber.of_xml)
          (Xml.child xml_arg0 "taxInformationNumber") in
      let serviceTaxCodes =
        (Option.map ~f:MalaysiaServiceTaxCodesList.of_xml)
          (Xml.child xml_arg0 "serviceTaxCodes") in
      let businessRegistrationNumber =
        (Option.map ~f:BusinessRegistrationNumber.of_xml)
          (Xml.child xml_arg0 "businessRegistrationNumber") in
      make ?taxInformationNumber ?serviceTaxCodes ?businessRegistrationNumber
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxInformationNumber =
        field_map json__ "taxInformationNumber" TaxInformationNumber.of_json in
      let serviceTaxCodes =
        field_map json__ "serviceTaxCodes"
          MalaysiaServiceTaxCodesList.of_json in
      let businessRegistrationNumber =
        field_map json__ "businessRegistrationNumber"
          BusinessRegistrationNumber.of_json in
      make ?taxInformationNumber ?serviceTaxCodes ?businessRegistrationNumber
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Malaysia."]
module PolandAdditionalInfo =
  struct
    type nonrec t =
      {
      individualRegistrationNumber: IndividualRegistrationNumber.t option
        [@ocaml.doc
          "The individual tax registration number (NIP). Individual NIP is valid for other taxes excluding VAT purposes."];
      isGroupVatEnabled: Boolean.t option
        [@ocaml.doc
          "True if your business is a member of a VAT group with a NIP active for VAT purposes. Otherwise, this is false."]}
    let make ?individualRegistrationNumber =
      fun ?isGroupVatEnabled ->
        fun () -> { individualRegistrationNumber; isGroupVatEnabled }
    let to_value x =
      structure_to_value
        [("individualRegistrationNumber",
           (Option.map x.individualRegistrationNumber
              ~f:IndividualRegistrationNumber.to_value));
        ("isGroupVatEnabled",
          (Option.map x.isGroupVatEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isGroupVatEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isGroupVatEnabled") in
      let individualRegistrationNumber =
        (Option.map ~f:IndividualRegistrationNumber.of_xml)
          (Xml.child xml_arg0 "individualRegistrationNumber") in
      make ?isGroupVatEnabled ?individualRegistrationNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isGroupVatEnabled =
        field_map json__ "isGroupVatEnabled" Boolean.of_json in
      let individualRegistrationNumber =
        field_map json__ "individualRegistrationNumber"
          IndividualRegistrationNumber.of_json in
      make ?isGroupVatEnabled ?individualRegistrationNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Poland."]
module RomaniaAdditionalInfo =
  struct
    type nonrec t =
      {
      taxRegistrationNumberType: TaxRegistrationNumberType.t
        [@ocaml.doc
          "The tax registration number type. The value can be TaxRegistrationNumber or LocalRegistrationNumber."]}
    let context_ = "RomaniaAdditionalInfo"
    let make ~taxRegistrationNumberType =
      fun () -> { taxRegistrationNumberType }
    let to_value x =
      structure_to_value
        [("taxRegistrationNumberType",
           (Some
              (TaxRegistrationNumberType.to_value x.taxRegistrationNumberType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationNumberType =
        TaxRegistrationNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "taxRegistrationNumberType") in
      make ~taxRegistrationNumberType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationNumberType =
        field_map_exn json__ "taxRegistrationNumberType"
          TaxRegistrationNumberType.of_json in
      make ~taxRegistrationNumberType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information to specify for a TRN in Romania."]
module SaudiArabiaAdditionalInfo =
  struct
    type nonrec t =
      {
      taxRegistrationNumberType:
        SaudiArabiaTaxRegistrationNumberType.t option
        [@ocaml.doc "The tax registration number type."]}
    let make ?taxRegistrationNumberType =
      fun () -> { taxRegistrationNumberType }
    let to_value x =
      structure_to_value
        [("taxRegistrationNumberType",
           (Option.map x.taxRegistrationNumberType
              ~f:SaudiArabiaTaxRegistrationNumberType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationNumberType =
        (Option.map ~f:SaudiArabiaTaxRegistrationNumberType.of_xml)
          (Xml.child xml_arg0 "taxRegistrationNumberType") in
      make ?taxRegistrationNumberType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationNumberType =
        field_map json__ "taxRegistrationNumberType"
          SaudiArabiaTaxRegistrationNumberType.of_json in
      make ?taxRegistrationNumberType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Saudi Arabia."]
module SouthKoreaAdditionalInfo =
  struct
    type nonrec t =
      {
      businessRepresentativeName: BusinessRepresentativeName.t
        [@ocaml.doc
          "The business legal name based on the most recently uploaded tax registration certificate."];
      itemOfBusiness: ItemOfBusiness.t
        [@ocaml.doc
          "Item of business based on the most recently uploaded tax registration certificate."];
      lineOfBusiness: LineOfBusiness.t
        [@ocaml.doc
          "Line of business based on the most recently uploaded tax registration certificate."]}
    let context_ = "SouthKoreaAdditionalInfo"
    let make ~businessRepresentativeName =
      fun ~itemOfBusiness ->
        fun ~lineOfBusiness ->
          fun () ->
            { businessRepresentativeName; itemOfBusiness; lineOfBusiness }
    let to_value x =
      structure_to_value
        [("businessRepresentativeName",
           (Some
              (BusinessRepresentativeName.to_value
                 x.businessRepresentativeName)));
        ("itemOfBusiness", (Some (ItemOfBusiness.to_value x.itemOfBusiness)));
        ("lineOfBusiness", (Some (LineOfBusiness.to_value x.lineOfBusiness)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lineOfBusiness =
        LineOfBusiness.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "lineOfBusiness") in
      let itemOfBusiness =
        ItemOfBusiness.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "itemOfBusiness") in
      let businessRepresentativeName =
        BusinessRepresentativeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "businessRepresentativeName") in
      make ~lineOfBusiness ~itemOfBusiness ~businessRepresentativeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lineOfBusiness =
        field_map_exn json__ "lineOfBusiness" LineOfBusiness.of_json in
      let itemOfBusiness =
        field_map_exn json__ "itemOfBusiness" ItemOfBusiness.of_json in
      let businessRepresentativeName =
        field_map_exn json__ "businessRepresentativeName"
          BusinessRepresentativeName.of_json in
      make ~lineOfBusiness ~itemOfBusiness ~businessRepresentativeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in South Korea."]
module SpainAdditionalInfo =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t
        [@ocaml.doc "The registration type in Spain."]}
    let context_ = "SpainAdditionalInfo"
    let make ~registrationType = fun () -> { registrationType }
    let to_value x =
      structure_to_value
        [("registrationType",
           (Some (RegistrationType.to_value x.registrationType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationType =
        RegistrationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registrationType") in
      make ~registrationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationType =
        field_map_exn json__ "registrationType" RegistrationType.of_json in
      make ~registrationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Spain."]
module TurkeyAdditionalInfo =
  struct
    type nonrec t =
      {
      industries: Industries.t option
        [@ocaml.doc
          "The industry information that tells the Tax Settings API if you're subject to additional withholding taxes. This information required for business-to-business (B2B) customers. This information is conditionally mandatory for B2B customers who are subject to KDV tax."];
      kepEmailId: KepEmailId.t option
        [@ocaml.doc
          "The Registered Electronic Mail (REM) that is used to send notarized communication. This parameter is optional for business-to-business (B2B) and business-to-government (B2G) customers. It's not required for business-to-consumer (B2C) customers."];
      secondaryTaxId: SecondaryTaxId.t option
        [@ocaml.doc
          "Secondary tax ID (\226\128\156harcama birimi VKN\226\128\157si\226\128\157). If one isn't provided, we will use your VKN as the secondary ID."];
      taxOffice: TaxOffice.t option
        [@ocaml.doc
          "The tax office where you're registered. You can enter this information as a string. The Tax Settings API will add this information to your invoice. This parameter is required for business-to-business (B2B) and business-to-government customers. It's not required for business-to-consumer (B2C) customers."]}
    let make ?industries =
      fun ?kepEmailId ->
        fun ?secondaryTaxId ->
          fun ?taxOffice ->
            fun () -> { industries; kepEmailId; secondaryTaxId; taxOffice }
    let to_value x =
      structure_to_value
        [("industries", (Option.map x.industries ~f:Industries.to_value));
        ("kepEmailId", (Option.map x.kepEmailId ~f:KepEmailId.to_value));
        ("secondaryTaxId",
          (Option.map x.secondaryTaxId ~f:SecondaryTaxId.to_value));
        ("taxOffice", (Option.map x.taxOffice ~f:TaxOffice.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxOffice =
        (Option.map ~f:TaxOffice.of_xml) (Xml.child xml_arg0 "taxOffice") in
      let secondaryTaxId =
        (Option.map ~f:SecondaryTaxId.of_xml)
          (Xml.child xml_arg0 "secondaryTaxId") in
      let kepEmailId =
        (Option.map ~f:KepEmailId.of_xml) (Xml.child xml_arg0 "kepEmailId") in
      let industries =
        (Option.map ~f:Industries.of_xml) (Xml.child xml_arg0 "industries") in
      make ?taxOffice ?secondaryTaxId ?kepEmailId ?industries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxOffice = field_map json__ "taxOffice" TaxOffice.of_json in
      let secondaryTaxId =
        field_map json__ "secondaryTaxId" SecondaryTaxId.of_json in
      let kepEmailId = field_map json__ "kepEmailId" KepEmailId.of_json in
      let industries = field_map json__ "industries" Industries.of_json in
      make ?taxOffice ?secondaryTaxId ?kepEmailId ?industries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Turkey."]
module UkraineAdditionalInfo =
  struct
    type nonrec t =
      {
      ukraineTrnType: UkraineTrnType.t
        [@ocaml.doc "The tax registration type."]}
    let context_ = "UkraineAdditionalInfo"
    let make ~ukraineTrnType = fun () -> { ukraineTrnType }
    let to_value x =
      structure_to_value
        [("ukraineTrnType",
           (Some (UkraineTrnType.to_value x.ukraineTrnType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ukraineTrnType =
        UkraineTrnType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ukraineTrnType") in
      make ~ukraineTrnType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ukraineTrnType =
        field_map_exn json__ "ukraineTrnType" UkraineTrnType.of_json in
      make ~ukraineTrnType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN in Ukraine."]
module UzbekistanAdditionalInfo =
  struct
    type nonrec t =
      {
      taxRegistrationNumberType: UzbekistanTaxRegistrationNumberType.t option
        [@ocaml.doc
          "The tax registration number type. The tax registration number type valid values are Business and Individual."];
      vatRegistrationNumber: VatRegistrationNumber.t option
        [@ocaml.doc
          "The unique 12-digit number issued to identify VAT-registered identities in Uzbekistan."]}
    let make ?taxRegistrationNumberType =
      fun ?vatRegistrationNumber ->
        fun () -> { taxRegistrationNumberType; vatRegistrationNumber }
    let to_value x =
      structure_to_value
        [("taxRegistrationNumberType",
           (Option.map x.taxRegistrationNumberType
              ~f:UzbekistanTaxRegistrationNumberType.to_value));
        ("vatRegistrationNumber",
          (Option.map x.vatRegistrationNumber
             ~f:VatRegistrationNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vatRegistrationNumber =
        (Option.map ~f:VatRegistrationNumber.of_xml)
          (Xml.child xml_arg0 "vatRegistrationNumber") in
      let taxRegistrationNumberType =
        (Option.map ~f:UzbekistanTaxRegistrationNumberType.of_xml)
          (Xml.child xml_arg0 "taxRegistrationNumberType") in
      make ?vatRegistrationNumber ?taxRegistrationNumberType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vatRegistrationNumber =
        field_map json__ "vatRegistrationNumber"
          VatRegistrationNumber.of_json in
      let taxRegistrationNumberType =
        field_map json__ "taxRegistrationNumberType"
          UzbekistanTaxRegistrationNumberType.of_json in
      make ?vatRegistrationNumber ?taxRegistrationNumberType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information to specify for a TRN in Uzbekistan."]
module VietnamAdditionalInfo =
  struct
    type nonrec t =
      {
      electronicTransactionCodeNumber:
        ElectronicTransactionCodeNumber.t option
        [@ocaml.doc
          "The electronic transaction code number on the tax return document. This field must be provided for successful API operation."];
      enterpriseIdentificationNumber: EnterpriseIdentificationNumber.t option
        [@ocaml.doc
          "The enterprise identification number for tax registration. This field must be provided for successful API operation."];
      paymentVoucherNumber: PaymentVoucherNumber.t option
        [@ocaml.doc
          "The payment voucher number on the tax return payment document. This field must be provided for successful API operation."];
      paymentVoucherNumberDate: DateString.t option
        [@ocaml.doc
          "The date on the tax return payment document. This field must be provided for successful API operation."]}
    let make ?electronicTransactionCodeNumber =
      fun ?enterpriseIdentificationNumber ->
        fun ?paymentVoucherNumber ->
          fun ?paymentVoucherNumberDate ->
            fun () ->
              {
                electronicTransactionCodeNumber;
                enterpriseIdentificationNumber;
                paymentVoucherNumber;
                paymentVoucherNumberDate
              }
    let to_value x =
      structure_to_value
        [("electronicTransactionCodeNumber",
           (Option.map x.electronicTransactionCodeNumber
              ~f:ElectronicTransactionCodeNumber.to_value));
        ("enterpriseIdentificationNumber",
          (Option.map x.enterpriseIdentificationNumber
             ~f:EnterpriseIdentificationNumber.to_value));
        ("paymentVoucherNumber",
          (Option.map x.paymentVoucherNumber ~f:PaymentVoucherNumber.to_value));
        ("paymentVoucherNumberDate",
          (Option.map x.paymentVoucherNumberDate ~f:DateString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let paymentVoucherNumberDate =
        (Option.map ~f:DateString.of_xml)
          (Xml.child xml_arg0 "paymentVoucherNumberDate") in
      let paymentVoucherNumber =
        (Option.map ~f:PaymentVoucherNumber.of_xml)
          (Xml.child xml_arg0 "paymentVoucherNumber") in
      let enterpriseIdentificationNumber =
        (Option.map ~f:EnterpriseIdentificationNumber.of_xml)
          (Xml.child xml_arg0 "enterpriseIdentificationNumber") in
      let electronicTransactionCodeNumber =
        (Option.map ~f:ElectronicTransactionCodeNumber.of_xml)
          (Xml.child xml_arg0 "electronicTransactionCodeNumber") in
      make ?paymentVoucherNumberDate ?paymentVoucherNumber
        ?enterpriseIdentificationNumber ?electronicTransactionCodeNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let paymentVoucherNumberDate =
        field_map json__ "paymentVoucherNumberDate" DateString.of_json in
      let paymentVoucherNumber =
        field_map json__ "paymentVoucherNumber" PaymentVoucherNumber.of_json in
      let enterpriseIdentificationNumber =
        field_map json__ "enterpriseIdentificationNumber"
          EnterpriseIdentificationNumber.of_json in
      let electronicTransactionCodeNumber =
        field_map json__ "electronicTransactionCodeNumber"
          ElectronicTransactionCodeNumber.of_json in
      make ?paymentVoucherNumberDate ?paymentVoucherNumber
        ?enterpriseIdentificationNumber ?electronicTransactionCodeNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information to specify for a TRN in Vietnam."]
module TaxDocumentMetadata =
  struct
    type nonrec t =
      {
      taxDocumentAccessToken: TaxDocumentAccessToken.t
        [@ocaml.doc
          "The tax document access token, which contains information that the Tax Settings API uses to locate the tax document. If you update your tax registration, the existing taxDocumentAccessToken won't be valid. To get the latest token, call the GetTaxRegistration or ListTaxRegistrations API operation. This token is valid for 24 hours."];
      taxDocumentName: TaxDocumentName.t
        [@ocaml.doc "The name of your tax document."]}
    let context_ = "TaxDocumentMetadata"
    let make ~taxDocumentAccessToken =
      fun ~taxDocumentName ->
        fun () -> { taxDocumentAccessToken; taxDocumentName }
    let to_value x =
      structure_to_value
        [("taxDocumentAccessToken",
           (Some (TaxDocumentAccessToken.to_value x.taxDocumentAccessToken)));
        ("taxDocumentName",
          (Some (TaxDocumentName.to_value x.taxDocumentName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxDocumentName =
        TaxDocumentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taxDocumentName") in
      let taxDocumentAccessToken =
        TaxDocumentAccessToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taxDocumentAccessToken") in
      make ~taxDocumentName ~taxDocumentAccessToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxDocumentName =
        field_map_exn json__ "taxDocumentName" TaxDocumentName.of_json in
      let taxDocumentAccessToken =
        field_map_exn json__ "taxDocumentAccessToken"
          TaxDocumentAccessToken.of_json in
      make ~taxDocumentName ~taxDocumentAccessToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata for your tax document."]
module EntityExemptionAccountStatus =
  struct
    type nonrec t =
      | None 
      | Valid 
      | Expired 
      | Pending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None -> "None"
      | Valid -> "Valid"
      | Expired -> "Expired"
      | Pending -> "Pending"
      | Non_static_id s -> s
    let of_string =
      function
      | "None" -> None
      | "Valid" -> Valid
      | "Expired" -> Expired
      | "Pending" -> Pending
      | 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 EntityExemptionAccountStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EntityExemptionAccountStatus" j)
    let to_json = simple_to_json to_value
  end
module TaxExemptionType =
  struct
    type nonrec t =
      {
      applicableJurisdictions: Authorities.t option
        [@ocaml.doc "The tax exemption's applicable jurisdictions."];
      description: GenericString.t option
        [@ocaml.doc "The tax exemption's type description."];
      displayName: DisplayName.t option
        [@ocaml.doc "The tax exemption's type display name."]}
    let make ?applicableJurisdictions =
      fun ?description ->
        fun ?displayName ->
          fun () -> { applicableJurisdictions; description; displayName }
    let to_value x =
      structure_to_value
        [("applicableJurisdictions",
           (Option.map x.applicableJurisdictions ~f:Authorities.to_value));
        ("description", (Option.map x.description ~f:GenericString.to_value));
        ("displayName", (Option.map x.displayName ~f:DisplayName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:DisplayName.of_xml) (Xml.child xml_arg0 "displayName") in
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "description") in
      let applicableJurisdictions =
        (Option.map ~f:Authorities.of_xml)
          (Xml.child xml_arg0 "applicableJurisdictions") in
      make ?displayName ?description ?applicableJurisdictions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName = field_map json__ "displayName" DisplayName.of_json in
      let description = field_map json__ "description" GenericString.of_json in
      let applicableJurisdictions =
        field_map json__ "applicableJurisdictions" Authorities.of_json in
      make ?displayName ?description ?applicableJurisdictions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tax exemption type."]
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 FieldName =
  struct
    type nonrec t = string
    let context_ = "FieldName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FieldName" j
    let to_json = simple_to_json to_value
  end
module TaxRegistrationDocument =
  struct
    type nonrec t =
      {
      file: TaxRegistrationDocFile.t option
        [@ocaml.doc "The tax registration document."];
      s3Location: SourceS3Location.t option
        [@ocaml.doc
          "The Amazon S3 location where your tax registration document is stored."]}
    let make ?file = fun ?s3Location -> fun () -> { file; s3Location }
    let to_value x =
      structure_to_value
        [("file", (Option.map x.file ~f:TaxRegistrationDocFile.to_value));
        ("s3Location",
          (Option.map x.s3Location ~f:SourceS3Location.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Location =
        (Option.map ~f:SourceS3Location.of_xml)
          (Xml.child xml_arg0 "s3Location") in
      let file =
        (Option.map ~f:TaxRegistrationDocFile.of_xml)
          (Xml.child xml_arg0 "file") in
      make ?s3Location ?file ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Location = field_map json__ "s3Location" SourceS3Location.of_json in
      let file = field_map json__ "file" TaxRegistrationDocFile.of_json in
      make ?s3Location ?file ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tax registration document information."]
module AccountName =
  struct
    type nonrec t = string
    let context_ = "AccountName"
    let make i =
      let open Result in
        ok_or_failwith (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:"AccountName" j
    let to_json = simple_to_json to_value
  end
module Address =
  struct
    type nonrec t =
      {
      addressLine1: AddressLine1.t
        [@ocaml.doc "The first line of the address."];
      addressLine2: AddressLine2.t option
        [@ocaml.doc "The second line of the address, if applicable."];
      addressLine3: AddressLine3.t option
        [@ocaml.doc
          "The third line of the address, if applicable. Currently, the Tax Settings API accepts the addressLine3 parameter only for Saudi Arabia. When you specify a TRN in Saudi Arabia, you must enter the addressLine3 and specify the building number for the address. For example, you might enter 1234."];
      city: City.t [@ocaml.doc "The city that the address is in."];
      countryCode: CountryCode.t
        [@ocaml.doc
          "The country code for the country that the address is in."];
      districtOrCounty: District.t option
        [@ocaml.doc
          "The district or county the address is located. For addresses in Brazil, this parameter uses the name of the neighborhood. When you set a TRN in Brazil, use districtOrCounty for the neighborhood name."];
      postalCode: PostalCode.t
        [@ocaml.doc "The postal code associated with the address."];
      stateOrRegion: State.t option
        [@ocaml.doc
          "The state, region, or province that the address is located. This field is only required for Canada, India, United Arab Emirates, Romania, and Brazil (CPF). It is optional for all other countries. If this is required for tax settings, use the same name as shown on the Tax Settings page."]}
    let context_ = "Address"
    let make ?addressLine2 =
      fun ?addressLine3 ->
        fun ?districtOrCounty ->
          fun ?stateOrRegion ->
            fun ~addressLine1 ->
              fun ~city ->
                fun ~countryCode ->
                  fun ~postalCode ->
                    fun () ->
                      {
                        addressLine2;
                        addressLine3;
                        districtOrCounty;
                        stateOrRegion;
                        addressLine1;
                        city;
                        countryCode;
                        postalCode
                      }
    let to_value x =
      structure_to_value
        [("addressLine1", (Some (AddressLine1.to_value x.addressLine1)));
        ("addressLine2",
          (Option.map x.addressLine2 ~f:AddressLine2.to_value));
        ("addressLine3",
          (Option.map x.addressLine3 ~f:AddressLine3.to_value));
        ("city", (Some (City.to_value x.city)));
        ("countryCode", (Some (CountryCode.to_value x.countryCode)));
        ("districtOrCounty",
          (Option.map x.districtOrCounty ~f:District.to_value));
        ("postalCode", (Some (PostalCode.to_value x.postalCode)));
        ("stateOrRegion", (Option.map x.stateOrRegion ~f:State.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateOrRegion =
        (Option.map ~f:State.of_xml) (Xml.child xml_arg0 "stateOrRegion") in
      let postalCode =
        PostalCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "postalCode") in
      let districtOrCounty =
        (Option.map ~f:District.of_xml)
          (Xml.child xml_arg0 "districtOrCounty") in
      let countryCode =
        CountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "countryCode") in
      let city =
        City.of_xml (Xml.child_exn ~context:context_ xml_arg0 "city") in
      let addressLine3 =
        (Option.map ~f:AddressLine3.of_xml)
          (Xml.child xml_arg0 "addressLine3") in
      let addressLine2 =
        (Option.map ~f:AddressLine2.of_xml)
          (Xml.child xml_arg0 "addressLine2") in
      let addressLine1 =
        AddressLine1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "addressLine1") in
      make ?stateOrRegion ~postalCode ?districtOrCounty ~countryCode ~city
        ?addressLine3 ?addressLine2 ~addressLine1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateOrRegion = field_map json__ "stateOrRegion" State.of_json in
      let postalCode = field_map_exn json__ "postalCode" PostalCode.of_json in
      let districtOrCounty =
        field_map json__ "districtOrCounty" District.of_json in
      let countryCode =
        field_map_exn json__ "countryCode" CountryCode.of_json in
      let city = field_map_exn json__ "city" City.of_json in
      let addressLine3 = field_map json__ "addressLine3" AddressLine3.of_json in
      let addressLine2 = field_map json__ "addressLine2" AddressLine2.of_json in
      let addressLine1 =
        field_map_exn json__ "addressLine1" AddressLine1.of_json in
      make ?stateOrRegion ~postalCode ?districtOrCounty ~countryCode ~city
        ?addressLine3 ?addressLine2 ~addressLine1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the address associated with the TRN information."]
module AddressRoleMap =
  struct
    type nonrec t = (AddressRoleType.t * Jurisdiction.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AddressRoleType Jurisdiction"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AddressRoleType.to_value x) |>
                    (fun x -> (Jurisdiction.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AddressRoleType.of_string
        ~of_json:Jurisdiction.of_json j
    let to_json v = composed_to_json to_value v
  end
module Seller =
  struct
    type nonrec t = string
    let context_ = "Seller"
    let make i =
      let open Result in
        ok_or_failwith (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:"Seller" j
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"^\\d+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module InheritanceObtainedReason =
  struct
    type nonrec t = string
    let context_ = "InheritanceObtainedReason"
    let make i =
      let open Result in
        ok_or_failwith (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:"InheritanceObtainedReason" j
    let to_json = simple_to_json to_value
  end
module AdditionalInfoResponse =
  struct
    type nonrec t =
      {
      brazilAdditionalInfo: BrazilAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Brazil. The Tax Settings API returns this information in your response when any additional information is present with your TRN in Brazil."];
      canadaAdditionalInfo: CanadaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Canada."];
      egyptAdditionalInfo: EgyptAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Egypt."];
      estoniaAdditionalInfo: EstoniaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Estonia."];
      georgiaAdditionalInfo: GeorgiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Georgia."];
      greeceAdditionalInfo: GreeceAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Greece."];
      indiaAdditionalInfo: IndiaAdditionalInfo.t option
        [@ocaml.doc "Additional tax information in India."];
      indonesiaAdditionalInfo: IndonesiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Indonesia."];
      israelAdditionalInfo: IsraelAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Israel."];
      italyAdditionalInfo: ItalyAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Italy."];
      kenyaAdditionalInfo: KenyaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Kenya."];
      malaysiaAdditionalInfo: MalaysiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Malaysia."];
      polandAdditionalInfo: PolandAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Poland."];
      romaniaAdditionalInfo: RomaniaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Romania."];
      saudiArabiaAdditionalInfo: SaudiArabiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Saudi Arabia."];
      southKoreaAdditionalInfo: SouthKoreaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in South Korea."];
      spainAdditionalInfo: SpainAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Spain."];
      turkeyAdditionalInfo: TurkeyAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Turkey."];
      ukraineAdditionalInfo: UkraineAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Ukraine."];
      uzbekistanAdditionalInfo: UzbekistanAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Uzbekistan."];
      vietnamAdditionalInfo: VietnamAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Vietnam."]}
    let make ?brazilAdditionalInfo =
      fun ?canadaAdditionalInfo ->
        fun ?egyptAdditionalInfo ->
          fun ?estoniaAdditionalInfo ->
            fun ?georgiaAdditionalInfo ->
              fun ?greeceAdditionalInfo ->
                fun ?indiaAdditionalInfo ->
                  fun ?indonesiaAdditionalInfo ->
                    fun ?israelAdditionalInfo ->
                      fun ?italyAdditionalInfo ->
                        fun ?kenyaAdditionalInfo ->
                          fun ?malaysiaAdditionalInfo ->
                            fun ?polandAdditionalInfo ->
                              fun ?romaniaAdditionalInfo ->
                                fun ?saudiArabiaAdditionalInfo ->
                                  fun ?southKoreaAdditionalInfo ->
                                    fun ?spainAdditionalInfo ->
                                      fun ?turkeyAdditionalInfo ->
                                        fun ?ukraineAdditionalInfo ->
                                          fun ?uzbekistanAdditionalInfo ->
                                            fun ?vietnamAdditionalInfo ->
                                              fun () ->
                                                {
                                                  brazilAdditionalInfo;
                                                  canadaAdditionalInfo;
                                                  egyptAdditionalInfo;
                                                  estoniaAdditionalInfo;
                                                  georgiaAdditionalInfo;
                                                  greeceAdditionalInfo;
                                                  indiaAdditionalInfo;
                                                  indonesiaAdditionalInfo;
                                                  israelAdditionalInfo;
                                                  italyAdditionalInfo;
                                                  kenyaAdditionalInfo;
                                                  malaysiaAdditionalInfo;
                                                  polandAdditionalInfo;
                                                  romaniaAdditionalInfo;
                                                  saudiArabiaAdditionalInfo;
                                                  southKoreaAdditionalInfo;
                                                  spainAdditionalInfo;
                                                  turkeyAdditionalInfo;
                                                  ukraineAdditionalInfo;
                                                  uzbekistanAdditionalInfo;
                                                  vietnamAdditionalInfo
                                                }
    let to_value x =
      structure_to_value
        [("brazilAdditionalInfo",
           (Option.map x.brazilAdditionalInfo
              ~f:BrazilAdditionalInfo.to_value));
        ("canadaAdditionalInfo",
          (Option.map x.canadaAdditionalInfo ~f:CanadaAdditionalInfo.to_value));
        ("egyptAdditionalInfo",
          (Option.map x.egyptAdditionalInfo ~f:EgyptAdditionalInfo.to_value));
        ("estoniaAdditionalInfo",
          (Option.map x.estoniaAdditionalInfo
             ~f:EstoniaAdditionalInfo.to_value));
        ("georgiaAdditionalInfo",
          (Option.map x.georgiaAdditionalInfo
             ~f:GeorgiaAdditionalInfo.to_value));
        ("greeceAdditionalInfo",
          (Option.map x.greeceAdditionalInfo ~f:GreeceAdditionalInfo.to_value));
        ("indiaAdditionalInfo",
          (Option.map x.indiaAdditionalInfo ~f:IndiaAdditionalInfo.to_value));
        ("indonesiaAdditionalInfo",
          (Option.map x.indonesiaAdditionalInfo
             ~f:IndonesiaAdditionalInfo.to_value));
        ("israelAdditionalInfo",
          (Option.map x.israelAdditionalInfo ~f:IsraelAdditionalInfo.to_value));
        ("italyAdditionalInfo",
          (Option.map x.italyAdditionalInfo ~f:ItalyAdditionalInfo.to_value));
        ("kenyaAdditionalInfo",
          (Option.map x.kenyaAdditionalInfo ~f:KenyaAdditionalInfo.to_value));
        ("malaysiaAdditionalInfo",
          (Option.map x.malaysiaAdditionalInfo
             ~f:MalaysiaAdditionalInfo.to_value));
        ("polandAdditionalInfo",
          (Option.map x.polandAdditionalInfo ~f:PolandAdditionalInfo.to_value));
        ("romaniaAdditionalInfo",
          (Option.map x.romaniaAdditionalInfo
             ~f:RomaniaAdditionalInfo.to_value));
        ("saudiArabiaAdditionalInfo",
          (Option.map x.saudiArabiaAdditionalInfo
             ~f:SaudiArabiaAdditionalInfo.to_value));
        ("southKoreaAdditionalInfo",
          (Option.map x.southKoreaAdditionalInfo
             ~f:SouthKoreaAdditionalInfo.to_value));
        ("spainAdditionalInfo",
          (Option.map x.spainAdditionalInfo ~f:SpainAdditionalInfo.to_value));
        ("turkeyAdditionalInfo",
          (Option.map x.turkeyAdditionalInfo ~f:TurkeyAdditionalInfo.to_value));
        ("ukraineAdditionalInfo",
          (Option.map x.ukraineAdditionalInfo
             ~f:UkraineAdditionalInfo.to_value));
        ("uzbekistanAdditionalInfo",
          (Option.map x.uzbekistanAdditionalInfo
             ~f:UzbekistanAdditionalInfo.to_value));
        ("vietnamAdditionalInfo",
          (Option.map x.vietnamAdditionalInfo
             ~f:VietnamAdditionalInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vietnamAdditionalInfo =
        (Option.map ~f:VietnamAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "vietnamAdditionalInfo") in
      let uzbekistanAdditionalInfo =
        (Option.map ~f:UzbekistanAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "uzbekistanAdditionalInfo") in
      let ukraineAdditionalInfo =
        (Option.map ~f:UkraineAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "ukraineAdditionalInfo") in
      let turkeyAdditionalInfo =
        (Option.map ~f:TurkeyAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "turkeyAdditionalInfo") in
      let spainAdditionalInfo =
        (Option.map ~f:SpainAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "spainAdditionalInfo") in
      let southKoreaAdditionalInfo =
        (Option.map ~f:SouthKoreaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "southKoreaAdditionalInfo") in
      let saudiArabiaAdditionalInfo =
        (Option.map ~f:SaudiArabiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "saudiArabiaAdditionalInfo") in
      let romaniaAdditionalInfo =
        (Option.map ~f:RomaniaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "romaniaAdditionalInfo") in
      let polandAdditionalInfo =
        (Option.map ~f:PolandAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "polandAdditionalInfo") in
      let malaysiaAdditionalInfo =
        (Option.map ~f:MalaysiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "malaysiaAdditionalInfo") in
      let kenyaAdditionalInfo =
        (Option.map ~f:KenyaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "kenyaAdditionalInfo") in
      let italyAdditionalInfo =
        (Option.map ~f:ItalyAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "italyAdditionalInfo") in
      let israelAdditionalInfo =
        (Option.map ~f:IsraelAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "israelAdditionalInfo") in
      let indonesiaAdditionalInfo =
        (Option.map ~f:IndonesiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "indonesiaAdditionalInfo") in
      let indiaAdditionalInfo =
        (Option.map ~f:IndiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "indiaAdditionalInfo") in
      let greeceAdditionalInfo =
        (Option.map ~f:GreeceAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "greeceAdditionalInfo") in
      let georgiaAdditionalInfo =
        (Option.map ~f:GeorgiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "georgiaAdditionalInfo") in
      let estoniaAdditionalInfo =
        (Option.map ~f:EstoniaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "estoniaAdditionalInfo") in
      let egyptAdditionalInfo =
        (Option.map ~f:EgyptAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "egyptAdditionalInfo") in
      let canadaAdditionalInfo =
        (Option.map ~f:CanadaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "canadaAdditionalInfo") in
      let brazilAdditionalInfo =
        (Option.map ~f:BrazilAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "brazilAdditionalInfo") in
      make ?vietnamAdditionalInfo ?uzbekistanAdditionalInfo
        ?ukraineAdditionalInfo ?turkeyAdditionalInfo ?spainAdditionalInfo
        ?southKoreaAdditionalInfo ?saudiArabiaAdditionalInfo
        ?romaniaAdditionalInfo ?polandAdditionalInfo ?malaysiaAdditionalInfo
        ?kenyaAdditionalInfo ?italyAdditionalInfo ?israelAdditionalInfo
        ?indonesiaAdditionalInfo ?indiaAdditionalInfo ?greeceAdditionalInfo
        ?georgiaAdditionalInfo ?estoniaAdditionalInfo ?egyptAdditionalInfo
        ?canadaAdditionalInfo ?brazilAdditionalInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vietnamAdditionalInfo =
        field_map json__ "vietnamAdditionalInfo"
          VietnamAdditionalInfo.of_json in
      let uzbekistanAdditionalInfo =
        field_map json__ "uzbekistanAdditionalInfo"
          UzbekistanAdditionalInfo.of_json in
      let ukraineAdditionalInfo =
        field_map json__ "ukraineAdditionalInfo"
          UkraineAdditionalInfo.of_json in
      let turkeyAdditionalInfo =
        field_map json__ "turkeyAdditionalInfo" TurkeyAdditionalInfo.of_json in
      let spainAdditionalInfo =
        field_map json__ "spainAdditionalInfo" SpainAdditionalInfo.of_json in
      let southKoreaAdditionalInfo =
        field_map json__ "southKoreaAdditionalInfo"
          SouthKoreaAdditionalInfo.of_json in
      let saudiArabiaAdditionalInfo =
        field_map json__ "saudiArabiaAdditionalInfo"
          SaudiArabiaAdditionalInfo.of_json in
      let romaniaAdditionalInfo =
        field_map json__ "romaniaAdditionalInfo"
          RomaniaAdditionalInfo.of_json in
      let polandAdditionalInfo =
        field_map json__ "polandAdditionalInfo" PolandAdditionalInfo.of_json in
      let malaysiaAdditionalInfo =
        field_map json__ "malaysiaAdditionalInfo"
          MalaysiaAdditionalInfo.of_json in
      let kenyaAdditionalInfo =
        field_map json__ "kenyaAdditionalInfo" KenyaAdditionalInfo.of_json in
      let italyAdditionalInfo =
        field_map json__ "italyAdditionalInfo" ItalyAdditionalInfo.of_json in
      let israelAdditionalInfo =
        field_map json__ "israelAdditionalInfo" IsraelAdditionalInfo.of_json in
      let indonesiaAdditionalInfo =
        field_map json__ "indonesiaAdditionalInfo"
          IndonesiaAdditionalInfo.of_json in
      let indiaAdditionalInfo =
        field_map json__ "indiaAdditionalInfo" IndiaAdditionalInfo.of_json in
      let greeceAdditionalInfo =
        field_map json__ "greeceAdditionalInfo" GreeceAdditionalInfo.of_json in
      let georgiaAdditionalInfo =
        field_map json__ "georgiaAdditionalInfo"
          GeorgiaAdditionalInfo.of_json in
      let estoniaAdditionalInfo =
        field_map json__ "estoniaAdditionalInfo"
          EstoniaAdditionalInfo.of_json in
      let egyptAdditionalInfo =
        field_map json__ "egyptAdditionalInfo" EgyptAdditionalInfo.of_json in
      let canadaAdditionalInfo =
        field_map json__ "canadaAdditionalInfo" CanadaAdditionalInfo.of_json in
      let brazilAdditionalInfo =
        field_map json__ "brazilAdditionalInfo" BrazilAdditionalInfo.of_json in
      make ?vietnamAdditionalInfo ?uzbekistanAdditionalInfo
        ?ukraineAdditionalInfo ?turkeyAdditionalInfo ?spainAdditionalInfo
        ?southKoreaAdditionalInfo ?saudiArabiaAdditionalInfo
        ?romaniaAdditionalInfo ?polandAdditionalInfo ?malaysiaAdditionalInfo
        ?kenyaAdditionalInfo ?italyAdditionalInfo ?israelAdditionalInfo
        ?indonesiaAdditionalInfo ?indiaAdditionalInfo ?greeceAdditionalInfo
        ?georgiaAdditionalInfo ?estoniaAdditionalInfo ?egyptAdditionalInfo
        ?canadaAdditionalInfo ?brazilAdditionalInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your TRN. The Tax Settings API returns country-specific information in the response when any additional information is present with your TRN for the following countries."]
module CertifiedEmailId =
  struct
    type nonrec t = string
    let context_ = "CertifiedEmailId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\\.[A-Za-z]{2,20}$");
        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:"CertifiedEmailId" j
    let to_json = simple_to_json to_value
  end
module LegalName =
  struct
    type nonrec t = string
    let context_ = "LegalName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LegalName" j
    let to_json = simple_to_json to_value
  end
module RegistrationId =
  struct
    type nonrec t = string
    let context_ = "RegistrationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^(?!\\s*$)[\\s\\S]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegistrationId" j
    let to_json = simple_to_json to_value
  end
module Sector =
  struct
    type nonrec t =
      | Business 
      | Individual 
      | Government 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Business -> "Business"
      | Individual -> "Individual"
      | Government -> "Government"
      | Non_static_id s -> s
    let of_string =
      function
      | "Business" -> Business
      | "Individual" -> Individual
      | "Government" -> Government
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Sector" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Sector" j)
    let to_json = simple_to_json to_value
  end
module TaxDocumentMetadatas =
  struct
    type nonrec t = TaxDocumentMetadata.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:TaxDocumentMetadata.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:TaxDocumentMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"TaxDocumentMetadatas"
        ~of_json:TaxDocumentMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaxRegistrationStatus =
  struct
    type nonrec t =
      | Verified 
      | Pending 
      | Deleted 
      | Rejected 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Verified -> "Verified"
      | Pending -> "Pending"
      | Deleted -> "Deleted"
      | Rejected -> "Rejected"
      | Non_static_id s -> s
    let of_string =
      function
      | "Verified" -> Verified
      | "Pending" -> Pending
      | "Deleted" -> Deleted
      | "Rejected" -> Rejected
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TaxRegistrationStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TaxRegistrationStatus" j)
    let to_json = simple_to_json to_value
  end
module TaxRegistrationType =
  struct
    type nonrec t =
      | VAT 
      | GST 
      | CPF 
      | CNPJ 
      | SST 
      | TIN 
      | NRIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VAT -> "VAT"
      | GST -> "GST"
      | CPF -> "CPF"
      | CNPJ -> "CNPJ"
      | SST -> "SST"
      | TIN -> "TIN"
      | NRIC -> "NRIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "VAT" -> VAT
      | "GST" -> GST
      | "CPF" -> CPF
      | "CNPJ" -> CNPJ
      | "SST" -> SST
      | "TIN" -> TIN
      | "NRIC" -> NRIC
      | 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 TaxRegistrationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TaxRegistrationType" j)
    let to_json = simple_to_json to_value
  end
module TaxExemption =
  struct
    type nonrec t =
      {
      authority: Authority.t option
        [@ocaml.doc "The address domain associate with tax exemption."];
      effectiveDate: Timestamp.t option
        [@ocaml.doc "The tax exemption effective date."];
      expirationDate: Timestamp.t option
        [@ocaml.doc "The tax exemption expiration date."];
      status: EntityExemptionAccountStatus.t option
        [@ocaml.doc "The tax exemption status."];
      systemEffectiveDate: Timestamp.t option
        [@ocaml.doc
          "The tax exemption recording time in the TaxSettings system."];
      taxExemptionType: TaxExemptionType.t option
        [@ocaml.doc "The tax exemption type."]}
    let make ?authority =
      fun ?effectiveDate ->
        fun ?expirationDate ->
          fun ?status ->
            fun ?systemEffectiveDate ->
              fun ?taxExemptionType ->
                fun () ->
                  {
                    authority;
                    effectiveDate;
                    expirationDate;
                    status;
                    systemEffectiveDate;
                    taxExemptionType
                  }
    let to_value x =
      structure_to_value
        [("authority", (Option.map x.authority ~f:Authority.to_value));
        ("effectiveDate", (Option.map x.effectiveDate ~f:Timestamp.to_value));
        ("expirationDate",
          (Option.map x.expirationDate ~f:Timestamp.to_value));
        ("status",
          (Option.map x.status ~f:EntityExemptionAccountStatus.to_value));
        ("systemEffectiveDate",
          (Option.map x.systemEffectiveDate ~f:Timestamp.to_value));
        ("taxExemptionType",
          (Option.map x.taxExemptionType ~f:TaxExemptionType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxExemptionType =
        (Option.map ~f:TaxExemptionType.of_xml)
          (Xml.child xml_arg0 "taxExemptionType") in
      let systemEffectiveDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "systemEffectiveDate") in
      let status =
        (Option.map ~f:EntityExemptionAccountStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let expirationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "expirationDate") in
      let effectiveDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "effectiveDate") in
      let authority =
        (Option.map ~f:Authority.of_xml) (Xml.child xml_arg0 "authority") in
      make ?taxExemptionType ?systemEffectiveDate ?status ?expirationDate
        ?effectiveDate ?authority ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxExemptionType =
        field_map json__ "taxExemptionType" TaxExemptionType.of_json in
      let systemEffectiveDate =
        field_map json__ "systemEffectiveDate" Timestamp.of_json in
      let status =
        field_map json__ "status" EntityExemptionAccountStatus.of_json in
      let expirationDate =
        field_map json__ "expirationDate" Timestamp.of_json in
      let effectiveDate = field_map json__ "effectiveDate" Timestamp.of_json in
      let authority = field_map json__ "authority" Authority.of_json in
      make ?taxExemptionType ?systemEffectiveDate ?status ?expirationDate
        ?effectiveDate ?authority ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tax exemption."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: FieldName.t option
        [@ocaml.doc
          "The name of the parameter that caused a ValidationException error."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:FieldName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:FieldName.of_xml) (Xml.child xml_arg0 "name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" FieldName.of_json in make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information about the specified parameter in the request that caused an error."]
module DateOfBirth =
  struct
    type nonrec t = string
    let context_ = "DateOfBirth"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(\\d{4}-(0[0-9]|1[0-2])-([0-2][0-9]|3[0-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:"DateOfBirth" j
    let to_json = simple_to_json to_value
  end
module TaxRegistrationDocuments =
  struct
    type nonrec t = TaxRegistrationDocument.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:TaxRegistrationDocument.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:TaxRegistrationDocument.of_xml)
    let of_json j =
      list_of_json ~kind:"TaxRegistrationDocuments"
        ~of_json:TaxRegistrationDocument.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountMetaData =
  struct
    type nonrec t =
      {
      accountName: AccountName.t option
        [@ocaml.doc "The Amazon Web Services accounts name."];
      address: Address.t option ;
      addressRoleMap: AddressRoleMap.t option
        [@ocaml.doc
          "Address roles associated with the account containing country code information."];
      addressType: AddressRoleType.t option
        [@ocaml.doc "The type of address associated with the legal profile."];
      seller: Seller.t option
        [@ocaml.doc "Seller information associated with the account."]}
    let make ?accountName =
      fun ?address ->
        fun ?addressRoleMap ->
          fun ?addressType ->
            fun ?seller ->
              fun () ->
                { accountName; address; addressRoleMap; addressType; seller }
    let to_value x =
      structure_to_value
        [("accountName", (Option.map x.accountName ~f:AccountName.to_value));
        ("address", (Option.map x.address ~f:Address.to_value));
        ("addressRoleMap",
          (Option.map x.addressRoleMap ~f:AddressRoleMap.to_value));
        ("addressType",
          (Option.map x.addressType ~f:AddressRoleType.to_value));
        ("seller", (Option.map x.seller ~f:Seller.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let seller =
        (Option.map ~f:Seller.of_xml) (Xml.child xml_arg0 "seller") in
      let addressType =
        (Option.map ~f:AddressRoleType.of_xml)
          (Xml.child xml_arg0 "addressType") in
      let addressRoleMap =
        (Option.map ~f:AddressRoleMap.of_xml)
          (Xml.child xml_arg0 "addressRoleMap") in
      let address =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "address") in
      let accountName =
        (Option.map ~f:AccountName.of_xml) (Xml.child xml_arg0 "accountName") in
      make ?seller ?addressType ?addressRoleMap ?address ?accountName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let seller = field_map json__ "seller" Seller.of_json in
      let addressType =
        field_map json__ "addressType" AddressRoleType.of_json in
      let addressRoleMap =
        field_map json__ "addressRoleMap" AddressRoleMap.of_json in
      let address = field_map json__ "address" Address.of_json in
      let accountName = field_map json__ "accountName" AccountName.of_json in
      make ?seller ?addressType ?addressRoleMap ?address ?accountName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The meta data information associated with the account."]
module TaxInheritanceDetails =
  struct
    type nonrec t =
      {
      inheritanceObtainedReason: InheritanceObtainedReason.t option
        [@ocaml.doc
          "Tax inheritance reason information associated with the account."];
      parentEntityId: AccountId.t option
        [@ocaml.doc
          "Tax inheritance parent account information associated with the account."]}
    let make ?inheritanceObtainedReason =
      fun ?parentEntityId ->
        fun () -> { inheritanceObtainedReason; parentEntityId }
    let to_value x =
      structure_to_value
        [("inheritanceObtainedReason",
           (Option.map x.inheritanceObtainedReason
              ~f:InheritanceObtainedReason.to_value));
        ("parentEntityId",
          (Option.map x.parentEntityId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentEntityId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "parentEntityId") in
      let inheritanceObtainedReason =
        (Option.map ~f:InheritanceObtainedReason.of_xml)
          (Xml.child xml_arg0 "inheritanceObtainedReason") in
      make ?parentEntityId ?inheritanceObtainedReason ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentEntityId =
        field_map json__ "parentEntityId" AccountId.of_json in
      let inheritanceObtainedReason =
        field_map json__ "inheritanceObtainedReason"
          InheritanceObtainedReason.of_json in
      make ?parentEntityId ?inheritanceObtainedReason ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tax inheritance information associated with the account."]
module TaxRegistrationWithJurisdiction =
  struct
    type nonrec t =
      {
      additionalTaxInformation: AdditionalInfoResponse.t option
        [@ocaml.doc "Additional tax information associated with your TRN."];
      certifiedEmailId: CertifiedEmailId.t option
        [@ocaml.doc "The email address to receive VAT invoices."];
      jurisdiction: Jurisdiction.t option
        [@ocaml.doc "The jurisdiction associated with your TRN information."];
      legalName: LegalName.t option
        [@ocaml.doc "The legal name associated with your TRN information."];
      registrationId: RegistrationId.t option
        [@ocaml.doc "Your tax registration unique identifier."];
      registrationType: TaxRegistrationType.t option
        [@ocaml.doc
          "The type of your tax registration. This can be either VAT or GST."];
      sector: Sector.t option
        [@ocaml.doc
          "The industry that describes your business. For business-to-business (B2B) customers, specify Business. For business-to-consumer (B2C) customers, specify Individual. For business-to-government (B2G), specify Government.Note that certain values may not applicable for the request country. Please refer to country specific information in API document."];
      status: TaxRegistrationStatus.t option
        [@ocaml.doc
          "The status of your TRN. This can be either Verified, Pending, Deleted, or Rejected."];
      taxDocumentMetadatas: TaxDocumentMetadatas.t option
        [@ocaml.doc "The metadata for your tax document."]}
    let make ?additionalTaxInformation =
      fun ?certifiedEmailId ->
        fun ?jurisdiction ->
          fun ?legalName ->
            fun ?registrationId ->
              fun ?registrationType ->
                fun ?sector ->
                  fun ?status ->
                    fun ?taxDocumentMetadatas ->
                      fun () ->
                        {
                          additionalTaxInformation;
                          certifiedEmailId;
                          jurisdiction;
                          legalName;
                          registrationId;
                          registrationType;
                          sector;
                          status;
                          taxDocumentMetadatas
                        }
    let to_value x =
      structure_to_value
        [("additionalTaxInformation",
           (Option.map x.additionalTaxInformation
              ~f:AdditionalInfoResponse.to_value));
        ("certifiedEmailId",
          (Option.map x.certifiedEmailId ~f:CertifiedEmailId.to_value));
        ("jurisdiction",
          (Option.map x.jurisdiction ~f:Jurisdiction.to_value));
        ("legalName", (Option.map x.legalName ~f:LegalName.to_value));
        ("registrationId",
          (Option.map x.registrationId ~f:RegistrationId.to_value));
        ("registrationType",
          (Option.map x.registrationType ~f:TaxRegistrationType.to_value));
        ("sector", (Option.map x.sector ~f:Sector.to_value));
        ("status", (Option.map x.status ~f:TaxRegistrationStatus.to_value));
        ("taxDocumentMetadatas",
          (Option.map x.taxDocumentMetadatas ~f:TaxDocumentMetadatas.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxDocumentMetadatas =
        (Option.map ~f:TaxDocumentMetadatas.of_xml)
          (Xml.child xml_arg0 "taxDocumentMetadatas") in
      let status =
        (Option.map ~f:TaxRegistrationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let sector =
        (Option.map ~f:Sector.of_xml) (Xml.child xml_arg0 "sector") in
      let registrationType =
        (Option.map ~f:TaxRegistrationType.of_xml)
          (Xml.child xml_arg0 "registrationType") in
      let registrationId =
        (Option.map ~f:RegistrationId.of_xml)
          (Xml.child xml_arg0 "registrationId") in
      let legalName =
        (Option.map ~f:LegalName.of_xml) (Xml.child xml_arg0 "legalName") in
      let jurisdiction =
        (Option.map ~f:Jurisdiction.of_xml)
          (Xml.child xml_arg0 "jurisdiction") in
      let certifiedEmailId =
        (Option.map ~f:CertifiedEmailId.of_xml)
          (Xml.child xml_arg0 "certifiedEmailId") in
      let additionalTaxInformation =
        (Option.map ~f:AdditionalInfoResponse.of_xml)
          (Xml.child xml_arg0 "additionalTaxInformation") in
      make ?taxDocumentMetadatas ?status ?sector ?registrationType
        ?registrationId ?legalName ?jurisdiction ?certifiedEmailId
        ?additionalTaxInformation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxDocumentMetadatas =
        field_map json__ "taxDocumentMetadatas" TaxDocumentMetadatas.of_json in
      let status = field_map json__ "status" TaxRegistrationStatus.of_json in
      let sector = field_map json__ "sector" Sector.of_json in
      let registrationType =
        field_map json__ "registrationType" TaxRegistrationType.of_json in
      let registrationId =
        field_map json__ "registrationId" RegistrationId.of_json in
      let legalName = field_map json__ "legalName" LegalName.of_json in
      let jurisdiction = field_map json__ "jurisdiction" Jurisdiction.of_json in
      let certifiedEmailId =
        field_map json__ "certifiedEmailId" CertifiedEmailId.of_json in
      let additionalTaxInformation =
        field_map json__ "additionalTaxInformation"
          AdditionalInfoResponse.of_json in
      make ?taxDocumentMetadatas ?status ?sector ?registrationType
        ?registrationId ?legalName ?jurisdiction ?certifiedEmailId
        ?additionalTaxInformation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your TRN information with jurisdiction details. This doesn't contain the full legal address associated with the TRN information."]
module TaxExemptions =
  struct
    type nonrec t = TaxExemption.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:TaxExemption.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:TaxExemption.of_xml)
    let of_json j =
      list_of_json ~kind:"TaxExemptions" ~of_json:TaxExemption.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupplementalTaxRegistrationType =
  struct
    type nonrec t =
      | VAT 
      | Non_static_id of string 
    let make i = i
    let to_string = function | VAT -> "VAT" | Non_static_id s -> s
    let of_string = function | "VAT" -> VAT | 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 SupplementalTaxRegistrationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SupplementalTaxRegistrationType" j)
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionErrorCode =
  struct
    type nonrec t =
      | MalformedToken 
      | ExpiredToken 
      | InvalidToken 
      | FieldValidationFailed 
      | MissingInput 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MalformedToken -> "MalformedToken"
      | ExpiredToken -> "ExpiredToken"
      | InvalidToken -> "InvalidToken"
      | FieldValidationFailed -> "FieldValidationFailed"
      | MissingInput -> "MissingInput"
      | Non_static_id s -> s
    let of_string =
      function
      | "MalformedToken" -> MalformedToken
      | "ExpiredToken" -> ExpiredToken
      | "InvalidToken" -> InvalidToken
      | "FieldValidationFailed" -> FieldValidationFailed
      | "MissingInput" -> MissingInput
      | 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 ValidationExceptionErrorCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionErrorCode" 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 AdditionalInfoRequest =
  struct
    type nonrec t =
      {
      canadaAdditionalInfo: CanadaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Canada."];
      egyptAdditionalInfo: EgyptAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Egypt."];
      estoniaAdditionalInfo: EstoniaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Estonia."];
      georgiaAdditionalInfo: GeorgiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Georgia."];
      greeceAdditionalInfo: GreeceAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Greece."];
      indonesiaAdditionalInfo: IndonesiaAdditionalInfo.t option ;
      israelAdditionalInfo: IsraelAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Israel."];
      italyAdditionalInfo: ItalyAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Italy."];
      kenyaAdditionalInfo: KenyaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Kenya."];
      malaysiaAdditionalInfo: MalaysiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Malaysia."];
      polandAdditionalInfo: PolandAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Poland."];
      romaniaAdditionalInfo: RomaniaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Romania."];
      saudiArabiaAdditionalInfo: SaudiArabiaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Saudi Arabia."];
      southKoreaAdditionalInfo: SouthKoreaAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in South Korea."];
      spainAdditionalInfo: SpainAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Spain."];
      turkeyAdditionalInfo: TurkeyAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Turkey."];
      ukraineAdditionalInfo: UkraineAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN in Ukraine."];
      uzbekistanAdditionalInfo: UzbekistanAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Uzbekistan."];
      vietnamAdditionalInfo: VietnamAdditionalInfo.t option
        [@ocaml.doc
          "Additional tax information to specify for a TRN in Vietnam."]}
    let make ?canadaAdditionalInfo =
      fun ?egyptAdditionalInfo ->
        fun ?estoniaAdditionalInfo ->
          fun ?georgiaAdditionalInfo ->
            fun ?greeceAdditionalInfo ->
              fun ?indonesiaAdditionalInfo ->
                fun ?israelAdditionalInfo ->
                  fun ?italyAdditionalInfo ->
                    fun ?kenyaAdditionalInfo ->
                      fun ?malaysiaAdditionalInfo ->
                        fun ?polandAdditionalInfo ->
                          fun ?romaniaAdditionalInfo ->
                            fun ?saudiArabiaAdditionalInfo ->
                              fun ?southKoreaAdditionalInfo ->
                                fun ?spainAdditionalInfo ->
                                  fun ?turkeyAdditionalInfo ->
                                    fun ?ukraineAdditionalInfo ->
                                      fun ?uzbekistanAdditionalInfo ->
                                        fun ?vietnamAdditionalInfo ->
                                          fun () ->
                                            {
                                              canadaAdditionalInfo;
                                              egyptAdditionalInfo;
                                              estoniaAdditionalInfo;
                                              georgiaAdditionalInfo;
                                              greeceAdditionalInfo;
                                              indonesiaAdditionalInfo;
                                              israelAdditionalInfo;
                                              italyAdditionalInfo;
                                              kenyaAdditionalInfo;
                                              malaysiaAdditionalInfo;
                                              polandAdditionalInfo;
                                              romaniaAdditionalInfo;
                                              saudiArabiaAdditionalInfo;
                                              southKoreaAdditionalInfo;
                                              spainAdditionalInfo;
                                              turkeyAdditionalInfo;
                                              ukraineAdditionalInfo;
                                              uzbekistanAdditionalInfo;
                                              vietnamAdditionalInfo
                                            }
    let to_value x =
      structure_to_value
        [("canadaAdditionalInfo",
           (Option.map x.canadaAdditionalInfo
              ~f:CanadaAdditionalInfo.to_value));
        ("egyptAdditionalInfo",
          (Option.map x.egyptAdditionalInfo ~f:EgyptAdditionalInfo.to_value));
        ("estoniaAdditionalInfo",
          (Option.map x.estoniaAdditionalInfo
             ~f:EstoniaAdditionalInfo.to_value));
        ("georgiaAdditionalInfo",
          (Option.map x.georgiaAdditionalInfo
             ~f:GeorgiaAdditionalInfo.to_value));
        ("greeceAdditionalInfo",
          (Option.map x.greeceAdditionalInfo ~f:GreeceAdditionalInfo.to_value));
        ("indonesiaAdditionalInfo",
          (Option.map x.indonesiaAdditionalInfo
             ~f:IndonesiaAdditionalInfo.to_value));
        ("israelAdditionalInfo",
          (Option.map x.israelAdditionalInfo ~f:IsraelAdditionalInfo.to_value));
        ("italyAdditionalInfo",
          (Option.map x.italyAdditionalInfo ~f:ItalyAdditionalInfo.to_value));
        ("kenyaAdditionalInfo",
          (Option.map x.kenyaAdditionalInfo ~f:KenyaAdditionalInfo.to_value));
        ("malaysiaAdditionalInfo",
          (Option.map x.malaysiaAdditionalInfo
             ~f:MalaysiaAdditionalInfo.to_value));
        ("polandAdditionalInfo",
          (Option.map x.polandAdditionalInfo ~f:PolandAdditionalInfo.to_value));
        ("romaniaAdditionalInfo",
          (Option.map x.romaniaAdditionalInfo
             ~f:RomaniaAdditionalInfo.to_value));
        ("saudiArabiaAdditionalInfo",
          (Option.map x.saudiArabiaAdditionalInfo
             ~f:SaudiArabiaAdditionalInfo.to_value));
        ("southKoreaAdditionalInfo",
          (Option.map x.southKoreaAdditionalInfo
             ~f:SouthKoreaAdditionalInfo.to_value));
        ("spainAdditionalInfo",
          (Option.map x.spainAdditionalInfo ~f:SpainAdditionalInfo.to_value));
        ("turkeyAdditionalInfo",
          (Option.map x.turkeyAdditionalInfo ~f:TurkeyAdditionalInfo.to_value));
        ("ukraineAdditionalInfo",
          (Option.map x.ukraineAdditionalInfo
             ~f:UkraineAdditionalInfo.to_value));
        ("uzbekistanAdditionalInfo",
          (Option.map x.uzbekistanAdditionalInfo
             ~f:UzbekistanAdditionalInfo.to_value));
        ("vietnamAdditionalInfo",
          (Option.map x.vietnamAdditionalInfo
             ~f:VietnamAdditionalInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vietnamAdditionalInfo =
        (Option.map ~f:VietnamAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "vietnamAdditionalInfo") in
      let uzbekistanAdditionalInfo =
        (Option.map ~f:UzbekistanAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "uzbekistanAdditionalInfo") in
      let ukraineAdditionalInfo =
        (Option.map ~f:UkraineAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "ukraineAdditionalInfo") in
      let turkeyAdditionalInfo =
        (Option.map ~f:TurkeyAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "turkeyAdditionalInfo") in
      let spainAdditionalInfo =
        (Option.map ~f:SpainAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "spainAdditionalInfo") in
      let southKoreaAdditionalInfo =
        (Option.map ~f:SouthKoreaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "southKoreaAdditionalInfo") in
      let saudiArabiaAdditionalInfo =
        (Option.map ~f:SaudiArabiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "saudiArabiaAdditionalInfo") in
      let romaniaAdditionalInfo =
        (Option.map ~f:RomaniaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "romaniaAdditionalInfo") in
      let polandAdditionalInfo =
        (Option.map ~f:PolandAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "polandAdditionalInfo") in
      let malaysiaAdditionalInfo =
        (Option.map ~f:MalaysiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "malaysiaAdditionalInfo") in
      let kenyaAdditionalInfo =
        (Option.map ~f:KenyaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "kenyaAdditionalInfo") in
      let italyAdditionalInfo =
        (Option.map ~f:ItalyAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "italyAdditionalInfo") in
      let israelAdditionalInfo =
        (Option.map ~f:IsraelAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "israelAdditionalInfo") in
      let indonesiaAdditionalInfo =
        (Option.map ~f:IndonesiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "indonesiaAdditionalInfo") in
      let greeceAdditionalInfo =
        (Option.map ~f:GreeceAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "greeceAdditionalInfo") in
      let georgiaAdditionalInfo =
        (Option.map ~f:GeorgiaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "georgiaAdditionalInfo") in
      let estoniaAdditionalInfo =
        (Option.map ~f:EstoniaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "estoniaAdditionalInfo") in
      let egyptAdditionalInfo =
        (Option.map ~f:EgyptAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "egyptAdditionalInfo") in
      let canadaAdditionalInfo =
        (Option.map ~f:CanadaAdditionalInfo.of_xml)
          (Xml.child xml_arg0 "canadaAdditionalInfo") in
      make ?vietnamAdditionalInfo ?uzbekistanAdditionalInfo
        ?ukraineAdditionalInfo ?turkeyAdditionalInfo ?spainAdditionalInfo
        ?southKoreaAdditionalInfo ?saudiArabiaAdditionalInfo
        ?romaniaAdditionalInfo ?polandAdditionalInfo ?malaysiaAdditionalInfo
        ?kenyaAdditionalInfo ?italyAdditionalInfo ?israelAdditionalInfo
        ?indonesiaAdditionalInfo ?greeceAdditionalInfo ?georgiaAdditionalInfo
        ?estoniaAdditionalInfo ?egyptAdditionalInfo ?canadaAdditionalInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vietnamAdditionalInfo =
        field_map json__ "vietnamAdditionalInfo"
          VietnamAdditionalInfo.of_json in
      let uzbekistanAdditionalInfo =
        field_map json__ "uzbekistanAdditionalInfo"
          UzbekistanAdditionalInfo.of_json in
      let ukraineAdditionalInfo =
        field_map json__ "ukraineAdditionalInfo"
          UkraineAdditionalInfo.of_json in
      let turkeyAdditionalInfo =
        field_map json__ "turkeyAdditionalInfo" TurkeyAdditionalInfo.of_json in
      let spainAdditionalInfo =
        field_map json__ "spainAdditionalInfo" SpainAdditionalInfo.of_json in
      let southKoreaAdditionalInfo =
        field_map json__ "southKoreaAdditionalInfo"
          SouthKoreaAdditionalInfo.of_json in
      let saudiArabiaAdditionalInfo =
        field_map json__ "saudiArabiaAdditionalInfo"
          SaudiArabiaAdditionalInfo.of_json in
      let romaniaAdditionalInfo =
        field_map json__ "romaniaAdditionalInfo"
          RomaniaAdditionalInfo.of_json in
      let polandAdditionalInfo =
        field_map json__ "polandAdditionalInfo" PolandAdditionalInfo.of_json in
      let malaysiaAdditionalInfo =
        field_map json__ "malaysiaAdditionalInfo"
          MalaysiaAdditionalInfo.of_json in
      let kenyaAdditionalInfo =
        field_map json__ "kenyaAdditionalInfo" KenyaAdditionalInfo.of_json in
      let italyAdditionalInfo =
        field_map json__ "italyAdditionalInfo" ItalyAdditionalInfo.of_json in
      let israelAdditionalInfo =
        field_map json__ "israelAdditionalInfo" IsraelAdditionalInfo.of_json in
      let indonesiaAdditionalInfo =
        field_map json__ "indonesiaAdditionalInfo"
          IndonesiaAdditionalInfo.of_json in
      let greeceAdditionalInfo =
        field_map json__ "greeceAdditionalInfo" GreeceAdditionalInfo.of_json in
      let georgiaAdditionalInfo =
        field_map json__ "georgiaAdditionalInfo"
          GeorgiaAdditionalInfo.of_json in
      let estoniaAdditionalInfo =
        field_map json__ "estoniaAdditionalInfo"
          EstoniaAdditionalInfo.of_json in
      let egyptAdditionalInfo =
        field_map json__ "egyptAdditionalInfo" EgyptAdditionalInfo.of_json in
      let canadaAdditionalInfo =
        field_map json__ "canadaAdditionalInfo" CanadaAdditionalInfo.of_json in
      make ?vietnamAdditionalInfo ?uzbekistanAdditionalInfo
        ?ukraineAdditionalInfo ?turkeyAdditionalInfo ?spainAdditionalInfo
        ?southKoreaAdditionalInfo ?saudiArabiaAdditionalInfo
        ?romaniaAdditionalInfo ?polandAdditionalInfo ?malaysiaAdditionalInfo
        ?kenyaAdditionalInfo ?italyAdditionalInfo ?israelAdditionalInfo
        ?indonesiaAdditionalInfo ?greeceAdditionalInfo ?georgiaAdditionalInfo
        ?estoniaAdditionalInfo ?egyptAdditionalInfo ?canadaAdditionalInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional tax information associated with your tax registration number (TRN). Depending on the TRN for a specific country, you might need to specify this information when you set your TRN. You can only specify one of the following parameters and the value can't be empty. The parameter that you specify must match the country for the TRN, if available. For example, if you set a TRN in Canada for specific provinces, you must also specify the canadaAdditionalInfo parameter."]
module VerificationDetails =
  struct
    type nonrec t =
      {
      dateOfBirth: DateOfBirth.t option
        [@ocaml.doc
          "Date of birth to verify your submitted TRN. Use the YYYY-MM-DD format."];
      taxRegistrationDocuments: TaxRegistrationDocuments.t option
        [@ocaml.doc
          "The tax registration document, which is required for specific countries such as Bangladesh, Kenya, South Korea and Spain."]}
    let make ?dateOfBirth =
      fun ?taxRegistrationDocuments ->
        fun () -> { dateOfBirth; taxRegistrationDocuments }
    let to_value x =
      structure_to_value
        [("dateOfBirth", (Option.map x.dateOfBirth ~f:DateOfBirth.to_value));
        ("taxRegistrationDocuments",
          (Option.map x.taxRegistrationDocuments
             ~f:TaxRegistrationDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationDocuments =
        (Option.map ~f:TaxRegistrationDocuments.of_xml)
          (Xml.child xml_arg0 "taxRegistrationDocuments") in
      let dateOfBirth =
        (Option.map ~f:DateOfBirth.of_xml) (Xml.child xml_arg0 "dateOfBirth") in
      make ?taxRegistrationDocuments ?dateOfBirth ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationDocuments =
        field_map json__ "taxRegistrationDocuments"
          TaxRegistrationDocuments.of_json in
      let dateOfBirth = field_map json__ "dateOfBirth" DateOfBirth.of_json in
      make ?taxRegistrationDocuments ?dateOfBirth ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Required information to verify your TRN."]
module ExemptionDocumentName =
  struct
    type nonrec t = string
    let context_ = "ExemptionDocumentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([A-Za-z0-9-_.]+).(pdf|jpg|png)$")));
        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:"ExemptionDocumentName" j
    let to_json = simple_to_json to_value
  end
module ExemptionFileBlob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module AccountDetails =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "List of unique account identifiers."];
      accountMetaData: AccountMetaData.t option
        [@ocaml.doc "The meta data information associated with the account."];
      taxInheritanceDetails: TaxInheritanceDetails.t option
        [@ocaml.doc
          "Tax inheritance information associated with the account."];
      taxRegistration: TaxRegistrationWithJurisdiction.t option
        [@ocaml.doc
          "Your TRN information. Instead of having full legal address, here TRN information will have jurisdiction details (for example, country code and state/region/province if applicable)."]}
    let make ?accountId =
      fun ?accountMetaData ->
        fun ?taxInheritanceDetails ->
          fun ?taxRegistration ->
            fun () ->
              {
                accountId;
                accountMetaData;
                taxInheritanceDetails;
                taxRegistration
              }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("accountMetaData",
          (Option.map x.accountMetaData ~f:AccountMetaData.to_value));
        ("taxInheritanceDetails",
          (Option.map x.taxInheritanceDetails
             ~f:TaxInheritanceDetails.to_value));
        ("taxRegistration",
          (Option.map x.taxRegistration
             ~f:TaxRegistrationWithJurisdiction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistration =
        (Option.map ~f:TaxRegistrationWithJurisdiction.of_xml)
          (Xml.child xml_arg0 "taxRegistration") in
      let taxInheritanceDetails =
        (Option.map ~f:TaxInheritanceDetails.of_xml)
          (Xml.child xml_arg0 "taxInheritanceDetails") in
      let accountMetaData =
        (Option.map ~f:AccountMetaData.of_xml)
          (Xml.child xml_arg0 "accountMetaData") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?taxRegistration ?taxInheritanceDetails ?accountMetaData
        ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistration =
        field_map json__ "taxRegistration"
          TaxRegistrationWithJurisdiction.of_json in
      let taxInheritanceDetails =
        field_map json__ "taxInheritanceDetails"
          TaxInheritanceDetails.of_json in
      let accountMetaData =
        field_map json__ "accountMetaData" AccountMetaData.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?taxRegistration ?taxInheritanceDetails ?accountMetaData
        ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object with your accountId and TRN information."]
module TaxExemptionDetails =
  struct
    type nonrec t =
      {
      heritageObtainedDetails: Boolean.t option
        [@ocaml.doc
          "The indicator if the tax exemption is inherited from the consolidated billing family management account."];
      heritageObtainedParentEntity: GenericString.t option
        [@ocaml.doc
          "The consolidated billing family management account the tax exemption inherited from."];
      heritageObtainedReason: GenericString.t option
        [@ocaml.doc "The reason of the heritage inheritance."];
      taxExemptions: TaxExemptions.t option [@ocaml.doc "Tax exemptions."]}
    let make ?heritageObtainedDetails =
      fun ?heritageObtainedParentEntity ->
        fun ?heritageObtainedReason ->
          fun ?taxExemptions ->
            fun () ->
              {
                heritageObtainedDetails;
                heritageObtainedParentEntity;
                heritageObtainedReason;
                taxExemptions
              }
    let to_value x =
      structure_to_value
        [("heritageObtainedDetails",
           (Option.map x.heritageObtainedDetails ~f:Boolean.to_value));
        ("heritageObtainedParentEntity",
          (Option.map x.heritageObtainedParentEntity
             ~f:GenericString.to_value));
        ("heritageObtainedReason",
          (Option.map x.heritageObtainedReason ~f:GenericString.to_value));
        ("taxExemptions",
          (Option.map x.taxExemptions ~f:TaxExemptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxExemptions =
        (Option.map ~f:TaxExemptions.of_xml)
          (Xml.child xml_arg0 "taxExemptions") in
      let heritageObtainedReason =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "heritageObtainedReason") in
      let heritageObtainedParentEntity =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "heritageObtainedParentEntity") in
      let heritageObtainedDetails =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "heritageObtainedDetails") in
      make ?taxExemptions ?heritageObtainedReason
        ?heritageObtainedParentEntity ?heritageObtainedDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxExemptions =
        field_map json__ "taxExemptions" TaxExemptions.of_json in
      let heritageObtainedReason =
        field_map json__ "heritageObtainedReason" GenericString.of_json in
      let heritageObtainedParentEntity =
        field_map json__ "heritageObtainedParentEntity" GenericString.of_json in
      let heritageObtainedDetails =
        field_map json__ "heritageObtainedDetails" Boolean.of_json in
      make ?taxExemptions ?heritageObtainedReason
        ?heritageObtainedParentEntity ?heritageObtainedDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tax exemption details."]
module SupplementalTaxRegistration =
  struct
    type nonrec t =
      {
      address: Address.t option ;
      authorityId: GenericString.t option
        [@ocaml.doc "Unique authority ID for the supplemental TRN."];
      legalName: LegalName.t option
        [@ocaml.doc "The legal name associated with your TRN registration."];
      registrationId: RegistrationId.t option
        [@ocaml.doc "The supplemental TRN unique identifier."];
      registrationType: SupplementalTaxRegistrationType.t option
        [@ocaml.doc
          "Type of supplemental TRN. Currently, this can only be VAT."];
      status: TaxRegistrationStatus.t option
        [@ocaml.doc "The status of your TRN."]}
    let make ?address =
      fun ?authorityId ->
        fun ?legalName ->
          fun ?registrationId ->
            fun ?registrationType ->
              fun ?status ->
                fun () ->
                  {
                    address;
                    authorityId;
                    legalName;
                    registrationId;
                    registrationType;
                    status
                  }
    let to_value x =
      structure_to_value
        [("address", (Option.map x.address ~f:Address.to_value));
        ("authorityId", (Option.map x.authorityId ~f:GenericString.to_value));
        ("legalName", (Option.map x.legalName ~f:LegalName.to_value));
        ("registrationId",
          (Option.map x.registrationId ~f:RegistrationId.to_value));
        ("registrationType",
          (Option.map x.registrationType
             ~f:SupplementalTaxRegistrationType.to_value));
        ("status", (Option.map x.status ~f:TaxRegistrationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TaxRegistrationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let registrationType =
        (Option.map ~f:SupplementalTaxRegistrationType.of_xml)
          (Xml.child xml_arg0 "registrationType") in
      let registrationId =
        (Option.map ~f:RegistrationId.of_xml)
          (Xml.child xml_arg0 "registrationId") in
      let legalName =
        (Option.map ~f:LegalName.of_xml) (Xml.child xml_arg0 "legalName") in
      let authorityId =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "authorityId") in
      let address =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "address") in
      make ?status ?registrationType ?registrationId ?legalName ?authorityId
        ?address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TaxRegistrationStatus.of_json in
      let registrationType =
        field_map json__ "registrationType"
          SupplementalTaxRegistrationType.of_json in
      let registrationId =
        field_map json__ "registrationId" RegistrationId.of_json in
      let legalName = field_map json__ "legalName" LegalName.of_json in
      let authorityId = field_map json__ "authorityId" GenericString.of_json in
      let address = field_map json__ "address" Address.of_json in
      make ?status ?registrationType ?registrationId ?legalName ?authorityId
        ?address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Supplemental TRN details."]
module S3Prefix =
  struct
    type nonrec t = string
    let context_ = "S3Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (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:"S3Prefix" j
    let to_json = simple_to_json to_value
  end
module BatchPutTaxRegistrationError =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "The unique account identifier for the account that the tax registration couldn't be added, or updated during the BatchPutTaxRegistration operation."];
      code: ErrorCode.t option
        [@ocaml.doc
          "The error code for an individual failure in the BatchPutTaxRegistration operation."];
      message: ErrorMessage.t option
        [@ocaml.doc
          "The error message for an individual failure in the BatchPutTaxRegistration operation."]}
    let make ?accountId =
      fun ?code -> fun ?message -> fun () -> { accountId; code; message }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?message ?code ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let code = field_map json__ "code" ErrorCode.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?message ?code ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The error object for representing failures in the BatchPutTaxRegistration operation."]
module BatchDeleteTaxRegistrationError =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "The unique account identifier for the account whose tax registration couldn't be deleted during the BatchDeleteTaxRegistration operation."];
      code: ErrorCode.t option
        [@ocaml.doc
          "The error code for an individual failure in BatchDeleteTaxRegistration operation."];
      message: ErrorMessage.t option
        [@ocaml.doc
          "The error message for an individual failure in the BatchDeleteTaxRegistration operation."]}
    let make ?accountId =
      fun ?code -> fun ?message -> fun () -> { accountId; code; message }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?message ?code ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let code = field_map json__ "code" ErrorCode.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?message ?code ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The error object for representing failures in the BatchDeleteTaxRegistration operation."]
module ConflictException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option [@ocaml.doc "409"];
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The exception when the input is creating conflict with the given state."]
module InternalServerException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option [@ocaml.doc "500"];
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The exception thrown when an unexpected error occurs when processing a request."]
module ValidationException =
  struct
    type nonrec t =
      {
      errorCode: ValidationExceptionErrorCode.t option [@ocaml.doc "400"];
      fieldList: ValidationExceptionFieldList.t option [@ocaml.doc "400"];
      message: ErrorMessage.t option }
    let make ?errorCode =
      fun ?fieldList ->
        fun ?message -> fun () -> { errorCode; fieldList; message }
    let to_value x =
      structure_to_value
        [("errorCode",
           (Option.map x.errorCode ~f:ValidationExceptionErrorCode.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let errorCode =
        (Option.map ~f:ValidationExceptionErrorCode.of_xml)
          (Xml.child xml_arg0 "errorCode") in
      make ?message ?fieldList ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let errorCode =
        field_map json__ "errorCode" ValidationExceptionErrorCode.of_json in
      make ?message ?fieldList ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The exception when the input doesn't pass validation for at least one of the input parameters."]
module TaxRegistrationEntry =
  struct
    type nonrec t =
      {
      additionalTaxInformation: AdditionalInfoRequest.t option
        [@ocaml.doc
          "Additional tax information associated with your TRN. You only need to specify this parameter if Amazon Web Services collects any additional information for your country within AdditionalInfoRequest."];
      certifiedEmailId: CertifiedEmailId.t option
        [@ocaml.doc "The email address to receive VAT invoices."];
      legalAddress: Address.t option
        [@ocaml.doc
          "The legal address associated with your TRN. If you're setting a TRN in Brazil for the CNPJ tax type, you don't need to specify the legal address. For TRNs in other countries and for CPF tax types Brazil, you must specify the legal address."];
      legalName: LegalName.t option
        [@ocaml.doc
          "The legal name associated with your TRN. If you're setting a TRN in Brazil, you don't need to specify the legal name. For TRNs in other countries, you must specify the legal name."];
      registrationId: RegistrationId.t
        [@ocaml.doc "Your tax registration unique identifier."];
      registrationType: TaxRegistrationType.t
        [@ocaml.doc
          "Your tax registration type. This can be either VAT or GST."];
      sector: Sector.t option
        [@ocaml.doc
          "The industry that describes your business. For business-to-business (B2B) customers, specify Business. For business-to-consumer (B2C) customers, specify Individual. For business-to-government (B2G), specify Government.Note that certain values may not applicable for the request country. Please refer to country specific information in API document."];
      verificationDetails: VerificationDetails.t option
        [@ocaml.doc
          "Additional details needed to verify your TRN information in Brazil. You only need to specify this parameter when you set a TRN in Brazil that is the CPF tax type. Don't specify this parameter to set a TRN in Brazil of the CNPJ tax type or to set a TRN for another country."]}
    let context_ = "TaxRegistrationEntry"
    let make ?additionalTaxInformation =
      fun ?certifiedEmailId ->
        fun ?legalAddress ->
          fun ?legalName ->
            fun ?sector ->
              fun ?verificationDetails ->
                fun ~registrationId ->
                  fun ~registrationType ->
                    fun () ->
                      {
                        additionalTaxInformation;
                        certifiedEmailId;
                        legalAddress;
                        legalName;
                        sector;
                        verificationDetails;
                        registrationId;
                        registrationType
                      }
    let to_value x =
      structure_to_value
        [("additionalTaxInformation",
           (Option.map x.additionalTaxInformation
              ~f:AdditionalInfoRequest.to_value));
        ("certifiedEmailId",
          (Option.map x.certifiedEmailId ~f:CertifiedEmailId.to_value));
        ("legalAddress", (Option.map x.legalAddress ~f:Address.to_value));
        ("legalName", (Option.map x.legalName ~f:LegalName.to_value));
        ("registrationId", (Some (RegistrationId.to_value x.registrationId)));
        ("registrationType",
          (Some (TaxRegistrationType.to_value x.registrationType)));
        ("sector", (Option.map x.sector ~f:Sector.to_value));
        ("verificationDetails",
          (Option.map x.verificationDetails ~f:VerificationDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationDetails =
        (Option.map ~f:VerificationDetails.of_xml)
          (Xml.child xml_arg0 "verificationDetails") in
      let sector =
        (Option.map ~f:Sector.of_xml) (Xml.child xml_arg0 "sector") in
      let registrationType =
        TaxRegistrationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registrationType") in
      let registrationId =
        RegistrationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registrationId") in
      let legalName =
        (Option.map ~f:LegalName.of_xml) (Xml.child xml_arg0 "legalName") in
      let legalAddress =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "legalAddress") in
      let certifiedEmailId =
        (Option.map ~f:CertifiedEmailId.of_xml)
          (Xml.child xml_arg0 "certifiedEmailId") in
      let additionalTaxInformation =
        (Option.map ~f:AdditionalInfoRequest.of_xml)
          (Xml.child xml_arg0 "additionalTaxInformation") in
      make ?verificationDetails ?sector ~registrationType ~registrationId
        ?legalName ?legalAddress ?certifiedEmailId ?additionalTaxInformation
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationDetails =
        field_map json__ "verificationDetails" VerificationDetails.of_json in
      let sector = field_map json__ "sector" Sector.of_json in
      let registrationType =
        field_map_exn json__ "registrationType" TaxRegistrationType.of_json in
      let registrationId =
        field_map_exn json__ "registrationId" RegistrationId.of_json in
      let legalName = field_map json__ "legalName" LegalName.of_json in
      let legalAddress = field_map json__ "legalAddress" Address.of_json in
      let certifiedEmailId =
        field_map json__ "certifiedEmailId" CertifiedEmailId.of_json in
      let additionalTaxInformation =
        field_map json__ "additionalTaxInformation"
          AdditionalInfoRequest.of_json in
      make ?verificationDetails ?sector ~registrationType ~registrationId
        ?legalName ?legalAddress ?certifiedEmailId ?additionalTaxInformation
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The TRN information you provide when you add a new TRN, or update."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option [@ocaml.doc "404"];
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The exception thrown when the input doesn't have a resource associated to it."]
module HeritageStatus =
  struct
    type nonrec t =
      | OptIn 
      | OptOut 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OptIn -> "OptIn" | OptOut -> "OptOut" | Non_static_id s -> s
    let of_string =
      function | "OptIn" -> OptIn | "OptOut" -> OptOut | 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 HeritageStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HeritageStatus" j)
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The access is denied for the Amazon Web ServicesSupport API."]
module AttachmentUploadException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Failed to upload the tax exemption document to Amazon Web ServicesSupport case."]
module CaseCreationLimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've exceeded the Amazon Web ServicesSupport case creation limit for your account."]
module ExemptionCertificate =
  struct
    type nonrec t =
      {
      documentFile: ExemptionFileBlob.t
        [@ocaml.doc "The exemption certificate file content."];
      documentName: ExemptionDocumentName.t
        [@ocaml.doc "The exemption certificate file name."]}
    let context_ = "ExemptionCertificate"
    let make ~documentFile =
      fun ~documentName -> fun () -> { documentFile; documentName }
    let to_value x =
      structure_to_value
        [("documentFile", (Some (ExemptionFileBlob.to_value x.documentFile)));
        ("documentName",
          (Some (ExemptionDocumentName.to_value x.documentName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentName =
        ExemptionDocumentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "documentName") in
      let documentFile =
        ExemptionFileBlob.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "documentFile") in
      make ~documentName ~documentFile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentName =
        field_map_exn json__ "documentName" ExemptionDocumentName.of_json in
      let documentFile =
        field_map_exn json__ "documentFile" ExemptionFileBlob.of_json in
      make ~documentName ~documentFile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The exemption certificate."]
module PutTaxExemptionRequestAccountIdsList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:550) >>=
             (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:AccountId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"PutTaxExemptionRequestAccountIdsList"
        ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupplementalTaxRegistrationEntry =
  struct
    type nonrec t =
      {
      address: Address.t ;
      legalName: LegalName.t
        [@ocaml.doc "The legal name associated with your TRN registration."];
      registrationId: RegistrationId.t
        [@ocaml.doc "The supplemental TRN unique identifier."];
      registrationType: SupplementalTaxRegistrationType.t
        [@ocaml.doc
          "Type of supplemental TRN. Currently, this can only be VAT."]}
    let context_ = "SupplementalTaxRegistrationEntry"
    let make ~address =
      fun ~legalName ->
        fun ~registrationId ->
          fun ~registrationType ->
            fun () ->
              { address; legalName; registrationId; registrationType }
    let to_value x =
      structure_to_value
        [("address", (Some (Address.to_value x.address)));
        ("legalName", (Some (LegalName.to_value x.legalName)));
        ("registrationId", (Some (RegistrationId.to_value x.registrationId)));
        ("registrationType",
          (Some (SupplementalTaxRegistrationType.to_value x.registrationType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationType =
        SupplementalTaxRegistrationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registrationType") in
      let registrationId =
        RegistrationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registrationId") in
      let legalName =
        LegalName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "legalName") in
      let address =
        Address.of_xml (Xml.child_exn ~context:context_ xml_arg0 "address") in
      make ~registrationType ~registrationId ~legalName ~address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationType =
        field_map_exn json__ "registrationType"
          SupplementalTaxRegistrationType.of_json in
      let registrationId =
        field_map_exn json__ "registrationId" RegistrationId.of_json in
      let legalName = field_map_exn json__ "legalName" LegalName.of_json in
      let address = field_map_exn json__ "address" Address.of_json in
      make ~registrationType ~registrationId ~legalName ~address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The supplemental TRN information to provide when adding or updating a supplemental TRN."]
module AccountDetailsList =
  struct
    type nonrec t = AccountDetails.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:AccountDetails.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:AccountDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountDetailsList" ~of_json:AccountDetails.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PaginationTokenString =
  struct
    type nonrec t = string
    let context_ = "PaginationTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[-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:"PaginationTokenString" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (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 TaxExemptionDetailsMap =
  struct
    type nonrec t = (AccountId.t * TaxExemptionDetails.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AccountId TaxExemptionDetails"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AccountId.to_value x) |>
                    (fun x ->
                       (TaxExemptionDetails.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AccountId.of_string
        ~of_json:TaxExemptionDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupplementalTaxRegistrationList =
  struct
    type nonrec t = SupplementalTaxRegistration.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:SupplementalTaxRegistration.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:SupplementalTaxRegistration.of_xml)
    let of_json j =
      list_of_json ~kind:"SupplementalTaxRegistrationList"
        ~of_json:SupplementalTaxRegistration.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaxRegistration =
  struct
    type nonrec t =
      {
      additionalTaxInformation: AdditionalInfoResponse.t option
        [@ocaml.doc "Additional tax information associated with your TRN."];
      certifiedEmailId: CertifiedEmailId.t option
        [@ocaml.doc "The email address to receive VAT invoices."];
      legalAddress: Address.t option
        [@ocaml.doc
          "The legal address associated with your TRN registration."];
      legalName: LegalName.t option
        [@ocaml.doc "The legal name associated with your TRN registration."];
      registrationId: RegistrationId.t option
        [@ocaml.doc "Your tax registration unique identifier."];
      registrationType: TaxRegistrationType.t option
        [@ocaml.doc "Type of your tax registration."];
      sector: Sector.t option
        [@ocaml.doc
          "The industry that describes your business. For business-to-business (B2B) customers, specify Business. For business-to-consumer (B2C) customers, specify Individual. For business-to-government (B2G), specify Government. Note that certain values may not applicable for the request country. Please refer to country specific information in API document."];
      status: TaxRegistrationStatus.t option
        [@ocaml.doc
          "The status of your TRN. This can be either Verified, Pending, Deleted, or Rejected."];
      taxDocumentMetadatas: TaxDocumentMetadatas.t option
        [@ocaml.doc "The metadata for your tax document."]}
    let make ?additionalTaxInformation =
      fun ?certifiedEmailId ->
        fun ?legalAddress ->
          fun ?legalName ->
            fun ?registrationId ->
              fun ?registrationType ->
                fun ?sector ->
                  fun ?status ->
                    fun ?taxDocumentMetadatas ->
                      fun () ->
                        {
                          additionalTaxInformation;
                          certifiedEmailId;
                          legalAddress;
                          legalName;
                          registrationId;
                          registrationType;
                          sector;
                          status;
                          taxDocumentMetadatas
                        }
    let to_value x =
      structure_to_value
        [("additionalTaxInformation",
           (Option.map x.additionalTaxInformation
              ~f:AdditionalInfoResponse.to_value));
        ("certifiedEmailId",
          (Option.map x.certifiedEmailId ~f:CertifiedEmailId.to_value));
        ("legalAddress", (Option.map x.legalAddress ~f:Address.to_value));
        ("legalName", (Option.map x.legalName ~f:LegalName.to_value));
        ("registrationId",
          (Option.map x.registrationId ~f:RegistrationId.to_value));
        ("registrationType",
          (Option.map x.registrationType ~f:TaxRegistrationType.to_value));
        ("sector", (Option.map x.sector ~f:Sector.to_value));
        ("status", (Option.map x.status ~f:TaxRegistrationStatus.to_value));
        ("taxDocumentMetadatas",
          (Option.map x.taxDocumentMetadatas ~f:TaxDocumentMetadatas.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxDocumentMetadatas =
        (Option.map ~f:TaxDocumentMetadatas.of_xml)
          (Xml.child xml_arg0 "taxDocumentMetadatas") in
      let status =
        (Option.map ~f:TaxRegistrationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let sector =
        (Option.map ~f:Sector.of_xml) (Xml.child xml_arg0 "sector") in
      let registrationType =
        (Option.map ~f:TaxRegistrationType.of_xml)
          (Xml.child xml_arg0 "registrationType") in
      let registrationId =
        (Option.map ~f:RegistrationId.of_xml)
          (Xml.child xml_arg0 "registrationId") in
      let legalName =
        (Option.map ~f:LegalName.of_xml) (Xml.child xml_arg0 "legalName") in
      let legalAddress =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "legalAddress") in
      let certifiedEmailId =
        (Option.map ~f:CertifiedEmailId.of_xml)
          (Xml.child xml_arg0 "certifiedEmailId") in
      let additionalTaxInformation =
        (Option.map ~f:AdditionalInfoResponse.of_xml)
          (Xml.child xml_arg0 "additionalTaxInformation") in
      make ?taxDocumentMetadatas ?status ?sector ?registrationType
        ?registrationId ?legalName ?legalAddress ?certifiedEmailId
        ?additionalTaxInformation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxDocumentMetadatas =
        field_map json__ "taxDocumentMetadatas" TaxDocumentMetadatas.of_json in
      let status = field_map json__ "status" TaxRegistrationStatus.of_json in
      let sector = field_map json__ "sector" Sector.of_json in
      let registrationType =
        field_map json__ "registrationType" TaxRegistrationType.of_json in
      let registrationId =
        field_map json__ "registrationId" RegistrationId.of_json in
      let legalName = field_map json__ "legalName" LegalName.of_json in
      let legalAddress = field_map json__ "legalAddress" Address.of_json in
      let certifiedEmailId =
        field_map json__ "certifiedEmailId" CertifiedEmailId.of_json in
      let additionalTaxInformation =
        field_map json__ "additionalTaxInformation"
          AdditionalInfoResponse.of_json in
      make ?taxDocumentMetadatas ?status ?sector ?registrationType
        ?registrationId ?legalName ?legalAddress ?certifiedEmailId
        ?additionalTaxInformation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your TRN information."]
module DestinationFilePath =
  struct
    type nonrec t = string
    let context_ = "DestinationFilePath"
    let make i =
      let open Result in
        ok_or_failwith (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:"DestinationFilePath" j
    let to_json = simple_to_json to_value
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^https.*\\S.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Url" j
    let to_json = simple_to_json to_value
  end
module DestinationS3Location =
  struct
    type nonrec t =
      {
      bucket: S3BucketName.t
        [@ocaml.doc
          "The name of your Amazon S3 bucket that you specify to download your tax documents to."];
      prefix: S3Prefix.t option
        [@ocaml.doc
          "The Amazon S3 object prefix that you specify for your tax document file."]}
    let context_ = "DestinationS3Location"
    let make ?prefix = fun ~bucket -> fun () -> { prefix; bucket }
    let to_value x =
      structure_to_value
        [("bucket", (Some (S3BucketName.to_value x.bucket)));
        ("prefix", (Option.map x.prefix ~f:S3Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "prefix") in
      let bucket =
        S3BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucket") in
      make ?prefix ~bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map json__ "prefix" S3Prefix.of_json in
      let bucket = field_map_exn json__ "bucket" S3BucketName.of_json in
      make ?prefix ~bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The location of the Amazon S3 bucket that you specify to download your tax documents to."]
module TaxExemptionTypes =
  struct
    type nonrec t = TaxExemptionType.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:TaxExemptionType.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:TaxExemptionType.of_xml)
    let of_json j =
      list_of_json ~kind:"TaxExemptionTypes"
        ~of_json:TaxExemptionType.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchPutTaxRegistrationErrors =
  struct
    type nonrec t = BatchPutTaxRegistrationError.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:BatchPutTaxRegistrationError.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:BatchPutTaxRegistrationError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchPutTaxRegistrationErrors"
        ~of_json:BatchPutTaxRegistrationError.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchPutTaxRegistrationRequestAccountIdsList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:550) >>=
             (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:AccountId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchPutTaxRegistrationRequestAccountIdsList"
        ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountIds =
  struct
    type nonrec t = AccountId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AccountId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountIds" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetTaxExemptionsRequestAccountIdsList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:AccountId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetTaxExemptionsRequestAccountIdsList"
        ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchDeleteTaxRegistrationErrors =
  struct
    type nonrec t = BatchDeleteTaxRegistrationError.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:BatchDeleteTaxRegistrationError.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:BatchDeleteTaxRegistrationError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchDeleteTaxRegistrationErrors"
        ~of_json:BatchDeleteTaxRegistrationError.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchDeleteTaxRegistrationRequestAccountIdsList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:AccountId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchDeleteTaxRegistrationRequestAccountIdsList"
        ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module PutTaxRegistrationResponse =
  struct
    type nonrec t =
      {
      status: TaxRegistrationStatus.t option
        [@ocaml.doc
          "The status of your TRN stored in the system after processing. Based on the validation occurring on the TRN, the status can be Verified, Pending or Rejected."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("status", (Option.map x.status ~f:TaxRegistrationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TaxRegistrationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TaxRegistrationStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tax registration for a single account. You can't set a TRN if there's a pending TRN. You'll need to delete the pending TRN first. To call this API operation for specific countries, see the following country-specific requirements. Bangladesh You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Brazil You must complete the tax registration process in the Payment preferences page in the Billing and Cost Management console. After your TRN and billing address are verified, you can call this API operation. For Amazon Web Services accounts created through Organizations, you can call this API operation when you don't have a billing address. Georgia The valid personType values are Physical Person and Business. Indonesia PutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022. BatchPutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022, through our third-party partner PT Achilles Advanced Management (OnlinePajak). You must specify the taxRegistrationNumberType in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If you specify decisionNumber, you must specify the ppnExceptionDesignationCode in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If the taxRegistrationNumberType is set to NPWP or NITKU, valid values for ppnExceptionDesignationCode are either 01, 02, 03, 07, or 08. For other taxRegistrationNumberType values, ppnExceptionDesignationCode must be either 01, 07, or 08. If ppnExceptionDesignationCode is 07, you must specify the decisionNumber in the indonesiaAdditionalInfo field of the additionalTaxInformation object. Kenya You must specify the personType in the kenyaAdditionalInfo field of the additionalTaxInformation object. If the personType is Physical Person, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Malaysia The sector valid values are Business and Individual. RegistrationType valid values are NRIC for individual, and TIN and sales and service tax (SST) for Business. For individual, you can specify the taxInformationNumber in MalaysiaAdditionalInfo with NRIC type, and a valid MyKad or NRIC number. For business, you must specify a businessRegistrationNumber in MalaysiaAdditionalInfo with a TIN type and tax identification number. For business resellers, you must specify a businessRegistrationNumber and taxInformationNumber in MalaysiaAdditionalInfo with a sales and service tax (SST) type and a valid SST number. For business resellers with service codes, you must specify businessRegistrationNumber, taxInformationNumber, and distinct serviceTaxCodes in MalaysiaAdditionalInfo with a SST type and valid sales and service tax (SST) number. By using this API operation, Amazon Web Services registers your self-declaration that you\226\128\153re an authorized business reseller registered with the Royal Malaysia Customs Department (RMCD), and have a valid SST number. Amazon Web Services reserves the right to seek additional information and/or take other actions to support your self-declaration as appropriate. Amazon Web Services is currently registered under the following service tax codes. You must include at least one of the service tax codes in the service tax code strings to declare yourself as an authorized registered business reseller. Taxable service and service tax codes: Consultancy - 9907061674 Training or coaching service - 9907071685 IT service - 9907101676 Digital services and electronic medium - 9907121690 Nepal The sector valid values are Business and Individual. Saudi Arabia For address, you must specify addressLine3. South Korea You must specify the certifiedEmailId and legalName in the TaxRegistrationEntry object. Use Korean characters for legalName. You must specify the businessRepresentativeName, itemOfBusiness, and lineOfBusiness in the southKoreaAdditionalInfo field of the additionalTaxInformation object. Use Korean characters for these fields. You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. For the address object, use Korean characters for addressLine1, addressLine2 city, postalCode, and stateOrRegion. Spain You must specify the registrationType in the spainAdditionalInfo field of the additionalTaxInformation object. If the registrationType is Local, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Turkey You must specify the sector in the taxRegistrationEntry object. If your sector is Business, Individual, or Government: Specify the taxOffice. If your sector is Individual, don't enter this value. (Optional) Specify the kepEmailId. If your sector is Individual, don't enter this value. Note: In the Tax Settings page of the Billing console, Government appears as Public institutions If your sector is Business and you're subject to KDV tax, you must specify your industry in the industries field. For address, you must specify districtOrCounty. Ukraine The sector valid values are Business and Individual."]
module PutTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "Your unique account identifier."];
      taxRegistrationEntry: TaxRegistrationEntry.t
        [@ocaml.doc
          "Your TRN information that will be stored to the account mentioned in accountId."]}
    let context_ = "PutTaxRegistrationRequest"
    let make ?accountId =
      fun ~taxRegistrationEntry ->
        fun () -> { accountId; taxRegistrationEntry }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("taxRegistrationEntry",
          (Some (TaxRegistrationEntry.to_value x.taxRegistrationEntry)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationEntry =
        TaxRegistrationEntry.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taxRegistrationEntry") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ~taxRegistrationEntry ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationEntry =
        field_map_exn json__ "taxRegistrationEntry"
          TaxRegistrationEntry.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ~taxRegistrationEntry ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tax registration for a single account. You can't set a TRN if there's a pending TRN. You'll need to delete the pending TRN first. To call this API operation for specific countries, see the following country-specific requirements. Bangladesh You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Brazil You must complete the tax registration process in the Payment preferences page in the Billing and Cost Management console. After your TRN and billing address are verified, you can call this API operation. For Amazon Web Services accounts created through Organizations, you can call this API operation when you don't have a billing address. Georgia The valid personType values are Physical Person and Business. Indonesia PutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022. BatchPutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022, through our third-party partner PT Achilles Advanced Management (OnlinePajak). You must specify the taxRegistrationNumberType in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If you specify decisionNumber, you must specify the ppnExceptionDesignationCode in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If the taxRegistrationNumberType is set to NPWP or NITKU, valid values for ppnExceptionDesignationCode are either 01, 02, 03, 07, or 08. For other taxRegistrationNumberType values, ppnExceptionDesignationCode must be either 01, 07, or 08. If ppnExceptionDesignationCode is 07, you must specify the decisionNumber in the indonesiaAdditionalInfo field of the additionalTaxInformation object. Kenya You must specify the personType in the kenyaAdditionalInfo field of the additionalTaxInformation object. If the personType is Physical Person, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Malaysia The sector valid values are Business and Individual. RegistrationType valid values are NRIC for individual, and TIN and sales and service tax (SST) for Business. For individual, you can specify the taxInformationNumber in MalaysiaAdditionalInfo with NRIC type, and a valid MyKad or NRIC number. For business, you must specify a businessRegistrationNumber in MalaysiaAdditionalInfo with a TIN type and tax identification number. For business resellers, you must specify a businessRegistrationNumber and taxInformationNumber in MalaysiaAdditionalInfo with a sales and service tax (SST) type and a valid SST number. For business resellers with service codes, you must specify businessRegistrationNumber, taxInformationNumber, and distinct serviceTaxCodes in MalaysiaAdditionalInfo with a SST type and valid sales and service tax (SST) number. By using this API operation, Amazon Web Services registers your self-declaration that you\226\128\153re an authorized business reseller registered with the Royal Malaysia Customs Department (RMCD), and have a valid SST number. Amazon Web Services reserves the right to seek additional information and/or take other actions to support your self-declaration as appropriate. Amazon Web Services is currently registered under the following service tax codes. You must include at least one of the service tax codes in the service tax code strings to declare yourself as an authorized registered business reseller. Taxable service and service tax codes: Consultancy - 9907061674 Training or coaching service - 9907071685 IT service - 9907101676 Digital services and electronic medium - 9907121690 Nepal The sector valid values are Business and Individual. Saudi Arabia For address, you must specify addressLine3. South Korea You must specify the certifiedEmailId and legalName in the TaxRegistrationEntry object. Use Korean characters for legalName. You must specify the businessRepresentativeName, itemOfBusiness, and lineOfBusiness in the southKoreaAdditionalInfo field of the additionalTaxInformation object. Use Korean characters for these fields. You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. For the address object, use Korean characters for addressLine1, addressLine2 city, postalCode, and stateOrRegion. Spain You must specify the registrationType in the spainAdditionalInfo field of the additionalTaxInformation object. If the registrationType is Local, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Turkey You must specify the sector in the taxRegistrationEntry object. If your sector is Business, Individual, or Government: Specify the taxOffice. If your sector is Individual, don't enter this value. (Optional) Specify the kepEmailId. If your sector is Individual, don't enter this value. Note: In the Tax Settings page of the Billing console, Government appears as Public institutions If your sector is Business and you're subject to KDV tax, you must specify your industry in the industries field. For address, you must specify districtOrCounty. Ukraine The sector valid values are Business and Individual."]
module PutTaxInheritanceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `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))]
      | `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 "The updated tax inheritance status."]
module PutTaxInheritanceRequest =
  struct
    type nonrec t =
      {
      heritageStatus: HeritageStatus.t option
        [@ocaml.doc "The tax inheritance status."]}
    let make ?heritageStatus = fun () -> { heritageStatus }
    let to_value x =
      structure_to_value
        [("heritageStatus",
           (Option.map x.heritageStatus ~f:HeritageStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let heritageStatus =
        (Option.map ~f:HeritageStatus.of_xml)
          (Xml.child xml_arg0 "heritageStatus") in
      make ?heritageStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let heritageStatus =
        field_map json__ "heritageStatus" HeritageStatus.of_json in
      make ?heritageStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The updated tax inheritance status."]
module PutTaxExemptionResponse =
  struct
    type nonrec t =
      {
      caseId: GenericString.t option
        [@ocaml.doc "The customer support case ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AttachmentUploadException of AttachmentUploadException.t 
      | `CaseCreationLimitExceededException of
          CaseCreationLimitExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseId = fun () -> { caseId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AttachmentUploadException" ->
          `AttachmentUploadException (AttachmentUploadException.of_json json)
      | "CaseCreationLimitExceededException" ->
          `CaseCreationLimitExceededException
            (CaseCreationLimitExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "AttachmentUploadException" ->
          `AttachmentUploadException (AttachmentUploadException.of_xml xml)
      | "CaseCreationLimitExceededException" ->
          `CaseCreationLimitExceededException
            (CaseCreationLimitExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `AttachmentUploadException e ->
          `Assoc
            [("error", (`String "AttachmentUploadException"));
            ("details", (AttachmentUploadException.to_json e))]
      | `CaseCreationLimitExceededException e ->
          `Assoc
            [("error", (`String "CaseCreationLimitExceededException"));
            ("details", (CaseCreationLimitExceededException.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))]
      | `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
        [("caseId", (Option.map x.caseId ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "caseId" GenericString.of_json in
      make ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the tax exemption for a single account or all accounts listed in a consolidated billing family. The IAM action is tax:UpdateExemptions."]
module PutTaxExemptionRequest =
  struct
    type nonrec t =
      {
      accountIds: PutTaxExemptionRequestAccountIdsList.t
        [@ocaml.doc "The list of unique account identifiers."];
      authority: Authority.t ;
      exemptionCertificate: ExemptionCertificate.t ;
      exemptionType: GenericString.t
        [@ocaml.doc
          "The exemption type. Use the supported tax exemption type description."]}
    let context_ = "PutTaxExemptionRequest"
    let make ~accountIds =
      fun ~authority ->
        fun ~exemptionCertificate ->
          fun ~exemptionType ->
            fun () ->
              { accountIds; authority; exemptionCertificate; exemptionType }
    let to_value x =
      structure_to_value
        [("accountIds",
           (Some (PutTaxExemptionRequestAccountIdsList.to_value x.accountIds)));
        ("authority", (Some (Authority.to_value x.authority)));
        ("exemptionCertificate",
          (Some (ExemptionCertificate.to_value x.exemptionCertificate)));
        ("exemptionType", (Some (GenericString.to_value x.exemptionType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exemptionType =
        GenericString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "exemptionType") in
      let exemptionCertificate =
        ExemptionCertificate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "exemptionCertificate") in
      let authority =
        Authority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authority") in
      let accountIds =
        PutTaxExemptionRequestAccountIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountIds") in
      make ~exemptionType ~exemptionCertificate ~authority ~accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exemptionType =
        field_map_exn json__ "exemptionType" GenericString.of_json in
      let exemptionCertificate =
        field_map_exn json__ "exemptionCertificate"
          ExemptionCertificate.of_json in
      let authority = field_map_exn json__ "authority" Authority.of_json in
      let accountIds =
        field_map_exn json__ "accountIds"
          PutTaxExemptionRequestAccountIdsList.of_json in
      make ~exemptionType ~exemptionCertificate ~authority ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the tax exemption for a single account or all accounts listed in a consolidated billing family. The IAM action is tax:UpdateExemptions."]
module PutSupplementalTaxRegistrationResponse =
  struct
    type nonrec t =
      {
      authorityId: GenericString.t option
        [@ocaml.doc
          "Unique authority ID for the supplemental TRN information that was stored."];
      status: TaxRegistrationStatus.t option
        [@ocaml.doc
          "The status of the supplemental TRN stored in the system after processing. Based on the validation occurring on the TRN, the status can be Verified, Pending, Rejected, or Deleted."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?authorityId = fun ?status -> fun () -> { authorityId; status }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("authorityId",
           (Option.map x.authorityId ~f:GenericString.to_value));
        ("status", (Option.map x.status ~f:TaxRegistrationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TaxRegistrationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let authorityId =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "authorityId") in
      make ?status ?authorityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TaxRegistrationStatus.of_json in
      let authorityId = field_map json__ "authorityId" GenericString.of_json in
      make ?status ?authorityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores supplemental tax registration for a single account."]
module PutSupplementalTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      taxRegistrationEntry: SupplementalTaxRegistrationEntry.t
        [@ocaml.doc
          "The supplemental TRN information that will be stored for the caller account ID."]}
    let context_ = "PutSupplementalTaxRegistrationRequest"
    let make ~taxRegistrationEntry = fun () -> { taxRegistrationEntry }
    let to_value x =
      structure_to_value
        [("taxRegistrationEntry",
           (Some
              (SupplementalTaxRegistrationEntry.to_value
                 x.taxRegistrationEntry)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationEntry =
        SupplementalTaxRegistrationEntry.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taxRegistrationEntry") in
      make ~taxRegistrationEntry ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationEntry =
        field_map_exn json__ "taxRegistrationEntry"
          SupplementalTaxRegistrationEntry.of_json in
      make ~taxRegistrationEntry ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores supplemental tax registration for a single account."]
module ListTaxRegistrationsResponse =
  struct
    type nonrec t =
      {
      accountDetails: AccountDetailsList.t option
        [@ocaml.doc
          "The list of account details. This contains account Ids and TRN Information for each of the linked accounts."];
      nextToken: PaginationTokenString.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountDetails =
      fun ?nextToken -> fun () -> { accountDetails; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("accountDetails",
           (Option.map x.accountDetails ~f:AccountDetailsList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:PaginationTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountDetails =
        (Option.map ~f:AccountDetailsList.of_xml)
          (Xml.child xml_arg0 "accountDetails") in
      make ?nextToken ?accountDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" PaginationTokenString.of_json in
      let accountDetails =
        field_map json__ "accountDetails" AccountDetailsList.of_json in
      make ?nextToken ?accountDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the tax registration of accounts listed in a consolidated billing family. This can be used to retrieve up to 100 accounts' tax registrations in one call (default 50)."]
module ListTaxRegistrationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Number of accountDetails results you want in one response."];
      nextToken: PaginationTokenString.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:PaginationTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" PaginationTokenString.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the tax registration of accounts listed in a consolidated billing family. This can be used to retrieve up to 100 accounts' tax registrations in one call (default 50)."]
module ListTaxExemptionsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationTokenString.t option
        [@ocaml.doc "The token to retrieve the next set of results."];
      taxExemptionDetailsMap: TaxExemptionDetailsMap.t option
        [@ocaml.doc
          "The tax exemption details map of accountId and tax exemption details."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?taxExemptionDetailsMap ->
        fun () -> { nextToken; taxExemptionDetailsMap }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("nextToken",
           (Option.map x.nextToken ~f:PaginationTokenString.to_value));
        ("taxExemptionDetailsMap",
          (Option.map x.taxExemptionDetailsMap
             ~f:TaxExemptionDetailsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxExemptionDetailsMap =
        (Option.map ~f:TaxExemptionDetailsMap.of_xml)
          (Xml.child xml_arg0 "taxExemptionDetailsMap") in
      let nextToken =
        (Option.map ~f:PaginationTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?taxExemptionDetailsMap ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxExemptionDetailsMap =
        field_map json__ "taxExemptionDetailsMap"
          TaxExemptionDetailsMap.of_json in
      let nextToken =
        field_map json__ "nextToken" PaginationTokenString.of_json in
      make ?taxExemptionDetailsMap ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the tax exemption of accounts listed in a consolidated billing family. The IAM action is tax:GetExemptions."]
module ListTaxExemptionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The number of results you want in one response."];
      nextToken: PaginationTokenString.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:PaginationTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" PaginationTokenString.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the tax exemption of accounts listed in a consolidated billing family. The IAM action is tax:GetExemptions."]
module ListSupplementalTaxRegistrationsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationTokenString.t option
        [@ocaml.doc "The token to retrieve the next set of results."];
      taxRegistrations: SupplementalTaxRegistrationList.t option
        [@ocaml.doc "The list of supplemental tax registrations."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?taxRegistrations -> fun () -> { nextToken; taxRegistrations }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("nextToken",
           (Option.map x.nextToken ~f:PaginationTokenString.to_value));
        ("taxRegistrations",
          (Option.map x.taxRegistrations
             ~f:SupplementalTaxRegistrationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrations =
        (Option.map ~f:SupplementalTaxRegistrationList.of_xml)
          (Xml.child xml_arg0 "taxRegistrations") in
      let nextToken =
        (Option.map ~f:PaginationTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?taxRegistrations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrations =
        field_map json__ "taxRegistrations"
          SupplementalTaxRegistrationList.of_json in
      let nextToken =
        field_map json__ "nextToken" PaginationTokenString.of_json in
      make ?taxRegistrations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves supplemental tax registrations for a single account."]
module ListSupplementalTaxRegistrationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The number of taxRegistrations results you want in one response."];
      nextToken: PaginationTokenString.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:PaginationTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" PaginationTokenString.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves supplemental tax registrations for a single account."]
module GetTaxRegistrationResponse =
  struct
    type nonrec t =
      {
      taxRegistration: TaxRegistration.t option
        [@ocaml.doc
          "TRN information of the account mentioned in the request."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?taxRegistration = fun () -> { taxRegistration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("taxRegistration",
           (Option.map x.taxRegistration ~f:TaxRegistration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistration =
        (Option.map ~f:TaxRegistration.of_xml)
          (Xml.child xml_arg0 "taxRegistration") in
      make ?taxRegistration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistration =
        field_map json__ "taxRegistration" TaxRegistration.of_json in
      make ?taxRegistration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves tax registration for a single account."]
module GetTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "Your unique account identifier."]}
    let make ?accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves tax registration for a single account."]
module GetTaxRegistrationDocumentResponse =
  struct
    type nonrec t =
      {
      destinationFilePath: DestinationFilePath.t option
        [@ocaml.doc
          "The file path of the Amazon S3 bucket where you want to download your tax document to."];
      presignedS3Url: Url.t option
        [@ocaml.doc
          "The Amazon S3 presigned URL of the tax registration document."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?destinationFilePath =
      fun ?presignedS3Url ->
        fun () -> { destinationFilePath; presignedS3Url }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("destinationFilePath",
           (Option.map x.destinationFilePath ~f:DestinationFilePath.to_value));
        ("presignedS3Url", (Option.map x.presignedS3Url ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let presignedS3Url =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "presignedS3Url") in
      let destinationFilePath =
        (Option.map ~f:DestinationFilePath.of_xml)
          (Xml.child xml_arg0 "destinationFilePath") in
      make ?presignedS3Url ?destinationFilePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let presignedS3Url = field_map json__ "presignedS3Url" Url.of_json in
      let destinationFilePath =
        field_map json__ "destinationFilePath" DestinationFilePath.of_json in
      make ?presignedS3Url ?destinationFilePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Downloads your tax documents to the Amazon S3 bucket that you specify in your request."]
module GetTaxRegistrationDocumentRequest =
  struct
    type nonrec t =
      {
      destinationS3Location: DestinationS3Location.t option
        [@ocaml.doc
          "The Amazon S3 bucket that you specify to download your tax documents to."];
      taxDocumentMetadata: TaxDocumentMetadata.t
        [@ocaml.doc "The metadata for your tax document."]}
    let context_ = "GetTaxRegistrationDocumentRequest"
    let make ?destinationS3Location =
      fun ~taxDocumentMetadata ->
        fun () -> { destinationS3Location; taxDocumentMetadata }
    let to_value x =
      structure_to_value
        [("destinationS3Location",
           (Option.map x.destinationS3Location
              ~f:DestinationS3Location.to_value));
        ("taxDocumentMetadata",
          (Some (TaxDocumentMetadata.to_value x.taxDocumentMetadata)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxDocumentMetadata =
        TaxDocumentMetadata.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taxDocumentMetadata") in
      let destinationS3Location =
        (Option.map ~f:DestinationS3Location.of_xml)
          (Xml.child xml_arg0 "destinationS3Location") in
      make ~taxDocumentMetadata ?destinationS3Location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxDocumentMetadata =
        field_map_exn json__ "taxDocumentMetadata"
          TaxDocumentMetadata.of_json in
      let destinationS3Location =
        field_map json__ "destinationS3Location"
          DestinationS3Location.of_json in
      make ~taxDocumentMetadata ?destinationS3Location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Downloads your tax documents to the Amazon S3 bucket that you specify in your request."]
module GetTaxInheritanceResponse =
  struct
    type nonrec t =
      {
      heritageStatus: HeritageStatus.t option
        [@ocaml.doc "The tax inheritance status."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?heritageStatus = fun () -> { heritageStatus }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("heritageStatus",
           (Option.map x.heritageStatus ~f:HeritageStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let heritageStatus =
        (Option.map ~f:HeritageStatus.of_xml)
          (Xml.child xml_arg0 "heritageStatus") in
      make ?heritageStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let heritageStatus =
        field_map json__ "heritageStatus" HeritageStatus.of_json in
      make ?heritageStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The get account tax inheritance status."]
module GetTaxInheritanceRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The get account tax inheritance status."]
module GetTaxExemptionTypesResponse =
  struct
    type nonrec t =
      {
      taxExemptionTypes: TaxExemptionTypes.t option
        [@ocaml.doc "The supported types of tax exemptions."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?taxExemptionTypes = fun () -> { taxExemptionTypes }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("taxExemptionTypes",
           (Option.map x.taxExemptionTypes ~f:TaxExemptionTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxExemptionTypes =
        (Option.map ~f:TaxExemptionTypes.of_xml)
          (Xml.child xml_arg0 "taxExemptionTypes") in
      make ?taxExemptionTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxExemptionTypes =
        field_map json__ "taxExemptionTypes" TaxExemptionTypes.of_json in
      make ?taxExemptionTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get supported tax exemption types. The IAM action is tax:GetExemptions."]
module GetTaxExemptionTypesRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get supported tax exemption types. The IAM action is tax:GetExemptions."]
module DeleteTaxRegistrationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `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))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tax registration for a single account. This API operation can't be used to delete your tax registration in Brazil. Use the Payment preferences page in the Billing and Cost Management console instead."]
module DeleteTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "Unique account identifier for the TRN information that needs to be deleted. If this isn't passed, the account ID corresponding to the credentials of the API caller will be used for this parameter."]}
    let make ?accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tax registration for a single account. This API operation can't be used to delete your tax registration in Brazil. Use the Payment preferences page in the Billing and Cost Management console instead."]
module DeleteSupplementalTaxRegistrationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `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))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a supplemental tax registration for a single account."]
module DeleteSupplementalTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      authorityId: GenericString.t
        [@ocaml.doc
          "The unique authority Id for the supplemental TRN information that needs to be deleted."]}
    let context_ = "DeleteSupplementalTaxRegistrationRequest"
    let make ~authorityId = fun () -> { authorityId }
    let to_value x =
      structure_to_value
        [("authorityId", (Some (GenericString.to_value x.authorityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorityId =
        GenericString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorityId") in
      make ~authorityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorityId =
        field_map_exn json__ "authorityId" GenericString.of_json in
      make ~authorityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a supplemental tax registration for a single account."]
module BatchPutTaxRegistrationResponse =
  struct
    type nonrec t =
      {
      errors: BatchPutTaxRegistrationErrors.t option
        [@ocaml.doc
          "List of errors for the accounts the TRN information could not be added or updated to."];
      status: TaxRegistrationStatus.t option
        [@ocaml.doc
          "The status of your TRN stored in the system after processing. Based on the validation occurring on the TRN, the status can be Verified, Pending or Rejected."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?errors = fun ?status -> fun () -> { errors; status }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("errors",
           (Option.map x.errors ~f:BatchPutTaxRegistrationErrors.to_value));
        ("status", (Option.map x.status ~f:TaxRegistrationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TaxRegistrationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let errors =
        (Option.map ~f:BatchPutTaxRegistrationErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      make ?status ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TaxRegistrationStatus.of_json in
      let errors =
        field_map json__ "errors" BatchPutTaxRegistrationErrors.of_json in
      make ?status ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tax registration for multiple accounts in batch. This can be used to add or update tax registrations for up to five accounts in one batch. You can't set a TRN if there's a pending TRN. You'll need to delete the pending TRN first. To call this API operation for specific countries, see the following country-specific requirements. Bangladesh You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Brazil You must complete the tax registration process in the Payment preferences page in the Billing and Cost Management console. After your TRN and billing address are verified, you can call this API operation. For Amazon Web Services accounts created through Organizations, you can call this API operation when you don't have a billing address. Georgia The valid personType values are Physical Person and Business. Indonesia PutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022. BatchPutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022, through our third-party partner PT Achilles Advanced Management (OnlinePajak). You must specify the taxRegistrationNumberType in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If you specify decisionNumber, you must specify the ppnExceptionDesignationCode in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If the taxRegistrationNumberType is set to NPWP or NITKU, valid values for ppnExceptionDesignationCode are either 01, 02, 03, 07, or 08. For other taxRegistrationNumberType values, ppnExceptionDesignationCode must be either 01, 07, or 08. If ppnExceptionDesignationCode is 07, you must specify the decisionNumber in the indonesiaAdditionalInfo field of the additionalTaxInformation object. Kenya You must specify the personType in the kenyaAdditionalInfo field of the additionalTaxInformation object. If the personType is Physical Person, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Malaysia The sector valid values are Business and Individual. RegistrationType valid values are NRIC for individual, and TIN and sales and service tax (SST) for Business. For individual, you can specify the taxInformationNumber in MalaysiaAdditionalInfo with NRIC type, and a valid MyKad or NRIC number. For business, you must specify a businessRegistrationNumber in MalaysiaAdditionalInfo with a TIN type and tax identification number. For business resellers, you must specify a businessRegistrationNumber and taxInformationNumber in MalaysiaAdditionalInfo with a sales and service tax (SST) type and a valid SST number. For business resellers with service codes, you must specify businessRegistrationNumber, taxInformationNumber, and distinct serviceTaxCodes in MalaysiaAdditionalInfo with a SST type and valid sales and service tax (SST) number. By using this API operation, Amazon Web Services registers your self-declaration that you\226\128\153re an authorized business reseller registered with the Royal Malaysia Customs Department (RMCD), and have a valid SST number. Amazon Web Services reserves the right to seek additional information and/or take other actions to support your self-declaration as appropriate. Amazon Web Services is currently registered under the following service tax codes. You must include at least one of the service tax codes in the service tax code strings to declare yourself as an authorized registered business reseller. Taxable service and service tax codes: Consultancy - 9907061674 Training or coaching service - 9907071685 IT service - 9907101676 Digital services and electronic medium - 9907121690 Nepal The sector valid values are Business and Individual. Saudi Arabia For address, you must specify addressLine3. South Korea You must specify the certifiedEmailId and legalName in the TaxRegistrationEntry object. Use Korean characters for legalName. You must specify the businessRepresentativeName, itemOfBusiness, and lineOfBusiness in the southKoreaAdditionalInfo field of the additionalTaxInformation object. Use Korean characters for these fields. You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. For the address object, use Korean characters for addressLine1, addressLine2 city, postalCode, and stateOrRegion. Spain You must specify the registrationType in the spainAdditionalInfo field of the additionalTaxInformation object. If the registrationType is Local, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Turkey You must specify the sector in the taxRegistrationEntry object. If your sector is Business, Individual, or Government: Specify the taxOffice. If your sector is Individual, don't enter this value. (Optional) Specify the kepEmailId. If your sector is Individual, don't enter this value. Note: In the Tax Settings page of the Billing console, Government appears as Public institutions If your sector is Business and you're subject to KDV tax, you must specify your industry in the industries field. For address, you must specify districtOrCounty. Ukraine The sector valid values are Business and Individual."]
module BatchPutTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      accountIds: BatchPutTaxRegistrationRequestAccountIdsList.t
        [@ocaml.doc "List of unique account identifiers."];
      taxRegistrationEntry: TaxRegistrationEntry.t
        [@ocaml.doc
          "Your TRN information that will be stored to the accounts mentioned in putEntries."]}
    let context_ = "BatchPutTaxRegistrationRequest"
    let make ~accountIds =
      fun ~taxRegistrationEntry ->
        fun () -> { accountIds; taxRegistrationEntry }
    let to_value x =
      structure_to_value
        [("accountIds",
           (Some
              (BatchPutTaxRegistrationRequestAccountIdsList.to_value
                 x.accountIds)));
        ("taxRegistrationEntry",
          (Some (TaxRegistrationEntry.to_value x.taxRegistrationEntry)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxRegistrationEntry =
        TaxRegistrationEntry.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taxRegistrationEntry") in
      let accountIds =
        BatchPutTaxRegistrationRequestAccountIdsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountIds") in
      make ~taxRegistrationEntry ~accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxRegistrationEntry =
        field_map_exn json__ "taxRegistrationEntry"
          TaxRegistrationEntry.of_json in
      let accountIds =
        field_map_exn json__ "accountIds"
          BatchPutTaxRegistrationRequestAccountIdsList.of_json in
      make ~taxRegistrationEntry ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tax registration for multiple accounts in batch. This can be used to add or update tax registrations for up to five accounts in one batch. You can't set a TRN if there's a pending TRN. You'll need to delete the pending TRN first. To call this API operation for specific countries, see the following country-specific requirements. Bangladesh You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Brazil You must complete the tax registration process in the Payment preferences page in the Billing and Cost Management console. After your TRN and billing address are verified, you can call this API operation. For Amazon Web Services accounts created through Organizations, you can call this API operation when you don't have a billing address. Georgia The valid personType values are Physical Person and Business. Indonesia PutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022. BatchPutTaxRegistration: The use of this operation to submit tax information is subject to the Amazon Web Services service terms. By submitting, you\226\128\153re providing consent for Amazon Web Services to validate NIK, NPWP, and NITKU data, provided by you with the Directorate General of Taxes of Indonesia in accordance with the Minister of Finance Regulation (PMK) Number 112/PMK.03/2022, through our third-party partner PT Achilles Advanced Management (OnlinePajak). You must specify the taxRegistrationNumberType in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If you specify decisionNumber, you must specify the ppnExceptionDesignationCode in the indonesiaAdditionalInfo field of the additionalTaxInformation object. If the taxRegistrationNumberType is set to NPWP or NITKU, valid values for ppnExceptionDesignationCode are either 01, 02, 03, 07, or 08. For other taxRegistrationNumberType values, ppnExceptionDesignationCode must be either 01, 07, or 08. If ppnExceptionDesignationCode is 07, you must specify the decisionNumber in the indonesiaAdditionalInfo field of the additionalTaxInformation object. Kenya You must specify the personType in the kenyaAdditionalInfo field of the additionalTaxInformation object. If the personType is Physical Person, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Malaysia The sector valid values are Business and Individual. RegistrationType valid values are NRIC for individual, and TIN and sales and service tax (SST) for Business. For individual, you can specify the taxInformationNumber in MalaysiaAdditionalInfo with NRIC type, and a valid MyKad or NRIC number. For business, you must specify a businessRegistrationNumber in MalaysiaAdditionalInfo with a TIN type and tax identification number. For business resellers, you must specify a businessRegistrationNumber and taxInformationNumber in MalaysiaAdditionalInfo with a sales and service tax (SST) type and a valid SST number. For business resellers with service codes, you must specify businessRegistrationNumber, taxInformationNumber, and distinct serviceTaxCodes in MalaysiaAdditionalInfo with a SST type and valid sales and service tax (SST) number. By using this API operation, Amazon Web Services registers your self-declaration that you\226\128\153re an authorized business reseller registered with the Royal Malaysia Customs Department (RMCD), and have a valid SST number. Amazon Web Services reserves the right to seek additional information and/or take other actions to support your self-declaration as appropriate. Amazon Web Services is currently registered under the following service tax codes. You must include at least one of the service tax codes in the service tax code strings to declare yourself as an authorized registered business reseller. Taxable service and service tax codes: Consultancy - 9907061674 Training or coaching service - 9907071685 IT service - 9907101676 Digital services and electronic medium - 9907121690 Nepal The sector valid values are Business and Individual. Saudi Arabia For address, you must specify addressLine3. South Korea You must specify the certifiedEmailId and legalName in the TaxRegistrationEntry object. Use Korean characters for legalName. You must specify the businessRepresentativeName, itemOfBusiness, and lineOfBusiness in the southKoreaAdditionalInfo field of the additionalTaxInformation object. Use Korean characters for these fields. You must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. For the address object, use Korean characters for addressLine1, addressLine2 city, postalCode, and stateOrRegion. Spain You must specify the registrationType in the spainAdditionalInfo field of the additionalTaxInformation object. If the registrationType is Local, you must specify the tax registration certificate document in the taxRegistrationDocuments field of the VerificationDetails object. Turkey You must specify the sector in the taxRegistrationEntry object. If your sector is Business, Individual, or Government: Specify the taxOffice. If your sector is Individual, don't enter this value. (Optional) Specify the kepEmailId. If your sector is Individual, don't enter this value. Note: In the Tax Settings page of the Billing console, Government appears as Public institutions If your sector is Business and you're subject to KDV tax, you must specify your industry in the industries field. For address, you must specify districtOrCounty. Ukraine The sector valid values are Business and Individual."]
module BatchGetTaxExemptionsResponse =
  struct
    type nonrec t =
      {
      failedAccounts: AccountIds.t option
        [@ocaml.doc
          "The list of accounts that failed to get tax exemptions."];
      taxExemptionDetailsMap: TaxExemptionDetailsMap.t option
        [@ocaml.doc
          "The tax exemption details map of accountId and tax exemption details."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedAccounts =
      fun ?taxExemptionDetailsMap ->
        fun () -> { failedAccounts; taxExemptionDetailsMap }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("failedAccounts",
           (Option.map x.failedAccounts ~f:AccountIds.to_value));
        ("taxExemptionDetailsMap",
          (Option.map x.taxExemptionDetailsMap
             ~f:TaxExemptionDetailsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taxExemptionDetailsMap =
        (Option.map ~f:TaxExemptionDetailsMap.of_xml)
          (Xml.child xml_arg0 "taxExemptionDetailsMap") in
      let failedAccounts =
        (Option.map ~f:AccountIds.of_xml)
          (Xml.child xml_arg0 "failedAccounts") in
      make ?taxExemptionDetailsMap ?failedAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taxExemptionDetailsMap =
        field_map json__ "taxExemptionDetailsMap"
          TaxExemptionDetailsMap.of_json in
      let failedAccounts =
        field_map json__ "failedAccounts" AccountIds.of_json in
      make ?taxExemptionDetailsMap ?failedAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the active tax exemptions for a given list of accounts. The IAM action is tax:GetExemptions."]
module BatchGetTaxExemptionsRequest =
  struct
    type nonrec t =
      {
      accountIds: BatchGetTaxExemptionsRequestAccountIdsList.t
        [@ocaml.doc "List of unique account identifiers."]}
    let context_ = "BatchGetTaxExemptionsRequest"
    let make ~accountIds = fun () -> { accountIds }
    let to_value x =
      structure_to_value
        [("accountIds",
           (Some
              (BatchGetTaxExemptionsRequestAccountIdsList.to_value
                 x.accountIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        BatchGetTaxExemptionsRequestAccountIdsList.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"
          BatchGetTaxExemptionsRequestAccountIdsList.of_json in
      make ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the active tax exemptions for a given list of accounts. The IAM action is tax:GetExemptions."]
module BatchDeleteTaxRegistrationResponse =
  struct
    type nonrec t =
      {
      errors: BatchDeleteTaxRegistrationErrors.t option
        [@ocaml.doc
          "The list of errors for the accounts the TRN information could not be deleted for."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?errors = fun () -> { errors }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("errors",
           (Option.map x.errors ~f:BatchDeleteTaxRegistrationErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchDeleteTaxRegistrationErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      make ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" BatchDeleteTaxRegistrationErrors.of_json in
      make ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tax registration for multiple accounts in batch. This can be used to delete tax registrations for up to five accounts in one batch. This API operation can't be used to delete your tax registration in Brazil. Use the Payment preferences page in the Billing and Cost Management console instead."]
module BatchDeleteTaxRegistrationRequest =
  struct
    type nonrec t =
      {
      accountIds: BatchDeleteTaxRegistrationRequestAccountIdsList.t
        [@ocaml.doc "List of unique account identifiers."]}
    let context_ = "BatchDeleteTaxRegistrationRequest"
    let make ~accountIds = fun () -> { accountIds }
    let to_value x =
      structure_to_value
        [("accountIds",
           (Some
              (BatchDeleteTaxRegistrationRequestAccountIdsList.to_value
                 x.accountIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        BatchDeleteTaxRegistrationRequestAccountIdsList.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"
          BatchDeleteTaxRegistrationRequestAccountIdsList.of_json in
      make ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tax registration for multiple accounts in batch. This can be used to delete tax registrations for up to five accounts in one batch. This API operation can't be used to delete your tax registration in Brazil. Use the Payment preferences page in the Billing and Cost Management console instead."]