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.payment_cryptography_data
let apiVersion = "2022-02-03"
let endpointPrefix = "dataplane.payment-cryptography"
let serviceFullName = "Payment Cryptography Data Plane"
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 String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module CertificateType =
  struct
    type nonrec t = string
    let context_ = "CertificateType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32768) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\[;\\]<>]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CertificateType" j
    let to_json = simple_to_json to_value
  end
module KeyArnOrKeyAliasType =
  struct
    type nonrec t = string
    let context_ = "KeyArnOrKeyAliasType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:322) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:payment-cryptography:[a-z]{2}-[a-z]{1,16}-[0-9]+:[0-9]{12}:(key/[0-9a-zA-Z]{16,64}|alias/[a-zA-Z0-9/_-]+)$|^alias/[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:"KeyArnOrKeyAliasType" j
    let to_json = simple_to_json to_value
  end
module KeyDerivationFunction =
  struct
    type nonrec t =
      | NIST_SP800 
      | ANSI_X963 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NIST_SP800 -> "NIST_SP800"
      | ANSI_X963 -> "ANSI_X963"
      | Non_static_id s -> s
    let of_string =
      function
      | "NIST_SP800" -> NIST_SP800
      | "ANSI_X963" -> ANSI_X963
      | 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 KeyDerivationFunction" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"KeyDerivationFunction" j)
    let to_json = simple_to_json to_value
  end
module KeyDerivationHashAlgorithm =
  struct
    type nonrec t =
      | SHA_256 
      | SHA_384 
      | SHA_512 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SHA_256 -> "SHA_256"
      | SHA_384 -> "SHA_384"
      | SHA_512 -> "SHA_512"
      | Non_static_id s -> s
    let of_string =
      function
      | "SHA_256" -> SHA_256
      | "SHA_384" -> SHA_384
      | "SHA_512" -> SHA_512
      | 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 KeyDerivationHashAlgorithm"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"KeyDerivationHashAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module SharedInformation =
  struct
    type nonrec t = string
    let context_ = "SharedInformation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"SharedInformation" j
    let to_json = simple_to_json to_value
  end
module SymmetricKeyAlgorithm =
  struct
    type nonrec t =
      | TDES_2KEY 
      | TDES_3KEY 
      | AES_128 
      | AES_192 
      | AES_256 
      | HMAC_SHA256 
      | HMAC_SHA384 
      | HMAC_SHA512 
      | HMAC_SHA224 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TDES_2KEY -> "TDES_2KEY"
      | TDES_3KEY -> "TDES_3KEY"
      | AES_128 -> "AES_128"
      | AES_192 -> "AES_192"
      | AES_256 -> "AES_256"
      | HMAC_SHA256 -> "HMAC_SHA256"
      | HMAC_SHA384 -> "HMAC_SHA384"
      | HMAC_SHA512 -> "HMAC_SHA512"
      | HMAC_SHA224 -> "HMAC_SHA224"
      | Non_static_id s -> s
    let of_string =
      function
      | "TDES_2KEY" -> TDES_2KEY
      | "TDES_3KEY" -> TDES_3KEY
      | "AES_128" -> AES_128
      | "AES_192" -> AES_192
      | "AES_256" -> AES_256
      | "HMAC_SHA256" -> HMAC_SHA256
      | "HMAC_SHA384" -> HMAC_SHA384
      | "HMAC_SHA512" -> HMAC_SHA512
      | "HMAC_SHA224" -> HMAC_SHA224
      | 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 SymmetricKeyAlgorithm" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SymmetricKeyAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module ApplicationCryptogramType =
  struct
    type nonrec t = string
    let context_ = "ApplicationCryptogramType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"ApplicationCryptogramType" j
    let to_json = simple_to_json to_value
  end
module HexLengthEquals4 =
  struct
    type nonrec t = string
    let context_ = "HexLengthEquals4"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:4) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"HexLengthEquals4" j
    let to_json = simple_to_json to_value
  end
module PinBlockLengthEquals16 =
  struct
    type nonrec t = string
    let context_ = "PinBlockLengthEquals16"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"PinBlockLengthEquals16" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      path: String_.t option
        [@ocaml.doc
          "The request was denied due to an invalid request error."];
      message: String_.t option
        [@ocaml.doc
          "The request was denied due to an invalid request error."]}
    let make ?path = fun ?message -> fun () -> { path; message }
    let to_value x =
      structure_to_value
        [("path", (Option.map x.path ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let path = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "path") in
      make ?message ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let path = field_map json__ "path" String_.of_json in
      make ?message ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to an invalid request error."]
module DecimalizationTableType =
  struct
    type nonrec t = string
    let context_ = "DecimalizationTableType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DecimalizationTableType" j
    let to_json = simple_to_json to_value
  end
module HexLengthEquals1 =
  struct
    type nonrec t = string
    let context_ = "HexLengthEquals1"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-F]+")));
        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:"HexLengthEquals1" j
    let to_json = simple_to_json to_value
  end
module PinOffsetType =
  struct
    type nonrec t = string
    let context_ = "PinOffsetType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PinOffsetType" j
    let to_json = simple_to_json to_value
  end
module PinValidationDataType =
  struct
    type nonrec t = string
    let context_ = "PinValidationDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PinValidationDataType" j
    let to_json = simple_to_json to_value
  end
module IntegerRangeBetween0And6 =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:6) >>= (fun () -> check_int_min i ~min:0));
        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 IntegerRangeBetween0And6"
           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 VerificationValueType =
  struct
    type nonrec t = string
    let context_ = "VerificationValueType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VerificationValueType" j
    let to_json = simple_to_json to_value
  end
module EcdhDerivationAttributes =
  struct
    type nonrec t =
      {
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyArn of the certificate that signed the client's PublicKeyCertificate."];
      publicKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The client's public key certificate in PEM format (base64 encoded) to use for ECDH key derivation."];
      keyAlgorithm: SymmetricKeyAlgorithm.t
        [@ocaml.doc "The key algorithm of the derived ECDH key."];
      keyDerivationFunction: KeyDerivationFunction.t
        [@ocaml.doc
          "The key derivation function to use for deriving a key using ECDH."];
      keyDerivationHashAlgorithm: KeyDerivationHashAlgorithm.t
        [@ocaml.doc "The hash type to use for deriving a key using ECDH."];
      sharedInformation: SharedInformation.t
        [@ocaml.doc
          "A byte string containing information that binds the ECDH derived key to the two parties involved or to the context of the key. It may include details like identities of the two parties deriving the key, context of the operation, session IDs, and optionally a nonce. It must not contain zero bytes, and re-using shared information for multiple ECDH key derivations is not recommended."]}
    let context_ = "EcdhDerivationAttributes"
    let make ~certificateAuthorityPublicKeyIdentifier =
      fun ~publicKeyCertificate ->
        fun ~keyAlgorithm ->
          fun ~keyDerivationFunction ->
            fun ~keyDerivationHashAlgorithm ->
              fun ~sharedInformation ->
                fun () ->
                  {
                    certificateAuthorityPublicKeyIdentifier;
                    publicKeyCertificate;
                    keyAlgorithm;
                    keyDerivationFunction;
                    keyDerivationHashAlgorithm;
                    sharedInformation
                  }
    let to_value x =
      structure_to_value
        [("CertificateAuthorityPublicKeyIdentifier",
           (Some
              (KeyArnOrKeyAliasType.to_value
                 x.certificateAuthorityPublicKeyIdentifier)));
        ("PublicKeyCertificate",
          (Some (CertificateType.to_value x.publicKeyCertificate)));
        ("KeyAlgorithm",
          (Some (SymmetricKeyAlgorithm.to_value x.keyAlgorithm)));
        ("KeyDerivationFunction",
          (Some (KeyDerivationFunction.to_value x.keyDerivationFunction)));
        ("KeyDerivationHashAlgorithm",
          (Some
             (KeyDerivationHashAlgorithm.to_value
                x.keyDerivationHashAlgorithm)));
        ("SharedInformation",
          (Some (SharedInformation.to_value x.sharedInformation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedInformation =
        SharedInformation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SharedInformation") in
      let keyDerivationHashAlgorithm =
        KeyDerivationHashAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "KeyDerivationHashAlgorithm") in
      let keyDerivationFunction =
        KeyDerivationFunction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyDerivationFunction") in
      let keyAlgorithm =
        SymmetricKeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAlgorithm") in
      let publicKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublicKeyCertificate") in
      let certificateAuthorityPublicKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CertificateAuthorityPublicKeyIdentifier") in
      make ~sharedInformation ~keyDerivationHashAlgorithm
        ~keyDerivationFunction ~keyAlgorithm ~publicKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedInformation =
        field_map_exn json__ "SharedInformation" SharedInformation.of_json in
      let keyDerivationHashAlgorithm =
        field_map_exn json__ "KeyDerivationHashAlgorithm"
          KeyDerivationHashAlgorithm.of_json in
      let keyDerivationFunction =
        field_map_exn json__ "KeyDerivationFunction"
          KeyDerivationFunction.of_json in
      let keyAlgorithm =
        field_map_exn json__ "KeyAlgorithm" SymmetricKeyAlgorithm.of_json in
      let publicKeyCertificate =
        field_map_exn json__ "PublicKeyCertificate" CertificateType.of_json in
      let certificateAuthorityPublicKeyIdentifier =
        field_map_exn json__ "CertificateAuthorityPublicKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~sharedInformation ~keyDerivationHashAlgorithm
        ~keyDerivationFunction ~keyAlgorithm ~publicKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters required to establish ECDH based key exchange."]
module Tr31WrappedKeyBlock =
  struct
    type nonrec t = string
    let context_ = "Tr31WrappedKeyBlock"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:56) >>=
             (fun () ->
                (check_string_max i ~max:9984) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-zA-Z]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Tr31WrappedKeyBlock" j
    let to_json = simple_to_json to_value
  end
module DukptDerivationType =
  struct
    type nonrec t =
      | TDES_2KEY 
      | TDES_3KEY 
      | AES_128 
      | AES_192 
      | AES_256 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TDES_2KEY -> "TDES_2KEY"
      | TDES_3KEY -> "TDES_3KEY"
      | AES_128 -> "AES_128"
      | AES_192 -> "AES_192"
      | AES_256 -> "AES_256"
      | Non_static_id s -> s
    let of_string =
      function
      | "TDES_2KEY" -> TDES_2KEY
      | "TDES_3KEY" -> TDES_3KEY
      | "AES_128" -> AES_128
      | "AES_192" -> AES_192
      | "AES_256" -> AES_256
      | 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 DukptDerivationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DukptDerivationType" j)
    let to_json = simple_to_json to_value
  end
module DukptKeyVariant =
  struct
    type nonrec t =
      | BIDIRECTIONAL 
      | REQUEST 
      | RESPONSE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BIDIRECTIONAL -> "BIDIRECTIONAL"
      | REQUEST -> "REQUEST"
      | RESPONSE -> "RESPONSE"
      | Non_static_id s -> s
    let of_string =
      function
      | "BIDIRECTIONAL" -> BIDIRECTIONAL
      | "REQUEST" -> REQUEST
      | "RESPONSE" -> RESPONSE
      | 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 DukptKeyVariant" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DukptKeyVariant" j)
    let to_json = simple_to_json to_value
  end
module HexLength16Or20Or24 =
  struct
    type nonrec t = string
    let context_ = "HexLength16Or20Or24"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:24) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?:[0-9a-fA-F]{16}|[0-9a-fA-F]{20}|[0-9a-fA-F]{24})")));
        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:"HexLength16Or20Or24" j
    let to_json = simple_to_json to_value
  end
module MajorKeyDerivationMode =
  struct
    type nonrec t =
      | EMV_OPTION_A 
      | EMV_OPTION_B 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EMV_OPTION_A -> "EMV_OPTION_A"
      | EMV_OPTION_B -> "EMV_OPTION_B"
      | Non_static_id s -> s
    let of_string =
      function
      | "EMV_OPTION_A" -> EMV_OPTION_A
      | "EMV_OPTION_B" -> EMV_OPTION_B
      | 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 MajorKeyDerivationMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MajorKeyDerivationMode" j)
    let to_json = simple_to_json to_value
  end
module NumberLengthEquals2 =
  struct
    type nonrec t = string
    let context_ = "NumberLengthEquals2"
    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:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NumberLengthEquals2" j
    let to_json = simple_to_json to_value
  end
module PrimaryAccountNumberType =
  struct
    type nonrec t = string
    let context_ = "PrimaryAccountNumberType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:19) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrimaryAccountNumberType" j
    let to_json = simple_to_json to_value
  end
module SessionKeyDerivationMode =
  struct
    type nonrec t =
      | EMV_COMMON_SESSION_KEY 
      | EMV2000 
      | AMEX 
      | MASTERCARD_SESSION_KEY 
      | VISA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EMV_COMMON_SESSION_KEY -> "EMV_COMMON_SESSION_KEY"
      | EMV2000 -> "EMV2000"
      | AMEX -> "AMEX"
      | MASTERCARD_SESSION_KEY -> "MASTERCARD_SESSION_KEY"
      | VISA -> "VISA"
      | Non_static_id s -> s
    let of_string =
      function
      | "EMV_COMMON_SESSION_KEY" -> EMV_COMMON_SESSION_KEY
      | "EMV2000" -> EMV2000
      | "AMEX" -> AMEX
      | "MASTERCARD_SESSION_KEY" -> MASTERCARD_SESSION_KEY
      | "VISA" -> VISA
      | 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 SessionKeyDerivationMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SessionKeyDerivationMode" j)
    let to_json = simple_to_json to_value
  end
module SessionKeyDerivationValue =
  struct
    type nonrec t =
      {
      applicationCryptogram: ApplicationCryptogramType.t option
        [@ocaml.doc
          "The cryptogram provided by the terminal during transaction processing."];
      applicationTransactionCounter: HexLengthEquals4.t option
        [@ocaml.doc
          "The transaction counter that is provided by the terminal during transaction processing."]}
    let make ?applicationCryptogram =
      fun ?applicationTransactionCounter ->
        fun () -> { applicationCryptogram; applicationTransactionCounter }
    let to_value x =
      structure_to_value
        [("ApplicationCryptogram",
           (Option.map x.applicationCryptogram
              ~f:ApplicationCryptogramType.to_value));
        ("ApplicationTransactionCounter",
          (Option.map x.applicationTransactionCounter
             ~f:HexLengthEquals4.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        (Option.map ~f:HexLengthEquals4.of_xml)
          (Xml.child xml_arg0 "ApplicationTransactionCounter") in
      let applicationCryptogram =
        (Option.map ~f:ApplicationCryptogramType.of_xml)
          (Xml.child xml_arg0 "ApplicationCryptogram") in
      make ?applicationTransactionCounter ?applicationCryptogram ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let applicationCryptogram =
        field_map json__ "ApplicationCryptogram"
          ApplicationCryptogramType.of_json in
      make ?applicationTransactionCounter ?applicationCryptogram ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive session key value using a MAC EMV algorithm."]
module CardExpiryDateType =
  struct
    type nonrec t = string
    let context_ = "CardExpiryDateType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:4) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CardExpiryDateType" j
    let to_json = simple_to_json to_value
  end
module ServiceCodeType =
  struct
    type nonrec t = string
    let context_ = "ServiceCodeType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceCodeType" j
    let to_json = simple_to_json to_value
  end
module HexLengthBetween2And4 =
  struct
    type nonrec t = string
    let context_ = "HexLengthBetween2And4"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:4) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"HexLengthBetween2And4" j
    let to_json = simple_to_json to_value
  end
module HexLengthBetween2And8 =
  struct
    type nonrec t = string
    let context_ = "HexLengthBetween2And8"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:8) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"HexLengthBetween2And8" j
    let to_json = simple_to_json to_value
  end
module TrackDataType =
  struct
    type nonrec t = string
    let context_ = "TrackDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:160) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"TrackDataType" j
    let to_json = simple_to_json to_value
  end
module HexLengthEquals8 =
  struct
    type nonrec t = string
    let context_ = "HexLengthEquals8"
    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:"[0-9a-fA-F]+")));
        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:"HexLengthEquals8" j
    let to_json = simple_to_json to_value
  end
module ProprietaryAuthenticationDataType =
  struct
    type nonrec t = string
    let context_ = "ProprietaryAuthenticationDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"ProprietaryAuthenticationDataType" j
    let to_json = simple_to_json to_value
  end
module DiffieHellmanDerivationData =
  struct
    type nonrec t =
      {
      sharedInformation: SharedInformation.t option
        [@ocaml.doc
          "A string containing information that binds the ECDH derived key to the two parties involved or to the context of the key. It may include details like identities of the two parties deriving the key, context of the operation, session IDs, and optionally a nonce. It must not contain zero bytes. It is not recommended to reuse shared information for multiple ECDH key derivations, as it could result in derived key material being the same across different derivations."]}
    let make ?sharedInformation = fun () -> { sharedInformation }
    let to_value x =
      structure_to_value
        [("SharedInformation",
           (Option.map x.sharedInformation ~f:SharedInformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedInformation =
        (Option.map ~f:SharedInformation.of_xml)
          (Xml.child xml_arg0 "SharedInformation") in
      make ?sharedInformation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedInformation =
        field_map json__ "SharedInformation" SharedInformation.of_json in
      make ?sharedInformation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The shared information used when deriving a key using ECDH."]
module DukptEncryptionMode =
  struct
    type nonrec t =
      | ECB 
      | CBC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ECB -> "ECB" | CBC -> "CBC" | Non_static_id s -> s
    let of_string =
      function | "ECB" -> ECB | "CBC" -> CBC | 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 DukptEncryptionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DukptEncryptionMode" j)
    let to_json = simple_to_json to_value
  end
module InitializationVectorType =
  struct
    type nonrec t = string
    let context_ = "InitializationVectorType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?:[0-9a-fA-F]{16}|[0-9a-fA-F]{32})")));
        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:"InitializationVectorType" j
    let to_json = simple_to_json to_value
  end
module EncryptionMode =
  struct
    type nonrec t =
      | ECB 
      | CBC 
      | CFB 
      | CFB1 
      | CFB8 
      | CFB64 
      | CFB128 
      | OFB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ECB -> "ECB"
      | CBC -> "CBC"
      | CFB -> "CFB"
      | CFB1 -> "CFB1"
      | CFB8 -> "CFB8"
      | CFB64 -> "CFB64"
      | CFB128 -> "CFB128"
      | OFB -> "OFB"
      | Non_static_id s -> s
    let of_string =
      function
      | "ECB" -> ECB
      | "CBC" -> CBC
      | "CFB" -> CFB
      | "CFB1" -> CFB1
      | "CFB8" -> CFB8
      | "CFB64" -> CFB64
      | "CFB128" -> CFB128
      | "OFB" -> OFB
      | 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 EncryptionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionMode" j)
    let to_json = simple_to_json to_value
  end
module PaddingType =
  struct
    type nonrec t =
      | PKCS1 
      | OAEP_SHA1 
      | OAEP_SHA256 
      | OAEP_SHA512 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PKCS1 -> "PKCS1"
      | OAEP_SHA1 -> "OAEP_SHA1"
      | OAEP_SHA256 -> "OAEP_SHA256"
      | OAEP_SHA512 -> "OAEP_SHA512"
      | Non_static_id s -> s
    let of_string =
      function
      | "PKCS1" -> PKCS1
      | "OAEP_SHA1" -> OAEP_SHA1
      | "OAEP_SHA256" -> OAEP_SHA256
      | "OAEP_SHA512" -> OAEP_SHA512
      | 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 PaddingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PaddingType" j)
    let to_json = simple_to_json to_value
  end
module EncryptedPinBlockType =
  struct
    type nonrec t = string
    let context_ = "EncryptedPinBlockType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"EncryptedPinBlockType" j
    let to_json = simple_to_json to_value
  end
