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
let apiVersion = "2021-09-14"
let endpointPrefix = "controlplane.payment-cryptography"
let serviceFullName = "Payment Cryptography Control Plane"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "PaymentCryptographyControlPlane"
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 PrimitiveBoolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module OptionalBlockId =
  struct
    type nonrec t = string
    let context_ = "OptionalBlockId"
    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-9A-Z]{2}+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OptionalBlockId" j
    let to_json = simple_to_json to_value
  end
module OptionalBlockValue =
  struct
    type nonrec t = string
    let context_ = "OptionalBlockValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:108) >>=
                  (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:"OptionalBlockValue" j
    let to_json = simple_to_json to_value
  end
module KeyReplicationState =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | DELETE_IN_PROGRESS 
      | FAILED 
      | SYNCHRONIZED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | FAILED -> "FAILED"
      | SYNCHRONIZED -> "SYNCHRONIZED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "FAILED" -> FAILED
      | "SYNCHRONIZED" -> SYNCHRONIZED
      | 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 KeyReplicationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyReplicationState" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module KeyAlgorithm =
  struct
    type nonrec t =
      | TDES_2KEY 
      | TDES_3KEY 
      | AES_128 
      | AES_192 
      | AES_256 
      | HMAC_SHA256 
      | HMAC_SHA384 
      | HMAC_SHA512 
      | HMAC_SHA224 
      | RSA_2048 
      | RSA_3072 
      | RSA_4096 
      | ECC_NIST_P256 
      | ECC_NIST_P384 
      | ECC_NIST_P521 
      | 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"
      | RSA_2048 -> "RSA_2048"
      | RSA_3072 -> "RSA_3072"
      | RSA_4096 -> "RSA_4096"
      | ECC_NIST_P256 -> "ECC_NIST_P256"
      | ECC_NIST_P384 -> "ECC_NIST_P384"
      | ECC_NIST_P521 -> "ECC_NIST_P521"
      | 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
      | "RSA_2048" -> RSA_2048
      | "RSA_3072" -> RSA_3072
      | "RSA_4096" -> RSA_4096
      | "ECC_NIST_P256" -> ECC_NIST_P256
      | "ECC_NIST_P384" -> ECC_NIST_P384
      | "ECC_NIST_P521" -> ECC_NIST_P521
      | 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 KeyAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module KeyClass =
  struct
    type nonrec t =
      | SYMMETRIC_KEY 
      | ASYMMETRIC_KEY_PAIR 
      | PRIVATE_KEY 
      | PUBLIC_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SYMMETRIC_KEY -> "SYMMETRIC_KEY"
      | ASYMMETRIC_KEY_PAIR -> "ASYMMETRIC_KEY_PAIR"
      | PRIVATE_KEY -> "PRIVATE_KEY"
      | PUBLIC_KEY -> "PUBLIC_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "SYMMETRIC_KEY" -> SYMMETRIC_KEY
      | "ASYMMETRIC_KEY_PAIR" -> ASYMMETRIC_KEY_PAIR
      | "PRIVATE_KEY" -> PRIVATE_KEY
      | "PUBLIC_KEY" -> PUBLIC_KEY
      | 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 KeyClass" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyClass" j)
    let to_json = simple_to_json to_value
  end
module KeyModesOfUse =
  struct
    type nonrec t =
      {
      encrypt: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to encrypt data."];
      decrypt: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to decrypt data."];
      wrap: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to wrap other keys."];
      unwrap: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to unwrap other keys."];
      generate: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to generate and verify other card and PIN verification keys."];
      sign: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used for signing."];
      verify: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to verify signatures."];
      deriveKey: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key can be used to derive new keys."];
      noRestrictions: PrimitiveBoolean.t option
        [@ocaml.doc
          "Speci\239\172\129es whether an Amazon Web Services Payment Cryptography key has no special restrictions other than the restrictions implied by KeyUsage."]}
    let make ?encrypt =
      fun ?decrypt ->
        fun ?wrap ->
          fun ?unwrap ->
            fun ?generate ->
              fun ?sign ->
                fun ?verify ->
                  fun ?deriveKey ->
                    fun ?noRestrictions ->
                      fun () ->
                        {
                          encrypt;
                          decrypt;
                          wrap;
                          unwrap;
                          generate;
                          sign;
                          verify;
                          deriveKey;
                          noRestrictions
                        }
    let to_value x =
      structure_to_value
        [("Encrypt", (Option.map x.encrypt ~f:PrimitiveBoolean.to_value));
        ("Decrypt", (Option.map x.decrypt ~f:PrimitiveBoolean.to_value));
        ("Wrap", (Option.map x.wrap ~f:PrimitiveBoolean.to_value));
        ("Unwrap", (Option.map x.unwrap ~f:PrimitiveBoolean.to_value));
        ("Generate", (Option.map x.generate ~f:PrimitiveBoolean.to_value));
        ("Sign", (Option.map x.sign ~f:PrimitiveBoolean.to_value));
        ("Verify", (Option.map x.verify ~f:PrimitiveBoolean.to_value));
        ("DeriveKey", (Option.map x.deriveKey ~f:PrimitiveBoolean.to_value));
        ("NoRestrictions",
          (Option.map x.noRestrictions ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noRestrictions =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "NoRestrictions") in
      let deriveKey =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeriveKey") in
      let verify =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "Verify") in
      let sign =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "Sign") in
      let generate =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Generate") in
      let unwrap =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "Unwrap") in
      let wrap =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "Wrap") in
      let decrypt =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Decrypt") in
      let encrypt =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Encrypt") in
      make ?noRestrictions ?deriveKey ?verify ?sign ?generate ?unwrap ?wrap
        ?decrypt ?encrypt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noRestrictions =
        field_map json__ "NoRestrictions" PrimitiveBoolean.of_json in
      let deriveKey = field_map json__ "DeriveKey" PrimitiveBoolean.of_json in
      let verify = field_map json__ "Verify" PrimitiveBoolean.of_json in
      let sign = field_map json__ "Sign" PrimitiveBoolean.of_json in
      let generate = field_map json__ "Generate" PrimitiveBoolean.of_json in
      let unwrap = field_map json__ "Unwrap" PrimitiveBoolean.of_json in
      let wrap = field_map json__ "Wrap" PrimitiveBoolean.of_json in
      let decrypt = field_map json__ "Decrypt" PrimitiveBoolean.of_json in
      let encrypt = field_map json__ "Encrypt" PrimitiveBoolean.of_json in
      make ?noRestrictions ?deriveKey ?verify ?sign ?generate ?unwrap ?wrap
        ?decrypt ?encrypt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of cryptographic operations that you can perform using the key. The modes of use are de\239\172\129ned in section A.5.3 of the TR-31 spec."]
module KeyUsage =
  struct
    type nonrec t =
      | TR31_B0_BASE_DERIVATION_KEY 
      | TR31_C0_CARD_VERIFICATION_KEY 
      | TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY 
      | TR31_D1_ASYMMETRIC_KEY_FOR_DATA_ENCRYPTION 
      | TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS 
      | TR31_E1_EMV_MKEY_CONFIDENTIALITY 
      | TR31_E2_EMV_MKEY_INTEGRITY 
      | TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS 
      | TR31_E5_EMV_MKEY_CARD_PERSONALIZATION 
      | TR31_E6_EMV_MKEY_OTHER 
      | TR31_K0_KEY_ENCRYPTION_KEY 
      | TR31_K1_KEY_BLOCK_PROTECTION_KEY 
      | TR31_K3_ASYMMETRIC_KEY_FOR_KEY_AGREEMENT 
      | TR31_M0_ISO_16609_MAC_KEY 
      | TR31_M3_ISO_9797_3_MAC_KEY 
      | TR31_M1_ISO_9797_1_MAC_KEY 
      | TR31_M6_ISO_9797_5_CMAC_KEY 
      | TR31_M7_HMAC_KEY 
      | TR31_P0_PIN_ENCRYPTION_KEY 
      | TR31_P1_PIN_GENERATION_KEY 
      | TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE 
      | TR31_V1_IBM3624_PIN_VERIFICATION_KEY 
      | TR31_V2_VISA_PIN_VERIFICATION_KEY 
      | TR31_K2_TR34_ASYMMETRIC_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TR31_B0_BASE_DERIVATION_KEY -> "TR31_B0_BASE_DERIVATION_KEY"
      | TR31_C0_CARD_VERIFICATION_KEY -> "TR31_C0_CARD_VERIFICATION_KEY"
      | TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY ->
          "TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY"
      | TR31_D1_ASYMMETRIC_KEY_FOR_DATA_ENCRYPTION ->
          "TR31_D1_ASYMMETRIC_KEY_FOR_DATA_ENCRYPTION"
      | TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS ->
          "TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS"
      | TR31_E1_EMV_MKEY_CONFIDENTIALITY ->
          "TR31_E1_EMV_MKEY_CONFIDENTIALITY"
      | TR31_E2_EMV_MKEY_INTEGRITY -> "TR31_E2_EMV_MKEY_INTEGRITY"
      | TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS ->
          "TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS"
      | TR31_E5_EMV_MKEY_CARD_PERSONALIZATION ->
          "TR31_E5_EMV_MKEY_CARD_PERSONALIZATION"
      | TR31_E6_EMV_MKEY_OTHER -> "TR31_E6_EMV_MKEY_OTHER"
      | TR31_K0_KEY_ENCRYPTION_KEY -> "TR31_K0_KEY_ENCRYPTION_KEY"
      | TR31_K1_KEY_BLOCK_PROTECTION_KEY ->
          "TR31_K1_KEY_BLOCK_PROTECTION_KEY"
      | TR31_K3_ASYMMETRIC_KEY_FOR_KEY_AGREEMENT ->
          "TR31_K3_ASYMMETRIC_KEY_FOR_KEY_AGREEMENT"
      | TR31_M0_ISO_16609_MAC_KEY -> "TR31_M0_ISO_16609_MAC_KEY"
      | TR31_M3_ISO_9797_3_MAC_KEY -> "TR31_M3_ISO_9797_3_MAC_KEY"
      | TR31_M1_ISO_9797_1_MAC_KEY -> "TR31_M1_ISO_9797_1_MAC_KEY"
      | TR31_M6_ISO_9797_5_CMAC_KEY -> "TR31_M6_ISO_9797_5_CMAC_KEY"
      | TR31_M7_HMAC_KEY -> "TR31_M7_HMAC_KEY"
      | TR31_P0_PIN_ENCRYPTION_KEY -> "TR31_P0_PIN_ENCRYPTION_KEY"
      | TR31_P1_PIN_GENERATION_KEY -> "TR31_P1_PIN_GENERATION_KEY"
      | TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE ->
          "TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE"
      | TR31_V1_IBM3624_PIN_VERIFICATION_KEY ->
          "TR31_V1_IBM3624_PIN_VERIFICATION_KEY"
      | TR31_V2_VISA_PIN_VERIFICATION_KEY ->
          "TR31_V2_VISA_PIN_VERIFICATION_KEY"
      | TR31_K2_TR34_ASYMMETRIC_KEY -> "TR31_K2_TR34_ASYMMETRIC_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "TR31_B0_BASE_DERIVATION_KEY" -> TR31_B0_BASE_DERIVATION_KEY
      | "TR31_C0_CARD_VERIFICATION_KEY" -> TR31_C0_CARD_VERIFICATION_KEY
      | "TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY" ->
          TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY
      | "TR31_D1_ASYMMETRIC_KEY_FOR_DATA_ENCRYPTION" ->
          TR31_D1_ASYMMETRIC_KEY_FOR_DATA_ENCRYPTION
      | "TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS" ->
          TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS
      | "TR31_E1_EMV_MKEY_CONFIDENTIALITY" ->
          TR31_E1_EMV_MKEY_CONFIDENTIALITY
      | "TR31_E2_EMV_MKEY_INTEGRITY" -> TR31_E2_EMV_MKEY_INTEGRITY
      | "TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS" ->
          TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS
      | "TR31_E5_EMV_MKEY_CARD_PERSONALIZATION" ->
          TR31_E5_EMV_MKEY_CARD_PERSONALIZATION
      | "TR31_E6_EMV_MKEY_OTHER" -> TR31_E6_EMV_MKEY_OTHER
      | "TR31_K0_KEY_ENCRYPTION_KEY" -> TR31_K0_KEY_ENCRYPTION_KEY
      | "TR31_K1_KEY_BLOCK_PROTECTION_KEY" ->
          TR31_K1_KEY_BLOCK_PROTECTION_KEY
      | "TR31_K3_ASYMMETRIC_KEY_FOR_KEY_AGREEMENT" ->
          TR31_K3_ASYMMETRIC_KEY_FOR_KEY_AGREEMENT
      | "TR31_M0_ISO_16609_MAC_KEY" -> TR31_M0_ISO_16609_MAC_KEY
      | "TR31_M3_ISO_9797_3_MAC_KEY" -> TR31_M3_ISO_9797_3_MAC_KEY
      | "TR31_M1_ISO_9797_1_MAC_KEY" -> TR31_M1_ISO_9797_1_MAC_KEY
      | "TR31_M6_ISO_9797_5_CMAC_KEY" -> TR31_M6_ISO_9797_5_CMAC_KEY
      | "TR31_M7_HMAC_KEY" -> TR31_M7_HMAC_KEY
      | "TR31_P0_PIN_ENCRYPTION_KEY" -> TR31_P0_PIN_ENCRYPTION_KEY
      | "TR31_P1_PIN_GENERATION_KEY" -> TR31_P1_PIN_GENERATION_KEY
      | "TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE" ->
          TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE
      | "TR31_V1_IBM3624_PIN_VERIFICATION_KEY" ->
          TR31_V1_IBM3624_PIN_VERIFICATION_KEY
      | "TR31_V2_VISA_PIN_VERIFICATION_KEY" ->
          TR31_V2_VISA_PIN_VERIFICATION_KEY
      | "TR31_K2_TR34_ASYMMETRIC_KEY" -> TR31_K2_TR34_ASYMMETRIC_KEY
      | 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 KeyUsage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyUsage" 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 KeyExportability =
  struct
    type nonrec t =
      | EXPORTABLE 
      | NON_EXPORTABLE 
      | SENSITIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXPORTABLE -> "EXPORTABLE"
      | NON_EXPORTABLE -> "NON_EXPORTABLE"
      | SENSITIVE -> "SENSITIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXPORTABLE" -> EXPORTABLE
      | "NON_EXPORTABLE" -> NON_EXPORTABLE
      | "SENSITIVE" -> SENSITIVE
      | 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 KeyExportability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyExportability" j)
    let to_json = simple_to_json to_value
  end
module KeyVersion =
  struct
    type nonrec t = string
    let context_ = "KeyVersion"
    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-9A-Z]{2}+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KeyVersion" j
    let to_json = simple_to_json to_value
  end