module CurrentPinAttributes =
  struct
    type nonrec t =
      {
      currentPinPekIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The keyArn of the current PIN PEK."];
      currentEncryptedPinBlock: PinBlockLengthEquals16.t
        [@ocaml.doc
          "The encrypted pinblock of the current pin stored on the chip card."]}
    let context_ = "CurrentPinAttributes"
    let make ~currentPinPekIdentifier =
      fun ~currentEncryptedPinBlock ->
        fun () -> { currentPinPekIdentifier; currentEncryptedPinBlock }
    let to_value x =
      structure_to_value
        [("CurrentPinPekIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.currentPinPekIdentifier)));
        ("CurrentEncryptedPinBlock",
          (Some (PinBlockLengthEquals16.to_value x.currentEncryptedPinBlock)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currentEncryptedPinBlock =
        PinBlockLengthEquals16.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentEncryptedPinBlock") in
      let currentPinPekIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CurrentPinPekIdentifier") in
      make ~currentEncryptedPinBlock ~currentPinPekIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currentEncryptedPinBlock =
        field_map_exn json__ "CurrentEncryptedPinBlock"
          PinBlockLengthEquals16.of_json in
      let currentPinPekIdentifier =
        field_map_exn json__ "CurrentPinPekIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~currentEncryptedPinBlock ~currentPinPekIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parameter values of the current PIN to be changed on the EMV chip card."]
module EmvEncryptionMode =
  struct
    type nonrec t =
      | ECB 
      | CBC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ECB -> "ECB" | CBC -> "CBC" | Non_static_id s -> s
    let of_string =
      function | "ECB" -> ECB | "CBC" -> CBC | 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 EmvEncryptionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EmvEncryptionMode" j)
    let to_json = simple_to_json to_value
  end
module PinBlockLengthPosition =
  struct
    type nonrec t =
      | NONE 
      | FRONT_OF_PIN_BLOCK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | FRONT_OF_PIN_BLOCK -> "FRONT_OF_PIN_BLOCK"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "FRONT_OF_PIN_BLOCK" -> FRONT_OF_PIN_BLOCK
      | 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 PinBlockLengthPosition" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PinBlockLengthPosition" j)
    let to_json = simple_to_json to_value
  end
module PinBlockPaddingType =
  struct
    type nonrec t =
      | NO_PADDING 
      | ISO_IEC_7816_4 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NO_PADDING -> "NO_PADDING"
      | ISO_IEC_7816_4 -> "ISO_IEC_7816_4"
      | Non_static_id s -> s
    let of_string =
      function
      | "NO_PADDING" -> NO_PADDING
      | "ISO_IEC_7816_4" -> ISO_IEC_7816_4
      | 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 PinBlockPaddingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PinBlockPaddingType" j)
    let to_json = simple_to_json to_value
  end
module As2805RandomKeyMaterial =
  struct
    type nonrec t = string
    let context_ = "As2805RandomKeyMaterial"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:32) >>=
             (fun () ->
                (check_string_max i ~max:48) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?:[0-9a-fA-F]{32}|[0-9a-fA-F]{48})")));
        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:"As2805RandomKeyMaterial" j
    let to_json = simple_to_json to_value
  end
module EmvMajorKeyDerivationMode =
  struct
    type nonrec t =
      | EMV_OPTION_A 
      | EMV_OPTION_B 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EMV_OPTION_A -> "EMV_OPTION_A"
      | EMV_OPTION_B -> "EMV_OPTION_B"
      | Non_static_id s -> s
    let of_string =
      function
      | "EMV_OPTION_A" -> EMV_OPTION_A
      | "EMV_OPTION_B" -> EMV_OPTION_B
      | 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 EmvMajorKeyDerivationMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EmvMajorKeyDerivationMode" j)
    let to_json = simple_to_json to_value
  end
module SessionDerivationDataType =
  struct
    type nonrec t = string
    let context_ = "SessionDerivationDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"SessionDerivationDataType" 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 VerificationFailedReason =
  struct
    type nonrec t =
      | INVALID_MAC 
      | INVALID_PIN 
      | INVALID_VALIDATION_DATA 
      | INVALID_AUTH_REQUEST_CRYPTOGRAM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVALID_MAC -> "INVALID_MAC"
      | INVALID_PIN -> "INVALID_PIN"
      | INVALID_VALIDATION_DATA -> "INVALID_VALIDATION_DATA"
      | INVALID_AUTH_REQUEST_CRYPTOGRAM -> "INVALID_AUTH_REQUEST_CRYPTOGRAM"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVALID_MAC" -> INVALID_MAC
      | "INVALID_PIN" -> INVALID_PIN
      | "INVALID_VALIDATION_DATA" -> INVALID_VALIDATION_DATA
      | "INVALID_AUTH_REQUEST_CRYPTOGRAM" -> INVALID_AUTH_REQUEST_CRYPTOGRAM
      | 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 VerificationFailedReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VerificationFailedReason" j)
    let to_json = simple_to_json to_value
  end
module Ibm3624PinVerification =
  struct
    type nonrec t =
      {
      decimalizationTable: DecimalizationTableType.t
        [@ocaml.doc
          "The decimalization table to use for IBM 3624 PIN algorithm. The table is used to convert the algorithm intermediate result from hexadecimal characters to decimal."];
      pinValidationDataPadCharacter: HexLengthEquals1.t
        [@ocaml.doc "The padding character for validation data."];
      pinValidationData: PinValidationDataType.t
        [@ocaml.doc "The unique data for cardholder identification."];
      pinOffset: PinOffsetType.t [@ocaml.doc "The PIN offset value."]}
    let context_ = "Ibm3624PinVerification"
    let make ~decimalizationTable =
      fun ~pinValidationDataPadCharacter ->
        fun ~pinValidationData ->
          fun ~pinOffset ->
            fun () ->
              {
                decimalizationTable;
                pinValidationDataPadCharacter;
                pinValidationData;
                pinOffset
              }
    let to_value x =
      structure_to_value
        [("DecimalizationTable",
           (Some (DecimalizationTableType.to_value x.decimalizationTable)));
        ("PinValidationDataPadCharacter",
          (Some (HexLengthEquals1.to_value x.pinValidationDataPadCharacter)));
        ("PinValidationData",
          (Some (PinValidationDataType.to_value x.pinValidationData)));
        ("PinOffset", (Some (PinOffsetType.to_value x.pinOffset)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinOffset =
        PinOffsetType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinOffset") in
      let pinValidationData =
        PinValidationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinValidationData") in
      let pinValidationDataPadCharacter =
        HexLengthEquals1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PinValidationDataPadCharacter") in
      let decimalizationTable =
        DecimalizationTableType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DecimalizationTable") in
      make ~pinOffset ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinOffset = field_map_exn json__ "PinOffset" PinOffsetType.of_json in
      let pinValidationData =
        field_map_exn json__ "PinValidationData"
          PinValidationDataType.of_json in
      let pinValidationDataPadCharacter =
        field_map_exn json__ "PinValidationDataPadCharacter"
          HexLengthEquals1.of_json in
      let decimalizationTable =
        field_map_exn json__ "DecimalizationTable"
          DecimalizationTableType.of_json in
      make ~pinOffset ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Ibm3624 PIN verification PIN."]
module VisaPinVerification =
  struct
    type nonrec t =
      {
      pinVerificationKeyIndex: IntegerRangeBetween0And6.t
        [@ocaml.doc
          "The value for PIN verification index. It is used in the Visa PIN algorithm to calculate the PVV (PIN Verification Value)."];
      verificationValue: VerificationValueType.t
        [@ocaml.doc
          "Parameters that are required to generate or verify Visa PVV (PIN Verification Value)."]}
    let context_ = "VisaPinVerification"
    let make ~pinVerificationKeyIndex =
      fun ~verificationValue ->
        fun () -> { pinVerificationKeyIndex; verificationValue }
    let to_value x =
      structure_to_value
        [("PinVerificationKeyIndex",
           (Some
              (IntegerRangeBetween0And6.to_value x.pinVerificationKeyIndex)));
        ("VerificationValue",
          (Some (VerificationValueType.to_value x.verificationValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationValue =
        VerificationValueType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationValue") in
      let pinVerificationKeyIndex =
        IntegerRangeBetween0And6.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinVerificationKeyIndex") in
      make ~verificationValue ~pinVerificationKeyIndex ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationValue =
        field_map_exn json__ "VerificationValue"
          VerificationValueType.of_json in
      let pinVerificationKeyIndex =
        field_map_exn json__ "PinVerificationKeyIndex"
          IntegerRangeBetween0And6.of_json in
      make ~verificationValue ~pinVerificationKeyIndex ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Visa PIN."]
module KeyCheckValueAlgorithm =
  struct
    type nonrec t =
      | CMAC 
      | ANSI_X9_24 
      | HMAC 
      | SHA_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CMAC -> "CMAC"
      | ANSI_X9_24 -> "ANSI_X9_24"
      | HMAC -> "HMAC"
      | SHA_1 -> "SHA_1"
      | Non_static_id s -> s
    let of_string =
      function
      | "CMAC" -> CMAC
      | "ANSI_X9_24" -> ANSI_X9_24
      | "HMAC" -> HMAC
      | "SHA_1" -> SHA_1
      | 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 KeyCheckValueAlgorithm" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"KeyCheckValueAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module WrappedKeyMaterial =
  struct
    type nonrec t =
      {
      tr31KeyBlock: Tr31WrappedKeyBlock.t option
        [@ocaml.doc "The TR-31 wrapped key block."];
      diffieHellmanSymmetricKey: EcdhDerivationAttributes.t option
        [@ocaml.doc
          "The parameter information for deriving a ECDH shared key."]}
    let make ?tr31KeyBlock =
      fun ?diffieHellmanSymmetricKey ->
        fun () -> { tr31KeyBlock; diffieHellmanSymmetricKey }
    let to_value x =
      structure_to_value
        [("Tr31KeyBlock",
           (Option.map x.tr31KeyBlock ~f:Tr31WrappedKeyBlock.to_value));
        ("DiffieHellmanSymmetricKey",
          (Option.map x.diffieHellmanSymmetricKey
             ~f:EcdhDerivationAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diffieHellmanSymmetricKey =
        (Option.map ~f:EcdhDerivationAttributes.of_xml)
          (Xml.child xml_arg0 "DiffieHellmanSymmetricKey") in
      let tr31KeyBlock =
        (Option.map ~f:Tr31WrappedKeyBlock.of_xml)
          (Xml.child xml_arg0 "Tr31KeyBlock") in
      make ?diffieHellmanSymmetricKey ?tr31KeyBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diffieHellmanSymmetricKey =
        field_map json__ "DiffieHellmanSymmetricKey"
          EcdhDerivationAttributes.of_json in
      let tr31KeyBlock =
        field_map json__ "Tr31KeyBlock" Tr31WrappedKeyBlock.of_json in
      make ?diffieHellmanSymmetricKey ?tr31KeyBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information of a WrappedKeyBlock for encryption key exchange."]
module MacAlgorithm =
  struct
    type nonrec t =
      | ISO9797_ALGORITHM1 
      | ISO9797_ALGORITHM3 
      | CMAC 
      | HMAC 
      | HMAC_SHA224 
      | HMAC_SHA256 
      | HMAC_SHA384 
      | HMAC_SHA512 
      | AS2805_4_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ISO9797_ALGORITHM1 -> "ISO9797_ALGORITHM1"
      | ISO9797_ALGORITHM3 -> "ISO9797_ALGORITHM3"
      | CMAC -> "CMAC"
      | HMAC -> "HMAC"
      | HMAC_SHA224 -> "HMAC_SHA224"
      | HMAC_SHA256 -> "HMAC_SHA256"
      | HMAC_SHA384 -> "HMAC_SHA384"
      | HMAC_SHA512 -> "HMAC_SHA512"
      | AS2805_4_1 -> "AS2805_4_1"
      | Non_static_id s -> s
    let of_string =
      function
      | "ISO9797_ALGORITHM1" -> ISO9797_ALGORITHM1
      | "ISO9797_ALGORITHM3" -> ISO9797_ALGORITHM3
      | "CMAC" -> CMAC
      | "HMAC" -> HMAC
      | "HMAC_SHA224" -> HMAC_SHA224
      | "HMAC_SHA256" -> HMAC_SHA256
      | "HMAC_SHA384" -> HMAC_SHA384
      | "HMAC_SHA512" -> HMAC_SHA512
      | "AS2805_4_1" -> AS2805_4_1
      | 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 MacAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MacAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module MacAlgorithmDukpt =
  struct
    type nonrec t =
      {
      keySerialNumber: HexLength16Or20Or24.t
        [@ocaml.doc
          "The unique identifier known as Key Serial Number (KSN) that comes from an encrypting device using DUKPT encryption method. The KSN is derived from the encrypting device unique identifier and an internal transaction counter."];
      dukptKeyVariant: DukptKeyVariant.t
        [@ocaml.doc
          "The type of use of DUKPT, which can be MAC generation, MAC verification, or both."];
      dukptDerivationType: DukptDerivationType.t option
        [@ocaml.doc
          "The key type derived using DUKPT from a Base Derivation Key (BDK) and Key Serial Number (KSN). This must be less than or equal to the strength of the BDK. For example, you can't use AES_128 as a derivation type for a BDK of AES_128 or TDES_2KEY."]}
    let context_ = "MacAlgorithmDukpt"
    let make ?dukptDerivationType =
      fun ~keySerialNumber ->
        fun ~dukptKeyVariant ->
          fun () -> { dukptDerivationType; keySerialNumber; dukptKeyVariant }
    let to_value x =
      structure_to_value
        [("KeySerialNumber",
           (Some (HexLength16Or20Or24.to_value x.keySerialNumber)));
        ("DukptKeyVariant",
          (Some (DukptKeyVariant.to_value x.dukptKeyVariant)));
        ("DukptDerivationType",
          (Option.map x.dukptDerivationType ~f:DukptDerivationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dukptDerivationType =
        (Option.map ~f:DukptDerivationType.of_xml)
          (Xml.child xml_arg0 "DukptDerivationType") in
      let dukptKeyVariant =
        DukptKeyVariant.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DukptKeyVariant") in
      let keySerialNumber =
        HexLength16Or20Or24.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeySerialNumber") in
      make ?dukptDerivationType ~dukptKeyVariant ~keySerialNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dukptDerivationType =
        field_map json__ "DukptDerivationType" DukptDerivationType.of_json in
      let dukptKeyVariant =
        field_map_exn json__ "DukptKeyVariant" DukptKeyVariant.of_json in
      let keySerialNumber =
        field_map_exn json__ "KeySerialNumber" HexLength16Or20Or24.of_json in
      make ?dukptDerivationType ~dukptKeyVariant ~keySerialNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters required for DUKPT MAC generation and verification."]
module MacAlgorithmEmv =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the master key for EMV MAC generation or verification."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN), a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      sessionKeyDerivationMode: SessionKeyDerivationMode.t
        [@ocaml.doc
          "The method of deriving a session key for EMV MAC generation or verification."];
      sessionKeyDerivationValue: SessionKeyDerivationValue.t
        [@ocaml.doc
          "Parameters that are required to generate session key for EMV generation and verification."]}
    let context_ = "MacAlgorithmEmv"
    let make ~majorKeyDerivationMode =
      fun ~primaryAccountNumber ->
        fun ~panSequenceNumber ->
          fun ~sessionKeyDerivationMode ->
            fun ~sessionKeyDerivationValue ->
              fun () ->
                {
                  majorKeyDerivationMode;
                  primaryAccountNumber;
                  panSequenceNumber;
                  sessionKeyDerivationMode;
                  sessionKeyDerivationValue
                }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("SessionKeyDerivationMode",
          (Some
             (SessionKeyDerivationMode.to_value x.sessionKeyDerivationMode)));
        ("SessionKeyDerivationValue",
          (Some
             (SessionKeyDerivationValue.to_value x.sessionKeyDerivationValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionKeyDerivationValue =
        SessionKeyDerivationValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SessionKeyDerivationValue") in
      let sessionKeyDerivationMode =
        SessionKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SessionKeyDerivationMode") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ~sessionKeyDerivationValue ~sessionKeyDerivationMode
        ~panSequenceNumber ~primaryAccountNumber ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionKeyDerivationValue =
        field_map_exn json__ "SessionKeyDerivationValue"
          SessionKeyDerivationValue.of_json in
      let sessionKeyDerivationMode =
        field_map_exn json__ "SessionKeyDerivationMode"
          SessionKeyDerivationMode.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      make ~sessionKeyDerivationValue ~sessionKeyDerivationMode
        ~panSequenceNumber ~primaryAccountNumber ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for EMV MAC generation and verification."]
module AmexCardSecurityCodeVersion1 =
  struct
    type nonrec t =
      {
      cardExpiryDate: CardExpiryDateType.t
        [@ocaml.doc "The expiry date of a payment card."]}
    let context_ = "AmexCardSecurityCodeVersion1"
    let make ~cardExpiryDate = fun () -> { cardExpiryDate }
    let to_value x =
      structure_to_value
        [("CardExpiryDate",
           (Some (CardExpiryDateType.to_value x.cardExpiryDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cardExpiryDate =
        CardExpiryDateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardExpiryDate") in
      make ~cardExpiryDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cardExpiryDate =
        field_map_exn json__ "CardExpiryDate" CardExpiryDateType.of_json in
      make ~cardExpiryDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are required to generate a Card Security Code (CSC2) for an AMEX payment card."]
module AmexCardSecurityCodeVersion2 =
  struct
    type nonrec t =
      {
      cardExpiryDate: CardExpiryDateType.t
        [@ocaml.doc "The expiry date of a payment card."];
      serviceCode: ServiceCodeType.t
        [@ocaml.doc
          "The service code of the AMEX payment card. This is different from the Card Security Code (CSC)."]}
    let context_ = "AmexCardSecurityCodeVersion2"
    let make ~cardExpiryDate =
      fun ~serviceCode -> fun () -> { cardExpiryDate; serviceCode }
    let to_value x =
      structure_to_value
        [("CardExpiryDate",
           (Some (CardExpiryDateType.to_value x.cardExpiryDate)));
        ("ServiceCode", (Some (ServiceCodeType.to_value x.serviceCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        ServiceCodeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      let cardExpiryDate =
        CardExpiryDateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardExpiryDate") in
      make ~serviceCode ~cardExpiryDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCodeType.of_json in
      let cardExpiryDate =
        field_map_exn json__ "CardExpiryDate" CardExpiryDateType.of_json in
      make ~serviceCode ~cardExpiryDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are required to generate a Card Security Code (CSC2) for an AMEX payment card."]
module CardHolderVerificationValue =
  struct
    type nonrec t =
      {
      unpredictableNumber: HexLengthBetween2And8.t
        [@ocaml.doc "A random number generated by the issuer."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      applicationTransactionCounter: HexLengthBetween2And4.t
        [@ocaml.doc
          "The transaction counter value that comes from a point of sale terminal."]}
    let context_ = "CardHolderVerificationValue"
    let make ~unpredictableNumber =
      fun ~panSequenceNumber ->
        fun ~applicationTransactionCounter ->
          fun () ->
            {
              unpredictableNumber;
              panSequenceNumber;
              applicationTransactionCounter
            }
    let to_value x =
      structure_to_value
        [("UnpredictableNumber",
           (Some (HexLengthBetween2And8.to_value x.unpredictableNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some
             (HexLengthBetween2And4.to_value x.applicationTransactionCounter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        HexLengthBetween2And4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let unpredictableNumber =
        HexLengthBetween2And8.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UnpredictableNumber") in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~unpredictableNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthBetween2And4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let unpredictableNumber =
        field_map_exn json__ "UnpredictableNumber"
          HexLengthBetween2And8.of_json in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~unpredictableNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are required to generate a cardholder verification value for the payment card."]
module CardVerificationValue1 =
  struct
    type nonrec t =
      {
      cardExpiryDate: CardExpiryDateType.t
        [@ocaml.doc "The expiry date of a payment card."];
      serviceCode: ServiceCodeType.t
        [@ocaml.doc
          "The service code of the payment card. This is different from Card Security Code (CSC)."]}
    let context_ = "CardVerificationValue1"
    let make ~cardExpiryDate =
      fun ~serviceCode -> fun () -> { cardExpiryDate; serviceCode }
    let to_value x =
      structure_to_value
        [("CardExpiryDate",
           (Some (CardExpiryDateType.to_value x.cardExpiryDate)));
        ("ServiceCode", (Some (ServiceCodeType.to_value x.serviceCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        ServiceCodeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      let cardExpiryDate =
        CardExpiryDateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardExpiryDate") in
      make ~serviceCode ~cardExpiryDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCodeType.of_json in
      let cardExpiryDate =
        field_map_exn json__ "CardExpiryDate" CardExpiryDateType.of_json in
      make ~serviceCode ~cardExpiryDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are required to verify CVV (Card Verification Value) for the payment card."]
module CardVerificationValue2 =
  struct
    type nonrec t =
      {
      cardExpiryDate: CardExpiryDateType.t
        [@ocaml.doc "The expiry date of a payment card."]}
    let context_ = "CardVerificationValue2"
    let make ~cardExpiryDate = fun () -> { cardExpiryDate }
    let to_value x =
      structure_to_value
        [("CardExpiryDate",
           (Some (CardExpiryDateType.to_value x.cardExpiryDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cardExpiryDate =
        CardExpiryDateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardExpiryDate") in
      make ~cardExpiryDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cardExpiryDate =
        field_map_exn json__ "CardExpiryDate" CardExpiryDateType.of_json in
      make ~cardExpiryDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are required to verify Card Verification Value (CVV2) for the payment card."]
module DiscoverDynamicCardVerificationCode =
  struct
    type nonrec t =
      {
      cardExpiryDate: CardExpiryDateType.t
        [@ocaml.doc "The expiry date of a payment card."];
      unpredictableNumber: HexLengthBetween2And8.t
        [@ocaml.doc "A random number that is generated by the issuer."];
      applicationTransactionCounter: HexLengthBetween2And4.t
        [@ocaml.doc
          "The transaction counter value that comes from the terminal."]}
    let context_ = "DiscoverDynamicCardVerificationCode"
    let make ~cardExpiryDate =
      fun ~unpredictableNumber ->
        fun ~applicationTransactionCounter ->
          fun () ->
            {
              cardExpiryDate;
              unpredictableNumber;
              applicationTransactionCounter
            }
    let to_value x =
      structure_to_value
        [("CardExpiryDate",
           (Some (CardExpiryDateType.to_value x.cardExpiryDate)));
        ("UnpredictableNumber",
          (Some (HexLengthBetween2And8.to_value x.unpredictableNumber)));
        ("ApplicationTransactionCounter",
          (Some
             (HexLengthBetween2And4.to_value x.applicationTransactionCounter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        HexLengthBetween2And4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let unpredictableNumber =
        HexLengthBetween2And8.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UnpredictableNumber") in
      let cardExpiryDate =
        CardExpiryDateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardExpiryDate") in
      make ~applicationTransactionCounter ~unpredictableNumber
        ~cardExpiryDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthBetween2And4.of_json in
      let unpredictableNumber =
        field_map_exn json__ "UnpredictableNumber"
          HexLengthBetween2And8.of_json in
      let cardExpiryDate =
        field_map_exn json__ "CardExpiryDate" CardExpiryDateType.of_json in
      make ~applicationTransactionCounter ~unpredictableNumber
        ~cardExpiryDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify dCVC (Dynamic Card Verification Code)."]
module DynamicCardVerificationCode =
  struct
    type nonrec t =
      {
      unpredictableNumber: HexLengthBetween2And8.t
        [@ocaml.doc "A random number generated by the issuer."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      applicationTransactionCounter: HexLengthBetween2And4.t
        [@ocaml.doc
          "The transaction counter value that comes from the terminal."];
      trackData: TrackDataType.t
        [@ocaml.doc
          "The data on the two tracks of magnetic cards used for financial transactions. This includes the cardholder name, PAN, expiration date, bank ID (BIN) and several other numbers the issuing bank uses to validate the data received."]}
    let context_ = "DynamicCardVerificationCode"
    let make ~unpredictableNumber =
      fun ~panSequenceNumber ->
        fun ~applicationTransactionCounter ->
          fun ~trackData ->
            fun () ->
              {
                unpredictableNumber;
                panSequenceNumber;
                applicationTransactionCounter;
                trackData
              }
    let to_value x =
      structure_to_value
        [("UnpredictableNumber",
           (Some (HexLengthBetween2And8.to_value x.unpredictableNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some
             (HexLengthBetween2And4.to_value x.applicationTransactionCounter)));
        ("TrackData", (Some (TrackDataType.to_value x.trackData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trackData =
        TrackDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TrackData") in
      let applicationTransactionCounter =
        HexLengthBetween2And4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let unpredictableNumber =
        HexLengthBetween2And8.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UnpredictableNumber") in
      make ~trackData ~applicationTransactionCounter ~panSequenceNumber
        ~unpredictableNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trackData = field_map_exn json__ "TrackData" TrackDataType.of_json in
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthBetween2And4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let unpredictableNumber =
        field_map_exn json__ "UnpredictableNumber"
          HexLengthBetween2And8.of_json in
      make ~trackData ~applicationTransactionCounter ~panSequenceNumber
        ~unpredictableNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Dynamic Card Verification Value (dCVV)."]
module DynamicCardVerificationValue =
  struct
    type nonrec t =
      {
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      cardExpiryDate: CardExpiryDateType.t
        [@ocaml.doc "The expiry date of a payment card."];
      serviceCode: ServiceCodeType.t
        [@ocaml.doc
          "The service code of the payment card. This is different from Card Security Code (CSC)."];
      applicationTransactionCounter: HexLengthBetween2And4.t
        [@ocaml.doc
          "The transaction counter value that comes from the terminal."]}
    let context_ = "DynamicCardVerificationValue"
    let make ~panSequenceNumber =
      fun ~cardExpiryDate ->
        fun ~serviceCode ->
          fun ~applicationTransactionCounter ->
            fun () ->
              {
                panSequenceNumber;
                cardExpiryDate;
                serviceCode;
                applicationTransactionCounter
              }
    let to_value x =
      structure_to_value
        [("PanSequenceNumber",
           (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("CardExpiryDate",
          (Some (CardExpiryDateType.to_value x.cardExpiryDate)));
        ("ServiceCode", (Some (ServiceCodeType.to_value x.serviceCode)));
        ("ApplicationTransactionCounter",
          (Some
             (HexLengthBetween2And4.to_value x.applicationTransactionCounter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        HexLengthBetween2And4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let serviceCode =
        ServiceCodeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      let cardExpiryDate =
        CardExpiryDateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardExpiryDate") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      make ~applicationTransactionCounter ~serviceCode ~cardExpiryDate
        ~panSequenceNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthBetween2And4.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCodeType.of_json in
      let cardExpiryDate =
        field_map_exn json__ "CardExpiryDate" CardExpiryDateType.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      make ~applicationTransactionCounter ~serviceCode ~cardExpiryDate
        ~panSequenceNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Dynamic Card Verification Value (dCVV)."]
module CryptogramVerificationArpcMethod1 =
  struct
    type nonrec t =
      {
      authResponseCode: HexLengthEquals4.t
        [@ocaml.doc
          "The auth code used to calculate APRC after ARQC verification is successful. This is the same auth code used for ARQC generation outside of Amazon Web Services Payment Cryptography."]}
    let context_ = "CryptogramVerificationArpcMethod1"
    let make ~authResponseCode = fun () -> { authResponseCode }
    let to_value x =
      structure_to_value
        [("AuthResponseCode",
           (Some (HexLengthEquals4.to_value x.authResponseCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authResponseCode =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuthResponseCode") in
      make ~authResponseCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authResponseCode =
        field_map_exn json__ "AuthResponseCode" HexLengthEquals4.of_json in
      make ~authResponseCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for ARPC response generation using method1 after ARQC verification is successful."]
module CryptogramVerificationArpcMethod2 =
  struct
    type nonrec t =
      {
      cardStatusUpdate: HexLengthEquals8.t
        [@ocaml.doc
          "The data indicating whether the issuer approves or declines an online transaction using an EMV chip card."];
      proprietaryAuthenticationData:
        ProprietaryAuthenticationDataType.t option
        [@ocaml.doc
          "The proprietary authentication data used by issuer for communication during online transaction using an EMV chip card."]}
    let context_ = "CryptogramVerificationArpcMethod2"
    let make ?proprietaryAuthenticationData =
      fun ~cardStatusUpdate ->
        fun () -> { proprietaryAuthenticationData; cardStatusUpdate }
    let to_value x =
      structure_to_value
        [("CardStatusUpdate",
           (Some (HexLengthEquals8.to_value x.cardStatusUpdate)));
        ("ProprietaryAuthenticationData",
          (Option.map x.proprietaryAuthenticationData
             ~f:ProprietaryAuthenticationDataType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proprietaryAuthenticationData =
        (Option.map ~f:ProprietaryAuthenticationDataType.of_xml)
          (Xml.child xml_arg0 "ProprietaryAuthenticationData") in
      let cardStatusUpdate =
        HexLengthEquals8.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CardStatusUpdate") in
      make ?proprietaryAuthenticationData ~cardStatusUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proprietaryAuthenticationData =
        field_map json__ "ProprietaryAuthenticationData"
          ProprietaryAuthenticationDataType.of_json in
      let cardStatusUpdate =
        field_map_exn json__ "CardStatusUpdate" HexLengthEquals8.of_json in
      make ?proprietaryAuthenticationData ~cardStatusUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for ARPC response generation using method2 after ARQC verification is successful."]
module SessionKeyAmex =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."]}
    let context_ = "SessionKeyAmex"
    let make ~primaryAccountNumber =
      fun ~panSequenceNumber ->
        fun () -> { primaryAccountNumber; panSequenceNumber }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~panSequenceNumber ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~panSequenceNumber ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive session key for an Amex payment card."]
module SessionKeyEmv2000 =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      applicationTransactionCounter: HexLengthEquals4.t
        [@ocaml.doc
          "The transaction counter that is provided by the terminal during transaction processing."]}
    let context_ = "SessionKeyEmv2000"
    let make ~primaryAccountNumber =
      fun ~panSequenceNumber ->
        fun ~applicationTransactionCounter ->
          fun () ->
            {
              primaryAccountNumber;
              panSequenceNumber;
              applicationTransactionCounter
            }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some (HexLengthEquals4.to_value x.applicationTransactionCounter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive session key for an Emv2000 payment card for ARQC verification."]
module SessionKeyEmvCommon =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      applicationTransactionCounter: HexLengthEquals4.t
        [@ocaml.doc
          "The transaction counter that is provided by the terminal during transaction processing."]}
    let context_ = "SessionKeyEmvCommon"
    let make ~primaryAccountNumber =
      fun ~panSequenceNumber ->
        fun ~applicationTransactionCounter ->
          fun () ->
            {
              primaryAccountNumber;
              panSequenceNumber;
              applicationTransactionCounter
            }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some (HexLengthEquals4.to_value x.applicationTransactionCounter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive session key for an Emv common payment card for ARQC verification."]
module SessionKeyMastercard =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."];
      applicationTransactionCounter: HexLengthEquals4.t
        [@ocaml.doc
          "The transaction counter that is provided by the terminal during transaction processing."];
      unpredictableNumber: HexLengthBetween2And8.t
        [@ocaml.doc "A random number generated by the issuer."]}
    let context_ = "SessionKeyMastercard"
    let make ~primaryAccountNumber =
      fun ~panSequenceNumber ->
        fun ~applicationTransactionCounter ->
          fun ~unpredictableNumber ->
            fun () ->
              {
                primaryAccountNumber;
                panSequenceNumber;
                applicationTransactionCounter;
                unpredictableNumber
              }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some (HexLengthEquals4.to_value x.applicationTransactionCounter)));
        ("UnpredictableNumber",
          (Some (HexLengthBetween2And8.to_value x.unpredictableNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unpredictableNumber =
        HexLengthBetween2And8.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UnpredictableNumber") in
      let applicationTransactionCounter =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~unpredictableNumber ~applicationTransactionCounter
        ~panSequenceNumber ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unpredictableNumber =
        field_map_exn json__ "UnpredictableNumber"
          HexLengthBetween2And8.of_json in
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~unpredictableNumber ~applicationTransactionCounter
        ~panSequenceNumber ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive session key for Mastercard payment card for ARQC verification."]
module SessionKeyVisa =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN)."]}
    let context_ = "SessionKeyVisa"
    let make ~primaryAccountNumber =
      fun ~panSequenceNumber ->
        fun () -> { primaryAccountNumber; panSequenceNumber }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~panSequenceNumber ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~panSequenceNumber ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive session key for Visa payment card for ARQC verification."]
module SystemTraceAuditNumberType =
  struct
    type nonrec t = string
    let context_ = "SystemTraceAuditNumberType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:6) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SystemTraceAuditNumberType" j
    let to_json = simple_to_json to_value
  end
module TransactionAmountType =
  struct
    type nonrec t = string
    let context_ = "TransactionAmountType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransactionAmountType" j
    let to_json = simple_to_json to_value
  end
module TranslationPinDataAs2805Format0 =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."]}
    let context_ = "TranslationPinDataAs2805Format0"
    let make ~primaryAccountNumber = fun () -> { primaryAccountNumber }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for translation between AS2805 PIN format 0 translation."]
module TranslationPinDataIsoFormat034 =
  struct
    type nonrec t =
      {
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN) of the cardholder. A PAN is a unique identifier for a payment credit or debit card and associates the card to a specific account holder."]}
    let context_ = "TranslationPinDataIsoFormat034"
    let make ~primaryAccountNumber = fun () -> { primaryAccountNumber }
    let to_value x =
      structure_to_value
        [("PrimaryAccountNumber",
           (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      make ~primaryAccountNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      make ~primaryAccountNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for translation between ISO9564 PIN format 0,3,4 translation."]
module TranslationPinDataIsoFormat1 =
  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
       "Parameters that are required for ISO9564 PIN format 1 translation."]
module KeyCheckValue =
  struct
    type nonrec t = string
    let context_ = "KeyCheckValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"KeyCheckValue" j
    let to_json = simple_to_json to_value
  end
module KeyMaterial =
  struct
    type nonrec t = string
    let context_ = "KeyMaterial"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16384) >>=
             (fun () -> check_string_min i ~min:32));
        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:"KeyMaterial" j
    let to_json = simple_to_json to_value
  end
module WrappedKeyMaterialFormat =
  struct
    type nonrec t =
      | KEY_CRYPTOGRAM 
      | TR31_KEY_BLOCK 
      | TR34_KEY_BLOCK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | KEY_CRYPTOGRAM -> "KEY_CRYPTOGRAM"
      | TR31_KEY_BLOCK -> "TR31_KEY_BLOCK"
      | TR34_KEY_BLOCK -> "TR34_KEY_BLOCK"
      | Non_static_id s -> s
    let of_string =
      function
      | "KEY_CRYPTOGRAM" -> KEY_CRYPTOGRAM
      | "TR31_KEY_BLOCK" -> TR31_KEY_BLOCK
      | "TR34_KEY_BLOCK" -> TR34_KEY_BLOCK
      | 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 WrappedKeyMaterialFormat" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WrappedKeyMaterialFormat" j)
    let to_json = simple_to_json to_value
  end
module IncomingDiffieHellmanTr31KeyBlock =
  struct
    type nonrec t =
      {
      privateKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The keyARN of the asymmetric ECC key pair."];
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyArn of the certificate that signed the client's PublicKeyCertificate."];
      publicKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The client's public key certificate in PEM format (base64 encoded) to use for ECDH key derivation."];
      deriveKeyAlgorithm: SymmetricKeyAlgorithm.t
        [@ocaml.doc "The key algorithm of the derived ECDH key."];
      keyDerivationFunction: KeyDerivationFunction.t
        [@ocaml.doc
          "The key derivation function to use for deriving a key using ECDH."];
      keyDerivationHashAlgorithm: KeyDerivationHashAlgorithm.t
        [@ocaml.doc "The hash type to use for deriving a key using ECDH."];
      derivationData: DiffieHellmanDerivationData.t ;
      wrappedKeyBlock: Tr31WrappedKeyBlock.t
        [@ocaml.doc
          "The WrappedKeyBlock containing the transaction key wrapped using an ECDH dervied key."]}
    let context_ = "IncomingDiffieHellmanTr31KeyBlock"
    let make ~privateKeyIdentifier =
      fun ~certificateAuthorityPublicKeyIdentifier ->
        fun ~publicKeyCertificate ->
          fun ~deriveKeyAlgorithm ->
            fun ~keyDerivationFunction ->
              fun ~keyDerivationHashAlgorithm ->
                fun ~derivationData ->
                  fun ~wrappedKeyBlock ->
                    fun () ->
                      {
                        privateKeyIdentifier;
                        certificateAuthorityPublicKeyIdentifier;
                        publicKeyCertificate;
                        deriveKeyAlgorithm;
                        keyDerivationFunction;
                        keyDerivationHashAlgorithm;
                        derivationData;
                        wrappedKeyBlock
                      }
    let to_value x =
      structure_to_value
        [("PrivateKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.privateKeyIdentifier)));
        ("CertificateAuthorityPublicKeyIdentifier",
          (Some
             (KeyArnOrKeyAliasType.to_value
                x.certificateAuthorityPublicKeyIdentifier)));
        ("PublicKeyCertificate",
          (Some (CertificateType.to_value x.publicKeyCertificate)));
        ("DeriveKeyAlgorithm",
          (Some (SymmetricKeyAlgorithm.to_value x.deriveKeyAlgorithm)));
        ("KeyDerivationFunction",
          (Some (KeyDerivationFunction.to_value x.keyDerivationFunction)));
        ("KeyDerivationHashAlgorithm",
          (Some
             (KeyDerivationHashAlgorithm.to_value
                x.keyDerivationHashAlgorithm)));
        ("DerivationData",
          (Some (DiffieHellmanDerivationData.to_value x.derivationData)));
        ("WrappedKeyBlock",
          (Some (Tr31WrappedKeyBlock.to_value x.wrappedKeyBlock)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappedKeyBlock =
        Tr31WrappedKeyBlock.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappedKeyBlock") in
      let derivationData =
        DiffieHellmanDerivationData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DerivationData") in
      let keyDerivationHashAlgorithm =
        KeyDerivationHashAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "KeyDerivationHashAlgorithm") in
      let keyDerivationFunction =
        KeyDerivationFunction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyDerivationFunction") in
      let deriveKeyAlgorithm =
        SymmetricKeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeriveKeyAlgorithm") in
      let publicKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublicKeyCertificate") in
      let certificateAuthorityPublicKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CertificateAuthorityPublicKeyIdentifier") in
      let privateKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrivateKeyIdentifier") in
      make ~wrappedKeyBlock ~derivationData ~keyDerivationHashAlgorithm
        ~keyDerivationFunction ~deriveKeyAlgorithm ~publicKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ~privateKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappedKeyBlock =
        field_map_exn json__ "WrappedKeyBlock" Tr31WrappedKeyBlock.of_json in
      let derivationData =
        field_map_exn json__ "DerivationData"
          DiffieHellmanDerivationData.of_json in
      let keyDerivationHashAlgorithm =
        field_map_exn json__ "KeyDerivationHashAlgorithm"
          KeyDerivationHashAlgorithm.of_json in
      let keyDerivationFunction =
        field_map_exn json__ "KeyDerivationFunction"
          KeyDerivationFunction.of_json in
      let deriveKeyAlgorithm =
        field_map_exn json__ "DeriveKeyAlgorithm"
          SymmetricKeyAlgorithm.of_json in
      let publicKeyCertificate =
        field_map_exn json__ "PublicKeyCertificate" CertificateType.of_json in
      let certificateAuthorityPublicKeyIdentifier =
        field_map_exn json__ "CertificateAuthorityPublicKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let privateKeyIdentifier =
        field_map_exn json__ "PrivateKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~wrappedKeyBlock ~derivationData ~keyDerivationHashAlgorithm
        ~keyDerivationFunction ~deriveKeyAlgorithm ~publicKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ~privateKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information of a TR31KeyBlock wrapped using an ECDH derived key."]
module OutgoingTr31KeyBlock =
  struct
    type nonrec t =
      {
      wrappingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the KEK used to wrap the transaction key."]}
    let context_ = "OutgoingTr31KeyBlock"
    let make ~wrappingKeyIdentifier = fun () -> { wrappingKeyIdentifier }
    let to_value x =
      structure_to_value
        [("WrappingKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.wrappingKeyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyIdentifier") in
      make ~wrappingKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappingKeyIdentifier =
        field_map_exn json__ "WrappingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~wrappingKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information of the TR31WrappedKeyBlock containing the transaction key wrapped using a KEK."]
module DukptEncryptionAttributes =
  struct
    type nonrec t =
      {
      keySerialNumber: HexLength16Or20Or24.t
        [@ocaml.doc
          "The unique identifier known as Key Serial Number (KSN) that comes from an encrypting device using DUKPT encryption method. The KSN is derived from the encrypting device unique identifier and an internal transaction counter."];
      mode: DukptEncryptionMode.t option
        [@ocaml.doc
          "The block cipher method to use for encryption. The default is CBC."];
      dukptKeyDerivationType: DukptDerivationType.t option
        [@ocaml.doc
          "The key type encrypted using DUKPT from a Base Derivation Key (BDK) and Key Serial Number (KSN). This must be less than or equal to the strength of the BDK. For example, you can't use AES_128 as a derivation type for a BDK of AES_128 or TDES_2KEY"];
      dukptKeyVariant: DukptKeyVariant.t option
        [@ocaml.doc
          "The type of use of DUKPT, which can be incoming data decryption, outgoing data encryption, or both."];
      initializationVector: InitializationVectorType.t option
        [@ocaml.doc
          "An input used to provide the intial state. If no value is provided, Amazon Web Services Payment Cryptography defaults it to zero."]}
    let context_ = "DukptEncryptionAttributes"
    let make ?mode =
      fun ?dukptKeyDerivationType ->
        fun ?dukptKeyVariant ->
          fun ?initializationVector ->
            fun ~keySerialNumber ->
              fun () ->
                {
                  mode;
                  dukptKeyDerivationType;
                  dukptKeyVariant;
                  initializationVector;
                  keySerialNumber
                }
    let to_value x =
      structure_to_value
        [("KeySerialNumber",
           (Some (HexLength16Or20Or24.to_value x.keySerialNumber)));
        ("Mode", (Option.map x.mode ~f:DukptEncryptionMode.to_value));
        ("DukptKeyDerivationType",
          (Option.map x.dukptKeyDerivationType
             ~f:DukptDerivationType.to_value));
        ("DukptKeyVariant",
          (Option.map x.dukptKeyVariant ~f:DukptKeyVariant.to_value));
        ("InitializationVector",
          (Option.map x.initializationVector
             ~f:InitializationVectorType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initializationVector =
        (Option.map ~f:InitializationVectorType.of_xml)
          (Xml.child xml_arg0 "InitializationVector") in
      let dukptKeyVariant =
        (Option.map ~f:DukptKeyVariant.of_xml)
          (Xml.child xml_arg0 "DukptKeyVariant") in
      let dukptKeyDerivationType =
        (Option.map ~f:DukptDerivationType.of_xml)
          (Xml.child xml_arg0 "DukptKeyDerivationType") in
      let mode =
        (Option.map ~f:DukptEncryptionMode.of_xml)
          (Xml.child xml_arg0 "Mode") in
      let keySerialNumber =
        HexLength16Or20Or24.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeySerialNumber") in
      make ?initializationVector ?dukptKeyVariant ?dukptKeyDerivationType
        ?mode ~keySerialNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initializationVector =
        field_map json__ "InitializationVector"
          InitializationVectorType.of_json in
      let dukptKeyVariant =
        field_map json__ "DukptKeyVariant" DukptKeyVariant.of_json in
      let dukptKeyDerivationType =
        field_map json__ "DukptKeyDerivationType" DukptDerivationType.of_json in
      let mode = field_map json__ "Mode" DukptEncryptionMode.of_json in
      let keySerialNumber =
        field_map_exn json__ "KeySerialNumber" HexLength16Or20Or24.of_json in
      make ?initializationVector ?dukptKeyVariant ?dukptKeyDerivationType
        ?mode ~keySerialNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to encrypt plaintext data using DUKPT."]
module SymmetricEncryptionAttributes =
  struct
    type nonrec t =
      {
      mode: EncryptionMode.t
        [@ocaml.doc "The block cipher method to use for encryption."];
      initializationVector: InitializationVectorType.t option
        [@ocaml.doc
          "An input used to provide the intial state. If no value is provided, Amazon Web Services Payment Cryptography defaults it to zero."];
      paddingType: PaddingType.t option
        [@ocaml.doc "The padding to be included with the data."]}
    let context_ = "SymmetricEncryptionAttributes"
    let make ?initializationVector =
      fun ?paddingType ->
        fun ~mode -> fun () -> { initializationVector; paddingType; mode }
    let to_value x =
      structure_to_value
        [("Mode", (Some (EncryptionMode.to_value x.mode)));
        ("InitializationVector",
          (Option.map x.initializationVector
             ~f:InitializationVectorType.to_value));
        ("PaddingType", (Option.map x.paddingType ~f:PaddingType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let paddingType =
        (Option.map ~f:PaddingType.of_xml) (Xml.child xml_arg0 "PaddingType") in
      let initializationVector =
        (Option.map ~f:InitializationVectorType.of_xml)
          (Xml.child xml_arg0 "InitializationVector") in
      let mode =
        EncryptionMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Mode") in
      make ?paddingType ?initializationVector ~mode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let paddingType = field_map json__ "PaddingType" PaddingType.of_json in
      let initializationVector =
        field_map json__ "InitializationVector"
          InitializationVectorType.of_json in
      let mode = field_map_exn json__ "Mode" EncryptionMode.of_json in
      make ?paddingType ?initializationVector ~mode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters requried to encrypt plaintext data using symmetric keys."]
module Ibm3624NaturalPin =
  struct
    type nonrec t =
      {
      decimalizationTable: DecimalizationTableType.t
        [@ocaml.doc
          "The decimalization table to use for IBM 3624 PIN algorithm. The table is used to convert the algorithm intermediate result from hexadecimal characters to decimal."];
      pinValidationDataPadCharacter: HexLengthEquals1.t
        [@ocaml.doc "The padding character for validation data."];
      pinValidationData: PinValidationDataType.t
        [@ocaml.doc "The unique data for cardholder identification."]}
    let context_ = "Ibm3624NaturalPin"
    let make ~decimalizationTable =
      fun ~pinValidationDataPadCharacter ->
        fun ~pinValidationData ->
          fun () ->
            {
              decimalizationTable;
              pinValidationDataPadCharacter;
              pinValidationData
            }
    let to_value x =
      structure_to_value
        [("DecimalizationTable",
           (Some (DecimalizationTableType.to_value x.decimalizationTable)));
        ("PinValidationDataPadCharacter",
          (Some (HexLengthEquals1.to_value x.pinValidationDataPadCharacter)));
        ("PinValidationData",
          (Some (PinValidationDataType.to_value x.pinValidationData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinValidationData =
        PinValidationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinValidationData") in
      let pinValidationDataPadCharacter =
        HexLengthEquals1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PinValidationDataPadCharacter") in
      let decimalizationTable =
        DecimalizationTableType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DecimalizationTable") in
      make ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinValidationData =
        field_map_exn json__ "PinValidationData"
          PinValidationDataType.of_json in
      let pinValidationDataPadCharacter =
        field_map_exn json__ "PinValidationDataPadCharacter"
          HexLengthEquals1.of_json in
      let decimalizationTable =
        field_map_exn json__ "DecimalizationTable"
          DecimalizationTableType.of_json in
      make ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Ibm3624 natural PIN."]
module Ibm3624PinFromOffset =
  struct
    type nonrec t =
      {
      decimalizationTable: DecimalizationTableType.t
        [@ocaml.doc
          "The decimalization table to use for IBM 3624 PIN algorithm. The table is used to convert the algorithm intermediate result from hexadecimal characters to decimal."];
      pinValidationDataPadCharacter: HexLengthEquals1.t
        [@ocaml.doc "The padding character for validation data."];
      pinValidationData: PinValidationDataType.t
        [@ocaml.doc "The unique data for cardholder identification."];
      pinOffset: PinOffsetType.t [@ocaml.doc "The PIN offset value."]}
    let context_ = "Ibm3624PinFromOffset"
    let make ~decimalizationTable =
      fun ~pinValidationDataPadCharacter ->
        fun ~pinValidationData ->
          fun ~pinOffset ->
            fun () ->
              {
                decimalizationTable;
                pinValidationDataPadCharacter;
                pinValidationData;
                pinOffset
              }
    let to_value x =
      structure_to_value
        [("DecimalizationTable",
           (Some (DecimalizationTableType.to_value x.decimalizationTable)));
        ("PinValidationDataPadCharacter",
          (Some (HexLengthEquals1.to_value x.pinValidationDataPadCharacter)));
        ("PinValidationData",
          (Some (PinValidationDataType.to_value x.pinValidationData)));
        ("PinOffset", (Some (PinOffsetType.to_value x.pinOffset)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinOffset =
        PinOffsetType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinOffset") in
      let pinValidationData =
        PinValidationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinValidationData") in
      let pinValidationDataPadCharacter =
        HexLengthEquals1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PinValidationDataPadCharacter") in
      let decimalizationTable =
        DecimalizationTableType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DecimalizationTable") in
      make ~pinOffset ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinOffset = field_map_exn json__ "PinOffset" PinOffsetType.of_json in
      let pinValidationData =
        field_map_exn json__ "PinValidationData"
          PinValidationDataType.of_json in
      let pinValidationDataPadCharacter =
        field_map_exn json__ "PinValidationDataPadCharacter"
          HexLengthEquals1.of_json in
      let decimalizationTable =
        field_map_exn json__ "DecimalizationTable"
          DecimalizationTableType.of_json in
      make ~pinOffset ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Ibm3624 PIN from offset PIN."]
module Ibm3624PinOffset =
  struct
    type nonrec t =
      {
      encryptedPinBlock: EncryptedPinBlockType.t
        [@ocaml.doc
          "The encrypted PIN block data. According to ISO 9564 standard, a PIN Block is an encoded representation of a payment card Personal Account Number (PAN) and the cardholder Personal Identification Number (PIN)."];
      decimalizationTable: DecimalizationTableType.t
        [@ocaml.doc
          "The decimalization table to use for IBM 3624 PIN algorithm. The table is used to convert the algorithm intermediate result from hexadecimal characters to decimal."];
      pinValidationDataPadCharacter: HexLengthEquals1.t
        [@ocaml.doc "The padding character for validation data."];
      pinValidationData: PinValidationDataType.t
        [@ocaml.doc "The unique data for cardholder identification."]}
    let context_ = "Ibm3624PinOffset"
    let make ~encryptedPinBlock =
      fun ~decimalizationTable ->
        fun ~pinValidationDataPadCharacter ->
          fun ~pinValidationData ->
            fun () ->
              {
                encryptedPinBlock;
                decimalizationTable;
                pinValidationDataPadCharacter;
                pinValidationData
              }
    let to_value x =
      structure_to_value
        [("EncryptedPinBlock",
           (Some (EncryptedPinBlockType.to_value x.encryptedPinBlock)));
        ("DecimalizationTable",
          (Some (DecimalizationTableType.to_value x.decimalizationTable)));
        ("PinValidationDataPadCharacter",
          (Some (HexLengthEquals1.to_value x.pinValidationDataPadCharacter)));
        ("PinValidationData",
          (Some (PinValidationDataType.to_value x.pinValidationData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinValidationData =
        PinValidationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinValidationData") in
      let pinValidationDataPadCharacter =
        HexLengthEquals1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PinValidationDataPadCharacter") in
      let decimalizationTable =
        DecimalizationTableType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DecimalizationTable") in
      let encryptedPinBlock =
        EncryptedPinBlockType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptedPinBlock") in
      make ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ~encryptedPinBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinValidationData =
        field_map_exn json__ "PinValidationData"
          PinValidationDataType.of_json in
      let pinValidationDataPadCharacter =
        field_map_exn json__ "PinValidationDataPadCharacter"
          HexLengthEquals1.of_json in
      let decimalizationTable =
        field_map_exn json__ "DecimalizationTable"
          DecimalizationTableType.of_json in
      let encryptedPinBlock =
        field_map_exn json__ "EncryptedPinBlock"
          EncryptedPinBlockType.of_json in
      make ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ~encryptedPinBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pparameters that are required to generate or verify Ibm3624 PIN offset PIN."]
module Ibm3624RandomPin =
  struct
    type nonrec t =
      {
      decimalizationTable: DecimalizationTableType.t
        [@ocaml.doc
          "The decimalization table to use for IBM 3624 PIN algorithm. The table is used to convert the algorithm intermediate result from hexadecimal characters to decimal."];
      pinValidationDataPadCharacter: HexLengthEquals1.t
        [@ocaml.doc "The padding character for validation data."];
      pinValidationData: PinValidationDataType.t
        [@ocaml.doc "The unique data for cardholder identification."]}
    let context_ = "Ibm3624RandomPin"
    let make ~decimalizationTable =
      fun ~pinValidationDataPadCharacter ->
        fun ~pinValidationData ->
          fun () ->
            {
              decimalizationTable;
              pinValidationDataPadCharacter;
              pinValidationData
            }
    let to_value x =
      structure_to_value
        [("DecimalizationTable",
           (Some (DecimalizationTableType.to_value x.decimalizationTable)));
        ("PinValidationDataPadCharacter",
          (Some (HexLengthEquals1.to_value x.pinValidationDataPadCharacter)));
        ("PinValidationData",
          (Some (PinValidationDataType.to_value x.pinValidationData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinValidationData =
        PinValidationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinValidationData") in
      let pinValidationDataPadCharacter =
        HexLengthEquals1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PinValidationDataPadCharacter") in
      let decimalizationTable =
        DecimalizationTableType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DecimalizationTable") in
      make ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinValidationData =
        field_map_exn json__ "PinValidationData"
          PinValidationDataType.of_json in
      let pinValidationDataPadCharacter =
        field_map_exn json__ "PinValidationDataPadCharacter"
          HexLengthEquals1.of_json in
      let decimalizationTable =
        field_map_exn json__ "DecimalizationTable"
          DecimalizationTableType.of_json in
      make ~pinValidationData ~pinValidationDataPadCharacter
        ~decimalizationTable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Ibm3624 random PIN."]
module VisaPin =
  struct
    type nonrec t =
      {
      pinVerificationKeyIndex: IntegerRangeBetween0And6.t
        [@ocaml.doc
          "The value for PIN verification index. It is used in the Visa PIN algorithm to calculate the PVV (PIN Verification Value)."]}
    let context_ = "VisaPin"
    let make ~pinVerificationKeyIndex = fun () -> { pinVerificationKeyIndex }
    let to_value x =
      structure_to_value
        [("PinVerificationKeyIndex",
           (Some
              (IntegerRangeBetween0And6.to_value x.pinVerificationKeyIndex)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinVerificationKeyIndex =
        IntegerRangeBetween0And6.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinVerificationKeyIndex") in
      make ~pinVerificationKeyIndex ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinVerificationKeyIndex =
        field_map_exn json__ "PinVerificationKeyIndex"
          IntegerRangeBetween0And6.of_json in
      make ~pinVerificationKeyIndex ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Visa PIN."]
module VisaPinVerificationValue =
  struct
    type nonrec t =
      {
      encryptedPinBlock: EncryptedPinBlockType.t
        [@ocaml.doc "The encrypted PIN block data to verify."];
      pinVerificationKeyIndex: IntegerRangeBetween0And6.t
        [@ocaml.doc
          "The value for PIN verification index. It is used in the Visa PIN algorithm to calculate the PVV (PIN Verification Value)."]}
    let context_ = "VisaPinVerificationValue"
    let make ~encryptedPinBlock =
      fun ~pinVerificationKeyIndex ->
        fun () -> { encryptedPinBlock; pinVerificationKeyIndex }
    let to_value x =
      structure_to_value
        [("EncryptedPinBlock",
           (Some (EncryptedPinBlockType.to_value x.encryptedPinBlock)));
        ("PinVerificationKeyIndex",
          (Some (IntegerRangeBetween0And6.to_value x.pinVerificationKeyIndex)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinVerificationKeyIndex =
        IntegerRangeBetween0And6.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinVerificationKeyIndex") in
      let encryptedPinBlock =
        EncryptedPinBlockType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptedPinBlock") in
      make ~pinVerificationKeyIndex ~encryptedPinBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinVerificationKeyIndex =
        field_map_exn json__ "PinVerificationKeyIndex"
          IntegerRangeBetween0And6.of_json in
      let encryptedPinBlock =
        field_map_exn json__ "EncryptedPinBlock"
          EncryptedPinBlockType.of_json in
      make ~pinVerificationKeyIndex ~encryptedPinBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate or verify Visa PVV (PIN Verification Value)."]
module KeyArn =
  struct
    type nonrec t = string
    let context_ = "KeyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:70) >>=
             (fun () ->
                (check_string_max i ~max:150) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:payment-cryptography:[a-z]{2}-[a-z]{1,16}-[0-9]+:[0-9]{12}:key/[0-9a-zA-Z]{16,64}")));
        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:"KeyArn" j
    let to_json = simple_to_json to_value
  end
module AmexAttributes =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the master key for a payment card using Amex derivation."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc "The Primary Account Number (PAN) of the cardholder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN). Typically 00 is used, if no value is provided by the terminal."];
      applicationTransactionCounter: HexLengthEquals4.t
        [@ocaml.doc
          "The transaction counter of the current transaction that is provided by the terminal during transaction processing."];
      authorizationRequestKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyArn of the issuer master key for cryptogram (IMK-AC) for the payment card."];
      currentPinAttributes: CurrentPinAttributes.t option
        [@ocaml.doc
          "The encrypted pinblock of the old pin stored on the chip card."]}
    let context_ = "AmexAttributes"
    let make ?currentPinAttributes =
      fun ~majorKeyDerivationMode ->
        fun ~primaryAccountNumber ->
          fun ~panSequenceNumber ->
            fun ~applicationTransactionCounter ->
              fun ~authorizationRequestKeyIdentifier ->
                fun () ->
                  {
                    currentPinAttributes;
                    majorKeyDerivationMode;
                    primaryAccountNumber;
                    panSequenceNumber;
                    applicationTransactionCounter;
                    authorizationRequestKeyIdentifier
                  }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some (HexLengthEquals4.to_value x.applicationTransactionCounter)));
        ("AuthorizationRequestKeyIdentifier",
          (Some
             (KeyArnOrKeyAliasType.to_value
                x.authorizationRequestKeyIdentifier)));
        ("CurrentPinAttributes",
          (Option.map x.currentPinAttributes ~f:CurrentPinAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currentPinAttributes =
        (Option.map ~f:CurrentPinAttributes.of_xml)
          (Xml.child xml_arg0 "CurrentPinAttributes") in
      let authorizationRequestKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AuthorizationRequestKeyIdentifier") in
      let applicationTransactionCounter =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ?currentPinAttributes ~authorizationRequestKeyIdentifier
        ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currentPinAttributes =
        field_map json__ "CurrentPinAttributes" CurrentPinAttributes.of_json in
      let authorizationRequestKeyIdentifier =
        field_map_exn json__ "AuthorizationRequestKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      make ?currentPinAttributes ~authorizationRequestKeyIdentifier
        ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive the confidentiality and integrity keys for a payment card using Amex derivation method."]
module Emv2000Attributes =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the master key for the payment card."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc "The Primary Account Number (PAN) of the cardholder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN). Typically 00 is used, if no value is provided by the terminal."];
      applicationTransactionCounter: HexLengthEquals4.t
        [@ocaml.doc
          "The transaction counter of the current transaction that is provided by the terminal during transaction processing."]}
    let context_ = "Emv2000Attributes"
    let make ~majorKeyDerivationMode =
      fun ~primaryAccountNumber ->
        fun ~panSequenceNumber ->
          fun ~applicationTransactionCounter ->
            fun () ->
              {
                majorKeyDerivationMode;
                primaryAccountNumber;
                panSequenceNumber;
                applicationTransactionCounter
              }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some (HexLengthEquals4.to_value x.applicationTransactionCounter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationTransactionCounter =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      make ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive the confidentiality and integrity keys for a payment card using EMV2000 deruv."]
module EmvCommonAttributes =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the master key for the payment card."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc "The Primary Account Number (PAN) of the cardholder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN). Typically 00 is used, if no value is provided by the terminal."];
      applicationCryptogram: ApplicationCryptogramType.t
        [@ocaml.doc
          "The application cryptogram for the current transaction that is provided by the terminal during transaction processing."];
      mode: EmvEncryptionMode.t
        [@ocaml.doc "The block cipher method to use for encryption."];
      pinBlockPaddingType: PinBlockPaddingType.t
        [@ocaml.doc
          "The padding to be added to the PIN block prior to encryption. Padding type should be ISO_IEC_7816_4, if PinBlockLengthPosition is set to FRONT_OF_PIN_BLOCK. No padding is required, if PinBlockLengthPosition is set to NONE."];
      pinBlockLengthPosition: PinBlockLengthPosition.t
        [@ocaml.doc
          "Specifies if PIN block length should be added to front of the pin block. If value is set to FRONT_OF_PIN_BLOCK, then PIN block padding type should be ISO_IEC_7816_4."]}
    let context_ = "EmvCommonAttributes"
    let make ~majorKeyDerivationMode =
      fun ~primaryAccountNumber ->
        fun ~panSequenceNumber ->
          fun ~applicationCryptogram ->
            fun ~mode ->
              fun ~pinBlockPaddingType ->
                fun ~pinBlockLengthPosition ->
                  fun () ->
                    {
                      majorKeyDerivationMode;
                      primaryAccountNumber;
                      panSequenceNumber;
                      applicationCryptogram;
                      mode;
                      pinBlockPaddingType;
                      pinBlockLengthPosition
                    }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationCryptogram",
          (Some (ApplicationCryptogramType.to_value x.applicationCryptogram)));
        ("Mode", (Some (EmvEncryptionMode.to_value x.mode)));
        ("PinBlockPaddingType",
          (Some (PinBlockPaddingType.to_value x.pinBlockPaddingType)));
        ("PinBlockLengthPosition",
          (Some (PinBlockLengthPosition.to_value x.pinBlockLengthPosition)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinBlockLengthPosition =
        PinBlockLengthPosition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinBlockLengthPosition") in
      let pinBlockPaddingType =
        PinBlockPaddingType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinBlockPaddingType") in
      let mode =
        EmvEncryptionMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Mode") in
      let applicationCryptogram =
        ApplicationCryptogramType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationCryptogram") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ~pinBlockLengthPosition ~pinBlockPaddingType ~mode
        ~applicationCryptogram ~panSequenceNumber ~primaryAccountNumber
        ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinBlockLengthPosition =
        field_map_exn json__ "PinBlockLengthPosition"
          PinBlockLengthPosition.of_json in
      let pinBlockPaddingType =
        field_map_exn json__ "PinBlockPaddingType"
          PinBlockPaddingType.of_json in
      let mode = field_map_exn json__ "Mode" EmvEncryptionMode.of_json in
      let applicationCryptogram =
        field_map_exn json__ "ApplicationCryptogram"
          ApplicationCryptogramType.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      make ~pinBlockLengthPosition ~pinBlockPaddingType ~mode
        ~applicationCryptogram ~panSequenceNumber ~primaryAccountNumber
        ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive the confidentiality and integrity keys for an Emv common payment card."]
module MasterCardAttributes =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the master key for the payment card."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc "The Primary Account Number (PAN) of the cardholder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN). Typically 00 is used, if no value is provided by the terminal."];
      applicationCryptogram: ApplicationCryptogramType.t
        [@ocaml.doc
          "The application cryptogram for the current transaction that is provided by the terminal during transaction processing."]}
    let context_ = "MasterCardAttributes"
    let make ~majorKeyDerivationMode =
      fun ~primaryAccountNumber ->
        fun ~panSequenceNumber ->
          fun ~applicationCryptogram ->
            fun () ->
              {
                majorKeyDerivationMode;
                primaryAccountNumber;
                panSequenceNumber;
                applicationCryptogram
              }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationCryptogram",
          (Some (ApplicationCryptogramType.to_value x.applicationCryptogram)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationCryptogram =
        ApplicationCryptogramType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationCryptogram") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ~applicationCryptogram ~panSequenceNumber ~primaryAccountNumber
        ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationCryptogram =
        field_map_exn json__ "ApplicationCryptogram"
          ApplicationCryptogramType.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      make ~applicationCryptogram ~panSequenceNumber ~primaryAccountNumber
        ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive the confidentiality and integrity keys for a Mastercard payment card."]
module VisaAttributes =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the master key for the payment card."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc "The Primary Account Number (PAN) of the cardholder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN). Typically 00 is used, if no value is provided by the terminal."];
      applicationTransactionCounter: HexLengthEquals4.t
        [@ocaml.doc
          "The transaction counter of the current transaction that is provided by the terminal during transaction processing."];
      authorizationRequestKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyArn of the issuer master key for cryptogram (IMK-AC) for the payment card."];
      currentPinAttributes: CurrentPinAttributes.t option
        [@ocaml.doc
          "The encrypted pinblock of the old pin stored on the chip card."]}
    let context_ = "VisaAttributes"
    let make ?currentPinAttributes =
      fun ~majorKeyDerivationMode ->
        fun ~primaryAccountNumber ->
          fun ~panSequenceNumber ->
            fun ~applicationTransactionCounter ->
              fun ~authorizationRequestKeyIdentifier ->
                fun () ->
                  {
                    currentPinAttributes;
                    majorKeyDerivationMode;
                    primaryAccountNumber;
                    panSequenceNumber;
                    applicationTransactionCounter;
                    authorizationRequestKeyIdentifier
                  }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("ApplicationTransactionCounter",
          (Some (HexLengthEquals4.to_value x.applicationTransactionCounter)));
        ("AuthorizationRequestKeyIdentifier",
          (Some
             (KeyArnOrKeyAliasType.to_value
                x.authorizationRequestKeyIdentifier)));
        ("CurrentPinAttributes",
          (Option.map x.currentPinAttributes ~f:CurrentPinAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currentPinAttributes =
        (Option.map ~f:CurrentPinAttributes.of_xml)
          (Xml.child xml_arg0 "CurrentPinAttributes") in
      let authorizationRequestKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AuthorizationRequestKeyIdentifier") in
      let applicationTransactionCounter =
        HexLengthEquals4.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ApplicationTransactionCounter") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ?currentPinAttributes ~authorizationRequestKeyIdentifier
        ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currentPinAttributes =
        field_map json__ "CurrentPinAttributes" CurrentPinAttributes.of_json in
      let authorizationRequestKeyIdentifier =
        field_map_exn json__ "AuthorizationRequestKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let applicationTransactionCounter =
        field_map_exn json__ "ApplicationTransactionCounter"
          HexLengthEquals4.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      make ?currentPinAttributes ~authorizationRequestKeyIdentifier
        ~applicationTransactionCounter ~panSequenceNumber
        ~primaryAccountNumber ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive the confidentiality and integrity keys for a Visa payment card."]
module KekValidationRequest =
  struct
    type nonrec t =
      {
      deriveKeyAlgorithm: SymmetricKeyAlgorithm.t
        [@ocaml.doc
          "The key derivation algorithm to use for generating a KEK validation request."]}
    let context_ = "KekValidationRequest"
    let make ~deriveKeyAlgorithm = fun () -> { deriveKeyAlgorithm }
    let to_value x =
      structure_to_value
        [("DeriveKeyAlgorithm",
           (Some (SymmetricKeyAlgorithm.to_value x.deriveKeyAlgorithm)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deriveKeyAlgorithm =
        SymmetricKeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeriveKeyAlgorithm") in
      make ~deriveKeyAlgorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deriveKeyAlgorithm =
        field_map_exn json__ "DeriveKeyAlgorithm"
          SymmetricKeyAlgorithm.of_json in
      make ~deriveKeyAlgorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for generating a KEK validation request during node-to-node initialization."]
module KekValidationResponse =
  struct
    type nonrec t =
      {
      randomKeySend: As2805RandomKeyMaterial.t
        [@ocaml.doc
          "The random key for generating a KEK validation response."]}
    let context_ = "KekValidationResponse"
    let make ~randomKeySend = fun () -> { randomKeySend }
    let to_value x =
      structure_to_value
        [("RandomKeySend",
           (Some (As2805RandomKeyMaterial.to_value x.randomKeySend)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let randomKeySend =
        As2805RandomKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RandomKeySend") in
      make ~randomKeySend ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let randomKeySend =
        field_map_exn json__ "RandomKeySend" As2805RandomKeyMaterial.of_json in
      make ~randomKeySend ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for generating a KEK validation response during node-to-node initialization."]
module AsymmetricEncryptionAttributes =
  struct
    type nonrec t =
      {
      paddingType: PaddingType.t option
        [@ocaml.doc "The padding to be included with the data."]}
    let make ?paddingType = fun () -> { paddingType }
    let to_value x =
      structure_to_value
        [("PaddingType", (Option.map x.paddingType ~f:PaddingType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let paddingType =
        (Option.map ~f:PaddingType.of_xml) (Xml.child xml_arg0 "PaddingType") in
      make ?paddingType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let paddingType = field_map json__ "PaddingType" PaddingType.of_json in
      make ?paddingType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters for plaintext encryption using asymmetric keys."]
module EmvEncryptionAttributes =
  struct
    type nonrec t =
      {
      majorKeyDerivationMode: EmvMajorKeyDerivationMode.t
        [@ocaml.doc
          "The EMV derivation mode to use for ICC master key derivation as per EMV version 4.3 book 2."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN), a unique identifier for a payment credit or debit card and associates the card to a specific account holder."];
      panSequenceNumber: NumberLengthEquals2.t
        [@ocaml.doc
          "A number that identifies and differentiates payment cards with the same Primary Account Number (PAN). Typically 00 is used, if no value is provided by the terminal."];
      sessionDerivationData: SessionDerivationDataType.t
        [@ocaml.doc
          "The derivation value used to derive the ICC session key. It is typically the application transaction counter value padded with zeros or previous ARQC value padded with zeros as per EMV version 4.3 book 2."];
      mode: EmvEncryptionMode.t option
        [@ocaml.doc "The block cipher method to use for encryption."];
      initializationVector: InitializationVectorType.t option
        [@ocaml.doc
          "An input used to provide the intial state. If no value is provided, Amazon Web Services Payment Cryptography defaults it to zero."]}
    let context_ = "EmvEncryptionAttributes"
    let make ?mode =
      fun ?initializationVector ->
        fun ~majorKeyDerivationMode ->
          fun ~primaryAccountNumber ->
            fun ~panSequenceNumber ->
              fun ~sessionDerivationData ->
                fun () ->
                  {
                    mode;
                    initializationVector;
                    majorKeyDerivationMode;
                    primaryAccountNumber;
                    panSequenceNumber;
                    sessionDerivationData
                  }
    let to_value x =
      structure_to_value
        [("MajorKeyDerivationMode",
           (Some
              (EmvMajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("PanSequenceNumber",
          (Some (NumberLengthEquals2.to_value x.panSequenceNumber)));
        ("SessionDerivationData",
          (Some (SessionDerivationDataType.to_value x.sessionDerivationData)));
        ("Mode", (Option.map x.mode ~f:EmvEncryptionMode.to_value));
        ("InitializationVector",
          (Option.map x.initializationVector
             ~f:InitializationVectorType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initializationVector =
        (Option.map ~f:InitializationVectorType.of_xml)
          (Xml.child xml_arg0 "InitializationVector") in
      let mode =
        (Option.map ~f:EmvEncryptionMode.of_xml) (Xml.child xml_arg0 "Mode") in
      let sessionDerivationData =
        SessionDerivationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SessionDerivationData") in
      let panSequenceNumber =
        NumberLengthEquals2.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PanSequenceNumber") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let majorKeyDerivationMode =
        EmvMajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      make ?initializationVector ?mode ~sessionDerivationData
        ~panSequenceNumber ~primaryAccountNumber ~majorKeyDerivationMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initializationVector =
        field_map json__ "InitializationVector"
          InitializationVectorType.of_json in
      let mode = field_map json__ "Mode" EmvEncryptionMode.of_json in
      let sessionDerivationData =
        field_map_exn json__ "SessionDerivationData"
          SessionDerivationDataType.of_json in
      let panSequenceNumber =
        field_map_exn json__ "PanSequenceNumber" NumberLengthEquals2.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          EmvMajorKeyDerivationMode.of_json in
      make ?initializationVector ?mode ~sessionDerivationData
        ~panSequenceNumber ~primaryAccountNumber ~majorKeyDerivationMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Parameters for plaintext encryption using EMV keys."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request processing has failed because of an unknown error, exception, or failure."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      resourceId: String_.t option
        [@ocaml.doc "The resource that is missing."]}
    let make ?resourceId = fun () -> { resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Option.map x.resourceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      make ?resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      make ?resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to an invalid resource error."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc
          "The request was denied due to an invalid request error."]}
    let make ?message = fun ?fieldList -> fun () -> { message; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to an invalid request error."]
module VerificationFailedException =
  struct
    type nonrec t =
      {
      reason: VerificationFailedReason.t option
        [@ocaml.doc "The reason for the exception."];
      message: String_.t option }
    let make ?reason = fun ?message -> fun () -> { reason; message }
    let to_value x =
      structure_to_value
        [("Reason",
           (Option.map x.reason ~f:VerificationFailedReason.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let reason =
        (Option.map ~f:VerificationFailedReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      make ?message ?reason ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let reason = field_map json__ "Reason" VerificationFailedReason.of_json in
      make ?message ?reason ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This request failed verification."]
module DukptAttributes =
  struct
    type nonrec t =
      {
      keySerialNumber: HexLength16Or20Or24.t
        [@ocaml.doc
          "The unique identifier known as Key Serial Number (KSN) that comes from an encrypting device using DUKPT encryption method. The KSN is derived from the encrypting device unique identifier and an internal transaction counter."];
      dukptDerivationType: DukptDerivationType.t
        [@ocaml.doc
          "The key type derived using DUKPT from a Base Derivation Key (BDK) and Key Serial Number (KSN). This must be less than or equal to the strength of the BDK. For example, you can't use AES_128 as a derivation type for a BDK of AES_128 or TDES_2KEY."]}
    let context_ = "DukptAttributes"
    let make ~keySerialNumber =
      fun ~dukptDerivationType ->
        fun () -> { keySerialNumber; dukptDerivationType }
    let to_value x =
      structure_to_value
        [("KeySerialNumber",
           (Some (HexLength16Or20Or24.to_value x.keySerialNumber)));
        ("DukptDerivationType",
          (Some (DukptDerivationType.to_value x.dukptDerivationType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dukptDerivationType =
        DukptDerivationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DukptDerivationType") in
      let keySerialNumber =
        HexLength16Or20Or24.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeySerialNumber") in
      make ~dukptDerivationType ~keySerialNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dukptDerivationType =
        field_map_exn json__ "DukptDerivationType"
          DukptDerivationType.of_json in
      let keySerialNumber =
        field_map_exn json__ "KeySerialNumber" HexLength16Or20Or24.of_json in
      make ~dukptDerivationType ~keySerialNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are used for Derived Unique Key Per Transaction (DUKPT) derivation algorithm."]
module IntegerRangeBetween4And12 =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:12) >>= (fun () -> check_int_min i ~min:4));
        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 IntegerRangeBetween4And12"
           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 PinBlockFormatForPinData =
  struct
    type nonrec t =
      | ISO_FORMAT_0 
      | ISO_FORMAT_1 
      | ISO_FORMAT_3 
      | ISO_FORMAT_4 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ISO_FORMAT_0 -> "ISO_FORMAT_0"
      | ISO_FORMAT_1 -> "ISO_FORMAT_1"
      | ISO_FORMAT_3 -> "ISO_FORMAT_3"
      | ISO_FORMAT_4 -> "ISO_FORMAT_4"
      | Non_static_id s -> s
    let of_string =
      function
      | "ISO_FORMAT_0" -> ISO_FORMAT_0
      | "ISO_FORMAT_1" -> ISO_FORMAT_1
      | "ISO_FORMAT_3" -> ISO_FORMAT_3
      | "ISO_FORMAT_4" -> ISO_FORMAT_4
      | 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 PinBlockFormatForPinData" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PinBlockFormatForPinData" j)
    let to_json = simple_to_json to_value
  end
module PinVerificationAttributes =
  struct
    type nonrec t =
      {
      visaPin: VisaPinVerification.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Visa PIN."];
      ibm3624Pin: Ibm3624PinVerification.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Ibm3624 PIN."]}
    let make ?visaPin = fun ?ibm3624Pin -> fun () -> { visaPin; ibm3624Pin }
    let to_value x =
      structure_to_value
        [("VisaPin", (Option.map x.visaPin ~f:VisaPinVerification.to_value));
        ("Ibm3624Pin",
          (Option.map x.ibm3624Pin ~f:Ibm3624PinVerification.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ibm3624Pin =
        (Option.map ~f:Ibm3624PinVerification.of_xml)
          (Xml.child xml_arg0 "Ibm3624Pin") in
      let visaPin =
        (Option.map ~f:VisaPinVerification.of_xml)
          (Xml.child xml_arg0 "VisaPin") in
      make ?ibm3624Pin ?visaPin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ibm3624Pin =
        field_map json__ "Ibm3624Pin" Ibm3624PinVerification.of_json in
      let visaPin = field_map json__ "VisaPin" VisaPinVerification.of_json in
      make ?ibm3624Pin ?visaPin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Parameters that are required for PIN data verification."]
module WrappedKey =
  struct
    type nonrec t =
      {
      wrappedKeyMaterial: WrappedKeyMaterial.t
        [@ocaml.doc
          "Parameter information of a WrappedKeyBlock for encryption key exchange."];
      keyCheckValueAlgorithm: KeyCheckValueAlgorithm.t option
        [@ocaml.doc
          "The algorithm that Amazon Web Services Payment Cryptography uses to calculate the key check value (KCV). It is used to validate the key integrity. For TDES keys, the KCV is computed by encrypting 8 bytes, each with value of zero, with the key to be checked and retaining the 3 highest order bytes of the encrypted result. For AES keys, the KCV is computed using a CMAC algorithm where the input data is 16 bytes of zero and retaining the 3 highest order bytes of the encrypted result."]}
    let context_ = "WrappedKey"
    let make ?keyCheckValueAlgorithm =
      fun ~wrappedKeyMaterial ->
        fun () -> { keyCheckValueAlgorithm; wrappedKeyMaterial }
    let to_value x =
      structure_to_value
        [("WrappedKeyMaterial",
           (Some (WrappedKeyMaterial.to_value x.wrappedKeyMaterial)));
        ("KeyCheckValueAlgorithm",
          (Option.map x.keyCheckValueAlgorithm
             ~f:KeyCheckValueAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyCheckValueAlgorithm =
        (Option.map ~f:KeyCheckValueAlgorithm.of_xml)
          (Xml.child xml_arg0 "KeyCheckValueAlgorithm") in
      let wrappedKeyMaterial =
        WrappedKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappedKeyMaterial") in
      make ?keyCheckValueAlgorithm ~wrappedKeyMaterial ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyCheckValueAlgorithm =
        field_map json__ "KeyCheckValueAlgorithm"
          KeyCheckValueAlgorithm.of_json in
      let wrappedKeyMaterial =
        field_map_exn json__ "WrappedKeyMaterial" WrappedKeyMaterial.of_json in
      make ?keyCheckValueAlgorithm ~wrappedKeyMaterial ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information of a WrappedKeyBlock for encryption key exchange."]
module IntegerRangeBetween4And16 =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:16) >>= (fun () -> check_int_min i ~min:4));
        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 IntegerRangeBetween4And16"
           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 MacAttributes =
  struct
    type nonrec t =
      {
      algorithm: MacAlgorithm.t option
        [@ocaml.doc
          "The encryption algorithm for MAC generation or verification."];
      emvMac: MacAlgorithmEmv.t option
        [@ocaml.doc
          "Parameters that are required for MAC generation or verification using EMV MAC algorithm."];
      dukptIso9797Algorithm1: MacAlgorithmDukpt.t option
        [@ocaml.doc
          "Parameters that are required for MAC generation or verification using DUKPT ISO 9797 algorithm1."];
      dukptIso9797Algorithm3: MacAlgorithmDukpt.t option
        [@ocaml.doc
          "Parameters that are required for MAC generation or verification using DUKPT ISO 9797 algorithm3."];
      dukptCmac: MacAlgorithmDukpt.t option
        [@ocaml.doc
          "Parameters that are required for MAC generation or verification using DUKPT CMAC algorithm."]}
    let make ?algorithm =
      fun ?emvMac ->
        fun ?dukptIso9797Algorithm1 ->
          fun ?dukptIso9797Algorithm3 ->
            fun ?dukptCmac ->
              fun () ->
                {
                  algorithm;
                  emvMac;
                  dukptIso9797Algorithm1;
                  dukptIso9797Algorithm3;
                  dukptCmac
                }
    let to_value x =
      structure_to_value
        [("Algorithm", (Option.map x.algorithm ~f:MacAlgorithm.to_value));
        ("EmvMac", (Option.map x.emvMac ~f:MacAlgorithmEmv.to_value));
        ("DukptIso9797Algorithm1",
          (Option.map x.dukptIso9797Algorithm1 ~f:MacAlgorithmDukpt.to_value));
        ("DukptIso9797Algorithm3",
          (Option.map x.dukptIso9797Algorithm3 ~f:MacAlgorithmDukpt.to_value));
        ("DukptCmac", (Option.map x.dukptCmac ~f:MacAlgorithmDukpt.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dukptCmac =
        (Option.map ~f:MacAlgorithmDukpt.of_xml)
          (Xml.child xml_arg0 "DukptCmac") in
      let dukptIso9797Algorithm3 =
        (Option.map ~f:MacAlgorithmDukpt.of_xml)
          (Xml.child xml_arg0 "DukptIso9797Algorithm3") in
      let dukptIso9797Algorithm1 =
        (Option.map ~f:MacAlgorithmDukpt.of_xml)
          (Xml.child xml_arg0 "DukptIso9797Algorithm1") in
      let emvMac =
        (Option.map ~f:MacAlgorithmEmv.of_xml) (Xml.child xml_arg0 "EmvMac") in
      let algorithm =
        (Option.map ~f:MacAlgorithm.of_xml) (Xml.child xml_arg0 "Algorithm") in
      make ?dukptCmac ?dukptIso9797Algorithm3 ?dukptIso9797Algorithm1 ?emvMac
        ?algorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dukptCmac = field_map json__ "DukptCmac" MacAlgorithmDukpt.of_json in
      let dukptIso9797Algorithm3 =
        field_map json__ "DukptIso9797Algorithm3" MacAlgorithmDukpt.of_json in
      let dukptIso9797Algorithm1 =
        field_map json__ "DukptIso9797Algorithm1" MacAlgorithmDukpt.of_json in
      let emvMac = field_map json__ "EmvMac" MacAlgorithmEmv.of_json in
      let algorithm = field_map json__ "Algorithm" MacAlgorithm.of_json in
      make ?dukptCmac ?dukptIso9797Algorithm3 ?dukptIso9797Algorithm1 ?emvMac
        ?algorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for DUKPT, HMAC, or EMV MAC generation or verification."]
module MacType =
  struct
    type nonrec t = string
    let context_ = "MacType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"MacType" j
    let to_json = simple_to_json to_value
  end
module MessageDataType =
  struct
    type nonrec t = string
    let context_ = "MessageDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"MessageDataType" j
    let to_json = simple_to_json to_value
  end
module CardVerificationAttributes =
  struct
    type nonrec t =
      {
      amexCardSecurityCodeVersion1: AmexCardSecurityCodeVersion1.t option ;
      amexCardSecurityCodeVersion2: AmexCardSecurityCodeVersion2.t option
        [@ocaml.doc
          "Card data parameters that are required to verify a Card Security Code (CSC2) for an AMEX payment card."];
      cardVerificationValue1: CardVerificationValue1.t option
        [@ocaml.doc
          "Card data parameters that are required to verify Card Verification Value (CVV) for the payment card."];
      cardVerificationValue2: CardVerificationValue2.t option
        [@ocaml.doc
          "Card data parameters that are required to verify Card Verification Value (CVV2) for the payment card."];
      cardHolderVerificationValue: CardHolderVerificationValue.t option
        [@ocaml.doc
          "Card data parameters that are required to verify a cardholder verification value for the payment card."];
      dynamicCardVerificationCode: DynamicCardVerificationCode.t option
        [@ocaml.doc
          "Card data parameters that are required to verify CDynamic Card Verification Code (dCVC) for the payment card."];
      dynamicCardVerificationValue: DynamicCardVerificationValue.t option
        [@ocaml.doc
          "Card data parameters that are required to verify CDynamic Card Verification Value (dCVV) for the payment card."];
      discoverDynamicCardVerificationCode:
        DiscoverDynamicCardVerificationCode.t option
        [@ocaml.doc
          "Card data parameters that are required to verify CDynamic Card Verification Code (dCVC) for the payment card."]}
    let make ?amexCardSecurityCodeVersion1 =
      fun ?amexCardSecurityCodeVersion2 ->
        fun ?cardVerificationValue1 ->
          fun ?cardVerificationValue2 ->
            fun ?cardHolderVerificationValue ->
              fun ?dynamicCardVerificationCode ->
                fun ?dynamicCardVerificationValue ->
                  fun ?discoverDynamicCardVerificationCode ->
                    fun () ->
                      {
                        amexCardSecurityCodeVersion1;
                        amexCardSecurityCodeVersion2;
                        cardVerificationValue1;
                        cardVerificationValue2;
                        cardHolderVerificationValue;
                        dynamicCardVerificationCode;
                        dynamicCardVerificationValue;
                        discoverDynamicCardVerificationCode
                      }
    let to_value x =
      structure_to_value
        [("AmexCardSecurityCodeVersion1",
           (Option.map x.amexCardSecurityCodeVersion1
              ~f:AmexCardSecurityCodeVersion1.to_value));
        ("AmexCardSecurityCodeVersion2",
          (Option.map x.amexCardSecurityCodeVersion2
             ~f:AmexCardSecurityCodeVersion2.to_value));
        ("CardVerificationValue1",
          (Option.map x.cardVerificationValue1
             ~f:CardVerificationValue1.to_value));
        ("CardVerificationValue2",
          (Option.map x.cardVerificationValue2
             ~f:CardVerificationValue2.to_value));
        ("CardHolderVerificationValue",
          (Option.map x.cardHolderVerificationValue
             ~f:CardHolderVerificationValue.to_value));
        ("DynamicCardVerificationCode",
          (Option.map x.dynamicCardVerificationCode
             ~f:DynamicCardVerificationCode.to_value));
        ("DynamicCardVerificationValue",
          (Option.map x.dynamicCardVerificationValue
             ~f:DynamicCardVerificationValue.to_value));
        ("DiscoverDynamicCardVerificationCode",
          (Option.map x.discoverDynamicCardVerificationCode
             ~f:DiscoverDynamicCardVerificationCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let discoverDynamicCardVerificationCode =
        (Option.map ~f:DiscoverDynamicCardVerificationCode.of_xml)
          (Xml.child xml_arg0 "DiscoverDynamicCardVerificationCode") in
      let dynamicCardVerificationValue =
        (Option.map ~f:DynamicCardVerificationValue.of_xml)
          (Xml.child xml_arg0 "DynamicCardVerificationValue") in
      let dynamicCardVerificationCode =
        (Option.map ~f:DynamicCardVerificationCode.of_xml)
          (Xml.child xml_arg0 "DynamicCardVerificationCode") in
      let cardHolderVerificationValue =
        (Option.map ~f:CardHolderVerificationValue.of_xml)
          (Xml.child xml_arg0 "CardHolderVerificationValue") in
      let cardVerificationValue2 =
        (Option.map ~f:CardVerificationValue2.of_xml)
          (Xml.child xml_arg0 "CardVerificationValue2") in
      let cardVerificationValue1 =
        (Option.map ~f:CardVerificationValue1.of_xml)
          (Xml.child xml_arg0 "CardVerificationValue1") in
      let amexCardSecurityCodeVersion2 =
        (Option.map ~f:AmexCardSecurityCodeVersion2.of_xml)
          (Xml.child xml_arg0 "AmexCardSecurityCodeVersion2") in
      let amexCardSecurityCodeVersion1 =
        (Option.map ~f:AmexCardSecurityCodeVersion1.of_xml)
          (Xml.child xml_arg0 "AmexCardSecurityCodeVersion1") in
      make ?discoverDynamicCardVerificationCode ?dynamicCardVerificationValue
        ?dynamicCardVerificationCode ?cardHolderVerificationValue
        ?cardVerificationValue2 ?cardVerificationValue1
        ?amexCardSecurityCodeVersion2 ?amexCardSecurityCodeVersion1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let discoverDynamicCardVerificationCode =
        field_map json__ "DiscoverDynamicCardVerificationCode"
          DiscoverDynamicCardVerificationCode.of_json in
      let dynamicCardVerificationValue =
        field_map json__ "DynamicCardVerificationValue"
          DynamicCardVerificationValue.of_json in
      let dynamicCardVerificationCode =
        field_map json__ "DynamicCardVerificationCode"
          DynamicCardVerificationCode.of_json in
      let cardHolderVerificationValue =
        field_map json__ "CardHolderVerificationValue"
          CardHolderVerificationValue.of_json in
      let cardVerificationValue2 =
        field_map json__ "CardVerificationValue2"
          CardVerificationValue2.of_json in
      let cardVerificationValue1 =
        field_map json__ "CardVerificationValue1"
          CardVerificationValue1.of_json in
      let amexCardSecurityCodeVersion2 =
        field_map json__ "AmexCardSecurityCodeVersion2"
          AmexCardSecurityCodeVersion2.of_json in
      let amexCardSecurityCodeVersion1 =
        field_map json__ "AmexCardSecurityCodeVersion1"
          AmexCardSecurityCodeVersion1.of_json in
      make ?discoverDynamicCardVerificationCode ?dynamicCardVerificationValue
        ?dynamicCardVerificationCode ?cardHolderVerificationValue
        ?cardVerificationValue2 ?cardVerificationValue1
        ?amexCardSecurityCodeVersion2 ?amexCardSecurityCodeVersion1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are requried to verify Card Verification Values (CVV/CVV2), Dynamic Card Verification Values (dCVV/dCVV2), or Card Security Codes (CSC)."]
module ValidationDataType =
  struct
    type nonrec t = string
    let context_ = "ValidationDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:5) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ValidationDataType" j
    let to_json = simple_to_json to_value
  end
module AuthResponseValueType =
  struct
    type nonrec t = string
    let context_ = "AuthResponseValueType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"AuthResponseValueType" j
    let to_json = simple_to_json to_value
  end
module AuthRequestCryptogramType =
  struct
    type nonrec t = string
    let context_ = "AuthRequestCryptogramType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"AuthRequestCryptogramType" j
    let to_json = simple_to_json to_value
  end
module CryptogramAuthResponse =
  struct
    type nonrec t =
      {
      arpcMethod1: CryptogramVerificationArpcMethod1.t option
        [@ocaml.doc
          "Parameters that are required for ARPC response generation using method1 after ARQC verification is successful."];
      arpcMethod2: CryptogramVerificationArpcMethod2.t option
        [@ocaml.doc
          "Parameters that are required for ARPC response generation using method2 after ARQC verification is successful."]}
    let make ?arpcMethod1 =
      fun ?arpcMethod2 -> fun () -> { arpcMethod1; arpcMethod2 }
    let to_value x =
      structure_to_value
        [("ArpcMethod1",
           (Option.map x.arpcMethod1
              ~f:CryptogramVerificationArpcMethod1.to_value));
        ("ArpcMethod2",
          (Option.map x.arpcMethod2
             ~f:CryptogramVerificationArpcMethod2.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arpcMethod2 =
        (Option.map ~f:CryptogramVerificationArpcMethod2.of_xml)
          (Xml.child xml_arg0 "ArpcMethod2") in
      let arpcMethod1 =
        (Option.map ~f:CryptogramVerificationArpcMethod1.of_xml)
          (Xml.child xml_arg0 "ArpcMethod1") in
      make ?arpcMethod2 ?arpcMethod1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arpcMethod2 =
        field_map json__ "ArpcMethod2"
          CryptogramVerificationArpcMethod2.of_json in
      let arpcMethod1 =
        field_map json__ "ArpcMethod1"
          CryptogramVerificationArpcMethod1.of_json in
      make ?arpcMethod2 ?arpcMethod1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for Authorization Response Cryptogram (ARPC) generation after Authorization Request Cryptogram (ARQC) verification is successful."]
module SessionKeyDerivation =
  struct
    type nonrec t =
      {
      emvCommon: SessionKeyEmvCommon.t option
        [@ocaml.doc
          "Parameters to derive session key for an Emv common payment card for ARQC verification."];
      mastercard: SessionKeyMastercard.t option
        [@ocaml.doc
          "Parameters to derive session key for a Mastercard payment card for ARQC verification."];
      emv2000: SessionKeyEmv2000.t option
        [@ocaml.doc
          "Parameters to derive session key for an Emv2000 payment card for ARQC verification."];
      amex: SessionKeyAmex.t option
        [@ocaml.doc
          "Parameters to derive session key for an Amex payment card for ARQC verification."];
      visa: SessionKeyVisa.t option
        [@ocaml.doc
          "Parameters to derive session key for a Visa payment cardfor ARQC verification."]}
    let make ?emvCommon =
      fun ?mastercard ->
        fun ?emv2000 ->
          fun ?amex ->
            fun ?visa ->
              fun () -> { emvCommon; mastercard; emv2000; amex; visa }
    let to_value x =
      structure_to_value
        [("EmvCommon",
           (Option.map x.emvCommon ~f:SessionKeyEmvCommon.to_value));
        ("Mastercard",
          (Option.map x.mastercard ~f:SessionKeyMastercard.to_value));
        ("Emv2000", (Option.map x.emv2000 ~f:SessionKeyEmv2000.to_value));
        ("Amex", (Option.map x.amex ~f:SessionKeyAmex.to_value));
        ("Visa", (Option.map x.visa ~f:SessionKeyVisa.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visa =
        (Option.map ~f:SessionKeyVisa.of_xml) (Xml.child xml_arg0 "Visa") in
      let amex =
        (Option.map ~f:SessionKeyAmex.of_xml) (Xml.child xml_arg0 "Amex") in
      let emv2000 =
        (Option.map ~f:SessionKeyEmv2000.of_xml)
          (Xml.child xml_arg0 "Emv2000") in
      let mastercard =
        (Option.map ~f:SessionKeyMastercard.of_xml)
          (Xml.child xml_arg0 "Mastercard") in
      let emvCommon =
        (Option.map ~f:SessionKeyEmvCommon.of_xml)
          (Xml.child xml_arg0 "EmvCommon") in
      make ?visa ?amex ?emv2000 ?mastercard ?emvCommon ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visa = field_map json__ "Visa" SessionKeyVisa.of_json in
      let amex = field_map json__ "Amex" SessionKeyAmex.of_json in
      let emv2000 = field_map json__ "Emv2000" SessionKeyEmv2000.of_json in
      let mastercard =
        field_map json__ "Mastercard" SessionKeyMastercard.of_json in
      let emvCommon =
        field_map json__ "EmvCommon" SessionKeyEmvCommon.of_json in
      make ?visa ?amex ?emv2000 ?mastercard ?emvCommon ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive a session key for Authorization Response Cryptogram (ARQC) verification."]
module TransactionDataType =
  struct
    type nonrec t = string
    let context_ = "TransactionDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"TransactionDataType" j
    let to_json = simple_to_json to_value
  end
module As2805PekDerivationAttributes =
  struct
    type nonrec t =
      {
      systemTraceAuditNumber: SystemTraceAuditNumberType.t
        [@ocaml.doc "The system trace audit number for the transaction."];
      transactionAmount: TransactionAmountType.t
        [@ocaml.doc "The transaction amount for the transaction."]}
    let context_ = "As2805PekDerivationAttributes"
    let make ~systemTraceAuditNumber =
      fun ~transactionAmount ->
        fun () -> { systemTraceAuditNumber; transactionAmount }
    let to_value x =
      structure_to_value
        [("SystemTraceAuditNumber",
           (Some
              (SystemTraceAuditNumberType.to_value x.systemTraceAuditNumber)));
        ("TransactionAmount",
          (Some (TransactionAmountType.to_value x.transactionAmount)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transactionAmount =
        TransactionAmountType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransactionAmount") in
      let systemTraceAuditNumber =
        SystemTraceAuditNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SystemTraceAuditNumber") in
      make ~transactionAmount ~systemTraceAuditNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transactionAmount =
        field_map_exn json__ "TransactionAmount"
          TransactionAmountType.of_json in
      let systemTraceAuditNumber =
        field_map_exn json__ "SystemTraceAuditNumber"
          SystemTraceAuditNumberType.of_json in
      make ~transactionAmount ~systemTraceAuditNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Parameter information to use a PEK derived using AS2805."]
module DukptDerivationAttributes =
  struct
    type nonrec t =
      {
      keySerialNumber: HexLength16Or20Or24.t
        [@ocaml.doc
          "The unique identifier known as Key Serial Number (KSN) that comes from an encrypting device using DUKPT encryption method. The KSN is derived from the encrypting device unique identifier and an internal transaction counter."];
      dukptKeyDerivationType: DukptDerivationType.t option
        [@ocaml.doc
          "The key type derived using DUKPT from a Base Derivation Key (BDK) and Key Serial Number (KSN). This must be less than or equal to the strength of the BDK. For example, you can't use AES_128 as a derivation type for a BDK of AES_128 or TDES_2KEY"];
      dukptKeyVariant: DukptKeyVariant.t option
        [@ocaml.doc
          "The type of use of DUKPT, which can be for incoming data decryption, outgoing data encryption, or both."]}
    let context_ = "DukptDerivationAttributes"
    let make ?dukptKeyDerivationType =
      fun ?dukptKeyVariant ->
        fun ~keySerialNumber ->
          fun () ->
            { dukptKeyDerivationType; dukptKeyVariant; keySerialNumber }
    let to_value x =
      structure_to_value
        [("KeySerialNumber",
           (Some (HexLength16Or20Or24.to_value x.keySerialNumber)));
        ("DukptKeyDerivationType",
          (Option.map x.dukptKeyDerivationType
             ~f:DukptDerivationType.to_value));
        ("DukptKeyVariant",
          (Option.map x.dukptKeyVariant ~f:DukptKeyVariant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dukptKeyVariant =
        (Option.map ~f:DukptKeyVariant.of_xml)
          (Xml.child xml_arg0 "DukptKeyVariant") in
      let dukptKeyDerivationType =
        (Option.map ~f:DukptDerivationType.of_xml)
          (Xml.child xml_arg0 "DukptKeyDerivationType") in
      let keySerialNumber =
        HexLength16Or20Or24.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeySerialNumber") in
      make ?dukptKeyVariant ?dukptKeyDerivationType ~keySerialNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dukptKeyVariant =
        field_map json__ "DukptKeyVariant" DukptKeyVariant.of_json in
      let dukptKeyDerivationType =
        field_map json__ "DukptKeyDerivationType" DukptDerivationType.of_json in
      let keySerialNumber =
        field_map_exn json__ "KeySerialNumber" HexLength16Or20Or24.of_json in
      make ?dukptKeyVariant ?dukptKeyDerivationType ~keySerialNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters required for encryption or decryption of data using DUKPT."]
module HexEvenLengthBetween16And32 =
  struct
    type nonrec t = string
    let context_ = "HexEvenLengthBetween16And32"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"HexEvenLengthBetween16And32" j
    let to_json = simple_to_json to_value
  end
module TranslationIsoFormats =
  struct
    type nonrec t =
      {
      isoFormat0: TranslationPinDataIsoFormat034.t option
        [@ocaml.doc
          "Parameters that are required for ISO9564 PIN format 0 translation."];
      isoFormat1: TranslationPinDataIsoFormat1.t option
        [@ocaml.doc
          "Parameters that are required for ISO9564 PIN format 1 translation."];
      isoFormat3: TranslationPinDataIsoFormat034.t option
        [@ocaml.doc
          "Parameters that are required for ISO9564 PIN format 3 translation."];
      isoFormat4: TranslationPinDataIsoFormat034.t option
        [@ocaml.doc
          "Parameters that are required for ISO9564 PIN format 4 translation."];
      as2805Format0: TranslationPinDataAs2805Format0.t option
        [@ocaml.doc
          "Parameters that are required for AS2805 PIN format 0 translation."]}
    let make ?isoFormat0 =
      fun ?isoFormat1 ->
        fun ?isoFormat3 ->
          fun ?isoFormat4 ->
            fun ?as2805Format0 ->
              fun () ->
                {
                  isoFormat0;
                  isoFormat1;
                  isoFormat3;
                  isoFormat4;
                  as2805Format0
                }
    let to_value x =
      structure_to_value
        [("IsoFormat0",
           (Option.map x.isoFormat0
              ~f:TranslationPinDataIsoFormat034.to_value));
        ("IsoFormat1",
          (Option.map x.isoFormat1 ~f:TranslationPinDataIsoFormat1.to_value));
        ("IsoFormat3",
          (Option.map x.isoFormat3 ~f:TranslationPinDataIsoFormat034.to_value));
        ("IsoFormat4",
          (Option.map x.isoFormat4 ~f:TranslationPinDataIsoFormat034.to_value));
        ("As2805Format0",
          (Option.map x.as2805Format0
             ~f:TranslationPinDataAs2805Format0.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let as2805Format0 =
        (Option.map ~f:TranslationPinDataAs2805Format0.of_xml)
          (Xml.child xml_arg0 "As2805Format0") in
      let isoFormat4 =
        (Option.map ~f:TranslationPinDataIsoFormat034.of_xml)
          (Xml.child xml_arg0 "IsoFormat4") in
      let isoFormat3 =
        (Option.map ~f:TranslationPinDataIsoFormat034.of_xml)
          (Xml.child xml_arg0 "IsoFormat3") in
      let isoFormat1 =
        (Option.map ~f:TranslationPinDataIsoFormat1.of_xml)
          (Xml.child xml_arg0 "IsoFormat1") in
      let isoFormat0 =
        (Option.map ~f:TranslationPinDataIsoFormat034.of_xml)
          (Xml.child xml_arg0 "IsoFormat0") in
      make ?as2805Format0 ?isoFormat4 ?isoFormat3 ?isoFormat1 ?isoFormat0 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let as2805Format0 =
        field_map json__ "As2805Format0"
          TranslationPinDataAs2805Format0.of_json in
      let isoFormat4 =
        field_map json__ "IsoFormat4" TranslationPinDataIsoFormat034.of_json in
      let isoFormat3 =
        field_map json__ "IsoFormat3" TranslationPinDataIsoFormat034.of_json in
      let isoFormat1 =
        field_map json__ "IsoFormat1" TranslationPinDataIsoFormat1.of_json in
      let isoFormat0 =
        field_map json__ "IsoFormat0" TranslationPinDataIsoFormat034.of_json in
      make ?as2805Format0 ?isoFormat4 ?isoFormat3 ?isoFormat1 ?isoFormat0 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required for translation between ISO9564 PIN block formats 0,1,3,4."]
module WrappedWorkingKey =
  struct
    type nonrec t =
      {
      wrappedKeyMaterial: KeyMaterial.t option
        [@ocaml.doc "The wrapped key block of the outgoing transaction key."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the key contained within the outgoing TR31WrappedKeyBlock. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. For more information on KCV, see KCV in the Amazon Web Services Payment Cryptography User Guide."];
      wrappedKeyMaterialFormat: WrappedKeyMaterialFormat.t option
        [@ocaml.doc "The key block format of the wrapped key."]}
    let make ?wrappedKeyMaterial =
      fun ?keyCheckValue ->
        fun ?wrappedKeyMaterialFormat ->
          fun () ->
            { wrappedKeyMaterial; keyCheckValue; wrappedKeyMaterialFormat }
    let to_value x =
      structure_to_value
        [("WrappedKeyMaterial",
           (Option.map x.wrappedKeyMaterial ~f:KeyMaterial.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("WrappedKeyMaterialFormat",
          (Option.map x.wrappedKeyMaterialFormat
             ~f:WrappedKeyMaterialFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappedKeyMaterialFormat =
        (Option.map ~f:WrappedKeyMaterialFormat.of_xml)
          (Xml.child xml_arg0 "WrappedKeyMaterialFormat") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let wrappedKeyMaterial =
        (Option.map ~f:KeyMaterial.of_xml)
          (Xml.child xml_arg0 "WrappedKeyMaterial") in
      make ?wrappedKeyMaterialFormat ?keyCheckValue ?wrappedKeyMaterial ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappedKeyMaterialFormat =
        field_map json__ "WrappedKeyMaterialFormat"
          WrappedKeyMaterialFormat.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let wrappedKeyMaterial =
        field_map json__ "WrappedKeyMaterial" KeyMaterial.of_json in
      make ?wrappedKeyMaterialFormat ?keyCheckValue ?wrappedKeyMaterial ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parameter information of the outgoing wrapped key block."]
module IncomingKeyMaterial =
  struct
    type nonrec t =
      {
      diffieHellmanTr31KeyBlock: IncomingDiffieHellmanTr31KeyBlock.t option
        [@ocaml.doc
          "Parameter information of the TR31WrappedKeyBlock containing the transaction key wrapped using an ECDH dervied key."]}
    let make ?diffieHellmanTr31KeyBlock =
      fun () -> { diffieHellmanTr31KeyBlock }
    let to_value x =
      structure_to_value
        [("DiffieHellmanTr31KeyBlock",
           (Option.map x.diffieHellmanTr31KeyBlock
              ~f:IncomingDiffieHellmanTr31KeyBlock.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diffieHellmanTr31KeyBlock =
        (Option.map ~f:IncomingDiffieHellmanTr31KeyBlock.of_xml)
          (Xml.child xml_arg0 "DiffieHellmanTr31KeyBlock") in
      make ?diffieHellmanTr31KeyBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diffieHellmanTr31KeyBlock =
        field_map json__ "DiffieHellmanTr31KeyBlock"
          IncomingDiffieHellmanTr31KeyBlock.of_json in
      make ?diffieHellmanTr31KeyBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information of the incoming WrappedKeyBlock containing the transaction key."]
module OutgoingKeyMaterial =
  struct
    type nonrec t =
      {
      tr31KeyBlock: OutgoingTr31KeyBlock.t option
        [@ocaml.doc
          "Parameter information of the TR31WrappedKeyBlock containing the transaction key wrapped using a KEK."]}
    let make ?tr31KeyBlock = fun () -> { tr31KeyBlock }
    let to_value x =
      structure_to_value
        [("Tr31KeyBlock",
           (Option.map x.tr31KeyBlock ~f:OutgoingTr31KeyBlock.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tr31KeyBlock =
        (Option.map ~f:OutgoingTr31KeyBlock.of_xml)
          (Xml.child xml_arg0 "Tr31KeyBlock") in
      make ?tr31KeyBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tr31KeyBlock =
        field_map json__ "Tr31KeyBlock" OutgoingTr31KeyBlock.of_json in
      make ?tr31KeyBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information of the outgoing TR31WrappedKeyBlock containing the transaction key."]
module CipherTextType =
  struct
    type nonrec t = string
    let context_ = "CipherTextType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:4224) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"CipherTextType" j
    let to_json = simple_to_json to_value
  end
module ReEncryptionAttributes =
  struct
    type nonrec t =
      {
      symmetric: SymmetricEncryptionAttributes.t option
        [@ocaml.doc
          "Parameters that are required to encrypt data using symmetric keys."];
      dukpt: DukptEncryptionAttributes.t option }
    let make ?symmetric = fun ?dukpt -> fun () -> { symmetric; dukpt }
    let to_value x =
      structure_to_value
        [("Symmetric",
           (Option.map x.symmetric ~f:SymmetricEncryptionAttributes.to_value));
        ("Dukpt", (Option.map x.dukpt ~f:DukptEncryptionAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dukpt =
        (Option.map ~f:DukptEncryptionAttributes.of_xml)
          (Xml.child xml_arg0 "Dukpt") in
      let symmetric =
        (Option.map ~f:SymmetricEncryptionAttributes.of_xml)
          (Xml.child xml_arg0 "Symmetric") in
      make ?dukpt ?symmetric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dukpt = field_map json__ "Dukpt" DukptEncryptionAttributes.of_json in
      let symmetric =
        field_map json__ "Symmetric" SymmetricEncryptionAttributes.of_json in
      make ?dukpt ?symmetric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to perform reencryption operation."]
module PinData =
  struct
    type nonrec t =
      {
      pinOffset: PinOffsetType.t option [@ocaml.doc "The PIN offset value."];
      verificationValue: VerificationValueType.t option
        [@ocaml.doc
          "The unique data to identify a cardholder. In most cases, this is the same as cardholder's Primary Account Number (PAN). If a value is not provided, it defaults to PAN."]}
    let make ?pinOffset =
      fun ?verificationValue -> fun () -> { pinOffset; verificationValue }
    let to_value x =
      structure_to_value
        [("PinOffset", (Option.map x.pinOffset ~f:PinOffsetType.to_value));
        ("VerificationValue",
          (Option.map x.verificationValue ~f:VerificationValueType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationValue =
        (Option.map ~f:VerificationValueType.of_xml)
          (Xml.child xml_arg0 "VerificationValue") in
      let pinOffset =
        (Option.map ~f:PinOffsetType.of_xml) (Xml.child xml_arg0 "PinOffset") in
      make ?verificationValue ?pinOffset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationValue =
        field_map json__ "VerificationValue" VerificationValueType.of_json in
      let pinOffset = field_map json__ "PinOffset" PinOffsetType.of_json in
      make ?verificationValue ?pinOffset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to generate, translate, or verify PIN data."]
module PinGenerationAttributes =
  struct
    type nonrec t =
      {
      visaPin: VisaPin.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Visa PIN."];
      visaPinVerificationValue: VisaPinVerificationValue.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Visa PIN Verification Value (PVV)."];
      ibm3624PinOffset: Ibm3624PinOffset.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Ibm3624 PIN offset PIN."];
      ibm3624NaturalPin: Ibm3624NaturalPin.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Ibm3624 natural PIN."];
      ibm3624RandomPin: Ibm3624RandomPin.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Ibm3624 random PIN."];
      ibm3624PinFromOffset: Ibm3624PinFromOffset.t option
        [@ocaml.doc
          "Parameters that are required to generate or verify Ibm3624 PIN from offset PIN."]}
    let make ?visaPin =
      fun ?visaPinVerificationValue ->
        fun ?ibm3624PinOffset ->
          fun ?ibm3624NaturalPin ->
            fun ?ibm3624RandomPin ->
              fun ?ibm3624PinFromOffset ->
                fun () ->
                  {
                    visaPin;
                    visaPinVerificationValue;
                    ibm3624PinOffset;
                    ibm3624NaturalPin;
                    ibm3624RandomPin;
                    ibm3624PinFromOffset
                  }
    let to_value x =
      structure_to_value
        [("VisaPin", (Option.map x.visaPin ~f:VisaPin.to_value));
        ("VisaPinVerificationValue",
          (Option.map x.visaPinVerificationValue
             ~f:VisaPinVerificationValue.to_value));
        ("Ibm3624PinOffset",
          (Option.map x.ibm3624PinOffset ~f:Ibm3624PinOffset.to_value));
        ("Ibm3624NaturalPin",
          (Option.map x.ibm3624NaturalPin ~f:Ibm3624NaturalPin.to_value));
        ("Ibm3624RandomPin",
          (Option.map x.ibm3624RandomPin ~f:Ibm3624RandomPin.to_value));
        ("Ibm3624PinFromOffset",
          (Option.map x.ibm3624PinFromOffset ~f:Ibm3624PinFromOffset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ibm3624PinFromOffset =
        (Option.map ~f:Ibm3624PinFromOffset.of_xml)
          (Xml.child xml_arg0 "Ibm3624PinFromOffset") in
      let ibm3624RandomPin =
        (Option.map ~f:Ibm3624RandomPin.of_xml)
          (Xml.child xml_arg0 "Ibm3624RandomPin") in
      let ibm3624NaturalPin =
        (Option.map ~f:Ibm3624NaturalPin.of_xml)
          (Xml.child xml_arg0 "Ibm3624NaturalPin") in
      let ibm3624PinOffset =
        (Option.map ~f:Ibm3624PinOffset.of_xml)
          (Xml.child xml_arg0 "Ibm3624PinOffset") in
      let visaPinVerificationValue =
        (Option.map ~f:VisaPinVerificationValue.of_xml)
          (Xml.child xml_arg0 "VisaPinVerificationValue") in
      let visaPin =
        (Option.map ~f:VisaPin.of_xml) (Xml.child xml_arg0 "VisaPin") in
      make ?ibm3624PinFromOffset ?ibm3624RandomPin ?ibm3624NaturalPin
        ?ibm3624PinOffset ?visaPinVerificationValue ?visaPin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ibm3624PinFromOffset =
        field_map json__ "Ibm3624PinFromOffset" Ibm3624PinFromOffset.of_json in
      let ibm3624RandomPin =
        field_map json__ "Ibm3624RandomPin" Ibm3624RandomPin.of_json in
      let ibm3624NaturalPin =
        field_map json__ "Ibm3624NaturalPin" Ibm3624NaturalPin.of_json in
      let ibm3624PinOffset =
        field_map json__ "Ibm3624PinOffset" Ibm3624PinOffset.of_json in
      let visaPinVerificationValue =
        field_map json__ "VisaPinVerificationValue"
          VisaPinVerificationValue.of_json in
      let visaPin = field_map json__ "VisaPin" VisaPin.of_json in
      make ?ibm3624PinFromOffset ?ibm3624RandomPin ?ibm3624NaturalPin
        ?ibm3624PinOffset ?visaPinVerificationValue ?visaPin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Parameters that are required for PIN data generation."]
module MacOutputType =
  struct
    type nonrec t = string
    let context_ = "MacOutputType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"MacOutputType" j
    let to_json = simple_to_json to_value
  end
module PinChangeMacOutputType =
  struct
    type nonrec t = string
    let context_ = "PinChangeMacOutputType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-fA-F]+")));
        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:"PinChangeMacOutputType" j
    let to_json = simple_to_json to_value
  end
module VisaAmexDerivationOutputs =
  struct
    type nonrec t =
      {
      authorizationRequestKeyArn: KeyArn.t option
        [@ocaml.doc
          "The keyArn of the issuer master key for cryptogram (IMK-AC) used by the operation."];
      authorizationRequestKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the issuer master key for cryptogram (IMK-AC) used by the operation."];
      currentPinPekArn: KeyArn.t option
        [@ocaml.doc "The keyArn of the current PIN PEK."];
      currentPinPekKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc "The key check value (KCV) of the current PIN PEK."]}
    let make ?authorizationRequestKeyArn =
      fun ?authorizationRequestKeyCheckValue ->
        fun ?currentPinPekArn ->
          fun ?currentPinPekKeyCheckValue ->
            fun () ->
              {
                authorizationRequestKeyArn;
                authorizationRequestKeyCheckValue;
                currentPinPekArn;
                currentPinPekKeyCheckValue
              }
    let to_value x =
      structure_to_value
        [("AuthorizationRequestKeyArn",
           (Option.map x.authorizationRequestKeyArn ~f:KeyArn.to_value));
        ("AuthorizationRequestKeyCheckValue",
          (Option.map x.authorizationRequestKeyCheckValue
             ~f:KeyCheckValue.to_value));
        ("CurrentPinPekArn",
          (Option.map x.currentPinPekArn ~f:KeyArn.to_value));
        ("CurrentPinPekKeyCheckValue",
          (Option.map x.currentPinPekKeyCheckValue ~f:KeyCheckValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currentPinPekKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "CurrentPinPekKeyCheckValue") in
      let currentPinPekArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "CurrentPinPekArn") in
      let authorizationRequestKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "AuthorizationRequestKeyCheckValue") in
      let authorizationRequestKeyArn =
        (Option.map ~f:KeyArn.of_xml)
          (Xml.child xml_arg0 "AuthorizationRequestKeyArn") in
      make ?currentPinPekKeyCheckValue ?currentPinPekArn
        ?authorizationRequestKeyCheckValue ?authorizationRequestKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currentPinPekKeyCheckValue =
        field_map json__ "CurrentPinPekKeyCheckValue" KeyCheckValue.of_json in
      let currentPinPekArn =
        field_map json__ "CurrentPinPekArn" KeyArn.of_json in
      let authorizationRequestKeyCheckValue =
        field_map json__ "AuthorizationRequestKeyCheckValue"
          KeyCheckValue.of_json in
      let authorizationRequestKeyArn =
        field_map json__ "AuthorizationRequestKeyArn" KeyArn.of_json in
      make ?currentPinPekKeyCheckValue ?currentPinPekArn
        ?authorizationRequestKeyCheckValue ?authorizationRequestKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The attributes values used for Amex and Visa derivation methods."]
module CommandMessageDataType =
  struct
    type nonrec t = string
    let context_ = "CommandMessageDataType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"CommandMessageDataType" j
    let to_json = simple_to_json to_value
  end
module DerivationMethodAttributes =
  struct
    type nonrec t =
      {
      emvCommon: EmvCommonAttributes.t option
        [@ocaml.doc
          "Parameters to derive the confidentiality and integrity keys for a payment card using Emv common derivation method."];
      amex: AmexAttributes.t option
        [@ocaml.doc
          "Parameters to derive the confidentiality and integrity keys for a payment card using Amex derivation method."];
      visa: VisaAttributes.t option
        [@ocaml.doc
          "Parameters to derive the confidentiality and integrity keys for a a payment card using Visa derivation method."];
      emv2000: Emv2000Attributes.t option
        [@ocaml.doc
          "Parameters to derive the confidentiality and integrity keys for a payment card using Emv2000 derivation method."];
      mastercard: MasterCardAttributes.t option
        [@ocaml.doc
          "Parameters to derive the confidentiality and integrity keys for a payment card using Mastercard derivation method."]}
    let make ?emvCommon =
      fun ?amex ->
        fun ?visa ->
          fun ?emv2000 ->
            fun ?mastercard ->
              fun () -> { emvCommon; amex; visa; emv2000; mastercard }
    let to_value x =
      structure_to_value
        [("EmvCommon",
           (Option.map x.emvCommon ~f:EmvCommonAttributes.to_value));
        ("Amex", (Option.map x.amex ~f:AmexAttributes.to_value));
        ("Visa", (Option.map x.visa ~f:VisaAttributes.to_value));
        ("Emv2000", (Option.map x.emv2000 ~f:Emv2000Attributes.to_value));
        ("Mastercard",
          (Option.map x.mastercard ~f:MasterCardAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mastercard =
        (Option.map ~f:MasterCardAttributes.of_xml)
          (Xml.child xml_arg0 "Mastercard") in
      let emv2000 =
        (Option.map ~f:Emv2000Attributes.of_xml)
          (Xml.child xml_arg0 "Emv2000") in
      let visa =
        (Option.map ~f:VisaAttributes.of_xml) (Xml.child xml_arg0 "Visa") in
      let amex =
        (Option.map ~f:AmexAttributes.of_xml) (Xml.child xml_arg0 "Amex") in
      let emvCommon =
        (Option.map ~f:EmvCommonAttributes.of_xml)
          (Xml.child xml_arg0 "EmvCommon") in
      make ?mastercard ?emv2000 ?visa ?amex ?emvCommon ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mastercard =
        field_map json__ "Mastercard" MasterCardAttributes.of_json in
      let emv2000 = field_map json__ "Emv2000" Emv2000Attributes.of_json in
      let visa = field_map json__ "Visa" VisaAttributes.of_json in
      let amex = field_map json__ "Amex" AmexAttributes.of_json in
      let emvCommon =
        field_map json__ "EmvCommon" EmvCommonAttributes.of_json in
      make ?mastercard ?emv2000 ?visa ?amex ?emvCommon ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters to derive the payment card specific confidentiality and integrity keys."]
module PinBlockFormatForEmvPinChange =
  struct
    type nonrec t =
      | ISO_FORMAT_0 
      | ISO_FORMAT_1 
      | ISO_FORMAT_3 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ISO_FORMAT_0 -> "ISO_FORMAT_0"
      | ISO_FORMAT_1 -> "ISO_FORMAT_1"
      | ISO_FORMAT_3 -> "ISO_FORMAT_3"
      | Non_static_id s -> s
    let of_string =
      function
      | "ISO_FORMAT_0" -> ISO_FORMAT_0
      | "ISO_FORMAT_1" -> ISO_FORMAT_1
      | "ISO_FORMAT_3" -> ISO_FORMAT_3
      | 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 PinBlockFormatForEmvPinChange"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PinBlockFormatForEmvPinChange" j)
    let to_json = simple_to_json to_value
  end
module CardGenerationAttributes =
  struct
    type nonrec t =
      {
      amexCardSecurityCodeVersion1: AmexCardSecurityCodeVersion1.t option ;
      amexCardSecurityCodeVersion2: AmexCardSecurityCodeVersion2.t option
        [@ocaml.doc
          "Card data parameters that are required to generate a Card Security Code (CSC2) for an AMEX payment card."];
      cardVerificationValue1: CardVerificationValue1.t option
        [@ocaml.doc
          "Card data parameters that are required to generate Card Verification Value (CVV) for the payment card."];
      cardVerificationValue2: CardVerificationValue2.t option
        [@ocaml.doc
          "Card data parameters that are required to generate Card Verification Value (CVV2) for the payment card."];
      cardHolderVerificationValue: CardHolderVerificationValue.t option
        [@ocaml.doc
          "Card data parameters that are required to generate a cardholder verification value for the payment card."];
      dynamicCardVerificationCode: DynamicCardVerificationCode.t option
        [@ocaml.doc
          "Card data parameters that are required to generate CDynamic Card Verification Code (dCVC) for the payment card."];
      dynamicCardVerificationValue: DynamicCardVerificationValue.t option
        [@ocaml.doc
          "Card data parameters that are required to generate CDynamic Card Verification Value (dCVV) for the payment card."]}
    let make ?amexCardSecurityCodeVersion1 =
      fun ?amexCardSecurityCodeVersion2 ->
        fun ?cardVerificationValue1 ->
          fun ?cardVerificationValue2 ->
            fun ?cardHolderVerificationValue ->
              fun ?dynamicCardVerificationCode ->
                fun ?dynamicCardVerificationValue ->
                  fun () ->
                    {
                      amexCardSecurityCodeVersion1;
                      amexCardSecurityCodeVersion2;
                      cardVerificationValue1;
                      cardVerificationValue2;
                      cardHolderVerificationValue;
                      dynamicCardVerificationCode;
                      dynamicCardVerificationValue
                    }
    let to_value x =
      structure_to_value
        [("AmexCardSecurityCodeVersion1",
           (Option.map x.amexCardSecurityCodeVersion1
              ~f:AmexCardSecurityCodeVersion1.to_value));
        ("AmexCardSecurityCodeVersion2",
          (Option.map x.amexCardSecurityCodeVersion2
             ~f:AmexCardSecurityCodeVersion2.to_value));
        ("CardVerificationValue1",
          (Option.map x.cardVerificationValue1
             ~f:CardVerificationValue1.to_value));
        ("CardVerificationValue2",
          (Option.map x.cardVerificationValue2
             ~f:CardVerificationValue2.to_value));
        ("CardHolderVerificationValue",
          (Option.map x.cardHolderVerificationValue
             ~f:CardHolderVerificationValue.to_value));
        ("DynamicCardVerificationCode",
          (Option.map x.dynamicCardVerificationCode
             ~f:DynamicCardVerificationCode.to_value));
        ("DynamicCardVerificationValue",
          (Option.map x.dynamicCardVerificationValue
             ~f:DynamicCardVerificationValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dynamicCardVerificationValue =
        (Option.map ~f:DynamicCardVerificationValue.of_xml)
          (Xml.child xml_arg0 "DynamicCardVerificationValue") in
      let dynamicCardVerificationCode =
        (Option.map ~f:DynamicCardVerificationCode.of_xml)
          (Xml.child xml_arg0 "DynamicCardVerificationCode") in
      let cardHolderVerificationValue =
        (Option.map ~f:CardHolderVerificationValue.of_xml)
          (Xml.child xml_arg0 "CardHolderVerificationValue") in
      let cardVerificationValue2 =
        (Option.map ~f:CardVerificationValue2.of_xml)
          (Xml.child xml_arg0 "CardVerificationValue2") in
      let cardVerificationValue1 =
        (Option.map ~f:CardVerificationValue1.of_xml)
          (Xml.child xml_arg0 "CardVerificationValue1") in
      let amexCardSecurityCodeVersion2 =
        (Option.map ~f:AmexCardSecurityCodeVersion2.of_xml)
          (Xml.child xml_arg0 "AmexCardSecurityCodeVersion2") in
      let amexCardSecurityCodeVersion1 =
        (Option.map ~f:AmexCardSecurityCodeVersion1.of_xml)
          (Xml.child xml_arg0 "AmexCardSecurityCodeVersion1") in
      make ?dynamicCardVerificationValue ?dynamicCardVerificationCode
        ?cardHolderVerificationValue ?cardVerificationValue2
        ?cardVerificationValue1 ?amexCardSecurityCodeVersion2
        ?amexCardSecurityCodeVersion1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dynamicCardVerificationValue =
        field_map json__ "DynamicCardVerificationValue"
          DynamicCardVerificationValue.of_json in
      let dynamicCardVerificationCode =
        field_map json__ "DynamicCardVerificationCode"
          DynamicCardVerificationCode.of_json in
      let cardHolderVerificationValue =
        field_map json__ "CardHolderVerificationValue"
          CardHolderVerificationValue.of_json in
      let cardVerificationValue2 =
        field_map json__ "CardVerificationValue2"
          CardVerificationValue2.of_json in
      let cardVerificationValue1 =
        field_map json__ "CardVerificationValue1"
          CardVerificationValue1.of_json in
      let amexCardSecurityCodeVersion2 =
        field_map json__ "AmexCardSecurityCodeVersion2"
          AmexCardSecurityCodeVersion2.of_json in
      let amexCardSecurityCodeVersion1 =
        field_map json__ "AmexCardSecurityCodeVersion1"
          AmexCardSecurityCodeVersion1.of_json in
      make ?dynamicCardVerificationValue ?dynamicCardVerificationCode
        ?cardHolderVerificationValue ?cardVerificationValue2
        ?cardVerificationValue1 ?amexCardSecurityCodeVersion2
        ?amexCardSecurityCodeVersion1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Card data parameters that are required to generate Card Verification Values (CVV/CVV2), Dynamic Card Verification Values (dCVV/dCVV2), or Card Security Codes (CSC)."]
module IntegerRangeBetween3And5Type =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5) >>= (fun () -> check_int_min i ~min:3));
        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 IntegerRangeBetween3And5Type"
           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 As2805KekValidationType =
  struct
    type nonrec t =
      {
      kekValidationRequest: KekValidationRequest.t option
        [@ocaml.doc
          "Parameter information for generating a KEK validation request during node-to-node initialization."];
      kekValidationResponse: KekValidationResponse.t option
        [@ocaml.doc
          "Parameter information for generating a KEK validation response during node-to-node initialization."]}
    let make ?kekValidationRequest =
      fun ?kekValidationResponse ->
        fun () -> { kekValidationRequest; kekValidationResponse }
    let to_value x =
      structure_to_value
        [("KekValidationRequest",
           (Option.map x.kekValidationRequest
              ~f:KekValidationRequest.to_value));
        ("KekValidationResponse",
          (Option.map x.kekValidationResponse
             ~f:KekValidationResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kekValidationResponse =
        (Option.map ~f:KekValidationResponse.of_xml)
          (Xml.child xml_arg0 "KekValidationResponse") in
      let kekValidationRequest =
        (Option.map ~f:KekValidationRequest.of_xml)
          (Xml.child xml_arg0 "KekValidationRequest") in
      make ?kekValidationResponse ?kekValidationRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kekValidationResponse =
        field_map json__ "KekValidationResponse"
          KekValidationResponse.of_json in
      let kekValidationRequest =
        field_map json__ "KekValidationRequest" KekValidationRequest.of_json in
      make ?kekValidationResponse ?kekValidationRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for generating a random key for KEK validation to perform node-to-node initialization."]
module RandomKeySendVariantMask =
  struct
    type nonrec t =
      | VARIANT_MASK_82C0 
      | VARIANT_MASK_82 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VARIANT_MASK_82C0 -> "VARIANT_MASK_82C0"
      | VARIANT_MASK_82 -> "VARIANT_MASK_82"
      | Non_static_id s -> s
    let of_string =
      function
      | "VARIANT_MASK_82C0" -> VARIANT_MASK_82C0
      | "VARIANT_MASK_82" -> VARIANT_MASK_82
      | 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 RandomKeySendVariantMask" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RandomKeySendVariantMask" j)
    let to_json = simple_to_json to_value
  end
module EncryptionDecryptionAttributes =
  struct
    type nonrec t =
      {
      symmetric: SymmetricEncryptionAttributes.t option
        [@ocaml.doc
          "Parameters that are required to perform encryption and decryption using symmetric keys."];
      asymmetric: AsymmetricEncryptionAttributes.t option ;
      dukpt: DukptEncryptionAttributes.t option ;
      emv: EmvEncryptionAttributes.t option
        [@ocaml.doc "Parameters for plaintext encryption using EMV keys."]}
    let make ?symmetric =
      fun ?asymmetric ->
        fun ?dukpt ->
          fun ?emv -> fun () -> { symmetric; asymmetric; dukpt; emv }
    let to_value x =
      structure_to_value
        [("Symmetric",
           (Option.map x.symmetric ~f:SymmetricEncryptionAttributes.to_value));
        ("Asymmetric",
          (Option.map x.asymmetric ~f:AsymmetricEncryptionAttributes.to_value));
        ("Dukpt", (Option.map x.dukpt ~f:DukptEncryptionAttributes.to_value));
        ("Emv", (Option.map x.emv ~f:EmvEncryptionAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emv =
        (Option.map ~f:EmvEncryptionAttributes.of_xml)
          (Xml.child xml_arg0 "Emv") in
      let dukpt =
        (Option.map ~f:DukptEncryptionAttributes.of_xml)
          (Xml.child xml_arg0 "Dukpt") in
      let asymmetric =
        (Option.map ~f:AsymmetricEncryptionAttributes.of_xml)
          (Xml.child xml_arg0 "Asymmetric") in
      let symmetric =
        (Option.map ~f:SymmetricEncryptionAttributes.of_xml)
          (Xml.child xml_arg0 "Symmetric") in
      make ?emv ?dukpt ?asymmetric ?symmetric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emv = field_map json__ "Emv" EmvEncryptionAttributes.of_json in
      let dukpt = field_map json__ "Dukpt" DukptEncryptionAttributes.of_json in
      let asymmetric =
        field_map json__ "Asymmetric" AsymmetricEncryptionAttributes.of_json in
      let symmetric =
        field_map json__ "Symmetric" SymmetricEncryptionAttributes.of_json in
      make ?emv ?dukpt ?asymmetric ?symmetric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameters that are required to perform encryption and decryption operations."]
module PlainTextType =
  struct
    type nonrec t = string
    let context_ = "PlainTextType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:4096) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"PlainTextType" j
    let to_json = simple_to_json to_value
  end
module PlainTextOutputType =
  struct
    type nonrec t = string
    let context_ = "PlainTextOutputType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:4224) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?:[0-9a-fA-F][0-9a-fA-F])+")));
        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:"PlainTextOutputType" j
    let to_json = simple_to_json to_value
  end
module VerifyPinDataOutput =
  struct
    type nonrec t =
      {
      verificationKeyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the PIN encryption key that Amazon Web Services Payment Cryptography uses for PIN or PIN Offset verification."];
      verificationKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      encryptionKeyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the PEK that Amazon Web Services Payment Cryptography uses for encrypted pin block generation."];
      encryptionKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `VerificationFailedException of VerificationFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verificationKeyArn =
      fun ?verificationKeyCheckValue ->
        fun ?encryptionKeyArn ->
          fun ?encryptionKeyCheckValue ->
            fun () ->
              {
                verificationKeyArn;
                verificationKeyCheckValue;
                encryptionKeyArn;
                encryptionKeyCheckValue
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `VerificationFailedException e ->
          `Assoc
            [("error", (`String "VerificationFailedException"));
            ("details", (VerificationFailedException.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
        [("VerificationKeyArn",
           (Option.map x.verificationKeyArn ~f:KeyArn.to_value));
        ("VerificationKeyCheckValue",
          (Option.map x.verificationKeyCheckValue ~f:KeyCheckValue.to_value));
        ("EncryptionKeyArn",
          (Option.map x.encryptionKeyArn ~f:KeyArn.to_value));
        ("EncryptionKeyCheckValue",
          (Option.map x.encryptionKeyCheckValue ~f:KeyCheckValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "EncryptionKeyCheckValue") in
      let encryptionKeyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "EncryptionKeyArn") in
      let verificationKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "VerificationKeyCheckValue") in
      let verificationKeyArn =
        (Option.map ~f:KeyArn.of_xml)
          (Xml.child xml_arg0 "VerificationKeyArn") in
      make ?encryptionKeyCheckValue ?encryptionKeyArn
        ?verificationKeyCheckValue ?verificationKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionKeyCheckValue =
        field_map json__ "EncryptionKeyCheckValue" KeyCheckValue.of_json in
      let encryptionKeyArn =
        field_map json__ "EncryptionKeyArn" KeyArn.of_json in
      let verificationKeyCheckValue =
        field_map json__ "VerificationKeyCheckValue" KeyCheckValue.of_json in
      let verificationKeyArn =
        field_map json__ "VerificationKeyArn" KeyArn.of_json in
      make ?encryptionKeyCheckValue ?encryptionKeyArn
        ?verificationKeyCheckValue ?verificationKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies pin-related data such as PIN and PIN Offset using algorithms including VISA PVV and IBM3624. For more information, see Verify PIN data in the Amazon Web Services Payment Cryptography User Guide. This operation verifies PIN data for user payment card. A card holder PIN data is never transmitted in clear to or from Amazon Web Services Payment Cryptography. This operation uses PIN Verification Key (PVK) for PIN or PIN Offset generation and then encrypts it using PIN Encryption Key (PEK) to create an EncryptedPinBlock for transmission from Amazon Web Services Payment Cryptography. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GeneratePinData TranslatePinData"]
module VerifyPinDataInput =
  struct
    type nonrec t =
      {
      verificationKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The keyARN of the PIN verification key."];
      encryptionKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key under which the PIN block data is encrypted. This key type can be PEK or BDK."];
      verificationAttributes: PinVerificationAttributes.t
        [@ocaml.doc "The attributes and values for PIN data verification."];
      encryptedPinBlock: EncryptedPinBlockType.t
        [@ocaml.doc
          "The encrypted PIN block data that Amazon Web Services Payment Cryptography verifies."];
      primaryAccountNumber: PrimaryAccountNumberType.t option
        [@ocaml.doc
          "The Primary Account Number (PAN), a unique identifier for a payment credit or debit card that associates the card with a specific account holder."];
      pinBlockFormat: PinBlockFormatForPinData.t
        [@ocaml.doc
          "The PIN encoding format for pin data generation as specified in ISO 9564. Amazon Web Services Payment Cryptography supports ISO_Format_0 and ISO_Format_3. The ISO_Format_0 PIN block format is equivalent to the ANSI X9.8, VISA-1, and ECI-1 PIN block formats. It is similar to a VISA-4 PIN block format. It supports a PIN from 4 to 12 digits in length. The ISO_Format_3 PIN block format is the same as ISO_Format_0 except that the fill digits are random values from 10 to 15."];
      pinDataLength: IntegerRangeBetween4And12.t option
        [@ocaml.doc "The length of PIN being verified."];
      dukptAttributes: DukptAttributes.t option
        [@ocaml.doc
          "The attributes and values for the DUKPT encrypted PIN block data."];
      encryptionWrappedKey: WrappedKey.t option }
    let context_ = "VerifyPinDataInput"
    let make ?primaryAccountNumber =
      fun ?pinDataLength ->
        fun ?dukptAttributes ->
          fun ?encryptionWrappedKey ->
            fun ~verificationKeyIdentifier ->
              fun ~encryptionKeyIdentifier ->
                fun ~verificationAttributes ->
                  fun ~encryptedPinBlock ->
                    fun ~pinBlockFormat ->
                      fun () ->
                        {
                          primaryAccountNumber;
                          pinDataLength;
                          dukptAttributes;
                          encryptionWrappedKey;
                          verificationKeyIdentifier;
                          encryptionKeyIdentifier;
                          verificationAttributes;
                          encryptedPinBlock;
                          pinBlockFormat
                        }
    let to_value x =
      structure_to_value
        [("VerificationKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.verificationKeyIdentifier)));
        ("EncryptionKeyIdentifier",
          (Some (KeyArnOrKeyAliasType.to_value x.encryptionKeyIdentifier)));
        ("VerificationAttributes",
          (Some (PinVerificationAttributes.to_value x.verificationAttributes)));
        ("EncryptedPinBlock",
          (Some (EncryptedPinBlockType.to_value x.encryptedPinBlock)));
        ("PrimaryAccountNumber",
          (Option.map x.primaryAccountNumber
             ~f:PrimaryAccountNumberType.to_value));
        ("PinBlockFormat",
          (Some (PinBlockFormatForPinData.to_value x.pinBlockFormat)));
        ("PinDataLength",
          (Option.map x.pinDataLength ~f:IntegerRangeBetween4And12.to_value));
        ("DukptAttributes",
          (Option.map x.dukptAttributes ~f:DukptAttributes.to_value));
        ("EncryptionWrappedKey",
          (Option.map x.encryptionWrappedKey ~f:WrappedKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionWrappedKey =
        (Option.map ~f:WrappedKey.of_xml)
          (Xml.child xml_arg0 "EncryptionWrappedKey") in
      let dukptAttributes =
        (Option.map ~f:DukptAttributes.of_xml)
          (Xml.child xml_arg0 "DukptAttributes") in
      let pinDataLength =
        (Option.map ~f:IntegerRangeBetween4And12.of_xml)
          (Xml.child xml_arg0 "PinDataLength") in
      let pinBlockFormat =
        PinBlockFormatForPinData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinBlockFormat") in
      let primaryAccountNumber =
        (Option.map ~f:PrimaryAccountNumberType.of_xml)
          (Xml.child xml_arg0 "PrimaryAccountNumber") in
      let encryptedPinBlock =
        EncryptedPinBlockType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptedPinBlock") in
      let verificationAttributes =
        PinVerificationAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationAttributes") in
      let encryptionKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptionKeyIdentifier") in
      let verificationKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "VerificationKeyIdentifier") in
      make ?encryptionWrappedKey ?dukptAttributes ?pinDataLength
        ~pinBlockFormat ?primaryAccountNumber ~encryptedPinBlock
        ~verificationAttributes ~encryptionKeyIdentifier
        ~verificationKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionWrappedKey =
        field_map json__ "EncryptionWrappedKey" WrappedKey.of_json in
      let dukptAttributes =
        field_map json__ "DukptAttributes" DukptAttributes.of_json in
      let pinDataLength =
        field_map json__ "PinDataLength" IntegerRangeBetween4And12.of_json in
      let pinBlockFormat =
        field_map_exn json__ "PinBlockFormat"
          PinBlockFormatForPinData.of_json in
      let primaryAccountNumber =
        field_map json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let encryptedPinBlock =
        field_map_exn json__ "EncryptedPinBlock"
          EncryptedPinBlockType.of_json in
      let verificationAttributes =
        field_map_exn json__ "VerificationAttributes"
          PinVerificationAttributes.of_json in
      let encryptionKeyIdentifier =
        field_map_exn json__ "EncryptionKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let verificationKeyIdentifier =
        field_map_exn json__ "VerificationKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?encryptionWrappedKey ?dukptAttributes ?pinDataLength
        ~pinBlockFormat ?primaryAccountNumber ~encryptedPinBlock
        ~verificationAttributes ~encryptionKeyIdentifier
        ~verificationKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies pin-related data such as PIN and PIN Offset using algorithms including VISA PVV and IBM3624. For more information, see Verify PIN data in the Amazon Web Services Payment Cryptography User Guide. This operation verifies PIN data for user payment card. A card holder PIN data is never transmitted in clear to or from Amazon Web Services Payment Cryptography. This operation uses PIN Verification Key (PVK) for PIN or PIN Offset generation and then encrypts it using PIN Encryption Key (PEK) to create an EncryptedPinBlock for transmission from Amazon Web Services Payment Cryptography. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GeneratePinData TranslatePinData"]
module VerifyMacOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses for MAC verification."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `VerificationFailedException of VerificationFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue -> fun () -> { keyArn; keyCheckValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `VerificationFailedException e ->
          `Assoc
            [("error", (`String "VerificationFailedException"));
            ("details", (VerificationFailedException.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
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies a Message Authentication Code (MAC). You can use this operation to verify MAC for message data authentication such as . In this operation, you must use the same message data, secret encryption key and MAC algorithm that was used to generate MAC. You can use this operation to verify a DUPKT, CMAC, HMAC or EMV MAC by setting generation attributes and algorithm to the associated values. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GenerateMac"]
module VerifyMacInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses to verify MAC data."];
      messageData: MessageDataType.t
        [@ocaml.doc
          "The data on for which MAC is under verification. This value must be hexBinary."];
      mac: MacType.t [@ocaml.doc "The MAC being verified."];
      verificationAttributes: MacAttributes.t
        [@ocaml.doc
          "The attributes and data values to use for MAC verification within Amazon Web Services Payment Cryptography."];
      macLength: IntegerRangeBetween4And16.t option
        [@ocaml.doc "The length of the MAC."]}
    let context_ = "VerifyMacInput"
    let make ?macLength =
      fun ~keyIdentifier ->
        fun ~messageData ->
          fun ~mac ->
            fun ~verificationAttributes ->
              fun () ->
                {
                  macLength;
                  keyIdentifier;
                  messageData;
                  mac;
                  verificationAttributes
                }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("MessageData", (Some (MessageDataType.to_value x.messageData)));
        ("Mac", (Some (MacType.to_value x.mac)));
        ("VerificationAttributes",
          (Some (MacAttributes.to_value x.verificationAttributes)));
        ("MacLength",
          (Option.map x.macLength ~f:IntegerRangeBetween4And16.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let macLength =
        (Option.map ~f:IntegerRangeBetween4And16.of_xml)
          (Xml.child xml_arg0 "MacLength") in
      let verificationAttributes =
        MacAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationAttributes") in
      let mac =
        MacType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Mac") in
      let messageData =
        MessageDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageData") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?macLength ~verificationAttributes ~mac ~messageData
        ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let macLength =
        field_map json__ "MacLength" IntegerRangeBetween4And16.of_json in
      let verificationAttributes =
        field_map_exn json__ "VerificationAttributes" MacAttributes.of_json in
      let mac = field_map_exn json__ "Mac" MacType.of_json in
      let messageData =
        field_map_exn json__ "MessageData" MessageDataType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?macLength ~verificationAttributes ~mac ~messageData
        ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies a Message Authentication Code (MAC). You can use this operation to verify MAC for message data authentication such as . In this operation, you must use the same message data, secret encryption key and MAC algorithm that was used to generate MAC. You can use this operation to verify a DUPKT, CMAC, HMAC or EMV MAC by setting generation attributes and algorithm to the associated values. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GenerateMac"]
module VerifyCardValidationDataOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the CVK encryption key that Amazon Web Services Payment Cryptography uses to verify CVV or CSC."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `VerificationFailedException of VerificationFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue -> fun () -> { keyArn; keyCheckValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `VerificationFailedException e ->
          `Assoc
            [("error", (`String "VerificationFailedException"));
            ("details", (VerificationFailedException.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
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies card-related validation data using algorithms such as Card Verification Values (CVV/CVV2), Dynamic Card Verification Values (dCVV/dCVV2) and Card Security Codes (CSC). For more information, see Verify card data in the Amazon Web Services Payment Cryptography User Guide. This operation validates the CVV or CSC codes that is printed on a payment credit or debit card during card payment transaction. The input values are typically provided as part of an inbound transaction to an issuer or supporting platform partner. Amazon Web Services Payment Cryptography uses CVV or CSC, PAN (Primary Account Number) and expiration date of the card to check its validity during transaction processing. In this operation, the CVK (Card Verification Key) encryption key for use with card data verification is same as the one in used for GenerateCardValidationData. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GenerateCardValidationData VerifyAuthRequestCryptogram VerifyPinData"]
module VerifyCardValidationDataInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the CVK encryption key that Amazon Web Services Payment Cryptography uses to verify card data."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN), a unique identifier for a payment credit or debit card that associates the card with a specific account holder."];
      verificationAttributes: CardVerificationAttributes.t
        [@ocaml.doc
          "The algorithm to use for verification of card data within Amazon Web Services Payment Cryptography."];
      validationData: ValidationDataType.t
        [@ocaml.doc
          "The CVV or CSC value for use for card data verification within Amazon Web Services Payment Cryptography."]}
    let context_ = "VerifyCardValidationDataInput"
    let make ~keyIdentifier =
      fun ~primaryAccountNumber ->
        fun ~verificationAttributes ->
          fun ~validationData ->
            fun () ->
              {
                keyIdentifier;
                primaryAccountNumber;
                verificationAttributes;
                validationData
              }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("VerificationAttributes",
          (Some
             (CardVerificationAttributes.to_value x.verificationAttributes)));
        ("ValidationData",
          (Some (ValidationDataType.to_value x.validationData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationData =
        ValidationDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ValidationData") in
      let verificationAttributes =
        CardVerificationAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationAttributes") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~validationData ~verificationAttributes ~primaryAccountNumber
        ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationData =
        field_map_exn json__ "ValidationData" ValidationDataType.of_json in
      let verificationAttributes =
        field_map_exn json__ "VerificationAttributes"
          CardVerificationAttributes.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~validationData ~verificationAttributes ~primaryAccountNumber
        ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies card-related validation data using algorithms such as Card Verification Values (CVV/CVV2), Dynamic Card Verification Values (dCVV/dCVV2) and Card Security Codes (CSC). For more information, see Verify card data in the Amazon Web Services Payment Cryptography User Guide. This operation validates the CVV or CSC codes that is printed on a payment credit or debit card during card payment transaction. The input values are typically provided as part of an inbound transaction to an issuer or supporting platform partner. Amazon Web Services Payment Cryptography uses CVV or CSC, PAN (Primary Account Number) and expiration date of the card to check its validity during transaction processing. In this operation, the CVK (Card Verification Key) encryption key for use with card data verification is same as the one in used for GenerateCardValidationData. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GenerateCardValidationData VerifyAuthRequestCryptogram VerifyPinData"]
module VerifyAuthRequestCryptogramOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the major encryption key that Amazon Web Services Payment Cryptography uses for ARQC verification."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      authResponseValue: AuthResponseValueType.t option
        [@ocaml.doc
          "The result for ARQC verification or ARPC generation within Amazon Web Services Payment Cryptography."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `VerificationFailedException of VerificationFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?authResponseValue ->
          fun () -> { keyArn; keyCheckValue; authResponseValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | "VerificationFailedException" ->
          `VerificationFailedException
            (VerificationFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `VerificationFailedException e ->
          `Assoc
            [("error", (`String "VerificationFailedException"));
            ("details", (VerificationFailedException.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
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("AuthResponseValue",
          (Option.map x.authResponseValue ~f:AuthResponseValueType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authResponseValue =
        (Option.map ~f:AuthResponseValueType.of_xml)
          (Xml.child xml_arg0 "AuthResponseValue") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?authResponseValue ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authResponseValue =
        field_map json__ "AuthResponseValue" AuthResponseValueType.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?authResponseValue ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies Authorization Request Cryptogram (ARQC) for a EMV chip payment card authorization. For more information, see Verify auth request cryptogram in the Amazon Web Services Payment Cryptography User Guide. ARQC generation is done outside of Amazon Web Services Payment Cryptography and is typically generated on a point of sale terminal for an EMV chip card to obtain payment authorization during transaction time. For ARQC verification, you must first import the ARQC generated outside of Amazon Web Services Payment Cryptography by calling ImportKey. This operation uses the imported ARQC and an major encryption key (DUKPT) created by calling CreateKey to either provide a boolean ARQC verification result or provide an APRC (Authorization Response Cryptogram) response using Method 1 or Method 2. The ARPC_METHOD_1 uses AuthResponseCode to generate ARPC and ARPC_METHOD_2 uses CardStatusUpdate to generate ARPC. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: VerifyCardValidationData VerifyPinData"]
module VerifyAuthRequestCryptogramInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the major encryption key that Amazon Web Services Payment Cryptography uses for ARQC verification."];
      transactionData: TransactionDataType.t
        [@ocaml.doc
          "The transaction data that Amazon Web Services Payment Cryptography uses for ARQC verification. The same transaction is used for ARQC generation outside of Amazon Web Services Payment Cryptography."];
      authRequestCryptogram: AuthRequestCryptogramType.t
        [@ocaml.doc
          "The auth request cryptogram imported into Amazon Web Services Payment Cryptography for ARQC verification using a major encryption key and transaction data."];
      majorKeyDerivationMode: MajorKeyDerivationMode.t
        [@ocaml.doc
          "The method to use when deriving the major encryption key for ARQC verification within Amazon Web Services Payment Cryptography. The same key derivation mode was used for ARQC generation outside of Amazon Web Services Payment Cryptography."];
      sessionKeyDerivationAttributes: SessionKeyDerivation.t
        [@ocaml.doc
          "The attributes and values to use for deriving a session key for ARQC verification within Amazon Web Services Payment Cryptography. The same attributes were used for ARQC generation outside of Amazon Web Services Payment Cryptography."];
      authResponseAttributes: CryptogramAuthResponse.t option
        [@ocaml.doc
          "The attributes and values for auth request cryptogram verification. These parameters are required in case using ARPC Method 1 or Method 2 for ARQC verification."]}
    let context_ = "VerifyAuthRequestCryptogramInput"
    let make ?authResponseAttributes =
      fun ~keyIdentifier ->
        fun ~transactionData ->
          fun ~authRequestCryptogram ->
            fun ~majorKeyDerivationMode ->
              fun ~sessionKeyDerivationAttributes ->
                fun () ->
                  {
                    authResponseAttributes;
                    keyIdentifier;
                    transactionData;
                    authRequestCryptogram;
                    majorKeyDerivationMode;
                    sessionKeyDerivationAttributes
                  }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("TransactionData",
          (Some (TransactionDataType.to_value x.transactionData)));
        ("AuthRequestCryptogram",
          (Some (AuthRequestCryptogramType.to_value x.authRequestCryptogram)));
        ("MajorKeyDerivationMode",
          (Some (MajorKeyDerivationMode.to_value x.majorKeyDerivationMode)));
        ("SessionKeyDerivationAttributes",
          (Some
             (SessionKeyDerivation.to_value x.sessionKeyDerivationAttributes)));
        ("AuthResponseAttributes",
          (Option.map x.authResponseAttributes
             ~f:CryptogramAuthResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authResponseAttributes =
        (Option.map ~f:CryptogramAuthResponse.of_xml)
          (Xml.child xml_arg0 "AuthResponseAttributes") in
      let sessionKeyDerivationAttributes =
        SessionKeyDerivation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SessionKeyDerivationAttributes") in
      let majorKeyDerivationMode =
        MajorKeyDerivationMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MajorKeyDerivationMode") in
      let authRequestCryptogram =
        AuthRequestCryptogramType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuthRequestCryptogram") in
      let transactionData =
        TransactionDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransactionData") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?authResponseAttributes ~sessionKeyDerivationAttributes
        ~majorKeyDerivationMode ~authRequestCryptogram ~transactionData
        ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authResponseAttributes =
        field_map json__ "AuthResponseAttributes"
          CryptogramAuthResponse.of_json in
      let sessionKeyDerivationAttributes =
        field_map_exn json__ "SessionKeyDerivationAttributes"
          SessionKeyDerivation.of_json in
      let majorKeyDerivationMode =
        field_map_exn json__ "MajorKeyDerivationMode"
          MajorKeyDerivationMode.of_json in
      let authRequestCryptogram =
        field_map_exn json__ "AuthRequestCryptogram"
          AuthRequestCryptogramType.of_json in
      let transactionData =
        field_map_exn json__ "TransactionData" TransactionDataType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?authResponseAttributes ~sessionKeyDerivationAttributes
        ~majorKeyDerivationMode ~authRequestCryptogram ~transactionData
        ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies Authorization Request Cryptogram (ARQC) for a EMV chip payment card authorization. For more information, see Verify auth request cryptogram in the Amazon Web Services Payment Cryptography User Guide. ARQC generation is done outside of Amazon Web Services Payment Cryptography and is typically generated on a point of sale terminal for an EMV chip card to obtain payment authorization during transaction time. For ARQC verification, you must first import the ARQC generated outside of Amazon Web Services Payment Cryptography by calling ImportKey. This operation uses the imported ARQC and an major encryption key (DUKPT) created by calling CreateKey to either provide a boolean ARQC verification result or provide an APRC (Authorization Response Cryptogram) response using Method 1 or Method 2. The ARPC_METHOD_1 uses AuthResponseCode to generate ARPC and ARPC_METHOD_2 uses CardStatusUpdate to generate ARPC. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: VerifyCardValidationData VerifyPinData"]
module TranslatePinDataOutput =
  struct
    type nonrec t =
      {
      pinBlock: EncryptedPinBlockType.t option
        [@ocaml.doc
          "The outgoing encrypted PIN block data after translation."];
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses to encrypt outgoing PIN block data after translation."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pinBlock =
      fun ?keyArn ->
        fun ?keyCheckValue -> fun () -> { pinBlock; keyArn; keyCheckValue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PinBlock",
           (Option.map x.pinBlock ~f:EncryptedPinBlockType.to_value));
        ("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      let pinBlock =
        (Option.map ~f:EncryptedPinBlockType.of_xml)
          (Xml.child xml_arg0 "PinBlock") in
      make ?keyCheckValue ?keyArn ?pinBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      let pinBlock =
        field_map json__ "PinBlock" EncryptedPinBlockType.of_json in
      make ?keyCheckValue ?keyArn ?pinBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Translates encrypted PIN block from and to ISO 9564 formats 0,1,3,4. For more information, see Translate PIN data in the Amazon Web Services Payment Cryptography User Guide. PIN block translation involves changing a PIN block from one encryption key to another and optionally change its format. PIN block translation occurs entirely within the HSM boundary and PIN data never enters or leaves Amazon Web Services Payment Cryptography in clear text. The encryption key transformation can be from PEK (Pin Encryption Key) to BDK (Base Derivation Key) for DUKPT or from BDK for DUKPT to PEK. Amazon Web Services Payment Cryptography also supports use of dynamic keys and ECDH (Elliptic Curve Diffie-Hellman) based key exchange for this operation. Dynamic keys allow you to pass a PEK as a TR-31 WrappedKeyBlock. They can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To translate PIN block using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped PEK. The incoming wrapped key shall have a key purpose of P0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. Using ECDH key exchange, you can receive cardholder selectable PINs into Amazon Web Services Payment Cryptography. The ECDH derived key protects the incoming PIN block, which is translated to a PEK encrypted PIN block for use within the service. You can also use ECDH for reveal PIN, wherein the service translates the PIN block from PEK to a ECDH derived encryption key. For more information on establishing ECDH derived keys, see the Creating keys in the Amazon Web Services Payment Cryptography User Guide. The allowed combinations of PIN block format translations are guided by PCI. It is important to note that not all encrypted PIN block formats (example, format 1) require PAN (Primary Account Number) as input. And as such, PIN block format that requires PAN (example, formats 0,3,4) cannot be translated to a format (format 1) that does not require a PAN for generation. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Amazon Web Services Payment Cryptography currently supports ISO PIN block 4 translation for PIN block built using legacy PAN length. That is, PAN is the right most 12 digits excluding the check digits. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GeneratePinData VerifyPinData"]
module TranslatePinDataInput =
  struct
    type nonrec t =
      {
      incomingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key under which incoming PIN block data is encrypted. This key type can be PEK or BDK. For dynamic keys, it is the keyARN of KEK of the TR-31 wrapped PEK. For ECDH, it is the keyARN of the asymmetric ECC key."];
      outgoingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key for encrypting outgoing PIN block data. This key type can be PEK or BDK. For ECDH, it is the keyARN of the asymmetric ECC key."];
      incomingTranslationAttributes: TranslationIsoFormats.t
        [@ocaml.doc
          "The format of the incoming PIN block data for translation within Amazon Web Services Payment Cryptography."];
      outgoingTranslationAttributes: TranslationIsoFormats.t
        [@ocaml.doc
          "The format of the outgoing PIN block data after translation by Amazon Web Services Payment Cryptography."];
      encryptedPinBlock: HexEvenLengthBetween16And32.t
        [@ocaml.doc
          "The encrypted PIN block data that Amazon Web Services Payment Cryptography translates."];
      incomingDukptAttributes: DukptDerivationAttributes.t option
        [@ocaml.doc
          "The attributes and values to use for incoming DUKPT encryption key for PIN block translation."];
      outgoingDukptAttributes: DukptDerivationAttributes.t option
        [@ocaml.doc
          "The attributes and values to use for outgoing DUKPT encryption key after PIN block translation."];
      incomingWrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The WrappedKeyBlock containing the encryption key under which incoming PIN block data is encrypted."];
      outgoingWrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The WrappedKeyBlock containing the encryption key for encrypting outgoing PIN block data."];
      incomingAs2805Attributes: As2805PekDerivationAttributes.t option
        [@ocaml.doc
          "The attributes and values to use for incoming AS2805 encryption key for PIN block translation."]}
    let context_ = "TranslatePinDataInput"
    let make ?incomingDukptAttributes =
      fun ?outgoingDukptAttributes ->
        fun ?incomingWrappedKey ->
          fun ?outgoingWrappedKey ->
            fun ?incomingAs2805Attributes ->
              fun ~incomingKeyIdentifier ->
                fun ~outgoingKeyIdentifier ->
                  fun ~incomingTranslationAttributes ->
                    fun ~outgoingTranslationAttributes ->
                      fun ~encryptedPinBlock ->
                        fun () ->
                          {
                            incomingDukptAttributes;
                            outgoingDukptAttributes;
                            incomingWrappedKey;
                            outgoingWrappedKey;
                            incomingAs2805Attributes;
                            incomingKeyIdentifier;
                            outgoingKeyIdentifier;
                            incomingTranslationAttributes;
                            outgoingTranslationAttributes;
                            encryptedPinBlock
                          }
    let to_value x =
      structure_to_value
        [("IncomingKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.incomingKeyIdentifier)));
        ("OutgoingKeyIdentifier",
          (Some (KeyArnOrKeyAliasType.to_value x.outgoingKeyIdentifier)));
        ("IncomingTranslationAttributes",
          (Some
             (TranslationIsoFormats.to_value x.incomingTranslationAttributes)));
        ("OutgoingTranslationAttributes",
          (Some
             (TranslationIsoFormats.to_value x.outgoingTranslationAttributes)));
        ("EncryptedPinBlock",
          (Some (HexEvenLengthBetween16And32.to_value x.encryptedPinBlock)));
        ("IncomingDukptAttributes",
          (Option.map x.incomingDukptAttributes
             ~f:DukptDerivationAttributes.to_value));
        ("OutgoingDukptAttributes",
          (Option.map x.outgoingDukptAttributes
             ~f:DukptDerivationAttributes.to_value));
        ("IncomingWrappedKey",
          (Option.map x.incomingWrappedKey ~f:WrappedKey.to_value));
        ("OutgoingWrappedKey",
          (Option.map x.outgoingWrappedKey ~f:WrappedKey.to_value));
        ("IncomingAs2805Attributes",
          (Option.map x.incomingAs2805Attributes
             ~f:As2805PekDerivationAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let incomingAs2805Attributes =
        (Option.map ~f:As2805PekDerivationAttributes.of_xml)
          (Xml.child xml_arg0 "IncomingAs2805Attributes") in
      let outgoingWrappedKey =
        (Option.map ~f:WrappedKey.of_xml)
          (Xml.child xml_arg0 "OutgoingWrappedKey") in
      let incomingWrappedKey =
        (Option.map ~f:WrappedKey.of_xml)
          (Xml.child xml_arg0 "IncomingWrappedKey") in
      let outgoingDukptAttributes =
        (Option.map ~f:DukptDerivationAttributes.of_xml)
          (Xml.child xml_arg0 "OutgoingDukptAttributes") in
      let incomingDukptAttributes =
        (Option.map ~f:DukptDerivationAttributes.of_xml)
          (Xml.child xml_arg0 "IncomingDukptAttributes") in
      let encryptedPinBlock =
        HexEvenLengthBetween16And32.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptedPinBlock") in
      let outgoingTranslationAttributes =
        TranslationIsoFormats.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "OutgoingTranslationAttributes") in
      let incomingTranslationAttributes =
        TranslationIsoFormats.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "IncomingTranslationAttributes") in
      let outgoingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutgoingKeyIdentifier") in
      let incomingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IncomingKeyIdentifier") in
      make ?incomingAs2805Attributes ?outgoingWrappedKey ?incomingWrappedKey
        ?outgoingDukptAttributes ?incomingDukptAttributes ~encryptedPinBlock
        ~outgoingTranslationAttributes ~incomingTranslationAttributes
        ~outgoingKeyIdentifier ~incomingKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let incomingAs2805Attributes =
        field_map json__ "IncomingAs2805Attributes"
          As2805PekDerivationAttributes.of_json in
      let outgoingWrappedKey =
        field_map json__ "OutgoingWrappedKey" WrappedKey.of_json in
      let incomingWrappedKey =
        field_map json__ "IncomingWrappedKey" WrappedKey.of_json in
      let outgoingDukptAttributes =
        field_map json__ "OutgoingDukptAttributes"
          DukptDerivationAttributes.of_json in
      let incomingDukptAttributes =
        field_map json__ "IncomingDukptAttributes"
          DukptDerivationAttributes.of_json in
      let encryptedPinBlock =
        field_map_exn json__ "EncryptedPinBlock"
          HexEvenLengthBetween16And32.of_json in
      let outgoingTranslationAttributes =
        field_map_exn json__ "OutgoingTranslationAttributes"
          TranslationIsoFormats.of_json in
      let incomingTranslationAttributes =
        field_map_exn json__ "IncomingTranslationAttributes"
          TranslationIsoFormats.of_json in
      let outgoingKeyIdentifier =
        field_map_exn json__ "OutgoingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let incomingKeyIdentifier =
        field_map_exn json__ "IncomingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?incomingAs2805Attributes ?outgoingWrappedKey ?incomingWrappedKey
        ?outgoingDukptAttributes ?incomingDukptAttributes ~encryptedPinBlock
        ~outgoingTranslationAttributes ~incomingTranslationAttributes
        ~outgoingKeyIdentifier ~incomingKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Translates encrypted PIN block from and to ISO 9564 formats 0,1,3,4. For more information, see Translate PIN data in the Amazon Web Services Payment Cryptography User Guide. PIN block translation involves changing a PIN block from one encryption key to another and optionally change its format. PIN block translation occurs entirely within the HSM boundary and PIN data never enters or leaves Amazon Web Services Payment Cryptography in clear text. The encryption key transformation can be from PEK (Pin Encryption Key) to BDK (Base Derivation Key) for DUKPT or from BDK for DUKPT to PEK. Amazon Web Services Payment Cryptography also supports use of dynamic keys and ECDH (Elliptic Curve Diffie-Hellman) based key exchange for this operation. Dynamic keys allow you to pass a PEK as a TR-31 WrappedKeyBlock. They can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To translate PIN block using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped PEK. The incoming wrapped key shall have a key purpose of P0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. Using ECDH key exchange, you can receive cardholder selectable PINs into Amazon Web Services Payment Cryptography. The ECDH derived key protects the incoming PIN block, which is translated to a PEK encrypted PIN block for use within the service. You can also use ECDH for reveal PIN, wherein the service translates the PIN block from PEK to a ECDH derived encryption key. For more information on establishing ECDH derived keys, see the Creating keys in the Amazon Web Services Payment Cryptography User Guide. The allowed combinations of PIN block format translations are guided by PCI. It is important to note that not all encrypted PIN block formats (example, format 1) require PAN (Primary Account Number) as input. And as such, PIN block format that requires PAN (example, formats 0,3,4) cannot be translated to a format (format 1) that does not require a PAN for generation. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Amazon Web Services Payment Cryptography currently supports ISO PIN block 4 translation for PIN block built using legacy PAN length. That is, PAN is the right most 12 digits excluding the check digits. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GeneratePinData VerifyPinData"]
module TranslateKeyMaterialOutput =
  struct
    type nonrec t =
      {
      wrappedKey: WrappedWorkingKey.t option
        [@ocaml.doc "The outgoing KEK wrapped TR31WrappedKeyBlock."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?wrappedKey = fun () -> { wrappedKey }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WrappedKey",
           (Option.map x.wrappedKey ~f:WrappedWorkingKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappedKey =
        (Option.map ~f:WrappedWorkingKey.of_xml)
          (Xml.child xml_arg0 "WrappedKey") in
      make ?wrappedKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappedKey =
        field_map json__ "WrappedKey" WrappedWorkingKey.of_json in
      make ?wrappedKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Translates an cryptographic key between different wrapping keys without importing the key into Amazon Web Services Payment Cryptography. This operation can be used when key material is frequently rotated, such as during every card transaction, and there is a need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. It translates short-lived transaction keys such as PEK generated for each transaction and wrapped with an ECDH derived wrapping key to another KEK wrapping key. Before using this operation, you must first request the public key certificate of the ECC key pair generated within Amazon Web Services Payment Cryptography to establish an ECDH key agreement. In TranslateKeyData, the service uses its own ECC key pair, public certificate of receiving ECC key pair, and the key derivation parameters to generate a derived key. The service uses this derived key to unwrap the incoming transaction key received as a TR31WrappedKeyBlock and re-wrap using a user provided KEK to generate an outgoing Tr31WrappedKeyBlock. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateKey GetPublicCertificate ImportKey"]
module TranslateKeyMaterialInput =
  struct
    type nonrec t =
      {
      incomingKeyMaterial: IncomingKeyMaterial.t
        [@ocaml.doc
          "Parameter information of the TR31WrappedKeyBlock containing the transaction key."];
      outgoingKeyMaterial: OutgoingKeyMaterial.t
        [@ocaml.doc
          "Parameter information of the wrapping key used to wrap the transaction key in the outgoing TR31WrappedKeyBlock."];
      keyCheckValueAlgorithm: KeyCheckValueAlgorithm.t option
        [@ocaml.doc
          "The key check value (KCV) algorithm used for calculating the KCV of the derived key."]}
    let context_ = "TranslateKeyMaterialInput"
    let make ?keyCheckValueAlgorithm =
      fun ~incomingKeyMaterial ->
        fun ~outgoingKeyMaterial ->
          fun () ->
            {
              keyCheckValueAlgorithm;
              incomingKeyMaterial;
              outgoingKeyMaterial
            }
    let to_value x =
      structure_to_value
        [("IncomingKeyMaterial",
           (Some (IncomingKeyMaterial.to_value x.incomingKeyMaterial)));
        ("OutgoingKeyMaterial",
          (Some (OutgoingKeyMaterial.to_value x.outgoingKeyMaterial)));
        ("KeyCheckValueAlgorithm",
          (Option.map x.keyCheckValueAlgorithm
             ~f:KeyCheckValueAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyCheckValueAlgorithm =
        (Option.map ~f:KeyCheckValueAlgorithm.of_xml)
          (Xml.child xml_arg0 "KeyCheckValueAlgorithm") in
      let outgoingKeyMaterial =
        OutgoingKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutgoingKeyMaterial") in
      let incomingKeyMaterial =
        IncomingKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IncomingKeyMaterial") in
      make ?keyCheckValueAlgorithm ~outgoingKeyMaterial ~incomingKeyMaterial
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyCheckValueAlgorithm =
        field_map json__ "KeyCheckValueAlgorithm"
          KeyCheckValueAlgorithm.of_json in
      let outgoingKeyMaterial =
        field_map_exn json__ "OutgoingKeyMaterial"
          OutgoingKeyMaterial.of_json in
      let incomingKeyMaterial =
        field_map_exn json__ "IncomingKeyMaterial"
          IncomingKeyMaterial.of_json in
      make ?keyCheckValueAlgorithm ~outgoingKeyMaterial ~incomingKeyMaterial
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Translates an cryptographic key between different wrapping keys without importing the key into Amazon Web Services Payment Cryptography. This operation can be used when key material is frequently rotated, such as during every card transaction, and there is a need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. It translates short-lived transaction keys such as PEK generated for each transaction and wrapped with an ECDH derived wrapping key to another KEK wrapping key. Before using this operation, you must first request the public key certificate of the ECC key pair generated within Amazon Web Services Payment Cryptography to establish an ECDH key agreement. In TranslateKeyData, the service uses its own ECC key pair, public certificate of receiving ECC key pair, and the key derivation parameters to generate a derived key. The service uses this derived key to unwrap the incoming transaction key received as a TR31WrappedKeyBlock and re-wrap using a user provided KEK to generate an outgoing Tr31WrappedKeyBlock. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateKey GetPublicCertificate ImportKey"]
module ReEncryptDataOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN (Amazon Resource Name) of the encryption key that Amazon Web Services Payment Cryptography uses for plaintext encryption."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      cipherText: CipherTextType.t option
        [@ocaml.doc "The encrypted ciphertext."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?cipherText -> fun () -> { keyArn; keyCheckValue; cipherText }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("CipherText", (Option.map x.cipherText ~f:CipherTextType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cipherText =
        (Option.map ~f:CipherTextType.of_xml)
          (Xml.child xml_arg0 "CipherText") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?cipherText ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cipherText = field_map json__ "CipherText" CipherTextType.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?cipherText ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Re-encrypt ciphertext using DUKPT or Symmetric data encryption keys. You can either generate an encryption key within Amazon Web Services Payment Cryptography by calling CreateKey or import your own encryption key by calling ImportKey. The KeyArn for use with this operation must be in a compatible key state with KeyModesOfUse set to Encrypt. This operation also supports dynamic keys, allowing you to pass a dynamic encryption key as a TR-31 WrappedKeyBlock. This can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To re-encrypt using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped encryption key material. The incoming wrapped key shall have a key purpose of D0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. For symmetric and DUKPT encryption, Amazon Web Services Payment Cryptography supports TDES and AES algorithms. To encrypt using DUKPT, a DUKPT key must already exist within your account with KeyModesOfUse set to DeriveKey or a new DUKPT can be generated by calling CreateKey. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DecryptData EncryptData GetPublicCertificate ImportKey"]
module ReEncryptDataInput =
  struct
    type nonrec t =
      {
      incomingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key of incoming ciphertext data. When a WrappedKeyBlock is provided, this value will be the identifier to the key wrapping key. Otherwise, it is the key identifier used to perform the operation."];
      outgoingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key of outgoing ciphertext data after encryption by Amazon Web Services Payment Cryptography."];
      cipherText: CipherTextType.t
        [@ocaml.doc
          "Ciphertext to be encrypted. The minimum allowed length is 16 bytes and maximum allowed length is 4096 bytes."];
      incomingEncryptionAttributes: ReEncryptionAttributes.t
        [@ocaml.doc "The attributes and values for incoming ciphertext."];
      outgoingEncryptionAttributes: ReEncryptionAttributes.t
        [@ocaml.doc
          "The attributes and values for outgoing ciphertext data after encryption by Amazon Web Services Payment Cryptography."];
      incomingWrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The WrappedKeyBlock containing the encryption key of incoming ciphertext data."];
      outgoingWrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The WrappedKeyBlock containing the encryption key of outgoing ciphertext data after encryption by Amazon Web Services Payment Cryptography."]}
    let context_ = "ReEncryptDataInput"
    let make ?incomingWrappedKey =
      fun ?outgoingWrappedKey ->
        fun ~incomingKeyIdentifier ->
          fun ~outgoingKeyIdentifier ->
            fun ~cipherText ->
              fun ~incomingEncryptionAttributes ->
                fun ~outgoingEncryptionAttributes ->
                  fun () ->
                    {
                      incomingWrappedKey;
                      outgoingWrappedKey;
                      incomingKeyIdentifier;
                      outgoingKeyIdentifier;
                      cipherText;
                      incomingEncryptionAttributes;
                      outgoingEncryptionAttributes
                    }
    let to_value x =
      structure_to_value
        [("IncomingKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.incomingKeyIdentifier)));
        ("OutgoingKeyIdentifier",
          (Some (KeyArnOrKeyAliasType.to_value x.outgoingKeyIdentifier)));
        ("CipherText", (Some (CipherTextType.to_value x.cipherText)));
        ("IncomingEncryptionAttributes",
          (Some
             (ReEncryptionAttributes.to_value x.incomingEncryptionAttributes)));
        ("OutgoingEncryptionAttributes",
          (Some
             (ReEncryptionAttributes.to_value x.outgoingEncryptionAttributes)));
        ("IncomingWrappedKey",
          (Option.map x.incomingWrappedKey ~f:WrappedKey.to_value));
        ("OutgoingWrappedKey",
          (Option.map x.outgoingWrappedKey ~f:WrappedKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outgoingWrappedKey =
        (Option.map ~f:WrappedKey.of_xml)
          (Xml.child xml_arg0 "OutgoingWrappedKey") in
      let incomingWrappedKey =
        (Option.map ~f:WrappedKey.of_xml)
          (Xml.child xml_arg0 "IncomingWrappedKey") in
      let outgoingEncryptionAttributes =
        ReEncryptionAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "OutgoingEncryptionAttributes") in
      let incomingEncryptionAttributes =
        ReEncryptionAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "IncomingEncryptionAttributes") in
      let cipherText =
        CipherTextType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CipherText") in
      let outgoingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutgoingKeyIdentifier") in
      let incomingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IncomingKeyIdentifier") in
      make ?outgoingWrappedKey ?incomingWrappedKey
        ~outgoingEncryptionAttributes ~incomingEncryptionAttributes
        ~cipherText ~outgoingKeyIdentifier ~incomingKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outgoingWrappedKey =
        field_map json__ "OutgoingWrappedKey" WrappedKey.of_json in
      let incomingWrappedKey =
        field_map json__ "IncomingWrappedKey" WrappedKey.of_json in
      let outgoingEncryptionAttributes =
        field_map_exn json__ "OutgoingEncryptionAttributes"
          ReEncryptionAttributes.of_json in
      let incomingEncryptionAttributes =
        field_map_exn json__ "IncomingEncryptionAttributes"
          ReEncryptionAttributes.of_json in
      let cipherText =
        field_map_exn json__ "CipherText" CipherTextType.of_json in
      let outgoingKeyIdentifier =
        field_map_exn json__ "OutgoingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let incomingKeyIdentifier =
        field_map_exn json__ "IncomingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?outgoingWrappedKey ?incomingWrappedKey
        ~outgoingEncryptionAttributes ~incomingEncryptionAttributes
        ~cipherText ~outgoingKeyIdentifier ~incomingKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Re-encrypt ciphertext using DUKPT or Symmetric data encryption keys. You can either generate an encryption key within Amazon Web Services Payment Cryptography by calling CreateKey or import your own encryption key by calling ImportKey. The KeyArn for use with this operation must be in a compatible key state with KeyModesOfUse set to Encrypt. This operation also supports dynamic keys, allowing you to pass a dynamic encryption key as a TR-31 WrappedKeyBlock. This can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To re-encrypt using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped encryption key material. The incoming wrapped key shall have a key purpose of D0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. For symmetric and DUKPT encryption, Amazon Web Services Payment Cryptography supports TDES and AES algorithms. To encrypt using DUKPT, a DUKPT key must already exist within your account with KeyModesOfUse set to DeriveKey or a new DUKPT can be generated by calling CreateKey. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DecryptData EncryptData GetPublicCertificate ImportKey"]
module GeneratePinDataOutput =
  struct
    type nonrec t =
      {
      generationKeyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the pin data generation key that Amazon Web Services Payment Cryptography uses for PIN, PVV or PIN Offset generation."];
      generationKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      encryptionKeyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the PEK that Amazon Web Services Payment Cryptography uses for encrypted pin block generation. For ECDH, it is the keyARN of the asymmetric ECC key."];
      encryptionKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      encryptedPinBlock: EncryptedPinBlockType.t option
        [@ocaml.doc
          "The PIN block encrypted under PEK from Amazon Web Services Payment Cryptography. The encrypted PIN block is a composite of PAN (Primary Account Number) and PIN (Personal Identification Number), generated in accordance with ISO 9564 standard."];
      pinData: PinData.t option
        [@ocaml.doc
          "The attributes and values Amazon Web Services Payment Cryptography uses for pin data generation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?generationKeyArn =
      fun ?generationKeyCheckValue ->
        fun ?encryptionKeyArn ->
          fun ?encryptionKeyCheckValue ->
            fun ?encryptedPinBlock ->
              fun ?pinData ->
                fun () ->
                  {
                    generationKeyArn;
                    generationKeyCheckValue;
                    encryptionKeyArn;
                    encryptionKeyCheckValue;
                    encryptedPinBlock;
                    pinData
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("GenerationKeyArn",
           (Option.map x.generationKeyArn ~f:KeyArn.to_value));
        ("GenerationKeyCheckValue",
          (Option.map x.generationKeyCheckValue ~f:KeyCheckValue.to_value));
        ("EncryptionKeyArn",
          (Option.map x.encryptionKeyArn ~f:KeyArn.to_value));
        ("EncryptionKeyCheckValue",
          (Option.map x.encryptionKeyCheckValue ~f:KeyCheckValue.to_value));
        ("EncryptedPinBlock",
          (Option.map x.encryptedPinBlock ~f:EncryptedPinBlockType.to_value));
        ("PinData", (Option.map x.pinData ~f:PinData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinData =
        (Option.map ~f:PinData.of_xml) (Xml.child xml_arg0 "PinData") in
      let encryptedPinBlock =
        (Option.map ~f:EncryptedPinBlockType.of_xml)
          (Xml.child xml_arg0 "EncryptedPinBlock") in
      let encryptionKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "EncryptionKeyCheckValue") in
      let encryptionKeyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "EncryptionKeyArn") in
      let generationKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "GenerationKeyCheckValue") in
      let generationKeyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "GenerationKeyArn") in
      make ?pinData ?encryptedPinBlock ?encryptionKeyCheckValue
        ?encryptionKeyArn ?generationKeyCheckValue ?generationKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinData = field_map json__ "PinData" PinData.of_json in
      let encryptedPinBlock =
        field_map json__ "EncryptedPinBlock" EncryptedPinBlockType.of_json in
      let encryptionKeyCheckValue =
        field_map json__ "EncryptionKeyCheckValue" KeyCheckValue.of_json in
      let encryptionKeyArn =
        field_map json__ "EncryptionKeyArn" KeyArn.of_json in
      let generationKeyCheckValue =
        field_map json__ "GenerationKeyCheckValue" KeyCheckValue.of_json in
      let generationKeyArn =
        field_map json__ "GenerationKeyArn" KeyArn.of_json in
      make ?pinData ?encryptedPinBlock ?encryptionKeyCheckValue
        ?encryptionKeyArn ?generationKeyCheckValue ?generationKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates pin-related data such as PIN, PIN Verification Value (PVV), PIN Block, and PIN Offset during new card issuance or reissuance. For more information, see Generate PIN data in the Amazon Web Services Payment Cryptography User Guide. PIN data is never transmitted in clear to or from Amazon Web Services Payment Cryptography. This operation generates PIN, PVV, or PIN Offset and then encrypts it using Pin Encryption Key (PEK) to create an EncryptedPinBlock for transmission from Amazon Web Services Payment Cryptography. This operation uses a separate Pin Verification Key (PVK) for VISA PVV generation. Using ECDH key exchange, you can receive cardholder selectable PINs into Amazon Web Services Payment Cryptography. The ECDH derived key protects the incoming PIN block. You can also use it for reveal PIN, wherein the generated PIN block is protected by the ECDH derived key before transmission from Amazon Web Services Payment Cryptography. For more information on establishing ECDH derived keys, see the Generating keys in the Amazon Web Services Payment Cryptography User Guide. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GenerateCardValidationData TranslatePinData VerifyPinData"]
module GeneratePinDataInput =
  struct
    type nonrec t =
      {
      generationKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the PEK that Amazon Web Services Payment Cryptography uses for pin data generation."];
      encryptionKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the PEK that Amazon Web Services Payment Cryptography uses to encrypt the PIN Block. For ECDH, it is the keyARN of the asymmetric ECC key."];
      generationAttributes: PinGenerationAttributes.t
        [@ocaml.doc
          "The attributes and values to use for PIN, PVV, or PIN Offset generation."];
      pinDataLength: IntegerRangeBetween4And12.t option
        [@ocaml.doc "The length of PIN under generation."];
      primaryAccountNumber: PrimaryAccountNumberType.t option
        [@ocaml.doc
          "The Primary Account Number (PAN), a unique identifier for a payment credit or debit card that associates the card with a specific account holder."];
      pinBlockFormat: PinBlockFormatForPinData.t
        [@ocaml.doc
          "The PIN encoding format for pin data generation as specified in ISO 9564. Amazon Web Services Payment Cryptography supports ISO_Format_0, ISO_Format_3 and ISO_Format_4. The ISO_Format_0 PIN block format is equivalent to the ANSI X9.8, VISA-1, and ECI-1 PIN block formats. It is similar to a VISA-4 PIN block format. It supports a PIN from 4 to 12 digits in length. The ISO_Format_3 PIN block format is the same as ISO_Format_0 except that the fill digits are random values from 10 to 15. The ISO_Format_4 PIN block format is the only one supporting AES encryption."];
      encryptionWrappedKey: WrappedKey.t option }
    let context_ = "GeneratePinDataInput"
    let make ?pinDataLength =
      fun ?primaryAccountNumber ->
        fun ?encryptionWrappedKey ->
          fun ~generationKeyIdentifier ->
            fun ~encryptionKeyIdentifier ->
              fun ~generationAttributes ->
                fun ~pinBlockFormat ->
                  fun () ->
                    {
                      pinDataLength;
                      primaryAccountNumber;
                      encryptionWrappedKey;
                      generationKeyIdentifier;
                      encryptionKeyIdentifier;
                      generationAttributes;
                      pinBlockFormat
                    }
    let to_value x =
      structure_to_value
        [("GenerationKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.generationKeyIdentifier)));
        ("EncryptionKeyIdentifier",
          (Some (KeyArnOrKeyAliasType.to_value x.encryptionKeyIdentifier)));
        ("GenerationAttributes",
          (Some (PinGenerationAttributes.to_value x.generationAttributes)));
        ("PinDataLength",
          (Option.map x.pinDataLength ~f:IntegerRangeBetween4And12.to_value));
        ("PrimaryAccountNumber",
          (Option.map x.primaryAccountNumber
             ~f:PrimaryAccountNumberType.to_value));
        ("PinBlockFormat",
          (Some (PinBlockFormatForPinData.to_value x.pinBlockFormat)));
        ("EncryptionWrappedKey",
          (Option.map x.encryptionWrappedKey ~f:WrappedKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionWrappedKey =
        (Option.map ~f:WrappedKey.of_xml)
          (Xml.child xml_arg0 "EncryptionWrappedKey") in
      let pinBlockFormat =
        PinBlockFormatForPinData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinBlockFormat") in
      let primaryAccountNumber =
        (Option.map ~f:PrimaryAccountNumberType.of_xml)
          (Xml.child xml_arg0 "PrimaryAccountNumber") in
      let pinDataLength =
        (Option.map ~f:IntegerRangeBetween4And12.of_xml)
          (Xml.child xml_arg0 "PinDataLength") in
      let generationAttributes =
        PinGenerationAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GenerationAttributes") in
      let encryptionKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptionKeyIdentifier") in
      let generationKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GenerationKeyIdentifier") in
      make ?encryptionWrappedKey ~pinBlockFormat ?primaryAccountNumber
        ?pinDataLength ~generationAttributes ~encryptionKeyIdentifier
        ~generationKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionWrappedKey =
        field_map json__ "EncryptionWrappedKey" WrappedKey.of_json in
      let pinBlockFormat =
        field_map_exn json__ "PinBlockFormat"
          PinBlockFormatForPinData.of_json in
      let primaryAccountNumber =
        field_map json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let pinDataLength =
        field_map json__ "PinDataLength" IntegerRangeBetween4And12.of_json in
      let generationAttributes =
        field_map_exn json__ "GenerationAttributes"
          PinGenerationAttributes.of_json in
      let encryptionKeyIdentifier =
        field_map_exn json__ "EncryptionKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let generationKeyIdentifier =
        field_map_exn json__ "GenerationKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?encryptionWrappedKey ~pinBlockFormat ?primaryAccountNumber
        ?pinDataLength ~generationAttributes ~encryptionKeyIdentifier
        ~generationKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates pin-related data such as PIN, PIN Verification Value (PVV), PIN Block, and PIN Offset during new card issuance or reissuance. For more information, see Generate PIN data in the Amazon Web Services Payment Cryptography User Guide. PIN data is never transmitted in clear to or from Amazon Web Services Payment Cryptography. This operation generates PIN, PVV, or PIN Offset and then encrypts it using Pin Encryption Key (PEK) to create an EncryptedPinBlock for transmission from Amazon Web Services Payment Cryptography. This operation uses a separate Pin Verification Key (PVK) for VISA PVV generation. Using ECDH key exchange, you can receive cardholder selectable PINs into Amazon Web Services Payment Cryptography. The ECDH derived key protects the incoming PIN block. You can also use it for reveal PIN, wherein the generated PIN block is protected by the ECDH derived key before transmission from Amazon Web Services Payment Cryptography. For more information on establishing ECDH derived keys, see the Generating keys in the Amazon Web Services Payment Cryptography User Guide. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GenerateCardValidationData TranslatePinData VerifyPinData"]
module GenerateMacOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses for MAC generation."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      mac: MacOutputType.t option
        [@ocaml.doc
          "The MAC cryptogram generated within Amazon Web Services Payment Cryptography."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?mac -> fun () -> { keyArn; keyCheckValue; mac }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("Mac", (Option.map x.mac ~f:MacOutputType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mac =
        (Option.map ~f:MacOutputType.of_xml) (Xml.child xml_arg0 "Mac") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?mac ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mac = field_map json__ "Mac" MacOutputType.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?mac ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates a Message Authentication Code (MAC) cryptogram within Amazon Web Services Payment Cryptography. You can use this operation to authenticate card-related data by using known data values to generate MAC for data validation between the sending and receiving parties. This operation uses message data, a secret encryption key and MAC algorithm to generate a unique MAC value for transmission. The receiving party of the MAC must use the same message data, secret encryption key and MAC algorithm to reproduce another MAC value for comparision. You can use this operation to generate a DUPKT, CMAC, HMAC or EMV MAC by setting generation attributes and algorithm to the associated values. The MAC generation encryption key must have valid values for KeyUsage such as TR31_M7_HMAC_KEY for HMAC generation, and the key must have KeyModesOfUse set to Generate. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: VerifyMac"]
module GenerateMacInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The keyARN of the MAC generation encryption key."];
      messageData: MessageDataType.t
        [@ocaml.doc
          "The data for which a MAC is under generation. This value must be hexBinary."];
      generationAttributes: MacAttributes.t
        [@ocaml.doc
          "The attributes and data values to use for MAC generation within Amazon Web Services Payment Cryptography."];
      macLength: IntegerRangeBetween4And16.t option
        [@ocaml.doc "The length of a MAC under generation."]}
    let context_ = "GenerateMacInput"
    let make ?macLength =
      fun ~keyIdentifier ->
        fun ~messageData ->
          fun ~generationAttributes ->
            fun () ->
              { macLength; keyIdentifier; messageData; generationAttributes }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("MessageData", (Some (MessageDataType.to_value x.messageData)));
        ("GenerationAttributes",
          (Some (MacAttributes.to_value x.generationAttributes)));
        ("MacLength",
          (Option.map x.macLength ~f:IntegerRangeBetween4And16.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let macLength =
        (Option.map ~f:IntegerRangeBetween4And16.of_xml)
          (Xml.child xml_arg0 "MacLength") in
      let generationAttributes =
        MacAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GenerationAttributes") in
      let messageData =
        MessageDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageData") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?macLength ~generationAttributes ~messageData ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let macLength =
        field_map json__ "MacLength" IntegerRangeBetween4And16.of_json in
      let generationAttributes =
        field_map_exn json__ "GenerationAttributes" MacAttributes.of_json in
      let messageData =
        field_map_exn json__ "MessageData" MessageDataType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?macLength ~generationAttributes ~messageData ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates a Message Authentication Code (MAC) cryptogram within Amazon Web Services Payment Cryptography. You can use this operation to authenticate card-related data by using known data values to generate MAC for data validation between the sending and receiving parties. This operation uses message data, a secret encryption key and MAC algorithm to generate a unique MAC value for transmission. The receiving party of the MAC must use the same message data, secret encryption key and MAC algorithm to reproduce another MAC value for comparision. You can use this operation to generate a DUPKT, CMAC, HMAC or EMV MAC by setting generation attributes and algorithm to the associated values. The MAC generation encryption key must have valid values for KeyUsage such as TR31_M7_HMAC_KEY for HMAC generation, and the key must have KeyModesOfUse set to Generate. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: VerifyMac"]
module GenerateMacEmvPinChangeOutput =
  struct
    type nonrec t =
      {
      newPinPekArn: KeyArn.t option
        [@ocaml.doc
          "Returns the keyArn of the PEK protecting the incoming new encrypted PIN block."];
      secureMessagingIntegrityKeyArn: KeyArn.t option
        [@ocaml.doc
          "Returns the keyArn of the IMK-SMI used by the operation."];
      secureMessagingConfidentialityKeyArn: KeyArn.t option
        [@ocaml.doc
          "Returns the keyArn of the IMK-SMC used by the operation."];
      mac: PinChangeMacOutputType.t option
        [@ocaml.doc
          "Returns the mac of the issuer script containing message data and appended target encrypted pin block in ISO2 format."];
      encryptedPinBlock: EncryptedPinBlockType.t option
        [@ocaml.doc "Returns the incoming new encrpted PIN block."];
      newPinPekKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the PEK uprotecting the incoming new encrypted PIN block."];
      secureMessagingIntegrityKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the SMI issuer master key used by the operation."];
      secureMessagingConfidentialityKeyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the SMC issuer master key used by the operation."];
      visaAmexDerivationOutputs: VisaAmexDerivationOutputs.t option
        [@ocaml.doc
          "The attribute values used for Amex and Visa derivation methods."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?newPinPekArn =
      fun ?secureMessagingIntegrityKeyArn ->
        fun ?secureMessagingConfidentialityKeyArn ->
          fun ?mac ->
            fun ?encryptedPinBlock ->
              fun ?newPinPekKeyCheckValue ->
                fun ?secureMessagingIntegrityKeyCheckValue ->
                  fun ?secureMessagingConfidentialityKeyCheckValue ->
                    fun ?visaAmexDerivationOutputs ->
                      fun () ->
                        {
                          newPinPekArn;
                          secureMessagingIntegrityKeyArn;
                          secureMessagingConfidentialityKeyArn;
                          mac;
                          encryptedPinBlock;
                          newPinPekKeyCheckValue;
                          secureMessagingIntegrityKeyCheckValue;
                          secureMessagingConfidentialityKeyCheckValue;
                          visaAmexDerivationOutputs
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NewPinPekArn", (Option.map x.newPinPekArn ~f:KeyArn.to_value));
        ("SecureMessagingIntegrityKeyArn",
          (Option.map x.secureMessagingIntegrityKeyArn ~f:KeyArn.to_value));
        ("SecureMessagingConfidentialityKeyArn",
          (Option.map x.secureMessagingConfidentialityKeyArn
             ~f:KeyArn.to_value));
        ("Mac", (Option.map x.mac ~f:PinChangeMacOutputType.to_value));
        ("EncryptedPinBlock",
          (Option.map x.encryptedPinBlock ~f:EncryptedPinBlockType.to_value));
        ("NewPinPekKeyCheckValue",
          (Option.map x.newPinPekKeyCheckValue ~f:KeyCheckValue.to_value));
        ("SecureMessagingIntegrityKeyCheckValue",
          (Option.map x.secureMessagingIntegrityKeyCheckValue
             ~f:KeyCheckValue.to_value));
        ("SecureMessagingConfidentialityKeyCheckValue",
          (Option.map x.secureMessagingConfidentialityKeyCheckValue
             ~f:KeyCheckValue.to_value));
        ("VisaAmexDerivationOutputs",
          (Option.map x.visaAmexDerivationOutputs
             ~f:VisaAmexDerivationOutputs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visaAmexDerivationOutputs =
        (Option.map ~f:VisaAmexDerivationOutputs.of_xml)
          (Xml.child xml_arg0 "VisaAmexDerivationOutputs") in
      let secureMessagingConfidentialityKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "SecureMessagingConfidentialityKeyCheckValue") in
      let secureMessagingIntegrityKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "SecureMessagingIntegrityKeyCheckValue") in
      let newPinPekKeyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "NewPinPekKeyCheckValue") in
      let encryptedPinBlock =
        (Option.map ~f:EncryptedPinBlockType.of_xml)
          (Xml.child xml_arg0 "EncryptedPinBlock") in
      let mac =
        (Option.map ~f:PinChangeMacOutputType.of_xml)
          (Xml.child xml_arg0 "Mac") in
      let secureMessagingConfidentialityKeyArn =
        (Option.map ~f:KeyArn.of_xml)
          (Xml.child xml_arg0 "SecureMessagingConfidentialityKeyArn") in
      let secureMessagingIntegrityKeyArn =
        (Option.map ~f:KeyArn.of_xml)
          (Xml.child xml_arg0 "SecureMessagingIntegrityKeyArn") in
      let newPinPekArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "NewPinPekArn") in
      make ?visaAmexDerivationOutputs
        ?secureMessagingConfidentialityKeyCheckValue
        ?secureMessagingIntegrityKeyCheckValue ?newPinPekKeyCheckValue
        ?encryptedPinBlock ?mac ?secureMessagingConfidentialityKeyArn
        ?secureMessagingIntegrityKeyArn ?newPinPekArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visaAmexDerivationOutputs =
        field_map json__ "VisaAmexDerivationOutputs"
          VisaAmexDerivationOutputs.of_json in
      let secureMessagingConfidentialityKeyCheckValue =
        field_map json__ "SecureMessagingConfidentialityKeyCheckValue"
          KeyCheckValue.of_json in
      let secureMessagingIntegrityKeyCheckValue =
        field_map json__ "SecureMessagingIntegrityKeyCheckValue"
          KeyCheckValue.of_json in
      let newPinPekKeyCheckValue =
        field_map json__ "NewPinPekKeyCheckValue" KeyCheckValue.of_json in
      let encryptedPinBlock =
        field_map json__ "EncryptedPinBlock" EncryptedPinBlockType.of_json in
      let mac = field_map json__ "Mac" PinChangeMacOutputType.of_json in
      let secureMessagingConfidentialityKeyArn =
        field_map json__ "SecureMessagingConfidentialityKeyArn"
          KeyArn.of_json in
      let secureMessagingIntegrityKeyArn =
        field_map json__ "SecureMessagingIntegrityKeyArn" KeyArn.of_json in
      let newPinPekArn = field_map json__ "NewPinPekArn" KeyArn.of_json in
      make ?visaAmexDerivationOutputs
        ?secureMessagingConfidentialityKeyCheckValue
        ?secureMessagingIntegrityKeyCheckValue ?newPinPekKeyCheckValue
        ?encryptedPinBlock ?mac ?secureMessagingConfidentialityKeyArn
        ?secureMessagingIntegrityKeyArn ?newPinPekArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates an issuer script mac for EMV payment cards that use offline PINs as the cardholder verification method (CVM). This operation generates an authenticated issuer script response by appending the incoming message data (APDU command) with the target encrypted PIN block in ISO2 format. The command structure and method to send the issuer script update to the card is not defined by this operation and is typically determined by the applicable payment card scheme. The primary inputs to this operation include the incoming new encrypted pinblock, PIN encryption key (PEK), issuer master key (IMK), primary account number (PAN), and the payment card derivation method. The operation uses two issuer master keys - secure messaging for confidentiality (IMK-SMC) and secure messaging for integrity (IMK-SMI). The SMC key is used to internally derive a key to secure the pin, while SMI key is used to internally derive a key to authenticate the script reponse as per the EMV 4.4 - Book 2 - Security and Key Management specification. This operation supports Amex, EMV2000, EMVCommon, Mastercard and Visa derivation methods, each requiring specific input parameters. Users must follow the specific derivation method and input parameters defined by the respective payment card scheme. Use GenerateMac operation when sending a script update to an EMV card that does not involve PIN change. When assigning IAM permissions, it is important to understand that EncryptData using EMV keys and GenerateMac perform similar functions to this command. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: EncryptData GenerateMac"]
module GenerateMacEmvPinChangeInput =
  struct
    type nonrec t =
      {
      newPinPekIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the PEK protecting the incoming new encrypted PIN block."];
      newEncryptedPinBlock: PinBlockLengthEquals16.t
        [@ocaml.doc
          "The incoming new encrypted PIN block data for offline pin change on an EMV card."];
      pinBlockFormat: PinBlockFormatForEmvPinChange.t
        [@ocaml.doc
          "The PIN encoding format of the incoming new encrypted PIN block as specified in ISO 9564."];
      secureMessagingIntegrityKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the issuer master key (IMK-SMI) used to authenticate the issuer script response."];
      secureMessagingConfidentialityKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the issuer master key (IMK-SMC) used to protect the PIN block data in the issuer script response."];
      messageData: CommandMessageDataType.t
        [@ocaml.doc
          "The message data is the APDU command from the card reader or terminal. The target encrypted PIN block, after translation to ISO2 format, is appended to this message data to generate an issuer script response."];
      derivationMethodAttributes: DerivationMethodAttributes.t
        [@ocaml.doc
          "The attributes and data values to derive payment card specific confidentiality and integrity keys."]}
    let context_ = "GenerateMacEmvPinChangeInput"
    let make ~newPinPekIdentifier =
      fun ~newEncryptedPinBlock ->
        fun ~pinBlockFormat ->
          fun ~secureMessagingIntegrityKeyIdentifier ->
            fun ~secureMessagingConfidentialityKeyIdentifier ->
              fun ~messageData ->
                fun ~derivationMethodAttributes ->
                  fun () ->
                    {
                      newPinPekIdentifier;
                      newEncryptedPinBlock;
                      pinBlockFormat;
                      secureMessagingIntegrityKeyIdentifier;
                      secureMessagingConfidentialityKeyIdentifier;
                      messageData;
                      derivationMethodAttributes
                    }
    let to_value x =
      structure_to_value
        [("NewPinPekIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.newPinPekIdentifier)));
        ("NewEncryptedPinBlock",
          (Some (PinBlockLengthEquals16.to_value x.newEncryptedPinBlock)));
        ("PinBlockFormat",
          (Some (PinBlockFormatForEmvPinChange.to_value x.pinBlockFormat)));
        ("SecureMessagingIntegrityKeyIdentifier",
          (Some
             (KeyArnOrKeyAliasType.to_value
                x.secureMessagingIntegrityKeyIdentifier)));
        ("SecureMessagingConfidentialityKeyIdentifier",
          (Some
             (KeyArnOrKeyAliasType.to_value
                x.secureMessagingConfidentialityKeyIdentifier)));
        ("MessageData",
          (Some (CommandMessageDataType.to_value x.messageData)));
        ("DerivationMethodAttributes",
          (Some
             (DerivationMethodAttributes.to_value
                x.derivationMethodAttributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let derivationMethodAttributes =
        DerivationMethodAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "DerivationMethodAttributes") in
      let messageData =
        CommandMessageDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageData") in
      let secureMessagingConfidentialityKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SecureMessagingConfidentialityKeyIdentifier") in
      let secureMessagingIntegrityKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SecureMessagingIntegrityKeyIdentifier") in
      let pinBlockFormat =
        PinBlockFormatForEmvPinChange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PinBlockFormat") in
      let newEncryptedPinBlock =
        PinBlockLengthEquals16.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NewEncryptedPinBlock") in
      let newPinPekIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NewPinPekIdentifier") in
      make ~derivationMethodAttributes ~messageData
        ~secureMessagingConfidentialityKeyIdentifier
        ~secureMessagingIntegrityKeyIdentifier ~pinBlockFormat
        ~newEncryptedPinBlock ~newPinPekIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let derivationMethodAttributes =
        field_map_exn json__ "DerivationMethodAttributes"
          DerivationMethodAttributes.of_json in
      let messageData =
        field_map_exn json__ "MessageData" CommandMessageDataType.of_json in
      let secureMessagingConfidentialityKeyIdentifier =
        field_map_exn json__ "SecureMessagingConfidentialityKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let secureMessagingIntegrityKeyIdentifier =
        field_map_exn json__ "SecureMessagingIntegrityKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let pinBlockFormat =
        field_map_exn json__ "PinBlockFormat"
          PinBlockFormatForEmvPinChange.of_json in
      let newEncryptedPinBlock =
        field_map_exn json__ "NewEncryptedPinBlock"
          PinBlockLengthEquals16.of_json in
      let newPinPekIdentifier =
        field_map_exn json__ "NewPinPekIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~derivationMethodAttributes ~messageData
        ~secureMessagingConfidentialityKeyIdentifier
        ~secureMessagingIntegrityKeyIdentifier ~pinBlockFormat
        ~newEncryptedPinBlock ~newPinPekIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates an issuer script mac for EMV payment cards that use offline PINs as the cardholder verification method (CVM). This operation generates an authenticated issuer script response by appending the incoming message data (APDU command) with the target encrypted PIN block in ISO2 format. The command structure and method to send the issuer script update to the card is not defined by this operation and is typically determined by the applicable payment card scheme. The primary inputs to this operation include the incoming new encrypted pinblock, PIN encryption key (PEK), issuer master key (IMK), primary account number (PAN), and the payment card derivation method. The operation uses two issuer master keys - secure messaging for confidentiality (IMK-SMC) and secure messaging for integrity (IMK-SMI). The SMC key is used to internally derive a key to secure the pin, while SMI key is used to internally derive a key to authenticate the script reponse as per the EMV 4.4 - Book 2 - Security and Key Management specification. This operation supports Amex, EMV2000, EMVCommon, Mastercard and Visa derivation methods, each requiring specific input parameters. Users must follow the specific derivation method and input parameters defined by the respective payment card scheme. Use GenerateMac operation when sending a script update to an EMV card that does not involve PIN change. When assigning IAM permissions, it is important to understand that EncryptData using EMV keys and GenerateMac perform similar functions to this command. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: EncryptData GenerateMac"]
module GenerateCardValidationDataOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the CVK encryption key that Amazon Web Services Payment Cryptography uses to generate CVV or CSC."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      validationData: ValidationDataType.t option
        [@ocaml.doc
          "The CVV or CSC value that Amazon Web Services Payment Cryptography generates for the card."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?validationData ->
          fun () -> { keyArn; keyCheckValue; validationData }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("ValidationData",
          (Option.map x.validationData ~f:ValidationDataType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationData =
        (Option.map ~f:ValidationDataType.of_xml)
          (Xml.child xml_arg0 "ValidationData") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?validationData ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationData =
        field_map json__ "ValidationData" ValidationDataType.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?validationData ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates card-related validation data using algorithms such as Card Verification Values (CVV/CVV2), Dynamic Card Verification Values (dCVV/dCVV2), or Card Security Codes (CSC). For more information, see Generate card data in the Amazon Web Services Payment Cryptography User Guide. This operation generates a CVV or CSC value that is printed on a payment credit or debit card during card production. The CVV or CSC, PAN (Primary Account Number) and expiration date of the card are required to check its validity during transaction processing. To begin this operation, a CVK (Card Verification Key) encryption key is required. You can use CreateKey or ImportKey to establish a CVK within Amazon Web Services Payment Cryptography. The KeyModesOfUse should be set to Generate and Verify for a CVK encryption key. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: ImportKey VerifyCardValidationData"]
module GenerateCardValidationDataInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the CVK encryption key that Amazon Web Services Payment Cryptography uses to generate card data."];
      primaryAccountNumber: PrimaryAccountNumberType.t
        [@ocaml.doc
          "The Primary Account Number (PAN), a unique identifier for a payment credit or debit card that associates the card with a specific account holder."];
      generationAttributes: CardGenerationAttributes.t
        [@ocaml.doc
          "The algorithm for generating CVV or CSC values for the card within Amazon Web Services Payment Cryptography."];
      validationDataLength: IntegerRangeBetween3And5Type.t option
        [@ocaml.doc
          "The length of the CVV or CSC to be generated. The default value is 3."]}
    let context_ = "GenerateCardValidationDataInput"
    let make ?validationDataLength =
      fun ~keyIdentifier ->
        fun ~primaryAccountNumber ->
          fun ~generationAttributes ->
            fun () ->
              {
                validationDataLength;
                keyIdentifier;
                primaryAccountNumber;
                generationAttributes
              }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("PrimaryAccountNumber",
          (Some (PrimaryAccountNumberType.to_value x.primaryAccountNumber)));
        ("GenerationAttributes",
          (Some (CardGenerationAttributes.to_value x.generationAttributes)));
        ("ValidationDataLength",
          (Option.map x.validationDataLength
             ~f:IntegerRangeBetween3And5Type.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationDataLength =
        (Option.map ~f:IntegerRangeBetween3And5Type.of_xml)
          (Xml.child xml_arg0 "ValidationDataLength") in
      let generationAttributes =
        CardGenerationAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GenerationAttributes") in
      let primaryAccountNumber =
        PrimaryAccountNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryAccountNumber") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?validationDataLength ~generationAttributes ~primaryAccountNumber
        ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationDataLength =
        field_map json__ "ValidationDataLength"
          IntegerRangeBetween3And5Type.of_json in
      let generationAttributes =
        field_map_exn json__ "GenerationAttributes"
          CardGenerationAttributes.of_json in
      let primaryAccountNumber =
        field_map_exn json__ "PrimaryAccountNumber"
          PrimaryAccountNumberType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?validationDataLength ~generationAttributes ~primaryAccountNumber
        ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates card-related validation data using algorithms such as Card Verification Values (CVV/CVV2), Dynamic Card Verification Values (dCVV/dCVV2), or Card Security Codes (CSC). For more information, see Generate card data in the Amazon Web Services Payment Cryptography User Guide. This operation generates a CVV or CSC value that is printed on a payment credit or debit card during card production. The CVV or CSC, PAN (Primary Account Number) and expiration date of the card are required to check its validity during transaction processing. To begin this operation, a CVK (Card Verification Key) encryption key is required. You can use CreateKey or ImportKey to establish a CVK within Amazon Web Services Payment Cryptography. The KeyModesOfUse should be set to Generate and Verify for a CVK encryption key. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: ImportKey VerifyCardValidationData"]
module GenerateAs2805KekValidationOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of sending KEK that Amazon Web Services Payment Cryptography validates for node-to-node initialization"];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the sending KEK that Amazon Web Services Payment Cryptography validates for node-to-node initialization."];
      randomKeySend: As2805RandomKeyMaterial.t option
        [@ocaml.doc "The random key generated for sending KEK validation."];
      randomKeyReceive: As2805RandomKeyMaterial.t option
        [@ocaml.doc
          "The random key generated for receiving KEK validation. The initiating node sends this key to its partner node for validation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?randomKeySend ->
          fun ?randomKeyReceive ->
            fun () ->
              { keyArn; keyCheckValue; randomKeySend; randomKeyReceive }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("RandomKeySend",
          (Option.map x.randomKeySend ~f:As2805RandomKeyMaterial.to_value));
        ("RandomKeyReceive",
          (Option.map x.randomKeyReceive ~f:As2805RandomKeyMaterial.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let randomKeyReceive =
        (Option.map ~f:As2805RandomKeyMaterial.of_xml)
          (Xml.child xml_arg0 "RandomKeyReceive") in
      let randomKeySend =
        (Option.map ~f:As2805RandomKeyMaterial.of_xml)
          (Xml.child xml_arg0 "RandomKeySend") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?randomKeyReceive ?randomKeySend ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let randomKeyReceive =
        field_map json__ "RandomKeyReceive" As2805RandomKeyMaterial.of_json in
      let randomKeySend =
        field_map json__ "RandomKeySend" As2805RandomKeyMaterial.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?randomKeyReceive ?randomKeySend ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Establishes node-to-node initialization between payment processing nodes such as an acquirer, issuer or payment network using Australian Standard 2805 (AS2805). During node-to-node initialization, both communicating nodes must validate that they possess the correct Key Encrypting Keys (KEKs) before proceeding with session key exchange. In AS2805, the sending KEK (KEKs) of one node corresponds to the receiving KEK (KEKr) of its partner node. Each node uses its KEK to encrypt and decrypt session keys exchanged between the nodes. A KEK can be created or imported into Amazon Web Services Payment Cryptography using either the CreateKey or ImportKey operations. The node initiating communication can use GenerateAS2805KekValidation to generate a combined KEK validation request and KEK validation response to send to the partnering node for validation. When invoked, the API internally generates a random sending key encrypted under KEKs and provides a receiving key encrypted under KEKr as response. The initiating node sends the response returned by this API to its partner for validation. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts."]
module GenerateAs2805KekValidationInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of sending KEK that Amazon Web Services Payment Cryptography uses for node-to-node initialization"];
      kekValidationType: As2805KekValidationType.t
        [@ocaml.doc
          "Parameter information for generating a random key for KEK validation to perform node-to-node initialization."];
      randomKeySendVariantMask: RandomKeySendVariantMask.t
        [@ocaml.doc
          "The key variant to use for generating a random key for KEK validation during node-to-node initialization."]}
    let context_ = "GenerateAs2805KekValidationInput"
    let make ~keyIdentifier =
      fun ~kekValidationType ->
        fun ~randomKeySendVariantMask ->
          fun () ->
            { keyIdentifier; kekValidationType; randomKeySendVariantMask }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("KekValidationType",
          (Some (As2805KekValidationType.to_value x.kekValidationType)));
        ("RandomKeySendVariantMask",
          (Some
             (RandomKeySendVariantMask.to_value x.randomKeySendVariantMask)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let randomKeySendVariantMask =
        RandomKeySendVariantMask.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "RandomKeySendVariantMask") in
      let kekValidationType =
        As2805KekValidationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KekValidationType") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~randomKeySendVariantMask ~kekValidationType ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let randomKeySendVariantMask =
        field_map_exn json__ "RandomKeySendVariantMask"
          RandomKeySendVariantMask.of_json in
      let kekValidationType =
        field_map_exn json__ "KekValidationType"
          As2805KekValidationType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~randomKeySendVariantMask ~kekValidationType ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Establishes node-to-node initialization between payment processing nodes such as an acquirer, issuer or payment network using Australian Standard 2805 (AS2805). During node-to-node initialization, both communicating nodes must validate that they possess the correct Key Encrypting Keys (KEKs) before proceeding with session key exchange. In AS2805, the sending KEK (KEKs) of one node corresponds to the receiving KEK (KEKr) of its partner node. Each node uses its KEK to encrypt and decrypt session keys exchanged between the nodes. A KEK can be created or imported into Amazon Web Services Payment Cryptography using either the CreateKey or ImportKey operations. The node initiating communication can use GenerateAS2805KekValidation to generate a combined KEK validation request and KEK validation response to send to the partnering node for validation. When invoked, the API internally generates a random sending key encrypted under KEKs and provides a receiving key encrypted under KEKr as response. The initiating node sends the response returned by this API to its partner for validation. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts."]
module EncryptDataOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses for plaintext encryption."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      cipherText: CipherTextType.t option
        [@ocaml.doc "The encrypted ciphertext."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?cipherText -> fun () -> { keyArn; keyCheckValue; cipherText }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("CipherText", (Option.map x.cipherText ~f:CipherTextType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cipherText =
        (Option.map ~f:CipherTextType.of_xml)
          (Xml.child xml_arg0 "CipherText") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?cipherText ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cipherText = field_map json__ "CipherText" CipherTextType.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?cipherText ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Encrypts plaintext data to ciphertext using a symmetric (TDES, AES), asymmetric (RSA), or derived (DUKPT or EMV) encryption key scheme. For more information, see Encrypt data in the Amazon Web Services Payment Cryptography User Guide. You can generate an encryption key within Amazon Web Services Payment Cryptography by calling CreateKey. You can import your own encryption key by calling ImportKey. For this operation, the key must have KeyModesOfUse set to Encrypt. In asymmetric encryption, plaintext is encrypted using public component. You can import the public component of an asymmetric key pair created outside Amazon Web Services Payment Cryptography by calling ImportKey. This operation also supports dynamic keys, allowing you to pass a dynamic encryption key as a TR-31 WrappedKeyBlock. This can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To encrypt using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped encryption key material. The incoming wrapped key shall have a key purpose of D0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. For symmetric and DUKPT encryption, Amazon Web Services Payment Cryptography supports TDES and AES algorithms. For EMV encryption, Amazon Web Services Payment Cryptography supports TDES algorithms.For asymmetric encryption, Amazon Web Services Payment Cryptography supports RSA. When you use TDES or TDES DUKPT, the plaintext data length must be a multiple of 8 bytes. For AES or AES DUKPT, the plaintext data length must be a multiple of 16 bytes. For RSA, it sould be equal to the key size unless padding is enabled. To encrypt using DUKPT, you must already have a BDK (Base Derivation Key) key in your account with KeyModesOfUse set to DeriveKey, or you can generate a new DUKPT key by calling CreateKey. To encrypt using EMV, you must already have an IMK (Issuer Master Key) key in your account with KeyModesOfUse set to DeriveKey. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DecryptData GetPublicCertificate ImportKey ReEncryptData"]
module EncryptDataInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses for plaintext encryption. When a WrappedKeyBlock is provided, this value will be the identifier to the key wrapping key. Otherwise, it is the key identifier used to perform the operation."];
      plainText: PlainTextType.t
        [@ocaml.doc
          "The plaintext to be encrypted. For encryption using asymmetric keys, plaintext data length is constrained by encryption key strength that you define in KeyAlgorithm and padding type that you define in AsymmetricEncryptionAttributes. For more information, see Encrypt data in the Amazon Web Services Payment Cryptography User Guide."];
      encryptionAttributes: EncryptionDecryptionAttributes.t
        [@ocaml.doc
          "The encryption key type and attributes for plaintext encryption."];
      wrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The WrappedKeyBlock containing the encryption key for plaintext encryption."]}
    let context_ = "EncryptDataInput"
    let make ?wrappedKey =
      fun ~keyIdentifier ->
        fun ~plainText ->
          fun ~encryptionAttributes ->
            fun () ->
              { wrappedKey; keyIdentifier; plainText; encryptionAttributes }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("PlainText", (Some (PlainTextType.to_value x.plainText)));
        ("EncryptionAttributes",
          (Some
             (EncryptionDecryptionAttributes.to_value x.encryptionAttributes)));
        ("WrappedKey", (Option.map x.wrappedKey ~f:WrappedKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappedKey =
        (Option.map ~f:WrappedKey.of_xml) (Xml.child xml_arg0 "WrappedKey") in
      let encryptionAttributes =
        EncryptionDecryptionAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EncryptionAttributes") in
      let plainText =
        PlainTextType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlainText") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?wrappedKey ~encryptionAttributes ~plainText ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappedKey = field_map json__ "WrappedKey" WrappedKey.of_json in
      let encryptionAttributes =
        field_map_exn json__ "EncryptionAttributes"
          EncryptionDecryptionAttributes.of_json in
      let plainText = field_map_exn json__ "PlainText" PlainTextType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?wrappedKey ~encryptionAttributes ~plainText ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Encrypts plaintext data to ciphertext using a symmetric (TDES, AES), asymmetric (RSA), or derived (DUKPT or EMV) encryption key scheme. For more information, see Encrypt data in the Amazon Web Services Payment Cryptography User Guide. You can generate an encryption key within Amazon Web Services Payment Cryptography by calling CreateKey. You can import your own encryption key by calling ImportKey. For this operation, the key must have KeyModesOfUse set to Encrypt. In asymmetric encryption, plaintext is encrypted using public component. You can import the public component of an asymmetric key pair created outside Amazon Web Services Payment Cryptography by calling ImportKey. This operation also supports dynamic keys, allowing you to pass a dynamic encryption key as a TR-31 WrappedKeyBlock. This can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To encrypt using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped encryption key material. The incoming wrapped key shall have a key purpose of D0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. For symmetric and DUKPT encryption, Amazon Web Services Payment Cryptography supports TDES and AES algorithms. For EMV encryption, Amazon Web Services Payment Cryptography supports TDES algorithms.For asymmetric encryption, Amazon Web Services Payment Cryptography supports RSA. When you use TDES or TDES DUKPT, the plaintext data length must be a multiple of 8 bytes. For AES or AES DUKPT, the plaintext data length must be a multiple of 16 bytes. For RSA, it sould be equal to the key size unless padding is enabled. To encrypt using DUKPT, you must already have a BDK (Base Derivation Key) key in your account with KeyModesOfUse set to DeriveKey, or you can generate a new DUKPT key by calling CreateKey. To encrypt using EMV, you must already have an IMK (Issuer Master Key) key in your account with KeyModesOfUse set to DeriveKey. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DecryptData GetPublicCertificate ImportKey ReEncryptData"]
module DecryptDataOutput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses for ciphertext decryption."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) of the encryption key. The KCV is used to check if all parties holding a given key have the same key or to detect that a key has changed. Amazon Web Services Payment Cryptography computes the KCV according to the CMAC specification."];
      plainText: PlainTextOutputType.t option
        [@ocaml.doc "The decrypted plaintext data in hexBinary format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyArn =
      fun ?keyCheckValue ->
        fun ?plainText -> fun () -> { keyArn; keyCheckValue; plainText }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("PlainText",
          (Option.map x.plainText ~f:PlainTextOutputType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let plainText =
        (Option.map ~f:PlainTextOutputType.of_xml)
          (Xml.child xml_arg0 "PlainText") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?plainText ?keyCheckValue ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let plainText =
        field_map json__ "PlainText" PlainTextOutputType.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?plainText ?keyCheckValue ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Decrypts ciphertext data to plaintext using a symmetric (TDES, AES), asymmetric (RSA), or derived (DUKPT or EMV) encryption key scheme. For more information, see Decrypt data in the Amazon Web Services Payment Cryptography User Guide. You can use an decryption key generated within Amazon Web Services Payment Cryptography, or you can import your own decryption key by calling ImportKey. For this operation, the key must have KeyModesOfUse set to Decrypt. In asymmetric decryption, Amazon Web Services Payment Cryptography decrypts the ciphertext using the private component of the asymmetric encryption key pair. For data encryption outside of Amazon Web Services Payment Cryptography, you can export the public component of the asymmetric key pair by calling GetPublicCertificate. This operation also supports dynamic keys, allowing you to pass a dynamic decryption key as a TR-31 WrappedKeyBlock. This can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To decrypt using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped decryption key material. The incoming wrapped key shall have a key purpose of D0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. For symmetric and DUKPT decryption, Amazon Web Services Payment Cryptography supports TDES and AES algorithms. For EMV decryption, Amazon Web Services Payment Cryptography supports TDES algorithms. For asymmetric decryption, Amazon Web Services Payment Cryptography supports RSA. When you use TDES or TDES DUKPT, the ciphertext data length must be a multiple of 8 bytes. For AES or AES DUKPT, the ciphertext data length must be a multiple of 16 bytes. For RSA, it sould be equal to the key size unless padding is enabled. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: EncryptData GetPublicCertificate ImportKey"]
module DecryptDataInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the encryption key that Amazon Web Services Payment Cryptography uses for ciphertext decryption. When a WrappedKeyBlock is provided, this value will be the identifier to the key wrapping key. Otherwise, it is the key identifier used to perform the operation."];
      cipherText: CipherTextType.t [@ocaml.doc "The ciphertext to decrypt."];
      decryptionAttributes: EncryptionDecryptionAttributes.t
        [@ocaml.doc
          "The encryption key type and attributes for ciphertext decryption."];
      wrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The WrappedKeyBlock containing the encryption key for ciphertext decryption."]}
    let context_ = "DecryptDataInput"
    let make ?wrappedKey =
      fun ~keyIdentifier ->
        fun ~cipherText ->
          fun ~decryptionAttributes ->
            fun () ->
              { wrappedKey; keyIdentifier; cipherText; decryptionAttributes }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("CipherText", (Some (CipherTextType.to_value x.cipherText)));
        ("DecryptionAttributes",
          (Some
             (EncryptionDecryptionAttributes.to_value x.decryptionAttributes)));
        ("WrappedKey", (Option.map x.wrappedKey ~f:WrappedKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappedKey =
        (Option.map ~f:WrappedKey.of_xml) (Xml.child xml_arg0 "WrappedKey") in
      let decryptionAttributes =
        EncryptionDecryptionAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DecryptionAttributes") in
      let cipherText =
        CipherTextType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CipherText") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?wrappedKey ~decryptionAttributes ~cipherText ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappedKey = field_map json__ "WrappedKey" WrappedKey.of_json in
      let decryptionAttributes =
        field_map_exn json__ "DecryptionAttributes"
          EncryptionDecryptionAttributes.of_json in
      let cipherText =
        field_map_exn json__ "CipherText" CipherTextType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?wrappedKey ~decryptionAttributes ~cipherText ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Decrypts ciphertext data to plaintext using a symmetric (TDES, AES), asymmetric (RSA), or derived (DUKPT or EMV) encryption key scheme. For more information, see Decrypt data in the Amazon Web Services Payment Cryptography User Guide. You can use an decryption key generated within Amazon Web Services Payment Cryptography, or you can import your own decryption key by calling ImportKey. For this operation, the key must have KeyModesOfUse set to Decrypt. In asymmetric decryption, Amazon Web Services Payment Cryptography decrypts the ciphertext using the private component of the asymmetric encryption key pair. For data encryption outside of Amazon Web Services Payment Cryptography, you can export the public component of the asymmetric key pair by calling GetPublicCertificate. This operation also supports dynamic keys, allowing you to pass a dynamic decryption key as a TR-31 WrappedKeyBlock. This can be used when key material is frequently rotated, such as during every card transaction, and there is need to avoid importing short-lived keys into Amazon Web Services Payment Cryptography. To decrypt using dynamic keys, the keyARN is the Key Encryption Key (KEK) of the TR-31 wrapped decryption key material. The incoming wrapped key shall have a key purpose of D0 with a mode of use of B or D. For more information, see Using Dynamic Keys in the Amazon Web Services Payment Cryptography User Guide. For symmetric and DUKPT decryption, Amazon Web Services Payment Cryptography supports TDES and AES algorithms. For EMV decryption, Amazon Web Services Payment Cryptography supports TDES algorithms. For asymmetric decryption, Amazon Web Services Payment Cryptography supports RSA. When you use TDES or TDES DUKPT, the ciphertext data length must be a multiple of 8 bytes. For AES or AES DUKPT, the ciphertext data length must be a multiple of 16 bytes. For RSA, it sould be equal to the key size unless padding is enabled. For information about valid keys for this operation, see Understanding key attributes and Key types for specific data operations in the Amazon Web Services Payment Cryptography User Guide. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: EncryptData GetPublicCertificate ImportKey"]