module OptionalBlocks =
  struct
    type nonrec t = (OptionalBlockId.t * OptionalBlockValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((OptionalBlockId.of_string chopped),
                              (OptionalBlockValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (OptionalBlockId.to_value x) |>
                    (fun x ->
                       (OptionalBlockValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:OptionalBlockId.of_string
        ~of_json:OptionalBlockValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module MpaSessionArn =
  struct
    type nonrec t = string
    let context_ = "MpaSessionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[^:]+)?:mpa:[a-z0-9-]{1,20}:[0-9]{12}:session/[a-zA-Z0-9._-]+/[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:"MpaSessionArn" j
    let to_json = simple_to_json to_value
  end
module MpaStatusMessage =
  struct
    type nonrec t = string
    let context_ = "MpaStatusMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MpaStatusMessage" j
    let to_json = simple_to_json to_value
  end
module SessionStatus =
  struct
    type nonrec t =
      | PENDING 
      | APPROVED 
      | FAILED 
      | CANCELLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | APPROVED -> "APPROVED"
      | FAILED -> "FAILED"
      | CANCELLED -> "CANCELLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "APPROVED" -> APPROVED
      | "FAILED" -> FAILED
      | "CANCELLED" -> CANCELLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SessionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SessionStatus" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Region =
  struct
    type nonrec t = string[@@ocaml.doc
                            "An Amazon Web Services Region identifier in the standard format (e.g., us-east-1, eu-west-1). Used to specify regions for key replication operations. The region must be a valid Amazon Web Services Region where Amazon Web Services Payment Cryptography is available."]
    let context_ = "Region"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"[a-z]{2}-[a-z]{1,16}-[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:"Region" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "An Amazon Web Services Region identifier in the standard format (e.g., us-east-1, eu-west-1). Used to specify regions for key replication operations. The region must be a valid Amazon Web Services Region where Amazon Web Services Payment Cryptography is available."]
module ReplicationStatusType =
  struct
    type nonrec t =
      {
      status: KeyReplicationState.t option
        [@ocaml.doc
          "The current status of key replication in this Amazon Web Services Region. This field indicates whether the key replication is in progress, completed successfully, or has encountered an error. Possible values include states such as SYNCRHONIZED, IN_PROGRESS, DELETE_IN_PROGRESS, or FAILED. This provides visibility into the replication process for monitoring and troubleshooting purposes."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A message that provides additional information about the current replication status of the key. This field contains details about any issues or progress updates related to key replication operations. It may include information about replication failures, synchronization status, or other operational details."]}
    let make ?status =
      fun ?statusMessage -> fun () -> { status; statusMessage }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:KeyReplicationState.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:KeyReplicationState.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?statusMessage ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" KeyReplicationState.of_json in
      make ?statusMessage ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the replication status information for a key in a replication region for Multi-Region key replication. This structure contains details about the current state of key replication, including any status messages and operational information about the replication process."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module 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 KeyAttributes =
  struct
    type nonrec t =
      {
      keyUsage: KeyUsage.t
        [@ocaml.doc
          "The cryptographic usage of an Amazon Web Services Payment Cryptography key as de\239\172\129ned in section A.5.2 of the TR-31 spec."];
      keyClass: KeyClass.t
        [@ocaml.doc
          "The type of Amazon Web Services Payment Cryptography key to create, which determines the classi\239\172\129cation of the cryptographic method and whether Amazon Web Services Payment Cryptography key contains a symmetric key or an asymmetric key pair."];
      keyAlgorithm: KeyAlgorithm.t
        [@ocaml.doc
          "The key algorithm to be use during creation of an Amazon Web Services Payment Cryptography key. For symmetric keys, Amazon Web Services Payment Cryptography supports AES and TDES algorithms. For asymmetric keys, Amazon Web Services Payment Cryptography supports RSA and ECC_NIST algorithms."];
      keyModesOfUse: KeyModesOfUse.t
        [@ocaml.doc
          "The list of cryptographic operations that you can perform using the key."]}
    let context_ = "KeyAttributes"
    let make ~keyUsage =
      fun ~keyClass ->
        fun ~keyAlgorithm ->
          fun ~keyModesOfUse ->
            fun () -> { keyUsage; keyClass; keyAlgorithm; keyModesOfUse }
    let to_value x =
      structure_to_value
        [("KeyUsage", (Some (KeyUsage.to_value x.keyUsage)));
        ("KeyClass", (Some (KeyClass.to_value x.keyClass)));
        ("KeyAlgorithm", (Some (KeyAlgorithm.to_value x.keyAlgorithm)));
        ("KeyModesOfUse", (Some (KeyModesOfUse.to_value x.keyModesOfUse)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyModesOfUse =
        KeyModesOfUse.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyModesOfUse") in
      let keyAlgorithm =
        KeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAlgorithm") in
      let keyClass =
        KeyClass.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KeyClass") in
      let keyUsage =
        KeyUsage.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KeyUsage") in
      make ~keyModesOfUse ~keyAlgorithm ~keyClass ~keyUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyModesOfUse =
        field_map_exn json__ "KeyModesOfUse" KeyModesOfUse.of_json in
      let keyAlgorithm =
        field_map_exn json__ "KeyAlgorithm" KeyAlgorithm.of_json in
      let keyClass = field_map_exn json__ "KeyClass" KeyClass.of_json in
      let keyUsage = field_map_exn json__ "KeyUsage" KeyUsage.of_json in
      make ~keyModesOfUse ~keyAlgorithm ~keyClass ~keyUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The role of the key, the algorithm it supports, and the cryptographic operations allowed with the key. This data is immutable after the key is created."]
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 KeyState =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | CREATE_COMPLETE 
      | DELETE_PENDING 
      | DELETE_COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | DELETE_PENDING -> "DELETE_PENDING"
      | DELETE_COMPLETE -> "DELETE_COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "DELETE_PENDING" -> DELETE_PENDING
      | "DELETE_COMPLETE" -> DELETE_COMPLETE
      | 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 KeyState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyState" j)
    let to_json = simple_to_json to_value
  end
module MultiRegionKeyType =
  struct
    type nonrec t =
      | PRIMARY 
      | REPLICA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRIMARY -> "PRIMARY"
      | REPLICA -> "REPLICA"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRIMARY" -> PRIMARY
      | "REPLICA" -> REPLICA
      | 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 MultiRegionKeyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MultiRegionKeyType" j)
    let to_json = simple_to_json to_value
  end
module AliasName =
  struct
    type nonrec t = string
    let context_ = "AliasName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"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:"AliasName" j
    let to_json = simple_to_json to_value
  end
module As2805KeyVariant =
  struct
    type nonrec t =
      | TERMINAL_MAJOR_KEY_VARIANT_00 
      | PIN_ENCRYPTION_KEY_VARIANT_28 
      | MESSAGE_AUTHENTICATION_KEY_VARIANT_24 
      | DATA_ENCRYPTION_KEY_VARIANT_22 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TERMINAL_MAJOR_KEY_VARIANT_00 -> "TERMINAL_MAJOR_KEY_VARIANT_00"
      | PIN_ENCRYPTION_KEY_VARIANT_28 -> "PIN_ENCRYPTION_KEY_VARIANT_28"
      | MESSAGE_AUTHENTICATION_KEY_VARIANT_24 ->
          "MESSAGE_AUTHENTICATION_KEY_VARIANT_24"
      | DATA_ENCRYPTION_KEY_VARIANT_22 -> "DATA_ENCRYPTION_KEY_VARIANT_22"
      | Non_static_id s -> s
    let of_string =
      function
      | "TERMINAL_MAJOR_KEY_VARIANT_00" -> TERMINAL_MAJOR_KEY_VARIANT_00
      | "PIN_ENCRYPTION_KEY_VARIANT_28" -> PIN_ENCRYPTION_KEY_VARIANT_28
      | "MESSAGE_AUTHENTICATION_KEY_VARIANT_24" ->
          MESSAGE_AUTHENTICATION_KEY_VARIANT_24
      | "DATA_ENCRYPTION_KEY_VARIANT_22" -> DATA_ENCRYPTION_KEY_VARIANT_22
      | 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 As2805KeyVariant" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"As2805KeyVariant" j)
    let to_json = simple_to_json to_value
  end
module KeyArnOrKeyAliasType =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A key identifier that can be either a key ARN or an alias name. This allows flexible key identification in operations. When using a key ARN, it must be a fully qualified ARN in the format: arn:aws:payment-cryptography:region:account:key/key-id. When using an alias, it must begin with alias/ followed by the alias name. Do not include confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."]
    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[@@ocaml.doc
       "A key identifier that can be either a key ARN or an alias name. This allows flexible key identification in operations. When using a key ARN, it must be a fully qualified ARN in the format: arn:aws:payment-cryptography:region:account:key/key-id. When using an alias, it must begin with alias/ followed by the alias name. Do not include confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."]
module WrappedKeyCryptogram =
  struct
    type nonrec t = string
    let context_ = "WrappedKeyCryptogram"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:4096) >>=
                  (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:"WrappedKeyCryptogram" 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 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 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 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 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 ImportTokenId =
  struct
    type nonrec t = string
    let context_ = "ImportTokenId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"(import-token-[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:"ImportTokenId" j
    let to_json = simple_to_json to_value
  end
module WrappingKeySpec =
  struct
    type nonrec t =
      | RSA_OAEP_SHA_256 
      | RSA_OAEP_SHA_512 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RSA_OAEP_SHA_256 -> "RSA_OAEP_SHA_256"
      | RSA_OAEP_SHA_512 -> "RSA_OAEP_SHA_512"
      | Non_static_id s -> s
    let of_string =
      function
      | "RSA_OAEP_SHA_256" -> RSA_OAEP_SHA_256
      | "RSA_OAEP_SHA_512" -> RSA_OAEP_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 WrappingKeySpec" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WrappingKeySpec" j)
    let to_json = simple_to_json to_value
  end
module EvenHexLengthBetween16And32 =
  struct
    type nonrec t = string
    let context_ = "EvenHexLengthBetween16And32"
    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:"EvenHexLengthBetween16And32" j
    let to_json = simple_to_json to_value
  end
module Tr34KeyBlockFormat =
  struct
    type nonrec t =
      | X9_TR34_2012 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | X9_TR34_2012 -> "X9_TR34_2012" | Non_static_id s -> s
    let of_string =
      function | "X9_TR34_2012" -> X9_TR34_2012 | 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 Tr34KeyBlockFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Tr34KeyBlockFormat" j)
    let to_json = simple_to_json to_value
  end
module Tr34WrappedKeyBlock =
  struct
    type nonrec t = string
    let context_ = "Tr34WrappedKeyBlock"
    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-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:"Tr34WrappedKeyBlock" j
    let to_json = simple_to_json to_value
  end
module HexLength20Or24 =
  struct
    type nonrec t = string
    let context_ = "HexLength20Or24"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:24) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[0-9A-F]{20}$|^[0-9A-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:"HexLength20Or24" j
    let to_json = simple_to_json to_value
  end
module KeyBlockHeaders =
  struct
    type nonrec t =
      {
      keyModesOfUse: KeyModesOfUse.t option ;
      keyExportability: KeyExportability.t option
        [@ocaml.doc
          "Specifies subsequent exportability of the key within the key block after it is received by the receiving party. It can be used to further restrict exportability of the key after export from Amazon Web Services Payment Cryptography. When set to EXPORTABLE, the key can be subsequently exported by the receiver under a KEK using TR-31 or TR-34 key block export only. When set to NON_EXPORTABLE, the key cannot be subsequently exported by the receiver. When set to SENSITIVE, the key can be exported by the receiver under a KEK using TR-31, TR-34, RSA wrap and unwrap cryptogram or using a symmetric cryptogram key export method. For further information refer to ANSI X9.143-2022."];
      keyVersion: KeyVersion.t option
        [@ocaml.doc
          "Parameter used to indicate the version of the key carried in the key block or indicate the value carried in the key block is a component of a key."];
      optionalBlocks: OptionalBlocks.t option
        [@ocaml.doc
          "Parameter used to indicate the type of optional data in key block headers. Refer to ANSI X9.143-2022 for information on allowed data type for optional blocks. Optional block character limit is 112 characters. For each optional block, 2 characters are reserved for optional block ID and 2 characters reserved for optional block length. More than one optional blocks can be included as long as the combined length does not increase 112 characters."]}
    let make ?keyModesOfUse =
      fun ?keyExportability ->
        fun ?keyVersion ->
          fun ?optionalBlocks ->
            fun () ->
              { keyModesOfUse; keyExportability; keyVersion; optionalBlocks }
    let to_value x =
      structure_to_value
        [("KeyModesOfUse",
           (Option.map x.keyModesOfUse ~f:KeyModesOfUse.to_value));
        ("KeyExportability",
          (Option.map x.keyExportability ~f:KeyExportability.to_value));
        ("KeyVersion", (Option.map x.keyVersion ~f:KeyVersion.to_value));
        ("OptionalBlocks",
          (Option.map x.optionalBlocks ~f:OptionalBlocks.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optionalBlocks =
        (Option.map ~f:OptionalBlocks.of_xml)
          (Xml.child xml_arg0 "OptionalBlocks") in
      let keyVersion =
        (Option.map ~f:KeyVersion.of_xml) (Xml.child xml_arg0 "KeyVersion") in
      let keyExportability =
        (Option.map ~f:KeyExportability.of_xml)
          (Xml.child xml_arg0 "KeyExportability") in
      let keyModesOfUse =
        (Option.map ~f:KeyModesOfUse.of_xml)
          (Xml.child xml_arg0 "KeyModesOfUse") in
      make ?optionalBlocks ?keyVersion ?keyExportability ?keyModesOfUse ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optionalBlocks =
        field_map json__ "OptionalBlocks" OptionalBlocks.of_json in
      let keyVersion = field_map json__ "KeyVersion" KeyVersion.of_json in
      let keyExportability =
        field_map json__ "KeyExportability" KeyExportability.of_json in
      let keyModesOfUse =
        field_map json__ "KeyModesOfUse" KeyModesOfUse.of_json in
      make ?optionalBlocks ?keyVersion ?keyExportability ?keyModesOfUse ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Optional metadata for export associated with the key material. This data is signed but transmitted in clear text."]
module ExportTokenId =
  struct
    type nonrec t = string
    let context_ = "ExportTokenId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"(export-token-[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:"ExportTokenId" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key of the tag."];
      value: TagValue.t [@ocaml.doc "The value of the tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structure that contains information about a tag."]
module DeriveKeyUsage =
  struct
    type nonrec t =
      | TR31_B0_BASE_DERIVATION_KEY 
      | TR31_C0_CARD_VERIFICATION_KEY 
      | TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY 
      | TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS 
      | TR31_E1_EMV_MKEY_CONFIDENTIALITY 
      | TR31_E2_EMV_MKEY_INTEGRITY 
      | TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS 
      | TR31_E5_EMV_MKEY_CARD_PERSONALIZATION 
      | TR31_E6_EMV_MKEY_OTHER 
      | TR31_K0_KEY_ENCRYPTION_KEY 
      | TR31_K1_KEY_BLOCK_PROTECTION_KEY 
      | TR31_M3_ISO_9797_3_MAC_KEY 
      | TR31_M1_ISO_9797_1_MAC_KEY 
      | TR31_M6_ISO_9797_5_CMAC_KEY 
      | TR31_M7_HMAC_KEY 
      | TR31_P0_PIN_ENCRYPTION_KEY 
      | TR31_P1_PIN_GENERATION_KEY 
      | TR31_V1_IBM3624_PIN_VERIFICATION_KEY 
      | TR31_V2_VISA_PIN_VERIFICATION_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TR31_B0_BASE_DERIVATION_KEY -> "TR31_B0_BASE_DERIVATION_KEY"
      | TR31_C0_CARD_VERIFICATION_KEY -> "TR31_C0_CARD_VERIFICATION_KEY"
      | TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY ->
          "TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY"
      | TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS ->
          "TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS"
      | TR31_E1_EMV_MKEY_CONFIDENTIALITY ->
          "TR31_E1_EMV_MKEY_CONFIDENTIALITY"
      | TR31_E2_EMV_MKEY_INTEGRITY -> "TR31_E2_EMV_MKEY_INTEGRITY"
      | TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS ->
          "TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS"
      | TR31_E5_EMV_MKEY_CARD_PERSONALIZATION ->
          "TR31_E5_EMV_MKEY_CARD_PERSONALIZATION"
      | TR31_E6_EMV_MKEY_OTHER -> "TR31_E6_EMV_MKEY_OTHER"
      | TR31_K0_KEY_ENCRYPTION_KEY -> "TR31_K0_KEY_ENCRYPTION_KEY"
      | TR31_K1_KEY_BLOCK_PROTECTION_KEY ->
          "TR31_K1_KEY_BLOCK_PROTECTION_KEY"
      | TR31_M3_ISO_9797_3_MAC_KEY -> "TR31_M3_ISO_9797_3_MAC_KEY"
      | TR31_M1_ISO_9797_1_MAC_KEY -> "TR31_M1_ISO_9797_1_MAC_KEY"
      | TR31_M6_ISO_9797_5_CMAC_KEY -> "TR31_M6_ISO_9797_5_CMAC_KEY"
      | TR31_M7_HMAC_KEY -> "TR31_M7_HMAC_KEY"
      | TR31_P0_PIN_ENCRYPTION_KEY -> "TR31_P0_PIN_ENCRYPTION_KEY"
      | TR31_P1_PIN_GENERATION_KEY -> "TR31_P1_PIN_GENERATION_KEY"
      | TR31_V1_IBM3624_PIN_VERIFICATION_KEY ->
          "TR31_V1_IBM3624_PIN_VERIFICATION_KEY"
      | TR31_V2_VISA_PIN_VERIFICATION_KEY ->
          "TR31_V2_VISA_PIN_VERIFICATION_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "TR31_B0_BASE_DERIVATION_KEY" -> TR31_B0_BASE_DERIVATION_KEY
      | "TR31_C0_CARD_VERIFICATION_KEY" -> TR31_C0_CARD_VERIFICATION_KEY
      | "TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY" ->
          TR31_D0_SYMMETRIC_DATA_ENCRYPTION_KEY
      | "TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS" ->
          TR31_E0_EMV_MKEY_APP_CRYPTOGRAMS
      | "TR31_E1_EMV_MKEY_CONFIDENTIALITY" ->
          TR31_E1_EMV_MKEY_CONFIDENTIALITY
      | "TR31_E2_EMV_MKEY_INTEGRITY" -> TR31_E2_EMV_MKEY_INTEGRITY
      | "TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS" ->
          TR31_E4_EMV_MKEY_DYNAMIC_NUMBERS
      | "TR31_E5_EMV_MKEY_CARD_PERSONALIZATION" ->
          TR31_E5_EMV_MKEY_CARD_PERSONALIZATION
      | "TR31_E6_EMV_MKEY_OTHER" -> TR31_E6_EMV_MKEY_OTHER
      | "TR31_K0_KEY_ENCRYPTION_KEY" -> TR31_K0_KEY_ENCRYPTION_KEY
      | "TR31_K1_KEY_BLOCK_PROTECTION_KEY" ->
          TR31_K1_KEY_BLOCK_PROTECTION_KEY
      | "TR31_M3_ISO_9797_3_MAC_KEY" -> TR31_M3_ISO_9797_3_MAC_KEY
      | "TR31_M1_ISO_9797_1_MAC_KEY" -> TR31_M1_ISO_9797_1_MAC_KEY
      | "TR31_M6_ISO_9797_5_CMAC_KEY" -> TR31_M6_ISO_9797_5_CMAC_KEY
      | "TR31_M7_HMAC_KEY" -> TR31_M7_HMAC_KEY
      | "TR31_P0_PIN_ENCRYPTION_KEY" -> TR31_P0_PIN_ENCRYPTION_KEY
      | "TR31_P1_PIN_GENERATION_KEY" -> TR31_P1_PIN_GENERATION_KEY
      | "TR31_V1_IBM3624_PIN_VERIFICATION_KEY" ->
          TR31_V1_IBM3624_PIN_VERIFICATION_KEY
      | "TR31_V2_VISA_PIN_VERIFICATION_KEY" ->
          TR31_V2_VISA_PIN_VERIFICATION_KEY
      | 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 DeriveKeyUsage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeriveKeyUsage" j)
    let to_json = simple_to_json to_value
  end
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 KeyOrigin =
  struct
    type nonrec t =
      | EXTERNAL 
      | AWS_PAYMENT_CRYPTOGRAPHY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXTERNAL -> "EXTERNAL"
      | AWS_PAYMENT_CRYPTOGRAPHY -> "AWS_PAYMENT_CRYPTOGRAPHY"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXTERNAL" -> EXTERNAL
      | "AWS_PAYMENT_CRYPTOGRAPHY" -> AWS_PAYMENT_CRYPTOGRAPHY
      | 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 KeyOrigin" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyOrigin" j)
    let to_json = simple_to_json to_value
  end
module MpaStatus =
  struct
    type nonrec t =
      {
      mpaSessionArn: MpaSessionArn.t option
        [@ocaml.doc "The ARN of the MPA session."];
      status: SessionStatus.t option
        [@ocaml.doc "The current status of the MPA session."];
      initiationDate: Timestamp.t option
        [@ocaml.doc "The date and time when the MPA session was initiated."];
      statusMessage: MpaStatusMessage.t option
        [@ocaml.doc
          "The message providing additional information about the MPA session status."]}
    let make ?mpaSessionArn =
      fun ?status ->
        fun ?initiationDate ->
          fun ?statusMessage ->
            fun () ->
              { mpaSessionArn; status; initiationDate; statusMessage }
    let to_value x =
      structure_to_value
        [("MpaSessionArn",
           (Option.map x.mpaSessionArn ~f:MpaSessionArn.to_value));
        ("Status", (Option.map x.status ~f:SessionStatus.to_value));
        ("InitiationDate",
          (Option.map x.initiationDate ~f:Timestamp.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:MpaStatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:MpaStatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let initiationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "InitiationDate") in
      let status =
        (Option.map ~f:SessionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let mpaSessionArn =
        (Option.map ~f:MpaSessionArn.of_xml)
          (Xml.child xml_arg0 "MpaSessionArn") in
      make ?statusMessage ?initiationDate ?status ?mpaSessionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage" MpaStatusMessage.of_json in
      let initiationDate =
        field_map json__ "InitiationDate" Timestamp.of_json in
      let status = field_map json__ "Status" SessionStatus.of_json in
      let mpaSessionArn =
        field_map json__ "MpaSessionArn" MpaSessionArn.of_json in
      make ?statusMessage ?initiationDate ?status ?mpaSessionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The status of an MPA session."]
module ReplicationStatus =
  struct
    type nonrec t = (Region.t * ReplicationStatusType.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types Region ReplicationStatusType"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Region.to_value x) |>
                    (fun x ->
                       (ReplicationStatusType.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Region.of_string
        ~of_json:ReplicationStatusType.of_json j
    let to_json v = composed_to_json to_value v
  end
module KeySummary =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the key."];
      keyState: KeyState.t option
        [@ocaml.doc
          "The state of an Amazon Web Services Payment Cryptography that is being created or deleted."];
      keyAttributes: KeyAttributes.t option
        [@ocaml.doc
          "The role of the key, the algorithm it supports, and the cryptographic operations allowed with the key. This data is immutable after the key is created."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) is used to check if all parties holding a given key have the same key or to detect that a key has changed."];
      exportable: Boolean.t option
        [@ocaml.doc
          "Specifies whether the key is exportable. This data is immutable after the key is created."];
      enabled: Boolean.t option
        [@ocaml.doc "Specifies whether the key is enabled."];
      multiRegionKeyType: MultiRegionKeyType.t option
        [@ocaml.doc
          "Indicates whether this key is a Multi-Region key and its role in the Multi-Region key hierarchy. Multi-Region replication keys allow the same key material to be used across multiple Amazon Web Services Regions. This field specifies whether the key is a Primary Region key (PRK) (which can be replicated to other Amazon Web Services Regions) or a Replica Region key (RRK) (which is a copy of a PRK in another Region). For more information, see Multi-Region key replication."];
      primaryRegion: Region.t option }
    let make ?keyArn =
      fun ?keyState ->
        fun ?keyAttributes ->
          fun ?keyCheckValue ->
            fun ?exportable ->
              fun ?enabled ->
                fun ?multiRegionKeyType ->
                  fun ?primaryRegion ->
                    fun () ->
                      {
                        keyArn;
                        keyState;
                        keyAttributes;
                        keyCheckValue;
                        exportable;
                        enabled;
                        multiRegionKeyType;
                        primaryRegion
                      }
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyState", (Option.map x.keyState ~f:KeyState.to_value));
        ("KeyAttributes",
          (Option.map x.keyAttributes ~f:KeyAttributes.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("Exportable", (Option.map x.exportable ~f:Boolean.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("MultiRegionKeyType",
          (Option.map x.multiRegionKeyType ~f:MultiRegionKeyType.to_value));
        ("PrimaryRegion", (Option.map x.primaryRegion ~f:Region.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryRegion =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "PrimaryRegion") in
      let multiRegionKeyType =
        (Option.map ~f:MultiRegionKeyType.of_xml)
          (Xml.child xml_arg0 "MultiRegionKeyType") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let exportable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Exportable") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyAttributes =
        (Option.map ~f:KeyAttributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      let keyState =
        (Option.map ~f:KeyState.of_xml) (Xml.child xml_arg0 "KeyState") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?primaryRegion ?multiRegionKeyType ?enabled ?exportable
        ?keyCheckValue ?keyAttributes ?keyState ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryRegion = field_map json__ "PrimaryRegion" Region.of_json in
      let multiRegionKeyType =
        field_map json__ "MultiRegionKeyType" MultiRegionKeyType.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let exportable = field_map json__ "Exportable" Boolean.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyAttributes =
        field_map json__ "KeyAttributes" KeyAttributes.of_json in
      let keyState = field_map json__ "KeyState" KeyState.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?primaryRegion ?multiRegionKeyType ?enabled ?exportable
        ?keyCheckValue ?keyAttributes ?keyState ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Metadata about an Amazon Web Services Payment Cryptography key."]
module Alias =
  struct
    type nonrec t =
      {
      aliasName: AliasName.t option
        [@ocaml.doc
          "A friendly name that you can use to refer to a key. The value must begin with alias/. Do not include confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."];
      keyArn: KeyArn.t option
        [@ocaml.doc "The KeyARN of the key associated with the alias."]}
    let make ?aliasName = fun ?keyArn -> fun () -> { aliasName; keyArn }
    let to_value x =
      structure_to_value
        [("AliasName", (Option.map x.aliasName ~f:AliasName.to_value));
        ("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      let aliasName =
        (Option.map ~f:AliasName.of_xml) (Xml.child xml_arg0 "AliasName") in
      make ?keyArn ?aliasName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      let aliasName = field_map json__ "AliasName" AliasName.of_json in
      make ?keyArn ?aliasName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an alias."]
module ImportAs2805KeyCryptogram =
  struct
    type nonrec t =
      {
      as2805KeyVariant: As2805KeyVariant.t
        [@ocaml.doc "The cryptographic usage of the key under import."];
      keyModesOfUse: KeyModesOfUse.t ;
      keyAlgorithm: KeyAlgorithm.t
        [@ocaml.doc "The key algorithm of the key under import."];
      exportable: Boolean.t
        [@ocaml.doc
          "Specified whether the key is exportable. This data is immutable after the key is imported."];
      wrappingKeyIdentifier: KeyArnOrKeyAliasType.t ;
      wrappedKeyCryptogram: WrappedKeyCryptogram.t
        [@ocaml.doc "The wrapped key cryptogram under import."]}
    let context_ = "ImportAs2805KeyCryptogram"
    let make ~as2805KeyVariant =
      fun ~keyModesOfUse ->
        fun ~keyAlgorithm ->
          fun ~exportable ->
            fun ~wrappingKeyIdentifier ->
              fun ~wrappedKeyCryptogram ->
                fun () ->
                  {
                    as2805KeyVariant;
                    keyModesOfUse;
                    keyAlgorithm;
                    exportable;
                    wrappingKeyIdentifier;
                    wrappedKeyCryptogram
                  }
    let to_value x =
      structure_to_value
        [("As2805KeyVariant",
           (Some (As2805KeyVariant.to_value x.as2805KeyVariant)));
        ("KeyModesOfUse", (Some (KeyModesOfUse.to_value x.keyModesOfUse)));
        ("KeyAlgorithm", (Some (KeyAlgorithm.to_value x.keyAlgorithm)));
        ("Exportable", (Some (Boolean.to_value x.exportable)));
        ("WrappingKeyIdentifier",
          (Some (KeyArnOrKeyAliasType.to_value x.wrappingKeyIdentifier)));
        ("WrappedKeyCryptogram",
          (Some (WrappedKeyCryptogram.to_value x.wrappedKeyCryptogram)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappedKeyCryptogram =
        WrappedKeyCryptogram.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappedKeyCryptogram") in
      let wrappingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyIdentifier") in
      let exportable =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Exportable") in
      let keyAlgorithm =
        KeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAlgorithm") in
      let keyModesOfUse =
        KeyModesOfUse.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyModesOfUse") in
      let as2805KeyVariant =
        As2805KeyVariant.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "As2805KeyVariant") in
      make ~wrappedKeyCryptogram ~wrappingKeyIdentifier ~exportable
        ~keyAlgorithm ~keyModesOfUse ~as2805KeyVariant ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappedKeyCryptogram =
        field_map_exn json__ "WrappedKeyCryptogram"
          WrappedKeyCryptogram.of_json in
      let wrappingKeyIdentifier =
        field_map_exn json__ "WrappingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let exportable = field_map_exn json__ "Exportable" Boolean.of_json in
      let keyAlgorithm =
        field_map_exn json__ "KeyAlgorithm" KeyAlgorithm.of_json in
      let keyModesOfUse =
        field_map_exn json__ "KeyModesOfUse" KeyModesOfUse.of_json in
      let as2805KeyVariant =
        field_map_exn json__ "As2805KeyVariant" As2805KeyVariant.of_json in
      make ~wrappedKeyCryptogram ~wrappingKeyIdentifier ~exportable
        ~keyAlgorithm ~keyModesOfUse ~as2805KeyVariant ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material import using AS2805 key cryptogram format."]
module ImportDiffieHellmanTr31KeyBlock =
  struct
    type nonrec t =
      {
      privateKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the asymmetric ECC key created within Amazon Web Services Payment Cryptography."];
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the CA that signed the PublicKeyCertificate for the client's receiving ECC key pair."];
      publicKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The public key certificate of the client's receiving ECC key pair, in PEM format (base64 encoded), to use for ECDH key derivation."];
      deriveKeyAlgorithm: SymmetricKeyAlgorithm.t
        [@ocaml.doc "The key algorithm of the shared derived ECDH key."];
      keyDerivationFunction: KeyDerivationFunction.t
        [@ocaml.doc
          "The key derivation function to use when deriving a key using ECDH."];
      keyDerivationHashAlgorithm: KeyDerivationHashAlgorithm.t
        [@ocaml.doc "The hash type to use when deriving a key using ECDH."];
      derivationData: DiffieHellmanDerivationData.t
        [@ocaml.doc
          "The shared information used when deriving a key using ECDH."];
      wrappedKeyBlock: Tr31WrappedKeyBlock.t
        [@ocaml.doc "The ECDH wrapped key block to import."]}
    let context_ = "ImportDiffieHellmanTr31KeyBlock"
    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
       "Key derivation parameter information for key material import using asymmetric ECDH key exchange method."]
module ImportKeyCryptogram =
  struct
    type nonrec t =
      {
      keyAttributes: KeyAttributes.t ;
      exportable: Boolean.t
        [@ocaml.doc
          "Specifies whether the key is exportable from the service."];
      wrappedKeyCryptogram: WrappedKeyCryptogram.t
        [@ocaml.doc "The RSA wrapped key cryptogram under import."];
      importToken: ImportTokenId.t
        [@ocaml.doc
          "The import token that initiates key import using the asymmetric RSA wrap and unwrap key exchange method into AWS Payment Cryptography. It expires after 30 days. You can use the same import token to import multiple keys to the same service account."];
      wrappingSpec: WrappingKeySpec.t option
        [@ocaml.doc "The wrapping spec for the wrapped key cryptogram."]}
    let context_ = "ImportKeyCryptogram"
    let make ?wrappingSpec =
      fun ~keyAttributes ->
        fun ~exportable ->
          fun ~wrappedKeyCryptogram ->
            fun ~importToken ->
              fun () ->
                {
                  wrappingSpec;
                  keyAttributes;
                  exportable;
                  wrappedKeyCryptogram;
                  importToken
                }
    let to_value x =
      structure_to_value
        [("KeyAttributes", (Some (KeyAttributes.to_value x.keyAttributes)));
        ("Exportable", (Some (Boolean.to_value x.exportable)));
        ("WrappedKeyCryptogram",
          (Some (WrappedKeyCryptogram.to_value x.wrappedKeyCryptogram)));
        ("ImportToken", (Some (ImportTokenId.to_value x.importToken)));
        ("WrappingSpec",
          (Option.map x.wrappingSpec ~f:WrappingKeySpec.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappingSpec =
        (Option.map ~f:WrappingKeySpec.of_xml)
          (Xml.child xml_arg0 "WrappingSpec") in
      let importToken =
        ImportTokenId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImportToken") in
      let wrappedKeyCryptogram =
        WrappedKeyCryptogram.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappedKeyCryptogram") in
      let exportable =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Exportable") in
      let keyAttributes =
        KeyAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      make ?wrappingSpec ~importToken ~wrappedKeyCryptogram ~exportable
        ~keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappingSpec =
        field_map json__ "WrappingSpec" WrappingKeySpec.of_json in
      let importToken =
        field_map_exn json__ "ImportToken" ImportTokenId.of_json in
      let wrappedKeyCryptogram =
        field_map_exn json__ "WrappedKeyCryptogram"
          WrappedKeyCryptogram.of_json in
      let exportable = field_map_exn json__ "Exportable" Boolean.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" KeyAttributes.of_json in
      make ?wrappingSpec ~importToken ~wrappedKeyCryptogram ~exportable
        ~keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material import using asymmetric RSA wrap and unwrap key exchange method."]
module ImportTr31KeyBlock =
  struct
    type nonrec t =
      {
      wrappingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the key that will decrypt or unwrap a TR-31 key block during import."];
      wrappedKeyBlock: Tr31WrappedKeyBlock.t
        [@ocaml.doc "The TR-31 wrapped key block to import."]}
    let context_ = "ImportTr31KeyBlock"
    let make ~wrappingKeyIdentifier =
      fun ~wrappedKeyBlock ->
        fun () -> { wrappingKeyIdentifier; wrappedKeyBlock }
    let to_value x =
      structure_to_value
        [("WrappingKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.wrappingKeyIdentifier)));
        ("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 wrappingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyIdentifier") in
      make ~wrappedKeyBlock ~wrappingKeyIdentifier ()
    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 wrappingKeyIdentifier =
        field_map_exn json__ "WrappingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~wrappedKeyBlock ~wrappingKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material import using symmetric TR-31 key exchange method."]
module ImportTr34KeyBlock =
  struct
    type nonrec t =
      {
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the certificate chain that signs the signing key certificate during TR-34 key import."];
      signingKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The public key component in PEM certificate format of the private key that signs the KDH TR-34 WrappedKeyBlock."];
      importToken: ImportTokenId.t option
        [@ocaml.doc
          "The import token that initiates key import using the asymmetric TR-34 key exchange method into Amazon Web Services Payment Cryptography. It expires after 30 days. You can use the same import token to import multiple keys to the same service account."];
      wrappingKeyIdentifier: KeyArnOrKeyAliasType.t option
        [@ocaml.doc "Key Identifier used for unwrapping the import key"];
      wrappingKeyCertificate: CertificateType.t option
        [@ocaml.doc "The certificate used to wrap the TR-34 key block."];
      wrappedKeyBlock: Tr34WrappedKeyBlock.t
        [@ocaml.doc "The TR-34 wrapped key block to import."];
      keyBlockFormat: Tr34KeyBlockFormat.t
        [@ocaml.doc
          "The key block format to use during key import. The only value allowed is X9_TR34_2012."];
      randomNonce: EvenHexLengthBetween16And32.t option
        [@ocaml.doc
          "A random number value that is unique to the TR-34 key block generated using 2 pass. The operation will fail, if a random nonce value is not provided for a TR-34 key block generated using 2 pass."]}
    let context_ = "ImportTr34KeyBlock"
    let make ?importToken =
      fun ?wrappingKeyIdentifier ->
        fun ?wrappingKeyCertificate ->
          fun ?randomNonce ->
            fun ~certificateAuthorityPublicKeyIdentifier ->
              fun ~signingKeyCertificate ->
                fun ~wrappedKeyBlock ->
                  fun ~keyBlockFormat ->
                    fun () ->
                      {
                        importToken;
                        wrappingKeyIdentifier;
                        wrappingKeyCertificate;
                        randomNonce;
                        certificateAuthorityPublicKeyIdentifier;
                        signingKeyCertificate;
                        wrappedKeyBlock;
                        keyBlockFormat
                      }
    let to_value x =
      structure_to_value
        [("CertificateAuthorityPublicKeyIdentifier",
           (Some
              (KeyArnOrKeyAliasType.to_value
                 x.certificateAuthorityPublicKeyIdentifier)));
        ("SigningKeyCertificate",
          (Some (CertificateType.to_value x.signingKeyCertificate)));
        ("ImportToken", (Option.map x.importToken ~f:ImportTokenId.to_value));
        ("WrappingKeyIdentifier",
          (Option.map x.wrappingKeyIdentifier
             ~f:KeyArnOrKeyAliasType.to_value));
        ("WrappingKeyCertificate",
          (Option.map x.wrappingKeyCertificate ~f:CertificateType.to_value));
        ("WrappedKeyBlock",
          (Some (Tr34WrappedKeyBlock.to_value x.wrappedKeyBlock)));
        ("KeyBlockFormat",
          (Some (Tr34KeyBlockFormat.to_value x.keyBlockFormat)));
        ("RandomNonce",
          (Option.map x.randomNonce ~f:EvenHexLengthBetween16And32.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let randomNonce =
        (Option.map ~f:EvenHexLengthBetween16And32.of_xml)
          (Xml.child xml_arg0 "RandomNonce") in
      let keyBlockFormat =
        Tr34KeyBlockFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyBlockFormat") in
      let wrappedKeyBlock =
        Tr34WrappedKeyBlock.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappedKeyBlock") in
      let wrappingKeyCertificate =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "WrappingKeyCertificate") in
      let wrappingKeyIdentifier =
        (Option.map ~f:KeyArnOrKeyAliasType.of_xml)
          (Xml.child xml_arg0 "WrappingKeyIdentifier") in
      let importToken =
        (Option.map ~f:ImportTokenId.of_xml)
          (Xml.child xml_arg0 "ImportToken") in
      let signingKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SigningKeyCertificate") in
      let certificateAuthorityPublicKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CertificateAuthorityPublicKeyIdentifier") in
      make ?randomNonce ~keyBlockFormat ~wrappedKeyBlock
        ?wrappingKeyCertificate ?wrappingKeyIdentifier ?importToken
        ~signingKeyCertificate ~certificateAuthorityPublicKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let randomNonce =
        field_map json__ "RandomNonce" EvenHexLengthBetween16And32.of_json in
      let keyBlockFormat =
        field_map_exn json__ "KeyBlockFormat" Tr34KeyBlockFormat.of_json in
      let wrappedKeyBlock =
        field_map_exn json__ "WrappedKeyBlock" Tr34WrappedKeyBlock.of_json in
      let wrappingKeyCertificate =
        field_map json__ "WrappingKeyCertificate" CertificateType.of_json in
      let wrappingKeyIdentifier =
        field_map json__ "WrappingKeyIdentifier" KeyArnOrKeyAliasType.of_json in
      let importToken = field_map json__ "ImportToken" ImportTokenId.of_json in
      let signingKeyCertificate =
        field_map_exn json__ "SigningKeyCertificate" CertificateType.of_json in
      let certificateAuthorityPublicKeyIdentifier =
        field_map_exn json__ "CertificateAuthorityPublicKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?randomNonce ~keyBlockFormat ~wrappedKeyBlock
        ?wrappingKeyCertificate ?wrappingKeyIdentifier ?importToken
        ~signingKeyCertificate ~certificateAuthorityPublicKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material import using the asymmetric TR-34 key exchange method."]
module RootCertificatePublicKey =
  struct
    type nonrec t =
      {
      keyAttributes: KeyAttributes.t
        [@ocaml.doc
          "The role of the key, the algorithm it supports, and the cryptographic operations allowed with the key. This data is immutable after the root public key is imported."];
      publicKeyCertificate: CertificateType.t
        [@ocaml.doc
          "Parameter information for root public key certificate import."]}
    let context_ = "RootCertificatePublicKey"
    let make ~keyAttributes =
      fun ~publicKeyCertificate ->
        fun () -> { keyAttributes; publicKeyCertificate }
    let to_value x =
      structure_to_value
        [("KeyAttributes", (Some (KeyAttributes.to_value x.keyAttributes)));
        ("PublicKeyCertificate",
          (Some (CertificateType.to_value x.publicKeyCertificate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublicKeyCertificate") in
      let keyAttributes =
        KeyAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      make ~publicKeyCertificate ~keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicKeyCertificate =
        field_map_exn json__ "PublicKeyCertificate" CertificateType.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" KeyAttributes.of_json in
      make ~publicKeyCertificate ~keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for root public key certificate import."]
module TrustedCertificatePublicKey =
  struct
    type nonrec t =
      {
      keyAttributes: KeyAttributes.t
        [@ocaml.doc
          "The role of the key, the algorithm it supports, and the cryptographic operations allowed with the key. This data is immutable after a trusted public key is imported."];
      publicKeyCertificate: CertificateType.t
        [@ocaml.doc
          "Parameter information for trusted public key certificate import."];
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the root public key certificate or certificate chain that signs the trusted public key certificate import."]}
    let context_ = "TrustedCertificatePublicKey"
    let make ~keyAttributes =
      fun ~publicKeyCertificate ->
        fun ~certificateAuthorityPublicKeyIdentifier ->
          fun () ->
            {
              keyAttributes;
              publicKeyCertificate;
              certificateAuthorityPublicKeyIdentifier
            }
    let to_value x =
      structure_to_value
        [("KeyAttributes", (Some (KeyAttributes.to_value x.keyAttributes)));
        ("PublicKeyCertificate",
          (Some (CertificateType.to_value x.publicKeyCertificate)));
        ("CertificateAuthorityPublicKeyIdentifier",
          (Some
             (KeyArnOrKeyAliasType.to_value
                x.certificateAuthorityPublicKeyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateAuthorityPublicKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CertificateAuthorityPublicKeyIdentifier") in
      let publicKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublicKeyCertificate") in
      let keyAttributes =
        KeyAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      make ~certificateAuthorityPublicKeyIdentifier ~publicKeyCertificate
        ~keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateAuthorityPublicKeyIdentifier =
        field_map_exn json__ "CertificateAuthorityPublicKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let publicKeyCertificate =
        field_map_exn json__ "PublicKeyCertificate" CertificateType.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" KeyAttributes.of_json in
      make ~certificateAuthorityPublicKeyIdentifier ~publicKeyCertificate
        ~keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for trusted public key certificate import."]
module AssociationState =
  struct
    type nonrec t =
      | ACTIVE 
      | UPDATE_PENDING 
      | DELETE_PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | UPDATE_PENDING -> "UPDATE_PENDING"
      | DELETE_PENDING -> "DELETE_PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "UPDATE_PENDING" -> UPDATE_PENDING
      | "DELETE_PENDING" -> DELETE_PENDING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AssociationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssociationState" j)
    let to_json = simple_to_json to_value
  end
module MpaOperation =
  struct
    type nonrec t =
      | IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE ->
          "IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE" ->
          IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE
      | 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 MpaOperation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MpaOperation" j)
    let to_json = simple_to_json to_value
  end
module MpaTeamArn =
  struct
    type nonrec t = string
    let context_ = "MpaTeamArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[^:]+)?:mpa:[a-z0-9-]{1,20}:[0-9]{12}:approval-team/[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:"MpaTeamArn" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeCityString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeCityString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\[;\\]<>]+")));
        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:"CertificateSubjectTypeCityString" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeCommonNameString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeCommonNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\[;\\]<>]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CertificateSubjectTypeCommonNameString" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeCountryString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeCountryString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CertificateSubjectTypeCountryString" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeEmailAddressString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeEmailAddressString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9.!#$%&\226\128\153*+/=?^_`{|}~-]+@[a-zA-Z0-9-]+(?:\\.[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:"CertificateSubjectTypeEmailAddressString" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeOrganizationString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeOrganizationString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\[;\\]<>]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CertificateSubjectTypeOrganizationString" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeOrganizationUnitString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeOrganizationUnitString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\[;\\]<>]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CertificateSubjectTypeOrganizationUnitString" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectTypeStateOrProvinceString =
  struct
    type nonrec t = string
    let context_ = "CertificateSubjectTypeStateOrProvinceString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\[;\\]<>]+")));
        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:"CertificateSubjectTypeStateOrProvinceString" 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 ExportDukptInitialKey =
  struct
    type nonrec t =
      {
      keySerialNumber: HexLength20Or24.t
        [@ocaml.doc
          "The KSN for IPEK generation using DUKPT. KSN must be padded before sending to Amazon Web Services Payment Cryptography. KSN hex length should be 20 for a TDES_2KEY key or 24 for an AES key."]}
    let context_ = "ExportDukptInitialKey"
    let make ~keySerialNumber = fun () -> { keySerialNumber }
    let to_value x =
      structure_to_value
        [("KeySerialNumber",
           (Some (HexLength20Or24.to_value x.keySerialNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keySerialNumber =
        HexLength20Or24.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeySerialNumber") in
      make ~keySerialNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keySerialNumber =
        field_map_exn json__ "KeySerialNumber" HexLength20Or24.of_json in
      make ~keySerialNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Parameter information for IPEK generation during export."]
module ExportAs2805KeyCryptogram =
  struct
    type nonrec t =
      {
      wrappingKeyIdentifier: KeyArnOrKeyAliasType.t ;
      as2805KeyVariant: As2805KeyVariant.t
        [@ocaml.doc "The cryptographic usage of the key under export."]}
    let context_ = "ExportAs2805KeyCryptogram"
    let make ~wrappingKeyIdentifier =
      fun ~as2805KeyVariant ->
        fun () -> { wrappingKeyIdentifier; as2805KeyVariant }
    let to_value x =
      structure_to_value
        [("WrappingKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.wrappingKeyIdentifier)));
        ("As2805KeyVariant",
          (Some (As2805KeyVariant.to_value x.as2805KeyVariant)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let as2805KeyVariant =
        As2805KeyVariant.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "As2805KeyVariant") in
      let wrappingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyIdentifier") in
      make ~as2805KeyVariant ~wrappingKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let as2805KeyVariant =
        field_map_exn json__ "As2805KeyVariant" As2805KeyVariant.of_json in
      let wrappingKeyIdentifier =
        field_map_exn json__ "WrappingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ~as2805KeyVariant ~wrappingKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material export using AS2805 key cryptogram format."]
module ExportDiffieHellmanTr31KeyBlock =
  struct
    type nonrec t =
      {
      privateKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the asymmetric ECC key created within Amazon Web Services Payment Cryptography."];
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The keyARN of the CA that signed the PublicKeyCertificate for the client's receiving ECC key pair."];
      publicKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The public key certificate of the client's receiving ECC key pair, in PEM format (base64 encoded), to use for ECDH key derivation."];
      deriveKeyAlgorithm: SymmetricKeyAlgorithm.t
        [@ocaml.doc "The key algorithm of the shared derived ECDH key."];
      keyDerivationFunction: KeyDerivationFunction.t
        [@ocaml.doc
          "The key derivation function to use when deriving a key using ECDH."];
      keyDerivationHashAlgorithm: KeyDerivationHashAlgorithm.t
        [@ocaml.doc "The hash type to use when deriving a key using ECDH."];
      derivationData: DiffieHellmanDerivationData.t
        [@ocaml.doc
          "The shared information used when deriving a key using ECDH."];
      keyBlockHeaders: KeyBlockHeaders.t option }
    let context_ = "ExportDiffieHellmanTr31KeyBlock"
    let make ?keyBlockHeaders =
      fun ~privateKeyIdentifier ->
        fun ~certificateAuthorityPublicKeyIdentifier ->
          fun ~publicKeyCertificate ->
            fun ~deriveKeyAlgorithm ->
              fun ~keyDerivationFunction ->
                fun ~keyDerivationHashAlgorithm ->
                  fun ~derivationData ->
                    fun () ->
                      {
                        keyBlockHeaders;
                        privateKeyIdentifier;
                        certificateAuthorityPublicKeyIdentifier;
                        publicKeyCertificate;
                        deriveKeyAlgorithm;
                        keyDerivationFunction;
                        keyDerivationHashAlgorithm;
                        derivationData
                      }
    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)));
        ("KeyBlockHeaders",
          (Option.map x.keyBlockHeaders ~f:KeyBlockHeaders.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyBlockHeaders =
        (Option.map ~f:KeyBlockHeaders.of_xml)
          (Xml.child xml_arg0 "KeyBlockHeaders") 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 ?keyBlockHeaders ~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 keyBlockHeaders =
        field_map json__ "KeyBlockHeaders" KeyBlockHeaders.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 ?keyBlockHeaders ~derivationData ~keyDerivationHashAlgorithm
        ~keyDerivationFunction ~deriveKeyAlgorithm ~publicKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ~privateKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Key derivation parameter information for key material export using asymmetric ECDH key exchange method."]
module ExportKeyCryptogram =
  struct
    type nonrec t =
      {
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the certificate chain that signs the wrapping key certificate during RSA wrap and unwrap key export."];
      wrappingKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The wrapping key certificate in PEM format (base64 encoded). Amazon Web Services Payment Cryptography uses this certificate to wrap the key under export."];
      wrappingSpec: WrappingKeySpec.t option
        [@ocaml.doc "The wrapping spec for the key under export."]}
    let context_ = "ExportKeyCryptogram"
    let make ?wrappingSpec =
      fun ~certificateAuthorityPublicKeyIdentifier ->
        fun ~wrappingKeyCertificate ->
          fun () ->
            {
              wrappingSpec;
              certificateAuthorityPublicKeyIdentifier;
              wrappingKeyCertificate
            }
    let to_value x =
      structure_to_value
        [("CertificateAuthorityPublicKeyIdentifier",
           (Some
              (KeyArnOrKeyAliasType.to_value
                 x.certificateAuthorityPublicKeyIdentifier)));
        ("WrappingKeyCertificate",
          (Some (CertificateType.to_value x.wrappingKeyCertificate)));
        ("WrappingSpec",
          (Option.map x.wrappingSpec ~f:WrappingKeySpec.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrappingSpec =
        (Option.map ~f:WrappingKeySpec.of_xml)
          (Xml.child xml_arg0 "WrappingSpec") in
      let wrappingKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyCertificate") in
      let certificateAuthorityPublicKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CertificateAuthorityPublicKeyIdentifier") in
      make ?wrappingSpec ~wrappingKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrappingSpec =
        field_map json__ "WrappingSpec" WrappingKeySpec.of_json in
      let wrappingKeyCertificate =
        field_map_exn json__ "WrappingKeyCertificate" CertificateType.of_json in
      let certificateAuthorityPublicKeyIdentifier =
        field_map_exn json__ "CertificateAuthorityPublicKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?wrappingSpec ~wrappingKeyCertificate
        ~certificateAuthorityPublicKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material export using asymmetric RSA wrap and unwrap key exchange method."]
module ExportTr31KeyBlock =
  struct
    type nonrec t =
      {
      wrappingKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the the wrapping key. This key encrypts or wraps the key under export for TR-31 key block generation."];
      keyBlockHeaders: KeyBlockHeaders.t option
        [@ocaml.doc
          "Optional metadata for export associated with the key material. This data is signed but transmitted in clear text."]}
    let context_ = "ExportTr31KeyBlock"
    let make ?keyBlockHeaders =
      fun ~wrappingKeyIdentifier ->
        fun () -> { keyBlockHeaders; wrappingKeyIdentifier }
    let to_value x =
      structure_to_value
        [("WrappingKeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.wrappingKeyIdentifier)));
        ("KeyBlockHeaders",
          (Option.map x.keyBlockHeaders ~f:KeyBlockHeaders.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyBlockHeaders =
        (Option.map ~f:KeyBlockHeaders.of_xml)
          (Xml.child xml_arg0 "KeyBlockHeaders") in
      let wrappingKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyIdentifier") in
      make ?keyBlockHeaders ~wrappingKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyBlockHeaders =
        field_map json__ "KeyBlockHeaders" KeyBlockHeaders.of_json in
      let wrappingKeyIdentifier =
        field_map_exn json__ "WrappingKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?keyBlockHeaders ~wrappingKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material export using symmetric TR-31 key exchange method."]
module ExportTr34KeyBlock =
  struct
    type nonrec t =
      {
      certificateAuthorityPublicKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the certificate chain that signs the wrapping key certificate during TR-34 key export."];
      wrappingKeyCertificate: CertificateType.t
        [@ocaml.doc
          "The KeyARN of the wrapping key certificate. Amazon Web Services Payment Cryptography uses this certificate to wrap the key under export."];
      exportToken: ExportTokenId.t option
        [@ocaml.doc
          "The export token to initiate key export from Amazon Web Services Payment Cryptography. It also contains the signing key certificate that will sign the wrapped key during TR-34 key block generation. Call GetParametersForExport to receive an export token. It expires after 30 days. You can use the same export token to export multiple keys from the same service account."];
      signingKeyIdentifier: KeyArnOrKeyAliasType.t option
        [@ocaml.doc "Key Identifier used for signing the export key"];
      signingKeyCertificate: CertificateType.t option
        [@ocaml.doc "The certificate used to sign the TR-34 key block."];
      keyBlockFormat: Tr34KeyBlockFormat.t
        [@ocaml.doc
          "The format of key block that Amazon Web Services Payment Cryptography will use during key export."];
      randomNonce: EvenHexLengthBetween16And32.t option
        [@ocaml.doc
          "A random number value that is unique to the TR-34 key block generated using 2 pass. The operation will fail, if a random nonce value is not provided for a TR-34 key block generated using 2 pass."];
      keyBlockHeaders: KeyBlockHeaders.t option
        [@ocaml.doc
          "Optional metadata for export associated with the key material. This data is signed but transmitted in clear text."]}
    let context_ = "ExportTr34KeyBlock"
    let make ?exportToken =
      fun ?signingKeyIdentifier ->
        fun ?signingKeyCertificate ->
          fun ?randomNonce ->
            fun ?keyBlockHeaders ->
              fun ~certificateAuthorityPublicKeyIdentifier ->
                fun ~wrappingKeyCertificate ->
                  fun ~keyBlockFormat ->
                    fun () ->
                      {
                        exportToken;
                        signingKeyIdentifier;
                        signingKeyCertificate;
                        randomNonce;
                        keyBlockHeaders;
                        certificateAuthorityPublicKeyIdentifier;
                        wrappingKeyCertificate;
                        keyBlockFormat
                      }
    let to_value x =
      structure_to_value
        [("CertificateAuthorityPublicKeyIdentifier",
           (Some
              (KeyArnOrKeyAliasType.to_value
                 x.certificateAuthorityPublicKeyIdentifier)));
        ("WrappingKeyCertificate",
          (Some (CertificateType.to_value x.wrappingKeyCertificate)));
        ("ExportToken", (Option.map x.exportToken ~f:ExportTokenId.to_value));
        ("SigningKeyIdentifier",
          (Option.map x.signingKeyIdentifier ~f:KeyArnOrKeyAliasType.to_value));
        ("SigningKeyCertificate",
          (Option.map x.signingKeyCertificate ~f:CertificateType.to_value));
        ("KeyBlockFormat",
          (Some (Tr34KeyBlockFormat.to_value x.keyBlockFormat)));
        ("RandomNonce",
          (Option.map x.randomNonce ~f:EvenHexLengthBetween16And32.to_value));
        ("KeyBlockHeaders",
          (Option.map x.keyBlockHeaders ~f:KeyBlockHeaders.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyBlockHeaders =
        (Option.map ~f:KeyBlockHeaders.of_xml)
          (Xml.child xml_arg0 "KeyBlockHeaders") in
      let randomNonce =
        (Option.map ~f:EvenHexLengthBetween16And32.of_xml)
          (Xml.child xml_arg0 "RandomNonce") in
      let keyBlockFormat =
        Tr34KeyBlockFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyBlockFormat") in
      let signingKeyCertificate =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "SigningKeyCertificate") in
      let signingKeyIdentifier =
        (Option.map ~f:KeyArnOrKeyAliasType.of_xml)
          (Xml.child xml_arg0 "SigningKeyIdentifier") in
      let exportToken =
        (Option.map ~f:ExportTokenId.of_xml)
          (Xml.child xml_arg0 "ExportToken") in
      let wrappingKeyCertificate =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyCertificate") in
      let certificateAuthorityPublicKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CertificateAuthorityPublicKeyIdentifier") in
      make ?keyBlockHeaders ?randomNonce ~keyBlockFormat
        ?signingKeyCertificate ?signingKeyIdentifier ?exportToken
        ~wrappingKeyCertificate ~certificateAuthorityPublicKeyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyBlockHeaders =
        field_map json__ "KeyBlockHeaders" KeyBlockHeaders.of_json in
      let randomNonce =
        field_map json__ "RandomNonce" EvenHexLengthBetween16And32.of_json in
      let keyBlockFormat =
        field_map_exn json__ "KeyBlockFormat" Tr34KeyBlockFormat.of_json in
      let signingKeyCertificate =
        field_map json__ "SigningKeyCertificate" CertificateType.of_json in
      let signingKeyIdentifier =
        field_map json__ "SigningKeyIdentifier" KeyArnOrKeyAliasType.of_json in
      let exportToken = field_map json__ "ExportToken" ExportTokenId.of_json in
      let wrappingKeyCertificate =
        field_map_exn json__ "WrappingKeyCertificate" CertificateType.of_json in
      let certificateAuthorityPublicKeyIdentifier =
        field_map_exn json__ "CertificateAuthorityPublicKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      make ?keyBlockHeaders ?randomNonce ~keyBlockFormat
        ?signingKeyCertificate ?signingKeyIdentifier ?exportToken
        ~wrappingKeyCertificate ~certificateAuthorityPublicKeyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material export using the asymmetric TR-34 key exchange method."]
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. This exception is thrown when the caller lacks the necessary IAM permissions to perform the requested operation. Verify that your IAM policy includes the required permissions for the specific Amazon Web Services Payment Cryptography action you're attempting."]
module ConflictException =
  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
       "This request can cause an inconsistent state for the resource. The requested operation conflicts with the current state of the resource. For example, attempting to delete a key that is currently being used, or trying to create a resource that already exists."]
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. This indicates a server-side error within the Amazon Web Services Payment Cryptography service. If this error persists, contact support for assistance."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      resourceId: String_.t option
        [@ocaml.doc
          "The identifier of the resource that was not found. This field contains the specific resource identifier (such as a key ARN or alias name) that could not be located."]}
    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 resource not found. The specified key, alias, or other resource does not exist in your account or region. Verify that the resource identifier is correct and that the resource exists in the expected region."]
module ServiceUnavailableException =
  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 service cannot complete the request. The Amazon Web Services Payment Cryptography service is temporarily unavailable. This is typically a temporary condition - retry your request after a brief delay."]
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. You have exceeded the rate limits for Amazon Web Services Payment Cryptography API calls. Implement exponential backoff and retry logic in your application to handle throttling gracefully."]
module ValidationException =
  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 an invalid request error. One or more parameters in your request are invalid. Check the parameter values, formats, and constraints specified in the API documentation."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  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
       "This request would cause a service quota to be exceeded. You have reached the maximum number of keys, aliases, or other resources allowed in your account. Review your current usage and consider deleting unused resources or requesting a quota increase."]
module Tags =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module Key =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the key."];
      keyAttributes: KeyAttributes.t option
        [@ocaml.doc
          "The role of the key, the algorithm it supports, and the cryptographic operations allowed with the key. This data is immutable after the key is created."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) is used to check if all parties holding a given key have the same key or to detect that a key has changed."];
      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."];
      enabled: Boolean.t option
        [@ocaml.doc "Specifies whether the key is enabled."];
      exportable: Boolean.t option
        [@ocaml.doc
          "Specifies whether the key is exportable. This data is immutable after the key is created."];
      keyState: KeyState.t option
        [@ocaml.doc "The state of key that is being created or deleted."];
      keyOrigin: KeyOrigin.t option
        [@ocaml.doc
          "The source of the key material. For keys created within Amazon Web Services Payment Cryptography, the value is AWS_PAYMENT_CRYPTOGRAPHY. For keys imported into Amazon Web Services Payment Cryptography, the value is EXTERNAL."];
      createTimestamp: Timestamp.t option
        [@ocaml.doc "The date and time when the key was created."];
      usageStartTimestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time after which Amazon Web Services Payment Cryptography will start using the key material for cryptographic operations."];
      usageStopTimestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time after which Amazon Web Services Payment Cryptography will stop using the key material for cryptographic operations."];
      deletePendingTimestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time after which Amazon Web Services Payment Cryptography will delete the key. This value is present only when KeyState is DELETE_PENDING and the key is scheduled for deletion."];
      deleteTimestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time after which Amazon Web Services Payment Cryptography will delete the key. This value is present only when when the KeyState is DELETE_COMPLETE and the Amazon Web Services Payment Cryptography key is deleted."];
      deriveKeyUsage: DeriveKeyUsage.t option
        [@ocaml.doc
          "The cryptographic usage of an ECDH derived key as de\239\172\129ned in section A.5.2 of the TR-31 spec."];
      multiRegionKeyType: MultiRegionKeyType.t option
        [@ocaml.doc
          "Indicates whether this key is a Multi-Region key and its role in the Multi-Region key hierarchy. Multi-Region replication keys allow the same key material to be used across multiple Amazon Web Services Regions. This field specifies whether the key is a Primary Region key (PRK) (which can be replicated to other Amazon Web Services Regions) or a Replica Region key (RRK) (which is a copy of a PRK in another Region). For more information, see Multi-Region key replication."];
      primaryRegion: Region.t option ;
      replicationStatus: ReplicationStatus.t option
        [@ocaml.doc
          "Information about the replication status of the key across different Amazon Web Services Regions. This field provides details about the current state of key replication, including any status messages or operational information. It helps track the progress and health of key replication operations."];
      usingDefaultReplicationRegions: Boolean.t option
        [@ocaml.doc
          "Indicates whether this key is using the account's default replication regions configuration for Multi-Region key replication. When set to true, the key automatically replicates to the regions specified in the account's default replication settings. When set to false, the key has a custom replication configuration that overrides the account defaults."];
      mpaStatus: MpaStatus.t option
        [@ocaml.doc
          "The Multi-Party Approval (MPA) status for the key, if applicable."]}
    let make ?keyArn =
      fun ?keyAttributes ->
        fun ?keyCheckValue ->
          fun ?keyCheckValueAlgorithm ->
            fun ?enabled ->
              fun ?exportable ->
                fun ?keyState ->
                  fun ?keyOrigin ->
                    fun ?createTimestamp ->
                      fun ?usageStartTimestamp ->
                        fun ?usageStopTimestamp ->
                          fun ?deletePendingTimestamp ->
                            fun ?deleteTimestamp ->
                              fun ?deriveKeyUsage ->
                                fun ?multiRegionKeyType ->
                                  fun ?primaryRegion ->
                                    fun ?replicationStatus ->
                                      fun ?usingDefaultReplicationRegions ->
                                        fun ?mpaStatus ->
                                          fun () ->
                                            {
                                              keyArn;
                                              keyAttributes;
                                              keyCheckValue;
                                              keyCheckValueAlgorithm;
                                              enabled;
                                              exportable;
                                              keyState;
                                              keyOrigin;
                                              createTimestamp;
                                              usageStartTimestamp;
                                              usageStopTimestamp;
                                              deletePendingTimestamp;
                                              deleteTimestamp;
                                              deriveKeyUsage;
                                              multiRegionKeyType;
                                              primaryRegion;
                                              replicationStatus;
                                              usingDefaultReplicationRegions;
                                              mpaStatus
                                            }
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("KeyAttributes",
          (Option.map x.keyAttributes ~f:KeyAttributes.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("KeyCheckValueAlgorithm",
          (Option.map x.keyCheckValueAlgorithm
             ~f:KeyCheckValueAlgorithm.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("Exportable", (Option.map x.exportable ~f:Boolean.to_value));
        ("KeyState", (Option.map x.keyState ~f:KeyState.to_value));
        ("KeyOrigin", (Option.map x.keyOrigin ~f:KeyOrigin.to_value));
        ("CreateTimestamp",
          (Option.map x.createTimestamp ~f:Timestamp.to_value));
        ("UsageStartTimestamp",
          (Option.map x.usageStartTimestamp ~f:Timestamp.to_value));
        ("UsageStopTimestamp",
          (Option.map x.usageStopTimestamp ~f:Timestamp.to_value));
        ("DeletePendingTimestamp",
          (Option.map x.deletePendingTimestamp ~f:Timestamp.to_value));
        ("DeleteTimestamp",
          (Option.map x.deleteTimestamp ~f:Timestamp.to_value));
        ("DeriveKeyUsage",
          (Option.map x.deriveKeyUsage ~f:DeriveKeyUsage.to_value));
        ("MultiRegionKeyType",
          (Option.map x.multiRegionKeyType ~f:MultiRegionKeyType.to_value));
        ("PrimaryRegion", (Option.map x.primaryRegion ~f:Region.to_value));
        ("ReplicationStatus",
          (Option.map x.replicationStatus ~f:ReplicationStatus.to_value));
        ("UsingDefaultReplicationRegions",
          (Option.map x.usingDefaultReplicationRegions ~f:Boolean.to_value));
        ("MpaStatus", (Option.map x.mpaStatus ~f:MpaStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mpaStatus =
        (Option.map ~f:MpaStatus.of_xml) (Xml.child xml_arg0 "MpaStatus") in
      let usingDefaultReplicationRegions =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "UsingDefaultReplicationRegions") in
      let replicationStatus =
        (Option.map ~f:ReplicationStatus.of_xml)
          (Xml.child xml_arg0 "ReplicationStatus") in
      let primaryRegion =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "PrimaryRegion") in
      let multiRegionKeyType =
        (Option.map ~f:MultiRegionKeyType.of_xml)
          (Xml.child xml_arg0 "MultiRegionKeyType") in
      let deriveKeyUsage =
        (Option.map ~f:DeriveKeyUsage.of_xml)
          (Xml.child xml_arg0 "DeriveKeyUsage") in
      let deleteTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DeleteTimestamp") in
      let deletePendingTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DeletePendingTimestamp") in
      let usageStopTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "UsageStopTimestamp") in
      let usageStartTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "UsageStartTimestamp") in
      let createTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreateTimestamp") in
      let keyOrigin =
        (Option.map ~f:KeyOrigin.of_xml) (Xml.child xml_arg0 "KeyOrigin") in
      let keyState =
        (Option.map ~f:KeyState.of_xml) (Xml.child xml_arg0 "KeyState") in
      let exportable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Exportable") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let keyCheckValueAlgorithm =
        (Option.map ~f:KeyCheckValueAlgorithm.of_xml)
          (Xml.child xml_arg0 "KeyCheckValueAlgorithm") in
      let keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyAttributes =
        (Option.map ~f:KeyAttributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?mpaStatus ?usingDefaultReplicationRegions ?replicationStatus
        ?primaryRegion ?multiRegionKeyType ?deriveKeyUsage ?deleteTimestamp
        ?deletePendingTimestamp ?usageStopTimestamp ?usageStartTimestamp
        ?createTimestamp ?keyOrigin ?keyState ?exportable ?enabled
        ?keyCheckValueAlgorithm ?keyCheckValue ?keyAttributes ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mpaStatus = field_map json__ "MpaStatus" MpaStatus.of_json in
      let usingDefaultReplicationRegions =
        field_map json__ "UsingDefaultReplicationRegions" Boolean.of_json in
      let replicationStatus =
        field_map json__ "ReplicationStatus" ReplicationStatus.of_json in
      let primaryRegion = field_map json__ "PrimaryRegion" Region.of_json in
      let multiRegionKeyType =
        field_map json__ "MultiRegionKeyType" MultiRegionKeyType.of_json in
      let deriveKeyUsage =
        field_map json__ "DeriveKeyUsage" DeriveKeyUsage.of_json in
      let deleteTimestamp =
        field_map json__ "DeleteTimestamp" Timestamp.of_json in
      let deletePendingTimestamp =
        field_map json__ "DeletePendingTimestamp" Timestamp.of_json in
      let usageStopTimestamp =
        field_map json__ "UsageStopTimestamp" Timestamp.of_json in
      let usageStartTimestamp =
        field_map json__ "UsageStartTimestamp" Timestamp.of_json in
      let createTimestamp =
        field_map json__ "CreateTimestamp" Timestamp.of_json in
      let keyOrigin = field_map json__ "KeyOrigin" KeyOrigin.of_json in
      let keyState = field_map json__ "KeyState" KeyState.of_json in
      let exportable = field_map json__ "Exportable" Boolean.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let keyCheckValueAlgorithm =
        field_map json__ "KeyCheckValueAlgorithm"
          KeyCheckValueAlgorithm.of_json in
      let keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyAttributes =
        field_map json__ "KeyAttributes" KeyAttributes.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?mpaStatus ?usingDefaultReplicationRegions ?replicationStatus
        ?primaryRegion ?multiRegionKeyType ?deriveKeyUsage ?deleteTimestamp
        ?deletePendingTimestamp ?usageStopTimestamp ?usageStartTimestamp
        ?createTimestamp ?keyOrigin ?keyState ?exportable ?enabled
        ?keyCheckValueAlgorithm ?keyCheckValue ?keyAttributes ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Metadata about an Amazon Web Services Payment Cryptography key."]
module Regions =
  struct
    type nonrec t = Region.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:Region.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:Region.of_xml)
    let of_json j = list_of_json ~kind:"Regions" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module PublicPolicyException =
  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 resource-based policy would grant public access to the key. Modify the policy to restrict access to specific principals and resubmit the request."]
module ResourcePolicy =
  struct
    type nonrec t = string
    let context_ = "ResourcePolicy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20480) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0009\\u000A\\u000D\\u0020-\\u00FF]+")));
        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:"ResourcePolicy" j
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module KeySummaryList =
  struct
    type nonrec t = KeySummary.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:KeySummary.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:KeySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"KeySummaryList" ~of_json:KeySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Aliases =
  struct
    type nonrec t = Alias.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:Alias.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:Alias.of_xml)
    let of_json j = list_of_json ~kind:"Aliases" ~of_json:Alias.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImportKeyMaterial =
  struct
    type nonrec t =
      {
      rootCertificatePublicKey: RootCertificatePublicKey.t option
        [@ocaml.doc
          "Parameter information for root public key certificate import."];
      trustedCertificatePublicKey: TrustedCertificatePublicKey.t option
        [@ocaml.doc
          "Parameter information for trusted public key certificate import."];
      tr31KeyBlock: ImportTr31KeyBlock.t option
        [@ocaml.doc
          "Parameter information for key material import using symmetric TR-31 key exchange method."];
      tr34KeyBlock: ImportTr34KeyBlock.t option
        [@ocaml.doc
          "Parameter information for key material import using the asymmetric TR-34 key exchange method."];
      keyCryptogram: ImportKeyCryptogram.t option
        [@ocaml.doc
          "Parameter information for key material import using asymmetric RSA wrap and unwrap key exchange method."];
      diffieHellmanTr31KeyBlock: ImportDiffieHellmanTr31KeyBlock.t option
        [@ocaml.doc
          "Key derivation parameter information for key material import using asymmetric ECDH key exchange method."];
      as2805KeyCryptogram: ImportAs2805KeyCryptogram.t option
        [@ocaml.doc
          "Parameter information for key material import using AS2805 key cryptogram format."]}
    let make ?rootCertificatePublicKey =
      fun ?trustedCertificatePublicKey ->
        fun ?tr31KeyBlock ->
          fun ?tr34KeyBlock ->
            fun ?keyCryptogram ->
              fun ?diffieHellmanTr31KeyBlock ->
                fun ?as2805KeyCryptogram ->
                  fun () ->
                    {
                      rootCertificatePublicKey;
                      trustedCertificatePublicKey;
                      tr31KeyBlock;
                      tr34KeyBlock;
                      keyCryptogram;
                      diffieHellmanTr31KeyBlock;
                      as2805KeyCryptogram
                    }
    let to_value x =
      structure_to_value
        [("RootCertificatePublicKey",
           (Option.map x.rootCertificatePublicKey
              ~f:RootCertificatePublicKey.to_value));
        ("TrustedCertificatePublicKey",
          (Option.map x.trustedCertificatePublicKey
             ~f:TrustedCertificatePublicKey.to_value));
        ("Tr31KeyBlock",
          (Option.map x.tr31KeyBlock ~f:ImportTr31KeyBlock.to_value));
        ("Tr34KeyBlock",
          (Option.map x.tr34KeyBlock ~f:ImportTr34KeyBlock.to_value));
        ("KeyCryptogram",
          (Option.map x.keyCryptogram ~f:ImportKeyCryptogram.to_value));
        ("DiffieHellmanTr31KeyBlock",
          (Option.map x.diffieHellmanTr31KeyBlock
             ~f:ImportDiffieHellmanTr31KeyBlock.to_value));
        ("As2805KeyCryptogram",
          (Option.map x.as2805KeyCryptogram
             ~f:ImportAs2805KeyCryptogram.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let as2805KeyCryptogram =
        (Option.map ~f:ImportAs2805KeyCryptogram.of_xml)
          (Xml.child xml_arg0 "As2805KeyCryptogram") in
      let diffieHellmanTr31KeyBlock =
        (Option.map ~f:ImportDiffieHellmanTr31KeyBlock.of_xml)
          (Xml.child xml_arg0 "DiffieHellmanTr31KeyBlock") in
      let keyCryptogram =
        (Option.map ~f:ImportKeyCryptogram.of_xml)
          (Xml.child xml_arg0 "KeyCryptogram") in
      let tr34KeyBlock =
        (Option.map ~f:ImportTr34KeyBlock.of_xml)
          (Xml.child xml_arg0 "Tr34KeyBlock") in
      let tr31KeyBlock =
        (Option.map ~f:ImportTr31KeyBlock.of_xml)
          (Xml.child xml_arg0 "Tr31KeyBlock") in
      let trustedCertificatePublicKey =
        (Option.map ~f:TrustedCertificatePublicKey.of_xml)
          (Xml.child xml_arg0 "TrustedCertificatePublicKey") in
      let rootCertificatePublicKey =
        (Option.map ~f:RootCertificatePublicKey.of_xml)
          (Xml.child xml_arg0 "RootCertificatePublicKey") in
      make ?as2805KeyCryptogram ?diffieHellmanTr31KeyBlock ?keyCryptogram
        ?tr34KeyBlock ?tr31KeyBlock ?trustedCertificatePublicKey
        ?rootCertificatePublicKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let as2805KeyCryptogram =
        field_map json__ "As2805KeyCryptogram"
          ImportAs2805KeyCryptogram.of_json in
      let diffieHellmanTr31KeyBlock =
        field_map json__ "DiffieHellmanTr31KeyBlock"
          ImportDiffieHellmanTr31KeyBlock.of_json in
      let keyCryptogram =
        field_map json__ "KeyCryptogram" ImportKeyCryptogram.of_json in
      let tr34KeyBlock =
        field_map json__ "Tr34KeyBlock" ImportTr34KeyBlock.of_json in
      let tr31KeyBlock =
        field_map json__ "Tr31KeyBlock" ImportTr31KeyBlock.of_json in
      let trustedCertificatePublicKey =
        field_map json__ "TrustedCertificatePublicKey"
          TrustedCertificatePublicKey.of_json in
      let rootCertificatePublicKey =
        field_map json__ "RootCertificatePublicKey"
          RootCertificatePublicKey.of_json in
      make ?as2805KeyCryptogram ?diffieHellmanTr31KeyBlock ?keyCryptogram
        ?tr34KeyBlock ?tr31KeyBlock ?trustedCertificatePublicKey
        ?rootCertificatePublicKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material import into Amazon Web Services Payment Cryptography using TR-31 or TR-34 or RSA wrap and unwrap key exchange method."]
module MpaRequesterComment =
  struct
    type nonrec t = string
    let context_ = "MpaRequesterComment"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MpaRequesterComment" j
    let to_json = simple_to_json to_value
  end
module KeyMaterialType =
  struct
    type nonrec t =
      | TR34_KEY_BLOCK 
      | TR31_KEY_BLOCK 
      | ROOT_PUBLIC_KEY_CERTIFICATE 
      | TRUSTED_PUBLIC_KEY_CERTIFICATE 
      | KEY_CRYPTOGRAM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TR34_KEY_BLOCK -> "TR34_KEY_BLOCK"
      | TR31_KEY_BLOCK -> "TR31_KEY_BLOCK"
      | ROOT_PUBLIC_KEY_CERTIFICATE -> "ROOT_PUBLIC_KEY_CERTIFICATE"
      | TRUSTED_PUBLIC_KEY_CERTIFICATE -> "TRUSTED_PUBLIC_KEY_CERTIFICATE"
      | KEY_CRYPTOGRAM -> "KEY_CRYPTOGRAM"
      | Non_static_id s -> s
    let of_string =
      function
      | "TR34_KEY_BLOCK" -> TR34_KEY_BLOCK
      | "TR31_KEY_BLOCK" -> TR31_KEY_BLOCK
      | "ROOT_PUBLIC_KEY_CERTIFICATE" -> ROOT_PUBLIC_KEY_CERTIFICATE
      | "TRUSTED_PUBLIC_KEY_CERTIFICATE" -> TRUSTED_PUBLIC_KEY_CERTIFICATE
      | "KEY_CRYPTOGRAM" -> KEY_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 KeyMaterialType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeyMaterialType" j)
    let to_json = simple_to_json to_value
  end
module MpaTeamAssociation =
  struct
    type nonrec t =
      {
      action: MpaOperation.t option
        [@ocaml.doc "The protected operation associated with the MPA team."];
      mpaTeamArn: MpaTeamArn.t option [@ocaml.doc "The ARN of the MPA team."];
      associationState: AssociationState.t option
        [@ocaml.doc "The state of the MPA team association."];
      mpaStatus: MpaStatus.t option
        [@ocaml.doc
          "The MPA session status for the association, if applicable."]}
    let make ?action =
      fun ?mpaTeamArn ->
        fun ?associationState ->
          fun ?mpaStatus ->
            fun () -> { action; mpaTeamArn; associationState; mpaStatus }
    let to_value x =
      structure_to_value
        [("Action", (Option.map x.action ~f:MpaOperation.to_value));
        ("MpaTeamArn", (Option.map x.mpaTeamArn ~f:MpaTeamArn.to_value));
        ("AssociationState",
          (Option.map x.associationState ~f:AssociationState.to_value));
        ("MpaStatus", (Option.map x.mpaStatus ~f:MpaStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mpaStatus =
        (Option.map ~f:MpaStatus.of_xml) (Xml.child xml_arg0 "MpaStatus") in
      let associationState =
        (Option.map ~f:AssociationState.of_xml)
          (Xml.child xml_arg0 "AssociationState") in
      let mpaTeamArn =
        (Option.map ~f:MpaTeamArn.of_xml) (Xml.child xml_arg0 "MpaTeamArn") in
      let action =
        (Option.map ~f:MpaOperation.of_xml) (Xml.child xml_arg0 "Action") in
      make ?mpaStatus ?associationState ?mpaTeamArn ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mpaStatus = field_map json__ "MpaStatus" MpaStatus.of_json in
      let associationState =
        field_map json__ "AssociationState" AssociationState.of_json in
      let mpaTeamArn = field_map json__ "MpaTeamArn" MpaTeamArn.of_json in
      let action = field_map json__ "Action" MpaOperation.of_json in
      make ?mpaStatus ?associationState ?mpaTeamArn ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of an MPA team association with a protected operation."]
module CertificateSigningRequestType =
  struct
    type nonrec t = string
    let context_ = "CertificateSigningRequestType"
    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:"CertificateSigningRequestType" j
    let to_json = simple_to_json to_value
  end
module CertificateSubjectType =
  struct
    type nonrec t =
      {
      commonName: CertificateSubjectTypeCommonNameString.t
        [@ocaml.doc
          "The name you provide to create the certificate signing request."];
      organizationUnit: CertificateSubjectTypeOrganizationUnitString.t option
        [@ocaml.doc
          "The organization unit you provide to create the certificate signing request."];
      organization: CertificateSubjectTypeOrganizationString.t option
        [@ocaml.doc
          "The organization you provide to create the certificate signing request."];
      city: CertificateSubjectTypeCityString.t option
        [@ocaml.doc
          "The city you provide to create the certificate signing request."];
      country: CertificateSubjectTypeCountryString.t option
        [@ocaml.doc
          "The country you provide to create the certificate signing request."];
      stateOrProvince: CertificateSubjectTypeStateOrProvinceString.t option
        [@ocaml.doc
          "The state or province you provide to create the certificate signing request."];
      emailAddress: CertificateSubjectTypeEmailAddressString.t option
        [@ocaml.doc
          "The email address you provide to create the certificate signing request."]}
    let context_ = "CertificateSubjectType"
    let make ?organizationUnit =
      fun ?organization ->
        fun ?city ->
          fun ?country ->
            fun ?stateOrProvince ->
              fun ?emailAddress ->
                fun ~commonName ->
                  fun () ->
                    {
                      organizationUnit;
                      organization;
                      city;
                      country;
                      stateOrProvince;
                      emailAddress;
                      commonName
                    }
    let to_value x =
      structure_to_value
        [("CommonName",
           (Some
              (CertificateSubjectTypeCommonNameString.to_value x.commonName)));
        ("OrganizationUnit",
          (Option.map x.organizationUnit
             ~f:CertificateSubjectTypeOrganizationUnitString.to_value));
        ("Organization",
          (Option.map x.organization
             ~f:CertificateSubjectTypeOrganizationString.to_value));
        ("City",
          (Option.map x.city ~f:CertificateSubjectTypeCityString.to_value));
        ("Country",
          (Option.map x.country
             ~f:CertificateSubjectTypeCountryString.to_value));
        ("StateOrProvince",
          (Option.map x.stateOrProvince
             ~f:CertificateSubjectTypeStateOrProvinceString.to_value));
        ("EmailAddress",
          (Option.map x.emailAddress
             ~f:CertificateSubjectTypeEmailAddressString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        (Option.map ~f:CertificateSubjectTypeEmailAddressString.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      let stateOrProvince =
        (Option.map ~f:CertificateSubjectTypeStateOrProvinceString.of_xml)
          (Xml.child xml_arg0 "StateOrProvince") in
      let country =
        (Option.map ~f:CertificateSubjectTypeCountryString.of_xml)
          (Xml.child xml_arg0 "Country") in
      let city =
        (Option.map ~f:CertificateSubjectTypeCityString.of_xml)
          (Xml.child xml_arg0 "City") in
      let organization =
        (Option.map ~f:CertificateSubjectTypeOrganizationString.of_xml)
          (Xml.child xml_arg0 "Organization") in
      let organizationUnit =
        (Option.map ~f:CertificateSubjectTypeOrganizationUnitString.of_xml)
          (Xml.child xml_arg0 "OrganizationUnit") in
      let commonName =
        CertificateSubjectTypeCommonNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CommonName") in
      make ?emailAddress ?stateOrProvince ?country ?city ?organization
        ?organizationUnit ~commonName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map json__ "EmailAddress"
          CertificateSubjectTypeEmailAddressString.of_json in
      let stateOrProvince =
        field_map json__ "StateOrProvince"
          CertificateSubjectTypeStateOrProvinceString.of_json in
      let country =
        field_map json__ "Country"
          CertificateSubjectTypeCountryString.of_json in
      let city =
        field_map json__ "City" CertificateSubjectTypeCityString.of_json in
      let organization =
        field_map json__ "Organization"
          CertificateSubjectTypeOrganizationString.of_json in
      let organizationUnit =
        field_map json__ "OrganizationUnit"
          CertificateSubjectTypeOrganizationUnitString.of_json in
      let commonName =
        field_map_exn json__ "CommonName"
          CertificateSubjectTypeCommonNameString.of_json in
      make ?emailAddress ?stateOrProvince ?country ?city ?organization
        ?organizationUnit ~commonName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata used to create the certificate signing request."]
module SigningAlgorithmType =
  struct
    type nonrec t =
      | SHA224 
      | SHA256 
      | SHA384 
      | SHA512 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SHA224 -> "SHA224"
      | SHA256 -> "SHA256"
      | SHA384 -> "SHA384"
      | SHA512 -> "SHA512"
      | Non_static_id s -> s
    let of_string =
      function
      | "SHA224" -> SHA224
      | "SHA256" -> SHA256
      | "SHA384" -> SHA384
      | "SHA512" -> 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 SigningAlgorithmType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SigningAlgorithmType" j)
    let to_json = simple_to_json to_value
  end
module WrappedKey =
  struct
    type nonrec t =
      {
      wrappingKeyArn: KeyArn.t option
        [@ocaml.doc "The KeyARN of the wrapped key."];
      wrappedKeyMaterialFormat: WrappedKeyMaterialFormat.t option
        [@ocaml.doc "The key block format of a wrapped key."];
      keyMaterial: KeyMaterial.t option
        [@ocaml.doc
          "Parameter information for generating a wrapped key using TR-31 or TR-34 skey exchange method."];
      keyCheckValue: KeyCheckValue.t option
        [@ocaml.doc
          "The key check value (KCV) is used to check if all parties holding a given key have the same key or to detect that a key has changed."];
      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 make ?wrappingKeyArn =
      fun ?wrappedKeyMaterialFormat ->
        fun ?keyMaterial ->
          fun ?keyCheckValue ->
            fun ?keyCheckValueAlgorithm ->
              fun () ->
                {
                  wrappingKeyArn;
                  wrappedKeyMaterialFormat;
                  keyMaterial;
                  keyCheckValue;
                  keyCheckValueAlgorithm
                }
    let to_value x =
      structure_to_value
        [("WrappingKeyArn", (Option.map x.wrappingKeyArn ~f:KeyArn.to_value));
        ("WrappedKeyMaterialFormat",
          (Option.map x.wrappedKeyMaterialFormat
             ~f:WrappedKeyMaterialFormat.to_value));
        ("KeyMaterial", (Option.map x.keyMaterial ~f:KeyMaterial.to_value));
        ("KeyCheckValue",
          (Option.map x.keyCheckValue ~f:KeyCheckValue.to_value));
        ("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 keyCheckValue =
        (Option.map ~f:KeyCheckValue.of_xml)
          (Xml.child xml_arg0 "KeyCheckValue") in
      let keyMaterial =
        (Option.map ~f:KeyMaterial.of_xml) (Xml.child xml_arg0 "KeyMaterial") in
      let wrappedKeyMaterialFormat =
        (Option.map ~f:WrappedKeyMaterialFormat.of_xml)
          (Xml.child xml_arg0 "WrappedKeyMaterialFormat") in
      let wrappingKeyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "WrappingKeyArn") in
      make ?keyCheckValueAlgorithm ?keyCheckValue ?keyMaterial
        ?wrappedKeyMaterialFormat ?wrappingKeyArn ()
    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 keyCheckValue =
        field_map json__ "KeyCheckValue" KeyCheckValue.of_json in
      let keyMaterial = field_map json__ "KeyMaterial" KeyMaterial.of_json in
      let wrappedKeyMaterialFormat =
        field_map json__ "WrappedKeyMaterialFormat"
          WrappedKeyMaterialFormat.of_json in
      let wrappingKeyArn = field_map json__ "WrappingKeyArn" KeyArn.of_json in
      make ?keyCheckValueAlgorithm ?keyCheckValue ?keyMaterial
        ?wrappedKeyMaterialFormat ?wrappingKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for generating a WrappedKeyBlock for key exchange."]
module ExportAttributes =
  struct
    type nonrec t =
      {
      exportDukptInitialKey: ExportDukptInitialKey.t option
        [@ocaml.doc "Parameter information for IPEK export."];
      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. Specify KCV for IPEK export only. 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 make ?exportDukptInitialKey =
      fun ?keyCheckValueAlgorithm ->
        fun () -> { exportDukptInitialKey; keyCheckValueAlgorithm }
    let to_value x =
      structure_to_value
        [("ExportDukptInitialKey",
           (Option.map x.exportDukptInitialKey
              ~f:ExportDukptInitialKey.to_value));
        ("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 exportDukptInitialKey =
        (Option.map ~f:ExportDukptInitialKey.of_xml)
          (Xml.child xml_arg0 "ExportDukptInitialKey") in
      make ?keyCheckValueAlgorithm ?exportDukptInitialKey ()
    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 exportDukptInitialKey =
        field_map json__ "ExportDukptInitialKey"
          ExportDukptInitialKey.of_json in
      make ?keyCheckValueAlgorithm ?exportDukptInitialKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The attributes for IPEK generation during export."]
module ExportKeyMaterial =
  struct
    type nonrec t =
      {
      tr31KeyBlock: ExportTr31KeyBlock.t option
        [@ocaml.doc
          "Parameter information for key material export using symmetric TR-31 key exchange method."];
      tr34KeyBlock: ExportTr34KeyBlock.t option
        [@ocaml.doc
          "Parameter information for key material export using the asymmetric TR-34 key exchange method."];
      keyCryptogram: ExportKeyCryptogram.t option
        [@ocaml.doc
          "Parameter information for key material export using asymmetric RSA wrap and unwrap key exchange method"];
      diffieHellmanTr31KeyBlock: ExportDiffieHellmanTr31KeyBlock.t option
        [@ocaml.doc
          "Key derivation parameter information for key material export using asymmetric ECDH key exchange method."];
      as2805KeyCryptogram: ExportAs2805KeyCryptogram.t option
        [@ocaml.doc
          "Parameter information for key material export using AS2805 key cryptogram format."]}
    let make ?tr31KeyBlock =
      fun ?tr34KeyBlock ->
        fun ?keyCryptogram ->
          fun ?diffieHellmanTr31KeyBlock ->
            fun ?as2805KeyCryptogram ->
              fun () ->
                {
                  tr31KeyBlock;
                  tr34KeyBlock;
                  keyCryptogram;
                  diffieHellmanTr31KeyBlock;
                  as2805KeyCryptogram
                }
    let to_value x =
      structure_to_value
        [("Tr31KeyBlock",
           (Option.map x.tr31KeyBlock ~f:ExportTr31KeyBlock.to_value));
        ("Tr34KeyBlock",
          (Option.map x.tr34KeyBlock ~f:ExportTr34KeyBlock.to_value));
        ("KeyCryptogram",
          (Option.map x.keyCryptogram ~f:ExportKeyCryptogram.to_value));
        ("DiffieHellmanTr31KeyBlock",
          (Option.map x.diffieHellmanTr31KeyBlock
             ~f:ExportDiffieHellmanTr31KeyBlock.to_value));
        ("As2805KeyCryptogram",
          (Option.map x.as2805KeyCryptogram
             ~f:ExportAs2805KeyCryptogram.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let as2805KeyCryptogram =
        (Option.map ~f:ExportAs2805KeyCryptogram.of_xml)
          (Xml.child xml_arg0 "As2805KeyCryptogram") in
      let diffieHellmanTr31KeyBlock =
        (Option.map ~f:ExportDiffieHellmanTr31KeyBlock.of_xml)
          (Xml.child xml_arg0 "DiffieHellmanTr31KeyBlock") in
      let keyCryptogram =
        (Option.map ~f:ExportKeyCryptogram.of_xml)
          (Xml.child xml_arg0 "KeyCryptogram") in
      let tr34KeyBlock =
        (Option.map ~f:ExportTr34KeyBlock.of_xml)
          (Xml.child xml_arg0 "Tr34KeyBlock") in
      let tr31KeyBlock =
        (Option.map ~f:ExportTr31KeyBlock.of_xml)
          (Xml.child xml_arg0 "Tr31KeyBlock") in
      make ?as2805KeyCryptogram ?diffieHellmanTr31KeyBlock ?keyCryptogram
        ?tr34KeyBlock ?tr31KeyBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let as2805KeyCryptogram =
        field_map json__ "As2805KeyCryptogram"
          ExportAs2805KeyCryptogram.of_json in
      let diffieHellmanTr31KeyBlock =
        field_map json__ "DiffieHellmanTr31KeyBlock"
          ExportDiffieHellmanTr31KeyBlock.of_json in
      let keyCryptogram =
        field_map json__ "KeyCryptogram" ExportKeyCryptogram.of_json in
      let tr34KeyBlock =
        field_map json__ "Tr34KeyBlock" ExportTr34KeyBlock.of_json in
      let tr31KeyBlock =
        field_map json__ "Tr31KeyBlock" ExportTr31KeyBlock.of_json in
      make ?as2805KeyCryptogram ?diffieHellmanTr31KeyBlock ?keyCryptogram
        ?tr34KeyBlock ?tr31KeyBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parameter information for key material export from Amazon Web Services Payment Cryptography using TR-31 or TR-34 or RSA wrap and unwrap key exchange method."]
module DeleteKeyInputDeleteKeyInDaysInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:180) >>= (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 DeleteKeyInputDeleteKeyInDaysInteger"
           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 UpdateAliasOutput =
  struct
    type nonrec t = {
      alias: Alias.t option [@ocaml.doc "The alias name."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?alias = fun () -> { alias }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Alias", (Option.map x.alias ~f:Alias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      make ?alias ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "Alias" Alias.of_json in make ?alias ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an existing Amazon Web Services Payment Cryptography alias with a different key. Each alias is associated with only one Amazon Web Services Payment Cryptography key at a time, although a key can have multiple aliases. The alias and the Amazon Web Services Payment Cryptography key must be in the same Amazon Web Services account and Amazon Web Services Region Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias DeleteAlias GetAlias ListAliases"]
module UpdateAliasInput =
  struct
    type nonrec t =
      {
      aliasName: AliasName.t
        [@ocaml.doc "The alias whose associated key is changing."];
      keyArn: KeyArn.t option
        [@ocaml.doc
          "The KeyARN for the key that you are updating or removing from the alias."]}
    let context_ = "UpdateAliasInput"
    let make ?keyArn = fun ~aliasName -> fun () -> { keyArn; aliasName }
    let to_value x =
      structure_to_value
        [("AliasName", (Some (AliasName.to_value x.aliasName)));
        ("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      let aliasName =
        AliasName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasName") in
      make ?keyArn ~aliasName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      let aliasName = field_map_exn json__ "AliasName" AliasName.of_json in
      make ?keyArn ~aliasName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an existing Amazon Web Services Payment Cryptography alias with a different key. Each alias is associated with only one Amazon Web Services Payment Cryptography key at a time, although a key can have multiple aliases. The alias and the Amazon Web Services Payment Cryptography key must be in the same Amazon Web Services account and Amazon Web Services Region Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias DeleteAlias GetAlias ListAliases"]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a tag from an Amazon Web Services Payment Cryptography key. Tagging or untagging an Amazon Web Services Payment Cryptography key can allow or deny permission to the key. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: ListTagsForResource TagResource"]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The KeyARN of the key whose tags are being removed."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "One or more tag keys. Don't include the tag values. If the Amazon Web Services Payment Cryptography key doesn't have the specified tag key, Amazon Web Services Payment Cryptography doesn't throw an exception or return a response. To confirm that the operation succeeded, use the ListTagsForResource operation."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("TagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeys.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a tag from an Amazon Web Services Payment Cryptography key. Tagging or untagging an Amazon Web Services Payment Cryptography key can allow or deny permission to the key. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: ListTagsForResource TagResource"]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or edits tags on an Amazon Web Services Payment Cryptography key. Tagging or untagging an Amazon Web Services Payment Cryptography key can allow or deny permission to the key. Each tag consists of a tag key and a tag value, both of which are case-sensitive strings. The tag value can be an empty (null) string. To add a tag, specify a new tag key and a tag value. To edit a tag, specify an existing tag key and a new tag value. You can also add tags to an Amazon Web Services Payment Cryptography key when you create it with CreateKey. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: ListTagsForResource UntagResource"]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The KeyARN of the key whose tags are being updated."];
      tags: Tags.t
        [@ocaml.doc
          "One or more tags. Each tag consists of a tag key and a tag value. The tag value can be an empty (null) string. You can't have more than one tag on an Amazon Web Services Payment Cryptography key with the same tag key. If you specify an existing tag key with a different tag value, Amazon Web Services Payment Cryptography replaces the current tag value with the new one. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output. To use this parameter, you must have TagResource permission in an IAM policy. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" Tags.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or edits tags on an Amazon Web Services Payment Cryptography key. Tagging or untagging an Amazon Web Services Payment Cryptography key can allow or deny permission to the key. Each tag consists of a tag key and a tag value, both of which are case-sensitive strings. The tag value can be an empty (null) string. To add a tag, specify a new tag key and a tag value. To edit a tag, specify an existing tag key and a new tag value. You can also add tags to an Amazon Web Services Payment Cryptography key when you create it with CreateKey. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: ListTagsForResource UntagResource"]
module StopKeyUsageOutput =
  struct
    type nonrec t = {
      key: Key.t option [@ocaml.doc "The KeyARN of the key."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables an Amazon Web Services Payment Cryptography key, which makes it inactive within Amazon Web Services Payment Cryptography. You can use this operation instead of DeleteKey to deactivate a key. You can enable the key in the future by calling StartKeyUsage. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: DeleteKey StartKeyUsage"]
module StopKeyUsageInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The KeyArn of the key."]}
    let context_ = "StopKeyUsageInput"
    let make ~keyIdentifier = fun () -> { keyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables an Amazon Web Services Payment Cryptography key, which makes it inactive within Amazon Web Services Payment Cryptography. You can use this operation instead of DeleteKey to deactivate a key. You can enable the key in the future by calling StartKeyUsage. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: DeleteKey StartKeyUsage"]
module StartKeyUsageOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc
          "The KeyARN of the Amazon Web Services Payment Cryptography key activated for use."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables an Amazon Web Services Payment Cryptography key, which makes it active for cryptographic operations within Amazon Web Services Payment Cryptography Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: StopKeyUsage"]
module StartKeyUsageInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The KeyArn of the key."]}
    let context_ = "StartKeyUsageInput"
    let make ~keyIdentifier = fun () -> { keyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables an Amazon Web Services Payment Cryptography key, which makes it active for cryptographic operations within Amazon Web Services Payment Cryptography Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: StopKeyUsage"]
module RestoreKeyOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc
          "The key material of the restored key. The KeyState will change to CREATE_COMPLETE and value for DeletePendingTimestamp gets removed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a scheduled key deletion during the waiting period. Use this operation to restore a Key that is scheduled for deletion. During the waiting period, the KeyState is DELETE_PENDING and deletePendingTimestamp contains the date and time after which the Key will be deleted. After Key is restored, the KeyState is CREATE_COMPLETE, and the value for deletePendingTimestamp is removed. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: DeleteKey StartKeyUsage StopKeyUsage"]
module RestoreKeyInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the key to be restored within Amazon Web Services Payment Cryptography."]}
    let context_ = "RestoreKeyInput"
    let make ~keyIdentifier = fun () -> { keyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a scheduled key deletion during the waiting period. Use this operation to restore a Key that is scheduled for deletion. During the waiting period, the KeyState is DELETE_PENDING and deletePendingTimestamp contains the date and time after which the Key will be deleted. After Key is restored, the KeyState is CREATE_COMPLETE, and the value for deletePendingTimestamp is removed. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: DeleteKey StartKeyUsage StopKeyUsage"]
module RemoveKeyReplicationRegionsOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc
          "The updated key metadata after removing the replication regions. This reflects the current state of the key and its updated replication configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output from removing replication regions from a key."]
module RemoveKeyReplicationRegionsInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The key identifier (ARN or alias) of the key from which to remove replication regions. This key must exist and have replication enabled in the specified regions."];
      replicationRegions: Regions.t
        [@ocaml.doc
          "The list of Amazon Web Services Regions to remove from the key's replication configuration. The key will no longer be available for cryptographic operations in these regions after removal. Ensure no active operations depend on the key in these regions before removal."]}
    let context_ = "RemoveKeyReplicationRegionsInput"
    let make ~keyIdentifier =
      fun ~replicationRegions ->
        fun () -> { keyIdentifier; replicationRegions }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("ReplicationRegions",
          (Some (Regions.to_value x.replicationRegions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationRegions =
        Regions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplicationRegions") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~replicationRegions ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationRegions =
        field_map_exn json__ "ReplicationRegions" Regions.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~replicationRegions ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input parameters for removing replication regions from a specific key."]
module PutResourcePolicyOutput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The KeyARN of the key that the resource-based policy was attached to."];
      policy: ResourcePolicy.t option
        [@ocaml.doc
          "The resource-based policy that was attached to the key."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `PublicPolicyException of PublicPolicyException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn = fun ?policy -> fun () -> { resourceArn; policy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "PublicPolicyException" ->
          `PublicPolicyException (PublicPolicyException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "PublicPolicyException" ->
          `PublicPolicyException (PublicPolicyException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `PublicPolicyException e ->
          `Assoc
            [("error", (`String "PublicPolicyException"));
            ("details", (PublicPolicyException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("Policy", (Option.map x.policy ~f:ResourcePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:ResourcePolicy.of_xml) (Xml.child xml_arg0 "Policy") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?policy ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" ResourcePolicy.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      make ?policy ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches or replaces a resource-based policy on an Amazon Web Services Payment Cryptography key. A resource-based policy can grant cross-account access to your key. If the policy would grant public access, the request fails with a PublicPolicyException. To remove a resource-based policy from a key, use DeleteResourcePolicy. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GetResourcePolicy DeleteResourcePolicy"]
module PutResourcePolicyInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The KeyARN of the key to attach the resource-based policy to."];
      policy: ResourcePolicy.t
        [@ocaml.doc
          "The resource-based policy to attach to the key, in JSON format."]}
    let context_ = "PutResourcePolicyInput"
    let make ~resourceArn = fun ~policy -> fun () -> { resourceArn; policy }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("Policy", (Some (ResourcePolicy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        ResourcePolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~policy ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" ResourcePolicy.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~policy ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches or replaces a resource-based policy on an Amazon Web Services Payment Cryptography key. A resource-based policy can grant cross-account access to your key. If the policy would grant public access, the request fails with a PublicPolicyException. To remove a resource-based policy from a key, use DeleteResourcePolicy. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GetResourcePolicy DeleteResourcePolicy"]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "The list of tags associated with a ResourceArn. Each tag will list the key-value pair contained within that tag."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results, or an empty or null value if there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags for an Amazon Web Services resource. This is a paginated operation, which means that each response might contain only a subset of all the tags. When the response contains only a subset of tags, it includes a NextToken value. Use this value in a subsequent ListTagsForResource request to get more tags. When you receive a response with no NextToken (or an empty or null value), that means there are no more tags to get. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: TagResource UntagResource"]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The KeyARN of the key whose tags you are getting."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Use this parameter in a subsequent request after you receive a response with truncated results. Set it to the value of NextToken from the truncated response you just received."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Use this parameter to specify the maximum number of items to return. When this value is present, Amazon Web Services Payment Cryptography does not return more than the specified number of items, but it might return fewer. This value is optional. If you include a value, it must be between 1 and 100, inclusive. If you do not include a value, it defaults to 50."]}
    let context_ = "ListTagsForResourceInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceArn -> fun () -> { nextToken; maxResults; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?maxResults ?nextToken ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ?maxResults ?nextToken ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags for an Amazon Web Services resource. This is a paginated operation, which means that each response might contain only a subset of all the tags. When the response contains only a subset of tags, it includes a NextToken value. Use this value in a subsequent ListTagsForResource request to get more tags. When you receive a response with no NextToken (or an empty or null value), that means there are no more tags to get. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: TagResource UntagResource"]
module ListKeysOutput =
  struct
    type nonrec t =
      {
      keys: KeySummaryList.t option
        [@ocaml.doc
          "The list of keys created within the caller's Amazon Web Services account and Amazon Web Services Region."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results, or an empty or null value if there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keys = fun ?nextToken -> fun () -> { keys; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("Keys", (Option.map x.keys ~f:KeySummaryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let keys =
        (Option.map ~f:KeySummaryList.of_xml) (Xml.child xml_arg0 "Keys") in
      make ?nextToken ?keys ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let keys = field_map json__ "Keys" KeySummaryList.of_json in
      make ?nextToken ?keys ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the keys in the caller's Amazon Web Services account and Amazon Web Services Region. You can filter the list of keys. This is a paginated operation, which means that each response might contain only a subset of all the keys. When the response contains only a subset of keys, it includes a NextToken value. Use this value in a subsequent ListKeys request to get more keys. When you receive a response with no NextToken (or an empty or null value), that means there are no more keys to get. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateKey DeleteKey GetKey"]
module ListKeysInput =
  struct
    type nonrec t =
      {
      keyState: KeyState.t option
        [@ocaml.doc "The key state of the keys you want to list."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Use this parameter in a subsequent request after you receive a response with truncated results. Set it to the value of NextToken from the truncated response you just received."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Use this parameter to specify the maximum number of items to return. When this value is present, Amazon Web Services Payment Cryptography does not return more than the specified number of items, but it might return fewer. This value is optional. If you include a value, it must be between 1 and 100, inclusive. If you do not include a value, it defaults to 50."]}
    let make ?keyState =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { keyState; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("KeyState", (Option.map x.keyState ~f:KeyState.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let keyState =
        (Option.map ~f:KeyState.of_xml) (Xml.child xml_arg0 "KeyState") in
      make ?maxResults ?nextToken ?keyState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let keyState = field_map json__ "KeyState" KeyState.of_json in
      make ?maxResults ?nextToken ?keyState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the keys in the caller's Amazon Web Services account and Amazon Web Services Region. You can filter the list of keys. This is a paginated operation, which means that each response might contain only a subset of all the keys. When the response contains only a subset of keys, it includes a NextToken value. Use this value in a subsequent ListKeys request to get more keys. When you receive a response with no NextToken (or an empty or null value), that means there are no more keys to get. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateKey DeleteKey GetKey"]
module ListAliasesOutput =
  struct
    type nonrec t =
      {
      aliases: Aliases.t option
        [@ocaml.doc
          "The list of aliases. Each alias describes the KeyArn contained within."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results, or an empty or null value if there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?aliases = fun ?nextToken -> fun () -> { aliases; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("Aliases", (Option.map x.aliases ~f:Aliases.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let aliases =
        (Option.map ~f:Aliases.of_xml) (Xml.child xml_arg0 "Aliases") in
      make ?nextToken ?aliases ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let aliases = field_map json__ "Aliases" Aliases.of_json in
      make ?nextToken ?aliases ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the aliases for all keys in the caller's Amazon Web Services account and Amazon Web Services Region. You can filter the aliases by keyARN. For more information, see Using aliases in the Amazon Web Services Payment Cryptography User Guide. This is a paginated operation, which means that each response might contain only a subset of all the aliases. When the response contains only a subset of aliases, it includes a NextToken value. Use this value in a subsequent ListAliases request to get more aliases. When you receive a response with no NextToken (or an empty or null value), that means there are no more aliases to get. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias DeleteAlias GetAlias UpdateAlias"]
module ListAliasesInput =
  struct
    type nonrec t =
      {
      keyArn: KeyArn.t option
        [@ocaml.doc "The keyARN for which you want to list all aliases."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Use this parameter in a subsequent request after you receive a response with truncated results. Set it to the value of NextToken from the truncated response you just received."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Use this parameter to specify the maximum number of items to return. When this value is present, Amazon Web Services Payment Cryptography does not return more than the specified number of items, but it might return fewer. This value is optional. If you include a value, it must be between 1 and 100, inclusive. If you do not include a value, it defaults to 50."]}
    let make ?keyArn =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { keyArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      make ?maxResults ?nextToken ?keyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      make ?maxResults ?nextToken ?keyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the aliases for all keys in the caller's Amazon Web Services account and Amazon Web Services Region. You can filter the aliases by keyARN. For more information, see Using aliases in the Amazon Web Services Payment Cryptography User Guide. This is a paginated operation, which means that each response might contain only a subset of all the aliases. When the response contains only a subset of aliases, it includes a NextToken value. Use this value in a subsequent ListAliases request to get more aliases. When you receive a response with no NextToken (or an empty or null value), that means there are no more aliases to get. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias DeleteAlias GetAlias UpdateAlias"]
module ImportKeyOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc
          "The KeyARN of the key material imported within Amazon Web Services Payment Cryptography."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports symmetric keys and public key certificates in PEM format (base64 encoded) into Amazon Web Services Payment Cryptography. Amazon Web Services Payment Cryptography simplifies key exchange by replacing the existing paper-based approach with a modern electronic approach. With ImportKey you can import symmetric keys using either symmetric and asymmetric key exchange mechanisms. For symmetric key exchange, Amazon Web Services Payment Cryptography uses the ANSI X9 TR-31 norm in accordance with PCI PIN guidelines. And for asymmetric key exchange, Amazon Web Services Payment Cryptography supports ANSI X9 TR-34 norm, RSA unwrap, and ECDH (Elliptic Curve Diffie-Hellman) key exchange mechanisms. Asymmetric key exchange methods are typically used to establish bi-directional trust between the two parties exhanging keys and are used for initial key exchange such as Key Encryption Key (KEK) or Zone Master Key (ZMK). After which you can import working keys using symmetric method to perform various cryptographic operations within Amazon Web Services Payment Cryptography. PCI requires specific minimum key strength of wrapping keys used to protect the keys being exchanged electronically. These requirements can change when PCI standards are revised. The rules specify that wrapping keys used for transport must be at least as strong as the key being protected. For more information on recommended key strength of wrapping keys and key exchange mechanism, see Importing and exporting keys in the Amazon Web Services Payment Cryptography User Guide. You can also import a root public key certificate, used to sign other public key certificates, or a trusted public key certificate under an already established root public key certificate. To import a public root key certificate Using this operation, you can import the public component (in PEM cerificate format) of your private root key. You can use the imported public root key certificate for digital signatures, for example signing wrapping key or signing key in TR-34, within your Amazon Web Services Payment Cryptography account. Set the following parameters: KeyMaterial: RootCertificatePublicKey KeyClass: PUBLIC_KEY KeyModesOfUse: Verify KeyUsage: TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE PublicKeyCertificate: The public key certificate in PEM format (base64 encoded) of the private root key under import. To import a trusted public key certificate The root public key certificate must be in place and operational before you import a trusted public key certificate. Set the following parameters: KeyMaterial: TrustedCertificatePublicKey CertificateAuthorityPublicKeyIdentifier: KeyArn of the RootCertificatePublicKey. KeyModesOfUse and KeyUsage: Corresponding to the cryptographic operations such as wrap, sign, or encrypt that you will allow the trusted public key certificate to perform. PublicKeyCertificate: The trusted public key certificate in PEM format (base64 encoded) under import. To import initial keys (KEK or ZMK or similar) using TR-34 Using this operation, you can import initial key using TR-34 asymmetric key exchange. In TR-34 terminology, the sending party of the key is called Key Distribution Host (KDH) and the receiving party of the key is called Key Receiving Device (KRD). During the key import process, KDH is the user who initiates the key import and KRD is Amazon Web Services Payment Cryptography who receives the key. To initiate TR-34 key import, the KDH must obtain an import token by calling GetParametersForImport. This operation generates an encryption keypair for the purpose of key import, signs the key and returns back the wrapping key certificate (also known as KRD wrapping certificate) and the root certificate chain. The KDH must trust and install the KRD wrapping certificate on its HSM and use it to encrypt (wrap) the KDH key during TR-34 WrappedKeyBlock generation. The import token and associated KRD wrapping certificate expires after 30 days. Next the KDH generates a key pair for the purpose of signing the encrypted KDH key and provides the public certificate of the signing key to Amazon Web Services Payment Cryptography. The KDH will also need to import the root certificate chain of the KDH signing certificate by calling ImportKey for RootCertificatePublicKey. For more information on TR-34 key import, see section Importing symmetric keys in the Amazon Web Services Payment Cryptography User Guide. Set the following parameters: KeyMaterial: Use Tr34KeyBlock parameters. CertificateAuthorityPublicKeyIdentifier: The KeyARN of the certificate chain that signed the KDH signing key certificate. ImportToken: Obtained from KRD by calling GetParametersForImport. WrappedKeyBlock: The TR-34 wrapped key material from KDH. It contains the KDH key under import, wrapped with KRD wrapping certificate and signed by KDH signing private key. This TR-34 key block is typically generated by the KDH Hardware Security Module (HSM) outside of Amazon Web Services Payment Cryptography. SigningKeyCertificate: The public key certificate in PEM format (base64 encoded) of the KDH signing key generated under the root certificate (CertificateAuthorityPublicKeyIdentifier) imported in Amazon Web Services Payment Cryptography. To import initial keys (KEK or ZMK or similar) using RSA Wrap and Unwrap Using this operation, you can import initial key using asymmetric RSA wrap and unwrap key exchange method. To initiate import, call GetParametersForImport with KeyMaterial set to KEY_CRYPTOGRAM to generate an import token. This operation also generates an encryption keypair for the purpose of key import, signs the key and returns back the wrapping key certificate in PEM format (base64 encoded) and its root certificate chain. The import token and associated KRD wrapping certificate expires after 30 days. You must trust and install the wrapping certificate and its certificate chain on the sending HSM and use it to wrap the key under export for WrappedKeyCryptogram generation. Next call ImportKey with KeyMaterial set to KEY_CRYPTOGRAM and provide the ImportToken and KeyAttributes for the key under import. To import working keys using TR-31 Amazon Web Services Payment Cryptography uses TR-31 symmetric key exchange norm to import working keys. A KEK must be established within Amazon Web Services Payment Cryptography by using TR-34 key import or by using CreateKey. To initiate a TR-31 key import, set the following parameters: KeyMaterial: Use Tr31KeyBlock parameters. WrappedKeyBlock: The TR-31 wrapped key material. It contains the key under import, encrypted using KEK. The TR-31 key block is typically generated by a HSM outside of Amazon Web Services Payment Cryptography. WrappingKeyIdentifier: The KeyArn of the KEK that Amazon Web Services Payment Cryptography uses to decrypt or unwrap the key under import. To import working keys using ECDH You can also use ECDH key agreement to import working keys as a TR-31 keyblock, where the wrapping key is an ECDH derived key. To initiate a TR-31 key import using ECDH, both sides must create an ECC key pair with key usage K3 and exchange public key certificates. In Amazon Web Services Payment Cryptography, you can do this by calling CreateKey and then GetPublicKeyCertificate to retrieve its public key certificate. Next, you can then generate a TR-31 WrappedKeyBlock using your own ECC key pair, the public certificate of the service's ECC key pair, and the key derivation parameters including key derivation function, hash algorithm, derivation data, and key algorithm. If you have not already done so, you must import the CA chain that issued the receiving public key certificate by calling ImportKey with input RootCertificatePublicKey for root CA or TrustedPublicKey for intermediate CA. To complete the TR-31 key import, you can use the following parameters. It is important that the ECDH key derivation parameters you use should match those used during import to derive the same shared wrapping key within Amazon Web Services Payment Cryptography. KeyMaterial: Use DiffieHellmanTr31KeyBlock parameters. PrivateKeyIdentifier: The KeyArn of the ECC key pair created within Amazon Web Services Payment Cryptography to derive a shared KEK. PublicKeyCertificate: The public key certificate of the receiving ECC key pair in PEM format (base64 encoded) to derive a shared KEK. CertificateAuthorityPublicKeyIdentifier: The keyARN of the CA that signed the public key certificate of the receiving ECC key pair. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: ExportKey GetParametersForImport"]
module ImportKeyInput =
  struct
    type nonrec t =
      {
      keyMaterial: ImportKeyMaterial.t
        [@ocaml.doc
          "The key or public key certificate type to use during key material import, for example TR-34 or RootCertificatePublicKey."];
      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."];
      enabled: Boolean.t option
        [@ocaml.doc "Specifies whether import key is enabled."];
      tags: Tags.t option
        [@ocaml.doc
          "Assigns one or more tags to the Amazon Web Services Payment Cryptography key. Use this parameter to tag a key when it is imported. To tag an existing Amazon Web Services Payment Cryptography key, use the TagResource operation. Each tag consists of a tag key and a tag value. Both the tag key and the tag value are required, but the tag value can be an empty (null) string. You can't have more than one tag on an Amazon Web Services Payment Cryptography key with the same tag key. If you specify an existing tag key with a different tag value, Amazon Web Services Payment Cryptography replaces the current tag value with the specified one. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output. Tagging or untagging an Amazon Web Services Payment Cryptography key can allow or deny permission to the key."];
      replicationRegions: Regions.t option ;
      requesterComment: MpaRequesterComment.t option
        [@ocaml.doc
          "The comment from the requester explaining the reason for the import. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."]}
    let context_ = "ImportKeyInput"
    let make ?keyCheckValueAlgorithm =
      fun ?enabled ->
        fun ?tags ->
          fun ?replicationRegions ->
            fun ?requesterComment ->
              fun ~keyMaterial ->
                fun () ->
                  {
                    keyCheckValueAlgorithm;
                    enabled;
                    tags;
                    replicationRegions;
                    requesterComment;
                    keyMaterial
                  }
    let to_value x =
      structure_to_value
        [("KeyMaterial", (Some (ImportKeyMaterial.to_value x.keyMaterial)));
        ("KeyCheckValueAlgorithm",
          (Option.map x.keyCheckValueAlgorithm
             ~f:KeyCheckValueAlgorithm.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("ReplicationRegions",
          (Option.map x.replicationRegions ~f:Regions.to_value));
        ("RequesterComment",
          (Option.map x.requesterComment ~f:MpaRequesterComment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requesterComment =
        (Option.map ~f:MpaRequesterComment.of_xml)
          (Xml.child xml_arg0 "RequesterComment") in
      let replicationRegions =
        (Option.map ~f:Regions.of_xml)
          (Xml.child xml_arg0 "ReplicationRegions") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let keyCheckValueAlgorithm =
        (Option.map ~f:KeyCheckValueAlgorithm.of_xml)
          (Xml.child xml_arg0 "KeyCheckValueAlgorithm") in
      let keyMaterial =
        ImportKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyMaterial") in
      make ?requesterComment ?replicationRegions ?tags ?enabled
        ?keyCheckValueAlgorithm ~keyMaterial ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requesterComment =
        field_map json__ "RequesterComment" MpaRequesterComment.of_json in
      let replicationRegions =
        field_map json__ "ReplicationRegions" Regions.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let keyCheckValueAlgorithm =
        field_map json__ "KeyCheckValueAlgorithm"
          KeyCheckValueAlgorithm.of_json in
      let keyMaterial =
        field_map_exn json__ "KeyMaterial" ImportKeyMaterial.of_json in
      make ?requesterComment ?replicationRegions ?tags ?enabled
        ?keyCheckValueAlgorithm ~keyMaterial ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports symmetric keys and public key certificates in PEM format (base64 encoded) into Amazon Web Services Payment Cryptography. Amazon Web Services Payment Cryptography simplifies key exchange by replacing the existing paper-based approach with a modern electronic approach. With ImportKey you can import symmetric keys using either symmetric and asymmetric key exchange mechanisms. For symmetric key exchange, Amazon Web Services Payment Cryptography uses the ANSI X9 TR-31 norm in accordance with PCI PIN guidelines. And for asymmetric key exchange, Amazon Web Services Payment Cryptography supports ANSI X9 TR-34 norm, RSA unwrap, and ECDH (Elliptic Curve Diffie-Hellman) key exchange mechanisms. Asymmetric key exchange methods are typically used to establish bi-directional trust between the two parties exhanging keys and are used for initial key exchange such as Key Encryption Key (KEK) or Zone Master Key (ZMK). After which you can import working keys using symmetric method to perform various cryptographic operations within Amazon Web Services Payment Cryptography. PCI requires specific minimum key strength of wrapping keys used to protect the keys being exchanged electronically. These requirements can change when PCI standards are revised. The rules specify that wrapping keys used for transport must be at least as strong as the key being protected. For more information on recommended key strength of wrapping keys and key exchange mechanism, see Importing and exporting keys in the Amazon Web Services Payment Cryptography User Guide. You can also import a root public key certificate, used to sign other public key certificates, or a trusted public key certificate under an already established root public key certificate. To import a public root key certificate Using this operation, you can import the public component (in PEM cerificate format) of your private root key. You can use the imported public root key certificate for digital signatures, for example signing wrapping key or signing key in TR-34, within your Amazon Web Services Payment Cryptography account. Set the following parameters: KeyMaterial: RootCertificatePublicKey KeyClass: PUBLIC_KEY KeyModesOfUse: Verify KeyUsage: TR31_S0_ASYMMETRIC_KEY_FOR_DIGITAL_SIGNATURE PublicKeyCertificate: The public key certificate in PEM format (base64 encoded) of the private root key under import. To import a trusted public key certificate The root public key certificate must be in place and operational before you import a trusted public key certificate. Set the following parameters: KeyMaterial: TrustedCertificatePublicKey CertificateAuthorityPublicKeyIdentifier: KeyArn of the RootCertificatePublicKey. KeyModesOfUse and KeyUsage: Corresponding to the cryptographic operations such as wrap, sign, or encrypt that you will allow the trusted public key certificate to perform. PublicKeyCertificate: The trusted public key certificate in PEM format (base64 encoded) under import. To import initial keys (KEK or ZMK or similar) using TR-34 Using this operation, you can import initial key using TR-34 asymmetric key exchange. In TR-34 terminology, the sending party of the key is called Key Distribution Host (KDH) and the receiving party of the key is called Key Receiving Device (KRD). During the key import process, KDH is the user who initiates the key import and KRD is Amazon Web Services Payment Cryptography who receives the key. To initiate TR-34 key import, the KDH must obtain an import token by calling GetParametersForImport. This operation generates an encryption keypair for the purpose of key import, signs the key and returns back the wrapping key certificate (also known as KRD wrapping certificate) and the root certificate chain. The KDH must trust and install the KRD wrapping certificate on its HSM and use it to encrypt (wrap) the KDH key during TR-34 WrappedKeyBlock generation. The import token and associated KRD wrapping certificate expires after 30 days. Next the KDH generates a key pair for the purpose of signing the encrypted KDH key and provides the public certificate of the signing key to Amazon Web Services Payment Cryptography. The KDH will also need to import the root certificate chain of the KDH signing certificate by calling ImportKey for RootCertificatePublicKey. For more information on TR-34 key import, see section Importing symmetric keys in the Amazon Web Services Payment Cryptography User Guide. Set the following parameters: KeyMaterial: Use Tr34KeyBlock parameters. CertificateAuthorityPublicKeyIdentifier: The KeyARN of the certificate chain that signed the KDH signing key certificate. ImportToken: Obtained from KRD by calling GetParametersForImport. WrappedKeyBlock: The TR-34 wrapped key material from KDH. It contains the KDH key under import, wrapped with KRD wrapping certificate and signed by KDH signing private key. This TR-34 key block is typically generated by the KDH Hardware Security Module (HSM) outside of Amazon Web Services Payment Cryptography. SigningKeyCertificate: The public key certificate in PEM format (base64 encoded) of the KDH signing key generated under the root certificate (CertificateAuthorityPublicKeyIdentifier) imported in Amazon Web Services Payment Cryptography. To import initial keys (KEK or ZMK or similar) using RSA Wrap and Unwrap Using this operation, you can import initial key using asymmetric RSA wrap and unwrap key exchange method. To initiate import, call GetParametersForImport with KeyMaterial set to KEY_CRYPTOGRAM to generate an import token. This operation also generates an encryption keypair for the purpose of key import, signs the key and returns back the wrapping key certificate in PEM format (base64 encoded) and its root certificate chain. The import token and associated KRD wrapping certificate expires after 30 days. You must trust and install the wrapping certificate and its certificate chain on the sending HSM and use it to wrap the key under export for WrappedKeyCryptogram generation. Next call ImportKey with KeyMaterial set to KEY_CRYPTOGRAM and provide the ImportToken and KeyAttributes for the key under import. To import working keys using TR-31 Amazon Web Services Payment Cryptography uses TR-31 symmetric key exchange norm to import working keys. A KEK must be established within Amazon Web Services Payment Cryptography by using TR-34 key import or by using CreateKey. To initiate a TR-31 key import, set the following parameters: KeyMaterial: Use Tr31KeyBlock parameters. WrappedKeyBlock: The TR-31 wrapped key material. It contains the key under import, encrypted using KEK. The TR-31 key block is typically generated by a HSM outside of Amazon Web Services Payment Cryptography. WrappingKeyIdentifier: The KeyArn of the KEK that Amazon Web Services Payment Cryptography uses to decrypt or unwrap the key under import. To import working keys using ECDH You can also use ECDH key agreement to import working keys as a TR-31 keyblock, where the wrapping key is an ECDH derived key. To initiate a TR-31 key import using ECDH, both sides must create an ECC key pair with key usage K3 and exchange public key certificates. In Amazon Web Services Payment Cryptography, you can do this by calling CreateKey and then GetPublicKeyCertificate to retrieve its public key certificate. Next, you can then generate a TR-31 WrappedKeyBlock using your own ECC key pair, the public certificate of the service's ECC key pair, and the key derivation parameters including key derivation function, hash algorithm, derivation data, and key algorithm. If you have not already done so, you must import the CA chain that issued the receiving public key certificate by calling ImportKey with input RootCertificatePublicKey for root CA or TrustedPublicKey for intermediate CA. To complete the TR-31 key import, you can use the following parameters. It is important that the ECDH key derivation parameters you use should match those used during import to derive the same shared wrapping key within Amazon Web Services Payment Cryptography. KeyMaterial: Use DiffieHellmanTr31KeyBlock parameters. PrivateKeyIdentifier: The KeyArn of the ECC key pair created within Amazon Web Services Payment Cryptography to derive a shared KEK. PublicKeyCertificate: The public key certificate of the receiving ECC key pair in PEM format (base64 encoded) to derive a shared KEK. CertificateAuthorityPublicKeyIdentifier: The keyARN of the CA that signed the public key certificate of the receiving ECC key pair. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: ExportKey GetParametersForImport"]
module GetResourcePolicyOutput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t option [@ocaml.doc "The KeyARN of the key."];
      policy: ResourcePolicy.t option
        [@ocaml.doc
          "The resource-based policy attached to the key, in JSON format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn = fun ?policy -> fun () -> { resourceArn; policy }
    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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("Policy", (Option.map x.policy ~f:ResourcePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:ResourcePolicy.of_xml) (Xml.child xml_arg0 "Policy") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?policy ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" ResourcePolicy.of_json in
      let resourceArn = field_map json__ "ResourceArn" ResourceArn.of_json in
      make ?policy ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resource-based policy attached to an Amazon Web Services Payment Cryptography key. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: PutResourcePolicy DeleteResourcePolicy"]
module GetResourcePolicyInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The KeyARN of the key whose resource-based policy you want to retrieve."]}
    let context_ = "GetResourcePolicyInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resource-based policy attached to an Amazon Web Services Payment Cryptography key. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: PutResourcePolicy DeleteResourcePolicy"]
module GetPublicKeyCertificateOutput =
  struct
    type nonrec t =
      {
      keyCertificate: CertificateType.t option
        [@ocaml.doc
          "The public key component of the asymmetric key pair in a certificate PEM format (base64 encoded). It is signed by the root certificate authority (CA). The certificate is valid for 90 days from the time it is issued. The service returns a cached certificate if one exists with at least 30 days of remaining validity. Otherwise, a new 90-day certificate is issued."];
      keyCertificateChain: CertificateType.t option
        [@ocaml.doc
          "The root certificate authority (CA) that signed the public key certificate in PEM format (base64 encoded) of the asymmetric key pair."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keyCertificate =
      fun ?keyCertificateChain ->
        fun () -> { keyCertificate; keyCertificateChain }
    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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("KeyCertificate",
           (Option.map x.keyCertificate ~f:CertificateType.to_value));
        ("KeyCertificateChain",
          (Option.map x.keyCertificateChain ~f:CertificateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyCertificateChain =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "KeyCertificateChain") in
      let keyCertificate =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "KeyCertificate") in
      make ?keyCertificateChain ?keyCertificate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyCertificateChain =
        field_map json__ "KeyCertificateChain" CertificateType.of_json in
      let keyCertificate =
        field_map json__ "KeyCertificate" CertificateType.of_json in
      make ?keyCertificateChain ?keyCertificate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the public key certificate of the asymmetric key pair that exists within Amazon Web Services Payment Cryptography. Unlike the private key of an asymmetric key, which never leaves Amazon Web Services Payment Cryptography unencrypted, callers with GetPublicKeyCertificate permission can download the public key certificate of the asymmetric key. You can share the public key certificate to allow others to encrypt messages and verify signatures outside of Amazon Web Services Payment Cryptography Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies."]
module GetPublicKeyCertificateInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The KeyARN of the asymmetric key pair."]}
    let context_ = "GetPublicKeyCertificateInput"
    let make ~keyIdentifier = fun () -> { keyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the public key certificate of the asymmetric key pair that exists within Amazon Web Services Payment Cryptography. Unlike the private key of an asymmetric key, which never leaves Amazon Web Services Payment Cryptography unencrypted, callers with GetPublicKeyCertificate permission can download the public key certificate of the asymmetric key. You can share the public key certificate to allow others to encrypt messages and verify signatures outside of Amazon Web Services Payment Cryptography Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies."]
module GetParametersForImportOutput =
  struct
    type nonrec t =
      {
      wrappingKeyCertificate: CertificateType.t option
        [@ocaml.doc
          "The wrapping key certificate in PEM format (base64 encoded) of the wrapping key for use within the TR-34 key block. The certificate expires in 30 days."];
      wrappingKeyCertificateChain: CertificateType.t option
        [@ocaml.doc
          "The Amazon Web Services Payment Cryptography root certificate authority (CA) that signed the wrapping key certificate in PEM format (base64 encoded)."];
      wrappingKeyAlgorithm: KeyAlgorithm.t option
        [@ocaml.doc
          "The algorithm of the wrapping key for use within TR-34 WrappedKeyBlock or RSA WrappedKeyCryptogram."];
      importToken: ImportTokenId.t option
        [@ocaml.doc
          "The import token to initiate key import into Amazon Web Services Payment Cryptography. The import token expires after 30 days. You can use the same import token to import multiple keys to the same service account."];
      parametersValidUntilTimestamp: Timestamp.t option
        [@ocaml.doc "The validity period of the import token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?wrappingKeyCertificate =
      fun ?wrappingKeyCertificateChain ->
        fun ?wrappingKeyAlgorithm ->
          fun ?importToken ->
            fun ?parametersValidUntilTimestamp ->
              fun () ->
                {
                  wrappingKeyCertificate;
                  wrappingKeyCertificateChain;
                  wrappingKeyAlgorithm;
                  importToken;
                  parametersValidUntilTimestamp
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("WrappingKeyCertificate",
           (Option.map x.wrappingKeyCertificate ~f:CertificateType.to_value));
        ("WrappingKeyCertificateChain",
          (Option.map x.wrappingKeyCertificateChain
             ~f:CertificateType.to_value));
        ("WrappingKeyAlgorithm",
          (Option.map x.wrappingKeyAlgorithm ~f:KeyAlgorithm.to_value));
        ("ImportToken", (Option.map x.importToken ~f:ImportTokenId.to_value));
        ("ParametersValidUntilTimestamp",
          (Option.map x.parametersValidUntilTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parametersValidUntilTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ParametersValidUntilTimestamp") in
      let importToken =
        (Option.map ~f:ImportTokenId.of_xml)
          (Xml.child xml_arg0 "ImportToken") in
      let wrappingKeyAlgorithm =
        (Option.map ~f:KeyAlgorithm.of_xml)
          (Xml.child xml_arg0 "WrappingKeyAlgorithm") in
      let wrappingKeyCertificateChain =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "WrappingKeyCertificateChain") in
      let wrappingKeyCertificate =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "WrappingKeyCertificate") in
      make ?parametersValidUntilTimestamp ?importToken ?wrappingKeyAlgorithm
        ?wrappingKeyCertificateChain ?wrappingKeyCertificate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parametersValidUntilTimestamp =
        field_map json__ "ParametersValidUntilTimestamp" Timestamp.of_json in
      let importToken = field_map json__ "ImportToken" ImportTokenId.of_json in
      let wrappingKeyAlgorithm =
        field_map json__ "WrappingKeyAlgorithm" KeyAlgorithm.of_json in
      let wrappingKeyCertificateChain =
        field_map json__ "WrappingKeyCertificateChain"
          CertificateType.of_json in
      let wrappingKeyCertificate =
        field_map json__ "WrappingKeyCertificate" CertificateType.of_json in
      make ?parametersValidUntilTimestamp ?importToken ?wrappingKeyAlgorithm
        ?wrappingKeyCertificateChain ?wrappingKeyCertificate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the import token and the wrapping key certificate in PEM format (base64 encoded) to initiate a TR-34 WrappedKeyBlock or a RSA WrappedKeyCryptogram import into Amazon Web Services Payment Cryptography. The wrapping key certificate wraps the key under import. The import token and wrapping key certificate must be in place and operational before calling ImportKey. The import token expires in 30 days. You can use the same import token to import multiple keys into your service account. To return a previously generated import token and wrapping key certificate instead of generating new ones, set ReuseLastGeneratedToken to true. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GetParametersForExport ImportKey"]
module GetParametersForImportInput =
  struct
    type nonrec t =
      {
      keyMaterialType: KeyMaterialType.t
        [@ocaml.doc
          "The method to use for key material import. Import token is only required for TR-34 WrappedKeyBlock (TR34_KEY_BLOCK) and RSA WrappedKeyCryptogram (KEY_CRYPTOGRAM). Import token is not required for TR-31, root public key cerificate or trusted public key certificate."];
      wrappingKeyAlgorithm: KeyAlgorithm.t
        [@ocaml.doc
          "The wrapping key algorithm to generate a wrapping key certificate. This certificate wraps the key under import. At this time, RSA_2048 is the allowed algorithm for TR-34 WrappedKeyBlock import. Additionally, RSA_2048, RSA_3072, RSA_4096 are the allowed algorithms for RSA WrappedKeyCryptogram import."];
      reuseLastGeneratedToken: Boolean.t option
        [@ocaml.doc
          "Specifies whether to reuse the existing import token and wrapping key certificate. If set to true and a valid import token exists for the same key material type and wrapping key algorithm with at least 7 days of remaining validity, the existing token and wrapping key certificate are returned. Otherwise, a new import token and wrapping key certificate are generated. The default value is false, which generates a new import token and wrapping key certificate on every call."]}
    let context_ = "GetParametersForImportInput"
    let make ?reuseLastGeneratedToken =
      fun ~keyMaterialType ->
        fun ~wrappingKeyAlgorithm ->
          fun () ->
            { reuseLastGeneratedToken; keyMaterialType; wrappingKeyAlgorithm
            }
    let to_value x =
      structure_to_value
        [("KeyMaterialType",
           (Some (KeyMaterialType.to_value x.keyMaterialType)));
        ("WrappingKeyAlgorithm",
          (Some (KeyAlgorithm.to_value x.wrappingKeyAlgorithm)));
        ("ReuseLastGeneratedToken",
          (Option.map x.reuseLastGeneratedToken ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reuseLastGeneratedToken =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ReuseLastGeneratedToken") in
      let wrappingKeyAlgorithm =
        KeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WrappingKeyAlgorithm") in
      let keyMaterialType =
        KeyMaterialType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyMaterialType") in
      make ?reuseLastGeneratedToken ~wrappingKeyAlgorithm ~keyMaterialType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reuseLastGeneratedToken =
        field_map json__ "ReuseLastGeneratedToken" Boolean.of_json in
      let wrappingKeyAlgorithm =
        field_map_exn json__ "WrappingKeyAlgorithm" KeyAlgorithm.of_json in
      let keyMaterialType =
        field_map_exn json__ "KeyMaterialType" KeyMaterialType.of_json in
      make ?reuseLastGeneratedToken ~wrappingKeyAlgorithm ~keyMaterialType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the import token and the wrapping key certificate in PEM format (base64 encoded) to initiate a TR-34 WrappedKeyBlock or a RSA WrappedKeyCryptogram import into Amazon Web Services Payment Cryptography. The wrapping key certificate wraps the key under import. The import token and wrapping key certificate must be in place and operational before calling ImportKey. The import token expires in 30 days. You can use the same import token to import multiple keys into your service account. To return a previously generated import token and wrapping key certificate instead of generating new ones, set ReuseLastGeneratedToken to true. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: GetParametersForExport ImportKey"]
module GetParametersForExportOutput =
  struct
    type nonrec t =
      {
      signingKeyCertificate: CertificateType.t option
        [@ocaml.doc
          "The signing key certificate in PEM format (base64 encoded) of the public key for signature within the TR-34 key block. The certificate expires after 30 days."];
      signingKeyCertificateChain: CertificateType.t option
        [@ocaml.doc
          "The root certificate authority (CA) that signed the signing key certificate in PEM format (base64 encoded)."];
      signingKeyAlgorithm: KeyAlgorithm.t option
        [@ocaml.doc
          "The algorithm of the signing key certificate for use in TR-34 key block generation. RSA_2048 is the only signing key algorithm allowed."];
      exportToken: ExportTokenId.t option
        [@ocaml.doc
          "The export token to initiate key export from Amazon Web Services Payment Cryptography. The export token expires after 30 days. You can use the same export token to export multiple keys from the same service account."];
      parametersValidUntilTimestamp: Timestamp.t option
        [@ocaml.doc "The validity period of the export token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?signingKeyCertificate =
      fun ?signingKeyCertificateChain ->
        fun ?signingKeyAlgorithm ->
          fun ?exportToken ->
            fun ?parametersValidUntilTimestamp ->
              fun () ->
                {
                  signingKeyCertificate;
                  signingKeyCertificateChain;
                  signingKeyAlgorithm;
                  exportToken;
                  parametersValidUntilTimestamp
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("SigningKeyCertificate",
           (Option.map x.signingKeyCertificate ~f:CertificateType.to_value));
        ("SigningKeyCertificateChain",
          (Option.map x.signingKeyCertificateChain
             ~f:CertificateType.to_value));
        ("SigningKeyAlgorithm",
          (Option.map x.signingKeyAlgorithm ~f:KeyAlgorithm.to_value));
        ("ExportToken", (Option.map x.exportToken ~f:ExportTokenId.to_value));
        ("ParametersValidUntilTimestamp",
          (Option.map x.parametersValidUntilTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parametersValidUntilTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ParametersValidUntilTimestamp") in
      let exportToken =
        (Option.map ~f:ExportTokenId.of_xml)
          (Xml.child xml_arg0 "ExportToken") in
      let signingKeyAlgorithm =
        (Option.map ~f:KeyAlgorithm.of_xml)
          (Xml.child xml_arg0 "SigningKeyAlgorithm") in
      let signingKeyCertificateChain =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "SigningKeyCertificateChain") in
      let signingKeyCertificate =
        (Option.map ~f:CertificateType.of_xml)
          (Xml.child xml_arg0 "SigningKeyCertificate") in
      make ?parametersValidUntilTimestamp ?exportToken ?signingKeyAlgorithm
        ?signingKeyCertificateChain ?signingKeyCertificate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parametersValidUntilTimestamp =
        field_map json__ "ParametersValidUntilTimestamp" Timestamp.of_json in
      let exportToken = field_map json__ "ExportToken" ExportTokenId.of_json in
      let signingKeyAlgorithm =
        field_map json__ "SigningKeyAlgorithm" KeyAlgorithm.of_json in
      let signingKeyCertificateChain =
        field_map json__ "SigningKeyCertificateChain" CertificateType.of_json in
      let signingKeyCertificate =
        field_map json__ "SigningKeyCertificate" CertificateType.of_json in
      make ?parametersValidUntilTimestamp ?exportToken ?signingKeyAlgorithm
        ?signingKeyCertificateChain ?signingKeyCertificate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the export token and the signing key certificate to initiate a TR-34 key export from Amazon Web Services Payment Cryptography. The signing key certificate signs the wrapped key under export within the TR-34 key payload. The export token and signing key certificate must be in place and operational before calling ExportKey. The export token expires in 30 days. You can use the same export token to export multiple keys from your service account. To return a previously generated export token and signing key certificate instead of generating new ones, set ReuseLastGeneratedToken to true. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: ExportKey GetParametersForImport"]
module GetParametersForExportInput =
  struct
    type nonrec t =
      {
      keyMaterialType: KeyMaterialType.t
        [@ocaml.doc
          "The key block format type (for example, TR-34 or TR-31) to use during key material export. Export token is only required for a TR-34 key export, TR34_KEY_BLOCK. Export token is not required for TR-31 key export."];
      signingKeyAlgorithm: KeyAlgorithm.t
        [@ocaml.doc
          "The signing key algorithm to generate a signing key certificate. This certificate signs the wrapped key under export within the TR-34 key block. RSA_2048 is the only signing key algorithm allowed."];
      reuseLastGeneratedToken: Boolean.t option
        [@ocaml.doc
          "Specifies whether to reuse the existing export token and signing key certificate. If set to true and a valid export token exists for the same key material type and signing key algorithm with at least 7 days of remaining validity, the existing token and signing key certificate are returned. Otherwise, a new export token and signing key certificate are generated. The default value is false, which generates a new export token and signing key certificate on every call."]}
    let context_ = "GetParametersForExportInput"
    let make ?reuseLastGeneratedToken =
      fun ~keyMaterialType ->
        fun ~signingKeyAlgorithm ->
          fun () ->
            { reuseLastGeneratedToken; keyMaterialType; signingKeyAlgorithm }
    let to_value x =
      structure_to_value
        [("KeyMaterialType",
           (Some (KeyMaterialType.to_value x.keyMaterialType)));
        ("SigningKeyAlgorithm",
          (Some (KeyAlgorithm.to_value x.signingKeyAlgorithm)));
        ("ReuseLastGeneratedToken",
          (Option.map x.reuseLastGeneratedToken ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reuseLastGeneratedToken =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ReuseLastGeneratedToken") in
      let signingKeyAlgorithm =
        KeyAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SigningKeyAlgorithm") in
      let keyMaterialType =
        KeyMaterialType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyMaterialType") in
      make ?reuseLastGeneratedToken ~signingKeyAlgorithm ~keyMaterialType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reuseLastGeneratedToken =
        field_map json__ "ReuseLastGeneratedToken" Boolean.of_json in
      let signingKeyAlgorithm =
        field_map_exn json__ "SigningKeyAlgorithm" KeyAlgorithm.of_json in
      let keyMaterialType =
        field_map_exn json__ "KeyMaterialType" KeyMaterialType.of_json in
      make ?reuseLastGeneratedToken ~signingKeyAlgorithm ~keyMaterialType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the export token and the signing key certificate to initiate a TR-34 key export from Amazon Web Services Payment Cryptography. The signing key certificate signs the wrapped key under export within the TR-34 key payload. The export token and signing key certificate must be in place and operational before calling ExportKey. The export token expires in 30 days. You can use the same export token to export multiple keys from your service account. To return a previously generated export token and signing key certificate instead of generating new ones, set ReuseLastGeneratedToken to true. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: ExportKey GetParametersForImport"]
module GetMpaTeamAssociationOutput =
  struct
    type nonrec t =
      {
      mpaTeamAssociation: MpaTeamAssociation.t option
        [@ocaml.doc "The details of the MPA team association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mpaTeamAssociation = fun () -> { mpaTeamAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("MpaTeamAssociation",
           (Option.map x.mpaTeamAssociation ~f:MpaTeamAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mpaTeamAssociation =
        (Option.map ~f:MpaTeamAssociation.of_xml)
          (Xml.child xml_arg0 "MpaTeamAssociation") in
      make ?mpaTeamAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mpaTeamAssociation =
        field_map json__ "MpaTeamAssociation" MpaTeamAssociation.of_json in
      make ?mpaTeamAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the Multi-Party Approval (MPA) team association for a protected operation. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: AssociateMpaTeam DisassociateMpaTeam"]
module GetMpaTeamAssociationInput =
  struct
    type nonrec t =
      {
      action: MpaOperation.t
        [@ocaml.doc
          "The protected operation whose MPA team association you want to retrieve. Currently, the only supported value is IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE."]}
    let context_ = "GetMpaTeamAssociationInput"
    let make ~action = fun () -> { action }
    let to_value x =
      structure_to_value
        [("Action", (Some (MpaOperation.to_value x.action)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        MpaOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      make ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map_exn json__ "Action" MpaOperation.of_json in
      make ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the Multi-Party Approval (MPA) team association for a protected operation. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: AssociateMpaTeam DisassociateMpaTeam"]
module GetKeyOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc
          "Contains the key metadata, including both immutable and mutable attributes for the key, but does not include actual cryptographic key material."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the key metadata for an Amazon Web Services Payment Cryptography key, including the immutable and mutable attributes specified when the key was created. Returns key metadata including attributes, state, and timestamps, but does not return the actual cryptographic key material. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: CreateKey DeleteKey ListKeys"]
module GetKeyInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the Amazon Web Services Payment Cryptography key."]}
    let context_ = "GetKeyInput"
    let make ~keyIdentifier = fun () -> { keyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the key metadata for an Amazon Web Services Payment Cryptography key, including the immutable and mutable attributes specified when the key was created. Returns key metadata including attributes, state, and timestamps, but does not return the actual cryptographic key material. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: CreateKey DeleteKey ListKeys"]
module GetDefaultKeyReplicationRegionsOutput =
  struct
    type nonrec t =
      {
      enabledReplicationRegions: Regions.t option
        [@ocaml.doc
          "The list of regions where default key replication is currently enabled for the account. New keys created in this account will automatically be replicated to these regions unless explicitly configured otherwise during key creation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledReplicationRegions =
      fun () -> { enabledReplicationRegions }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("EnabledReplicationRegions",
           (Option.map x.enabledReplicationRegions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledReplicationRegions =
        (Option.map ~f:Regions.of_xml)
          (Xml.child xml_arg0 "EnabledReplicationRegions") in
      make ?enabledReplicationRegions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledReplicationRegions =
        field_map json__ "EnabledReplicationRegions" Regions.of_json in
      make ?enabledReplicationRegions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the account's current default key replication configuration."]
module GetDefaultKeyReplicationRegionsInput =
  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
       "Input parameters for retrieving the account's default key replication regions. This operation requires no input parameters."]
module GetCertificateSigningRequestOutput =
  struct
    type nonrec t =
      {
      certificateSigningRequest: CertificateSigningRequestType.t option
        [@ocaml.doc
          "The certificate signing request generated using the key pair associated with the key identifier."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?certificateSigningRequest =
      fun () -> { certificateSigningRequest }
    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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("CertificateSigningRequest",
           (Option.map x.certificateSigningRequest
              ~f:CertificateSigningRequestType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateSigningRequest =
        (Option.map ~f:CertificateSigningRequestType.of_xml)
          (Xml.child xml_arg0 "CertificateSigningRequest") in
      make ?certificateSigningRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateSigningRequest =
        field_map json__ "CertificateSigningRequest"
          CertificateSigningRequestType.of_json in
      make ?certificateSigningRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a certificate signing request (CSR) from a key pair."]
module GetCertificateSigningRequestInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "Asymmetric key used for generating the certificate signing request"];
      signingAlgorithm: SigningAlgorithmType.t
        [@ocaml.doc "The cryptographic algorithm used to sign your CSR."];
      certificateSubject: CertificateSubjectType.t
        [@ocaml.doc "The metadata used to create the CSR."]}
    let context_ = "GetCertificateSigningRequestInput"
    let make ~keyIdentifier =
      fun ~signingAlgorithm ->
        fun ~certificateSubject ->
          fun () -> { keyIdentifier; signingAlgorithm; certificateSubject }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("SigningAlgorithm",
          (Some (SigningAlgorithmType.to_value x.signingAlgorithm)));
        ("CertificateSubject",
          (Some (CertificateSubjectType.to_value x.certificateSubject)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateSubject =
        CertificateSubjectType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CertificateSubject") in
      let signingAlgorithm =
        SigningAlgorithmType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SigningAlgorithm") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~certificateSubject ~signingAlgorithm ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateSubject =
        field_map_exn json__ "CertificateSubject"
          CertificateSubjectType.of_json in
      let signingAlgorithm =
        field_map_exn json__ "SigningAlgorithm" SigningAlgorithmType.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~certificateSubject ~signingAlgorithm ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a certificate signing request (CSR) from a key pair."]
module GetAliasOutput =
  struct
    type nonrec t =
      {
      alias: Alias.t option
        [@ocaml.doc
          "The alias of the Amazon Web Services Payment Cryptography key."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?alias = fun () -> { alias }
    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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.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))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Alias", (Option.map x.alias ~f:Alias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      make ?alias ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "Alias" Alias.of_json in make ?alias ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the Amazon Web Services Payment Cryptography key associated with the alias. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias DeleteAlias ListAliases UpdateAlias"]
module GetAliasInput =
  struct
    type nonrec t =
      {
      aliasName: AliasName.t
        [@ocaml.doc
          "The alias of the Amazon Web Services Payment Cryptography key."]}
    let context_ = "GetAliasInput"
    let make ~aliasName = fun () -> { aliasName }
    let to_value x =
      structure_to_value
        [("AliasName", (Some (AliasName.to_value x.aliasName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aliasName =
        AliasName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasName") in
      make ~aliasName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aliasName = field_map_exn json__ "AliasName" AliasName.of_json in
      make ~aliasName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the Amazon Web Services Payment Cryptography key associated with the alias. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias DeleteAlias ListAliases UpdateAlias"]
module ExportKeyOutput =
  struct
    type nonrec t =
      {
      wrappedKey: WrappedKey.t option
        [@ocaml.doc
          "The key material under export as a TR-34 WrappedKeyBlock or a TR-31 WrappedKeyBlock. or a RSA WrappedKeyCryptogram."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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: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
      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" WrappedKey.of_json in
      make ?wrappedKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exports a key from Amazon Web Services Payment Cryptography. Amazon Web Services Payment Cryptography simplifies key exchange by replacing the existing paper-based approach with a modern electronic approach. With ExportKey you can export symmetric keys using either symmetric and asymmetric key exchange mechanisms. Using this operation, you can share your Amazon Web Services Payment Cryptography generated keys with other service partners to perform cryptographic operations outside of Amazon Web Services Payment Cryptography For symmetric key exchange, Amazon Web Services Payment Cryptography uses the ANSI X9 TR-31 norm in accordance with PCI PIN guidelines. And for asymmetric key exchange, Amazon Web Services Payment Cryptography supports ANSI X9 TR-34 norm, RSA unwrap, and ECDH (Elliptic Curve Diffie-Hellman) key exchange mechanisms. Asymmetric key exchange methods are typically used to establish bi-directional trust between the two parties exhanging keys and are used for initial key exchange such as Key Encryption Key (KEK). After which you can export working keys using symmetric method to perform various cryptographic operations within Amazon Web Services Payment Cryptography. PCI requires specific minimum key strength of wrapping keys used to protect the keys being exchanged electronically. These requirements can change when PCI standards are revised. The rules specify that wrapping keys used for transport must be at least as strong as the key being protected. For more information on recommended key strength of wrapping keys and key exchange mechanism, see Importing and exporting keys in the Amazon Web Services Payment Cryptography User Guide. You can also use ExportKey functionality to generate and export an IPEK (Initial Pin Encryption Key) from Amazon Web Services Payment Cryptography using either TR-31 or TR-34 export key exchange. IPEK is generated from BDK (Base Derivation Key) and ExportDukptInitialKey attribute KSN (KeySerialNumber). The generated IPEK does not persist within Amazon Web Services Payment Cryptography and has to be re-generated each time during export. For key exchange using TR-31 or TR-34 key blocks, you can also export optional blocks within the key block header which contain additional attribute information about the key. The KeyVersion within KeyBlockHeaders indicates the version of the key within the key block. Furthermore, KeyExportability within KeyBlockHeaders can be used to further restrict exportability of the key after export from Amazon Web Services Payment Cryptography. The OptionalBlocks contain the additional data related to the key. For information on data type that can be included within optional blocks, refer to ASC X9.143-2022. Data included in key block headers is signed but transmitted in clear text. Sensitive or confidential information should not be included in optional blocks. Refer to ASC X9.143-2022 standard for information on allowed data type. To export initial keys (KEK) or IPEK using TR-34 Using this operation, you can export initial key using TR-34 asymmetric key exchange. You can only export KEK generated within Amazon Web Services Payment Cryptography. In TR-34 terminology, the sending party of the key is called Key Distribution Host (KDH) and the receiving party of the key is called Key Receiving Device (KRD). During key export process, KDH is Amazon Web Services Payment Cryptography which initiates key export and KRD is the user receiving the key. To initiate TR-34 key export, the KRD must obtain an export token by calling GetParametersForExport. This operation also generates a key pair for the purpose of key export, signs the key and returns back the signing public key certificate (also known as KDH signing certificate) and root certificate chain. The KDH uses the private key to sign the the export payload and the signing public key certificate is provided to KRD to verify the signature. The KRD can import the root certificate into its Hardware Security Module (HSM), as required. The export token and the associated KDH signing certificate expires after 30 days. Next the KRD generates a key pair for the the purpose of encrypting the KDH key and provides the public key cerificate (also known as KRD wrapping certificate) back to KDH. The KRD will also import the root cerificate chain into Amazon Web Services Payment Cryptography by calling ImportKey for RootCertificatePublicKey. The KDH, Amazon Web Services Payment Cryptography, will use the KRD wrapping cerificate to encrypt (wrap) the key under export and signs it with signing private key to generate a TR-34 WrappedKeyBlock. For more information on TR-34 key export, see section Exporting symmetric keys in the Amazon Web Services Payment Cryptography User Guide. Set the following parameters: ExportAttributes: Specify export attributes in case of IPEK export. This parameter is optional for KEK export. ExportKeyIdentifier: The KeyARN of the KEK or BDK (in case of IPEK) under export. KeyMaterial: Use Tr34KeyBlock parameters. CertificateAuthorityPublicKeyIdentifier: The KeyARN of the certificate chain that signed the KRD wrapping key certificate. ExportToken: Obtained from KDH by calling GetParametersForImport. WrappingKeyCertificate: The public key certificate in PEM format (base64 encoded) of the KRD wrapping key Amazon Web Services Payment Cryptography uses for encryption of the TR-34 export payload. This certificate must be signed by the root certificate (CertificateAuthorityPublicKeyIdentifier) imported into Amazon Web Services Payment Cryptography. When this operation is successful, Amazon Web Services Payment Cryptography returns the KEK or IPEK as a TR-34 WrappedKeyBlock. To export initial keys (KEK) or IPEK using RSA Wrap and Unwrap Using this operation, you can export initial key using asymmetric RSA wrap and unwrap key exchange method. To initiate export, generate an asymmetric key pair on the receiving HSM and obtain the public key certificate in PEM format (base64 encoded) for the purpose of wrapping and the root certifiate chain. Import the root certificate into Amazon Web Services Payment Cryptography by calling ImportKey for RootCertificatePublicKey. Next call ExportKey and set the following parameters: CertificateAuthorityPublicKeyIdentifier: The KeyARN of the certificate chain that signed wrapping key certificate. KeyMaterial: Set to KeyCryptogram. WrappingKeyCertificate: The public key certificate in PEM format (base64 encoded) obtained by the receiving HSM and signed by the root certificate (CertificateAuthorityPublicKeyIdentifier) imported into Amazon Web Services Payment Cryptography. The receiving HSM uses its private key component to unwrap the WrappedKeyCryptogram. When this operation is successful, Amazon Web Services Payment Cryptography returns the WrappedKeyCryptogram. To export working keys or IPEK using TR-31 Using this operation, you can export working keys or IPEK using TR-31 symmetric key exchange. In TR-31, you must use an initial key such as KEK to encrypt or wrap the key under export. To establish a KEK, you can use CreateKey or ImportKey. Set the following parameters: ExportAttributes: Specify export attributes in case of IPEK export. This parameter is optional for KEK export. ExportKeyIdentifier: The KeyARN of the KEK or BDK (in case of IPEK) under export. KeyMaterial: Use Tr31KeyBlock parameters. To export working keys using ECDH You can also use ECDH key agreement to export working keys in a TR-31 keyblock, where the wrapping key is an ECDH derived key. To initiate a TR-31 key export using ECDH, both sides must create an ECC key pair with key usage K3 and exchange public key certificates. In Amazon Web Services Payment Cryptography, you can do this by calling CreateKey. If you have not already done so, you must import the CA chain that issued the receiving public key certificate by calling ImportKey with input RootCertificatePublicKey for root CA or TrustedPublicKey for intermediate CA. You can then complete a TR-31 key export by deriving a shared wrapping key using the service ECC key pair, public certificate of your ECC key pair outside of Amazon Web Services Payment Cryptography, and the key derivation parameters including key derivation function, hash algorithm, derivation data, key algorithm. KeyMaterial: Use DiffieHellmanTr31KeyBlock parameters. PrivateKeyIdentifier: The KeyArn of the ECC key pair created within Amazon Web Services Payment Cryptography to derive a shared KEK. PublicKeyCertificate: The public key certificate of the receiving ECC key pair in PEM format (base64 encoded) to derive a shared KEK. CertificateAuthorityPublicKeyIdentifier: The keyARN of the CA that signed the public key certificate of the receiving ECC key pair. When this operation is successful, Amazon Web Services Payment Cryptography returns the working key as a TR-31 WrappedKeyBlock, where the wrapping key is the ECDH derived key. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: GetParametersForExport ImportKey"]
module ExportKeyInput =
  struct
    type nonrec t =
      {
      keyMaterial: ExportKeyMaterial.t
        [@ocaml.doc
          "The key block format type, for example, TR-34 or TR-31, to use during key material export."];
      exportKeyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The KeyARN of the key under export from Amazon Web Services Payment Cryptography."];
      exportAttributes: ExportAttributes.t option
        [@ocaml.doc "The attributes for IPEK generation during export."]}
    let context_ = "ExportKeyInput"
    let make ?exportAttributes =
      fun ~keyMaterial ->
        fun ~exportKeyIdentifier ->
          fun () -> { exportAttributes; keyMaterial; exportKeyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyMaterial", (Some (ExportKeyMaterial.to_value x.keyMaterial)));
        ("ExportKeyIdentifier",
          (Some (KeyArnOrKeyAliasType.to_value x.exportKeyIdentifier)));
        ("ExportAttributes",
          (Option.map x.exportAttributes ~f:ExportAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportAttributes =
        (Option.map ~f:ExportAttributes.of_xml)
          (Xml.child xml_arg0 "ExportAttributes") in
      let exportKeyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExportKeyIdentifier") in
      let keyMaterial =
        ExportKeyMaterial.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyMaterial") in
      make ?exportAttributes ~exportKeyIdentifier ~keyMaterial ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportAttributes =
        field_map json__ "ExportAttributes" ExportAttributes.of_json in
      let exportKeyIdentifier =
        field_map_exn json__ "ExportKeyIdentifier"
          KeyArnOrKeyAliasType.of_json in
      let keyMaterial =
        field_map_exn json__ "KeyMaterial" ExportKeyMaterial.of_json in
      make ?exportAttributes ~exportKeyIdentifier ~keyMaterial ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exports a key from Amazon Web Services Payment Cryptography. Amazon Web Services Payment Cryptography simplifies key exchange by replacing the existing paper-based approach with a modern electronic approach. With ExportKey you can export symmetric keys using either symmetric and asymmetric key exchange mechanisms. Using this operation, you can share your Amazon Web Services Payment Cryptography generated keys with other service partners to perform cryptographic operations outside of Amazon Web Services Payment Cryptography For symmetric key exchange, Amazon Web Services Payment Cryptography uses the ANSI X9 TR-31 norm in accordance with PCI PIN guidelines. And for asymmetric key exchange, Amazon Web Services Payment Cryptography supports ANSI X9 TR-34 norm, RSA unwrap, and ECDH (Elliptic Curve Diffie-Hellman) key exchange mechanisms. Asymmetric key exchange methods are typically used to establish bi-directional trust between the two parties exhanging keys and are used for initial key exchange such as Key Encryption Key (KEK). After which you can export working keys using symmetric method to perform various cryptographic operations within Amazon Web Services Payment Cryptography. PCI requires specific minimum key strength of wrapping keys used to protect the keys being exchanged electronically. These requirements can change when PCI standards are revised. The rules specify that wrapping keys used for transport must be at least as strong as the key being protected. For more information on recommended key strength of wrapping keys and key exchange mechanism, see Importing and exporting keys in the Amazon Web Services Payment Cryptography User Guide. You can also use ExportKey functionality to generate and export an IPEK (Initial Pin Encryption Key) from Amazon Web Services Payment Cryptography using either TR-31 or TR-34 export key exchange. IPEK is generated from BDK (Base Derivation Key) and ExportDukptInitialKey attribute KSN (KeySerialNumber). The generated IPEK does not persist within Amazon Web Services Payment Cryptography and has to be re-generated each time during export. For key exchange using TR-31 or TR-34 key blocks, you can also export optional blocks within the key block header which contain additional attribute information about the key. The KeyVersion within KeyBlockHeaders indicates the version of the key within the key block. Furthermore, KeyExportability within KeyBlockHeaders can be used to further restrict exportability of the key after export from Amazon Web Services Payment Cryptography. The OptionalBlocks contain the additional data related to the key. For information on data type that can be included within optional blocks, refer to ASC X9.143-2022. Data included in key block headers is signed but transmitted in clear text. Sensitive or confidential information should not be included in optional blocks. Refer to ASC X9.143-2022 standard for information on allowed data type. To export initial keys (KEK) or IPEK using TR-34 Using this operation, you can export initial key using TR-34 asymmetric key exchange. You can only export KEK generated within Amazon Web Services Payment Cryptography. In TR-34 terminology, the sending party of the key is called Key Distribution Host (KDH) and the receiving party of the key is called Key Receiving Device (KRD). During key export process, KDH is Amazon Web Services Payment Cryptography which initiates key export and KRD is the user receiving the key. To initiate TR-34 key export, the KRD must obtain an export token by calling GetParametersForExport. This operation also generates a key pair for the purpose of key export, signs the key and returns back the signing public key certificate (also known as KDH signing certificate) and root certificate chain. The KDH uses the private key to sign the the export payload and the signing public key certificate is provided to KRD to verify the signature. The KRD can import the root certificate into its Hardware Security Module (HSM), as required. The export token and the associated KDH signing certificate expires after 30 days. Next the KRD generates a key pair for the the purpose of encrypting the KDH key and provides the public key cerificate (also known as KRD wrapping certificate) back to KDH. The KRD will also import the root cerificate chain into Amazon Web Services Payment Cryptography by calling ImportKey for RootCertificatePublicKey. The KDH, Amazon Web Services Payment Cryptography, will use the KRD wrapping cerificate to encrypt (wrap) the key under export and signs it with signing private key to generate a TR-34 WrappedKeyBlock. For more information on TR-34 key export, see section Exporting symmetric keys in the Amazon Web Services Payment Cryptography User Guide. Set the following parameters: ExportAttributes: Specify export attributes in case of IPEK export. This parameter is optional for KEK export. ExportKeyIdentifier: The KeyARN of the KEK or BDK (in case of IPEK) under export. KeyMaterial: Use Tr34KeyBlock parameters. CertificateAuthorityPublicKeyIdentifier: The KeyARN of the certificate chain that signed the KRD wrapping key certificate. ExportToken: Obtained from KDH by calling GetParametersForImport. WrappingKeyCertificate: The public key certificate in PEM format (base64 encoded) of the KRD wrapping key Amazon Web Services Payment Cryptography uses for encryption of the TR-34 export payload. This certificate must be signed by the root certificate (CertificateAuthorityPublicKeyIdentifier) imported into Amazon Web Services Payment Cryptography. When this operation is successful, Amazon Web Services Payment Cryptography returns the KEK or IPEK as a TR-34 WrappedKeyBlock. To export initial keys (KEK) or IPEK using RSA Wrap and Unwrap Using this operation, you can export initial key using asymmetric RSA wrap and unwrap key exchange method. To initiate export, generate an asymmetric key pair on the receiving HSM and obtain the public key certificate in PEM format (base64 encoded) for the purpose of wrapping and the root certifiate chain. Import the root certificate into Amazon Web Services Payment Cryptography by calling ImportKey for RootCertificatePublicKey. Next call ExportKey and set the following parameters: CertificateAuthorityPublicKeyIdentifier: The KeyARN of the certificate chain that signed wrapping key certificate. KeyMaterial: Set to KeyCryptogram. WrappingKeyCertificate: The public key certificate in PEM format (base64 encoded) obtained by the receiving HSM and signed by the root certificate (CertificateAuthorityPublicKeyIdentifier) imported into Amazon Web Services Payment Cryptography. The receiving HSM uses its private key component to unwrap the WrappedKeyCryptogram. When this operation is successful, Amazon Web Services Payment Cryptography returns the WrappedKeyCryptogram. To export working keys or IPEK using TR-31 Using this operation, you can export working keys or IPEK using TR-31 symmetric key exchange. In TR-31, you must use an initial key such as KEK to encrypt or wrap the key under export. To establish a KEK, you can use CreateKey or ImportKey. Set the following parameters: ExportAttributes: Specify export attributes in case of IPEK export. This parameter is optional for KEK export. ExportKeyIdentifier: The KeyARN of the KEK or BDK (in case of IPEK) under export. KeyMaterial: Use Tr31KeyBlock parameters. To export working keys using ECDH You can also use ECDH key agreement to export working keys in a TR-31 keyblock, where the wrapping key is an ECDH derived key. To initiate a TR-31 key export using ECDH, both sides must create an ECC key pair with key usage K3 and exchange public key certificates. In Amazon Web Services Payment Cryptography, you can do this by calling CreateKey. If you have not already done so, you must import the CA chain that issued the receiving public key certificate by calling ImportKey with input RootCertificatePublicKey for root CA or TrustedPublicKey for intermediate CA. You can then complete a TR-31 key export by deriving a shared wrapping key using the service ECC key pair, public certificate of your ECC key pair outside of Amazon Web Services Payment Cryptography, and the key derivation parameters including key derivation function, hash algorithm, derivation data, key algorithm. KeyMaterial: Use DiffieHellmanTr31KeyBlock parameters. PrivateKeyIdentifier: The KeyArn of the ECC key pair created within Amazon Web Services Payment Cryptography to derive a shared KEK. PublicKeyCertificate: The public key certificate of the receiving ECC key pair in PEM format (base64 encoded) to derive a shared KEK. CertificateAuthorityPublicKeyIdentifier: The keyARN of the CA that signed the public key certificate of the receiving ECC key pair. When this operation is successful, Amazon Web Services Payment Cryptography returns the working key as a TR-31 WrappedKeyBlock, where the wrapping key is the ECDH derived key. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: GetParametersForExport ImportKey"]
module EnableDefaultKeyReplicationRegionsOutput =
  struct
    type nonrec t =
      {
      enabledReplicationRegions: Regions.t option
        [@ocaml.doc
          "The complete list of regions where default key replication is now enabled for the account. This includes both previously enabled regions and the newly added regions from this operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledReplicationRegions =
      fun () -> { enabledReplicationRegions }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("EnabledReplicationRegions",
           (Option.map x.enabledReplicationRegions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledReplicationRegions =
        (Option.map ~f:Regions.of_xml)
          (Xml.child xml_arg0 "EnabledReplicationRegions") in
      make ?enabledReplicationRegions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledReplicationRegions =
        field_map json__ "EnabledReplicationRegions" Regions.of_json in
      make ?enabledReplicationRegions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output from enabling default key replication regions for the account."]
module EnableDefaultKeyReplicationRegionsInput =
  struct
    type nonrec t =
      {
      replicationRegions: Regions.t
        [@ocaml.doc
          "The list of Amazon Web Services Regions to enable as default replication regions for the Amazon Web Services account for Multi-Region key replication. New keys created in this account will automatically be replicated to these regions unless explicitly overridden during key creation."]}
    let context_ = "EnableDefaultKeyReplicationRegionsInput"
    let make ~replicationRegions = fun () -> { replicationRegions }
    let to_value x =
      structure_to_value
        [("ReplicationRegions",
           (Some (Regions.to_value x.replicationRegions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationRegions =
        Regions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplicationRegions") in
      make ~replicationRegions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationRegions =
        field_map_exn json__ "ReplicationRegions" Regions.of_json in
      make ~replicationRegions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input parameters for enabling default key replication regions for the account."]
module DisassociateMpaTeamOutput =
  struct
    type nonrec t =
      {
      mpaTeamAssociation: MpaTeamAssociation.t option
        [@ocaml.doc "The details of the MPA team association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mpaTeamAssociation = fun () -> { mpaTeamAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("MpaTeamAssociation",
           (Option.map x.mpaTeamAssociation ~f:MpaTeamAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mpaTeamAssociation =
        (Option.map ~f:MpaTeamAssociation.of_xml)
          (Xml.child xml_arg0 "MpaTeamAssociation") in
      make ?mpaTeamAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mpaTeamAssociation =
        field_map json__ "MpaTeamAssociation" MpaTeamAssociation.of_json in
      make ?mpaTeamAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a Multi-Party Approval (MPA) team and a protected operation. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: AssociateMpaTeam GetMpaTeamAssociation"]
module DisassociateMpaTeamInput =
  struct
    type nonrec t =
      {
      action: MpaOperation.t
        [@ocaml.doc
          "The protected operation to disassociate from the MPA team. Currently, the only supported value is IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE."];
      requesterComment: MpaRequesterComment.t option
        [@ocaml.doc
          "The comment from the requester explaining the reason for the disassociation. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."]}
    let context_ = "DisassociateMpaTeamInput"
    let make ?requesterComment =
      fun ~action -> fun () -> { requesterComment; action }
    let to_value x =
      structure_to_value
        [("Action", (Some (MpaOperation.to_value x.action)));
        ("RequesterComment",
          (Option.map x.requesterComment ~f:MpaRequesterComment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requesterComment =
        (Option.map ~f:MpaRequesterComment.of_xml)
          (Xml.child xml_arg0 "RequesterComment") in
      let action =
        MpaOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      make ?requesterComment ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requesterComment =
        field_map json__ "RequesterComment" MpaRequesterComment.of_json in
      let action = field_map_exn json__ "Action" MpaOperation.of_json in
      make ?requesterComment ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a Multi-Party Approval (MPA) team and a protected operation. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: AssociateMpaTeam GetMpaTeamAssociation"]
module DisableDefaultKeyReplicationRegionsOutput =
  struct
    type nonrec t =
      {
      enabledReplicationRegions: Regions.t option
        [@ocaml.doc
          "The remaining list of regions where default key replication is still enabled for the account. This reflects the account's default replication configuration after removing the specified regions."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?enabledReplicationRegions =
      fun () -> { enabledReplicationRegions }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("EnabledReplicationRegions",
           (Option.map x.enabledReplicationRegions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledReplicationRegions =
        (Option.map ~f:Regions.of_xml)
          (Xml.child xml_arg0 "EnabledReplicationRegions") in
      make ?enabledReplicationRegions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledReplicationRegions =
        field_map json__ "EnabledReplicationRegions" Regions.of_json in
      make ?enabledReplicationRegions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output from disabling default key replication regions for the account."]
module DisableDefaultKeyReplicationRegionsInput =
  struct
    type nonrec t =
      {
      replicationRegions: Regions.t
        [@ocaml.doc
          "The list of Amazon Web Services Regions to remove from the account's default replication regions. New keys created after this operation will not automatically be replicated to these regions, though existing keys with replication to these regions will be unaffected."]}
    let context_ = "DisableDefaultKeyReplicationRegionsInput"
    let make ~replicationRegions = fun () -> { replicationRegions }
    let to_value x =
      structure_to_value
        [("ReplicationRegions",
           (Some (Regions.to_value x.replicationRegions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationRegions =
        Regions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplicationRegions") in
      make ~replicationRegions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationRegions =
        field_map_exn json__ "ReplicationRegions" Regions.of_json in
      make ~replicationRegions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input parameters for disabling default key replication regions for the account."]
module DeleteResourcePolicyOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the resource-based policy attached to an Amazon Web Services Payment Cryptography key. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: PutResourcePolicy GetResourcePolicy"]
module DeleteResourcePolicyInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The KeyARN of the key whose resource-based policy you want to delete."]}
    let context_ = "DeleteResourcePolicyInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the resource-based policy attached to an Amazon Web Services Payment Cryptography key. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: PutResourcePolicy GetResourcePolicy"]
module DeleteKeyOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc "The KeyARN of the key that is scheduled for deletion."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the key material and metadata associated with Amazon Web Services Payment Cryptography key. Key deletion is irreversible. After a key is deleted, you can't perform cryptographic operations using the key. For example, you can't decrypt data that was encrypted by a deleted Amazon Web Services Payment Cryptography key, and the data may become unrecoverable. Because key deletion is destructive, Amazon Web Services Payment Cryptography has a safety mechanism to prevent accidental deletion of a key. When you call this operation, Amazon Web Services Payment Cryptography disables the specified key but doesn't delete it until after a waiting period set using DeleteKeyInDays. The default waiting period is 7 days. During the waiting period, the KeyState is DELETE_PENDING. After the key is deleted, the KeyState is DELETE_COMPLETE. You should delete a key only when you are sure that you don't need to use it anymore and no other parties are utilizing this key. If you aren't sure, consider deactivating it instead by calling StopKeyUsage. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: RestoreKey StartKeyUsage StopKeyUsage"]
module DeleteKeyInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc "The KeyARN of the key that is scheduled for deletion."];
      deleteKeyInDays: DeleteKeyInputDeleteKeyInDaysInteger.t option
        [@ocaml.doc
          "The waiting period for key deletion. The default value is seven days."]}
    let context_ = "DeleteKeyInput"
    let make ?deleteKeyInDays =
      fun ~keyIdentifier -> fun () -> { deleteKeyInDays; keyIdentifier }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("DeleteKeyInDays",
          (Option.map x.deleteKeyInDays
             ~f:DeleteKeyInputDeleteKeyInDaysInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteKeyInDays =
        (Option.map ~f:DeleteKeyInputDeleteKeyInDaysInteger.of_xml)
          (Xml.child xml_arg0 "DeleteKeyInDays") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ?deleteKeyInDays ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteKeyInDays =
        field_map json__ "DeleteKeyInDays"
          DeleteKeyInputDeleteKeyInDaysInteger.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ?deleteKeyInDays ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the key material and metadata associated with Amazon Web Services Payment Cryptography key. Key deletion is irreversible. After a key is deleted, you can't perform cryptographic operations using the key. For example, you can't decrypt data that was encrypted by a deleted Amazon Web Services Payment Cryptography key, and the data may become unrecoverable. Because key deletion is destructive, Amazon Web Services Payment Cryptography has a safety mechanism to prevent accidental deletion of a key. When you call this operation, Amazon Web Services Payment Cryptography disables the specified key but doesn't delete it until after a waiting period set using DeleteKeyInDays. The default waiting period is 7 days. During the waiting period, the KeyState is DELETE_PENDING. After the key is deleted, the KeyState is DELETE_COMPLETE. You should delete a key only when you are sure that you don't need to use it anymore and no other parties are utilizing this key. If you aren't sure, consider deactivating it instead by calling StopKeyUsage. Cross-account use: This operation supports cross-account use when the key has a resource-based policy that grants access. For more information, see Resource-based policies. Related operations: RestoreKey StartKeyUsage StopKeyUsage"]
module DeleteAliasOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the alias, but doesn't affect the underlying key. Each key can have multiple aliases. To get the aliases of all keys, use the UpdateAlias operation. To change the alias of a key, first use DeleteAlias to delete the current alias and then use CreateAlias to create a new alias. To associate an existing alias with a different key, call UpdateAlias. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias GetAlias ListAliases UpdateAlias"]
module DeleteAliasInput =
  struct
    type nonrec t =
      {
      aliasName: AliasName.t
        [@ocaml.doc
          "A friendly name that you can use to refer Amazon Web Services Payment Cryptography key. This value must begin with alias/ followed by a name, such as alias/ExampleAlias."]}
    let context_ = "DeleteAliasInput"
    let make ~aliasName = fun () -> { aliasName }
    let to_value x =
      structure_to_value
        [("AliasName", (Some (AliasName.to_value x.aliasName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aliasName =
        AliasName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasName") in
      make ~aliasName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aliasName = field_map_exn json__ "AliasName" AliasName.of_json in
      make ~aliasName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the alias, but doesn't affect the underlying key. Each key can have multiple aliases. To get the aliases of all keys, use the UpdateAlias operation. To change the alias of a key, first use DeleteAlias to delete the current alias and then use CreateAlias to create a new alias. To associate an existing alias with a different key, call UpdateAlias. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: CreateAlias GetAlias ListAliases UpdateAlias"]
module CreateKeyOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc "The key material that contains all the key attributes."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Web Services Payment Cryptography key, a logical representation of a cryptographic key, that is unique in your account and Amazon Web Services Region. You use keys for cryptographic functions such as encryption and decryption. In addition to the key material used in cryptographic operations, an Amazon Web Services Payment Cryptography key includes metadata such as the key ARN, key usage, key origin, creation date, description, and key state. When you create a key, you specify both immutable and mutable data about the key. The immutable data contains key attributes that define the scope and cryptographic operations that you can perform using the key, for example key class (example: SYMMETRIC_KEY), key algorithm (example: TDES_2KEY), key usage (example: TR31_P0_PIN_ENCRYPTION_KEY) and key modes of use (example: Encrypt). Amazon Web Services Payment Cryptography binds key attributes to keys using key blocks when you store or export them. Amazon Web Services Payment Cryptography stores the key contents wrapped and never stores or transmits them in the clear. For information about valid combinations of key attributes, see Understanding key attributes in the Amazon Web Services Payment Cryptography User Guide. The mutable data contained within a key includes usage timestamp and key deletion timestamp and can be modified after creation. You can use the CreateKey operation to generate an ECC (Elliptic Curve Cryptography) key pair used for establishing an ECDH (Elliptic Curve Diffie-Hellman) key agreement between two parties. In the ECDH key agreement process, both parties generate their own ECC key pair with key usage K3 and exchange the public keys. Each party then use their private key, the received public key from the other party, and the key derivation parameters including key derivation function, hash algorithm, derivation data, and key algorithm to derive a shared key. To maintain the single-use principle of cryptographic keys in payments, ECDH derived keys should not be used for multiple purposes, such as a TR31_P0_PIN_ENCRYPTION_KEY and TR31_K1_KEY_BLOCK_PROTECTION_KEY. When creating ECC key pairs in Amazon Web Services Payment Cryptography you can optionally set the DeriveKeyUsage parameter, which defines the key usage bound to the symmetric key that will be derived using the ECC key pair. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DeleteKey GetKey ListKeys"]
module CreateKeyInput =
  struct
    type nonrec t =
      {
      keyAttributes: KeyAttributes.t
        [@ocaml.doc
          "The role of the key, the algorithm it supports, and the cryptographic operations allowed with the key. This data is immutable after the key is created."];
      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."];
      exportable: Boolean.t
        [@ocaml.doc
          "Specifies whether the key is exportable from the service."];
      enabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether to enable the key. If the key is enabled, it is activated for use within the service. If the key is not enabled, then it is created but not activated. The default value is enabled."];
      tags: Tags.t option
        [@ocaml.doc
          "Assigns one or more tags to the Amazon Web Services Payment Cryptography key. Use this parameter to tag a key when it is created. To tag an existing Amazon Web Services Payment Cryptography key, use the TagResource operation. Each tag consists of a tag key and a tag value. Both the tag key and the tag value are required, but the tag value can be an empty (null) string. You can't have more than one tag on an Amazon Web Services Payment Cryptography key with the same tag key. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output. Tagging or untagging an Amazon Web Services Payment Cryptography key can allow or deny permission to the key."];
      deriveKeyUsage: DeriveKeyUsage.t option
        [@ocaml.doc
          "The intended cryptographic usage of keys derived from the ECC key pair to be created. After creating an ECC key pair, you cannot change the intended cryptographic usage of keys derived from it using ECDH."];
      replicationRegions: Regions.t option }
    let context_ = "CreateKeyInput"
    let make ?keyCheckValueAlgorithm =
      fun ?enabled ->
        fun ?tags ->
          fun ?deriveKeyUsage ->
            fun ?replicationRegions ->
              fun ~keyAttributes ->
                fun ~exportable ->
                  fun () ->
                    {
                      keyCheckValueAlgorithm;
                      enabled;
                      tags;
                      deriveKeyUsage;
                      replicationRegions;
                      keyAttributes;
                      exportable
                    }
    let to_value x =
      structure_to_value
        [("KeyAttributes", (Some (KeyAttributes.to_value x.keyAttributes)));
        ("KeyCheckValueAlgorithm",
          (Option.map x.keyCheckValueAlgorithm
             ~f:KeyCheckValueAlgorithm.to_value));
        ("Exportable", (Some (Boolean.to_value x.exportable)));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("DeriveKeyUsage",
          (Option.map x.deriveKeyUsage ~f:DeriveKeyUsage.to_value));
        ("ReplicationRegions",
          (Option.map x.replicationRegions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationRegions =
        (Option.map ~f:Regions.of_xml)
          (Xml.child xml_arg0 "ReplicationRegions") in
      let deriveKeyUsage =
        (Option.map ~f:DeriveKeyUsage.of_xml)
          (Xml.child xml_arg0 "DeriveKeyUsage") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let exportable =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Exportable") in
      let keyCheckValueAlgorithm =
        (Option.map ~f:KeyCheckValueAlgorithm.of_xml)
          (Xml.child xml_arg0 "KeyCheckValueAlgorithm") in
      let keyAttributes =
        KeyAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      make ?replicationRegions ?deriveKeyUsage ?tags ?enabled ~exportable
        ?keyCheckValueAlgorithm ~keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationRegions =
        field_map json__ "ReplicationRegions" Regions.of_json in
      let deriveKeyUsage =
        field_map json__ "DeriveKeyUsage" DeriveKeyUsage.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let exportable = field_map_exn json__ "Exportable" Boolean.of_json in
      let keyCheckValueAlgorithm =
        field_map json__ "KeyCheckValueAlgorithm"
          KeyCheckValueAlgorithm.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" KeyAttributes.of_json in
      make ?replicationRegions ?deriveKeyUsage ?tags ?enabled ~exportable
        ?keyCheckValueAlgorithm ~keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Web Services Payment Cryptography key, a logical representation of a cryptographic key, that is unique in your account and Amazon Web Services Region. You use keys for cryptographic functions such as encryption and decryption. In addition to the key material used in cryptographic operations, an Amazon Web Services Payment Cryptography key includes metadata such as the key ARN, key usage, key origin, creation date, description, and key state. When you create a key, you specify both immutable and mutable data about the key. The immutable data contains key attributes that define the scope and cryptographic operations that you can perform using the key, for example key class (example: SYMMETRIC_KEY), key algorithm (example: TDES_2KEY), key usage (example: TR31_P0_PIN_ENCRYPTION_KEY) and key modes of use (example: Encrypt). Amazon Web Services Payment Cryptography binds key attributes to keys using key blocks when you store or export them. Amazon Web Services Payment Cryptography stores the key contents wrapped and never stores or transmits them in the clear. For information about valid combinations of key attributes, see Understanding key attributes in the Amazon Web Services Payment Cryptography User Guide. The mutable data contained within a key includes usage timestamp and key deletion timestamp and can be modified after creation. You can use the CreateKey operation to generate an ECC (Elliptic Curve Cryptography) key pair used for establishing an ECDH (Elliptic Curve Diffie-Hellman) key agreement between two parties. In the ECDH key agreement process, both parties generate their own ECC key pair with key usage K3 and exchange the public keys. Each party then use their private key, the received public key from the other party, and the key derivation parameters including key derivation function, hash algorithm, derivation data, and key algorithm to derive a shared key. To maintain the single-use principle of cryptographic keys in payments, ECDH derived keys should not be used for multiple purposes, such as a TR31_P0_PIN_ENCRYPTION_KEY and TR31_K1_KEY_BLOCK_PROTECTION_KEY. When creating ECC key pairs in Amazon Web Services Payment Cryptography you can optionally set the DeriveKeyUsage parameter, which defines the key usage bound to the symmetric key that will be derived using the ECC key pair. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DeleteKey GetKey ListKeys"]
module CreateAliasOutput =
  struct
    type nonrec t =
      {
      alias: Alias.t option [@ocaml.doc "The alias for the key."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?alias = fun () -> { alias }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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 [("Alias", (Option.map x.alias ~f:Alias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      make ?alias ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "Alias" Alias.of_json in make ?alias ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an alias, or a friendly name, for an Amazon Web Services Payment Cryptography key. You can use an alias to identify a key in the console and when you call cryptographic operations such as EncryptData or DecryptData. You can associate the alias with any key in the same Amazon Web Services Region. Each alias is associated with only one key at a time, but a key can have multiple aliases. You can't create an alias without a key. The alias must be unique in the account and Amazon Web Services Region, but you can create another alias with the same name in a different Amazon Web Services Region. To change the key that's associated with the alias, call UpdateAlias. To delete the alias, call DeleteAlias. These operations don't affect the underlying key. To get the alias that you created, call ListAliases. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DeleteAlias GetAlias ListAliases UpdateAlias"]
module CreateAliasInput =
  struct
    type nonrec t =
      {
      aliasName: AliasName.t
        [@ocaml.doc
          "A friendly name that you can use to refer to a key. An alias must begin with alias/ followed by a name, for example alias/ExampleAlias. It can contain only alphanumeric characters, forward slashes (/), underscores (_), and dashes (-). Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."];
      keyArn: KeyArn.t option
        [@ocaml.doc "The KeyARN of the key to associate with the alias."]}
    let context_ = "CreateAliasInput"
    let make ?keyArn = fun ~aliasName -> fun () -> { keyArn; aliasName }
    let to_value x =
      structure_to_value
        [("AliasName", (Some (AliasName.to_value x.aliasName)));
        ("KeyArn", (Option.map x.keyArn ~f:KeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyArn =
        (Option.map ~f:KeyArn.of_xml) (Xml.child xml_arg0 "KeyArn") in
      let aliasName =
        AliasName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasName") in
      make ?keyArn ~aliasName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyArn = field_map json__ "KeyArn" KeyArn.of_json in
      let aliasName = field_map_exn json__ "AliasName" AliasName.of_json in
      make ?keyArn ~aliasName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an alias, or a friendly name, for an Amazon Web Services Payment Cryptography key. You can use an alias to identify a key in the console and when you call cryptographic operations such as EncryptData or DecryptData. You can associate the alias with any key in the same Amazon Web Services Region. Each alias is associated with only one key at a time, but a key can have multiple aliases. You can't create an alias without a key. The alias must be unique in the account and Amazon Web Services Region, but you can create another alias with the same name in a different Amazon Web Services Region. To change the key that's associated with the alias, call UpdateAlias. To delete the alias, call DeleteAlias. These operations don't affect the underlying key. To get the alias that you created, call ListAliases. Cross-account use: This operation can't be used across different Amazon Web Services accounts. Related operations: DeleteAlias GetAlias ListAliases UpdateAlias"]
module AssociateMpaTeamOutput =
  struct
    type nonrec t =
      {
      mpaTeamAssociation: MpaTeamAssociation.t option
        [@ocaml.doc "The details of the MPA team association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mpaTeamAssociation = fun () -> { mpaTeamAssociation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("MpaTeamAssociation",
           (Option.map x.mpaTeamAssociation ~f:MpaTeamAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mpaTeamAssociation =
        (Option.map ~f:MpaTeamAssociation.of_xml)
          (Xml.child xml_arg0 "MpaTeamAssociation") in
      make ?mpaTeamAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mpaTeamAssociation =
        field_map json__ "MpaTeamAssociation" MpaTeamAssociation.of_json in
      make ?mpaTeamAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a Multi-Party Approval (MPA) team with a protected operation. For more information, see Multi-Party Approval 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: DisassociateMpaTeam GetMpaTeamAssociation"]
module AssociateMpaTeamInput =
  struct
    type nonrec t =
      {
      action: MpaOperation.t
        [@ocaml.doc
          "The protected operation to associate with the MPA team. Currently, the only supported value is IMPORT_ROOT_PUBLIC_KEY_CERTIFICATE."];
      mpaTeamArn: MpaTeamArn.t
        [@ocaml.doc
          "The ARN of the MPA team to associate with the protected operation."];
      requesterComment: MpaRequesterComment.t option
        [@ocaml.doc
          "The comment from the requester explaining the reason for the association. Don't include personal, confidential or sensitive information in this field. This field may be displayed in plaintext in CloudTrail logs and other output."]}
    let context_ = "AssociateMpaTeamInput"
    let make ?requesterComment =
      fun ~action ->
        fun ~mpaTeamArn -> fun () -> { requesterComment; action; mpaTeamArn }
    let to_value x =
      structure_to_value
        [("Action", (Some (MpaOperation.to_value x.action)));
        ("MpaTeamArn", (Some (MpaTeamArn.to_value x.mpaTeamArn)));
        ("RequesterComment",
          (Option.map x.requesterComment ~f:MpaRequesterComment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requesterComment =
        (Option.map ~f:MpaRequesterComment.of_xml)
          (Xml.child xml_arg0 "RequesterComment") in
      let mpaTeamArn =
        MpaTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MpaTeamArn") in
      let action =
        MpaOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      make ?requesterComment ~mpaTeamArn ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requesterComment =
        field_map json__ "RequesterComment" MpaRequesterComment.of_json in
      let mpaTeamArn = field_map_exn json__ "MpaTeamArn" MpaTeamArn.of_json in
      let action = field_map_exn json__ "Action" MpaOperation.of_json in
      make ?requesterComment ~mpaTeamArn ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a Multi-Party Approval (MPA) team with a protected operation. For more information, see Multi-Party Approval 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: DisassociateMpaTeam GetMpaTeamAssociation"]
module AddKeyReplicationRegionsOutput =
  struct
    type nonrec t =
      {
      key: Key.t option
        [@ocaml.doc
          "The updated key metadata after adding the replication regions. This includes the current state of the key and its replication configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key = fun () -> { key }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "Key" Key.of_json in make ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output from adding replication regions to a key."]
module AddKeyReplicationRegionsInput =
  struct
    type nonrec t =
      {
      keyIdentifier: KeyArnOrKeyAliasType.t
        [@ocaml.doc
          "The key identifier (ARN or alias) of the key for which to add replication regions. This key must exist and be in a valid state for replication operations."];
      replicationRegions: Regions.t
        [@ocaml.doc
          "The list of Amazon Web Services Regions to add to the key's replication configuration. Each region must be a valid Amazon Web Services Region where Amazon Web Services Payment Cryptography is available. The key will be replicated to these regions, allowing cryptographic operations to be performed closer to your applications."]}
    let context_ = "AddKeyReplicationRegionsInput"
    let make ~keyIdentifier =
      fun ~replicationRegions ->
        fun () -> { keyIdentifier; replicationRegions }
    let to_value x =
      structure_to_value
        [("KeyIdentifier",
           (Some (KeyArnOrKeyAliasType.to_value x.keyIdentifier)));
        ("ReplicationRegions",
          (Some (Regions.to_value x.replicationRegions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationRegions =
        Regions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReplicationRegions") in
      let keyIdentifier =
        KeyArnOrKeyAliasType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyIdentifier") in
      make ~replicationRegions ~keyIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationRegions =
        field_map_exn json__ "ReplicationRegions" Regions.of_json in
      let keyIdentifier =
        field_map_exn json__ "KeyIdentifier" KeyArnOrKeyAliasType.of_json in
      make ~replicationRegions ~keyIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input parameters for adding replication regions to a specific key."]