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.cloudhsm
let apiVersion = "2014-05-30"
let endpointPrefix = "cloudhsm"
let serviceFullName = "Amazon CloudHSM"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "CloudHSM"
let targetPrefix = "CloudHsmFrontendService"
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 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: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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[\\w :+=./\\\\-]*"); 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 PartitionSerial =
  struct
    type nonrec t = string
    let context_ = "PartitionSerial"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{6,12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PartitionSerial" 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 key-value pair that identifies or specifies metadata about an AWS CloudHSM resource."]
module ClientArn =
  struct
    type nonrec t = string
    let context_ = "ClientArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-iso)?:cloudhsm:[a-zA-Z0-9\\-]*:[0-9]{12}:client-[0-9a-f]{8}");
        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:"ClientArn" j
    let to_json = simple_to_json to_value
  end
module HsmArn =
  struct
    type nonrec t = string[@@ocaml.doc "An ARN that identifies an HSM."]
    let context_ = "HsmArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-iso)?:cloudhsm:[a-zA-Z0-9\\-]*:[0-9]{12}:hsm-[0-9a-f]{8}");
        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:"HsmArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "An ARN that identifies an HSM."]
module HapgArn =
  struct
    type nonrec t = string
    let context_ = "HapgArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-iso)?:cloudhsm:[a-zA-Z0-9\\-]*:[0-9]{12}:hapg-[0-9a-f]{8}");
        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:"HapgArn" j
    let to_json = simple_to_json to_value
  end
module AZ =
  struct
    type nonrec t = string
    let context_ = "AZ"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9\\-]*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AZ" j
    let to_json = simple_to_json to_value
  end
module PartitionArn =
  struct
    type nonrec t = string
    let context_ = "PartitionArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-iso)?:cloudhsm:[a-zA-Z0-9\\-]*:[0-9]{12}:hsm-[0-9a-f]{8}/partition-[0-9]{6,12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PartitionArn" j
    let to_json = simple_to_json to_value
  end
module CloudHsmInternalException =
  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 "Indicates that an internal error occurred."]
module CloudHsmServiceException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Additional information about the error."];
      retryable: Boolean.t option
        [@ocaml.doc "Indicates if the action can be retried."]}
    let make ?message = fun ?retryable -> fun () -> { message; retryable }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("retryable", (Option.map x.retryable ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "retryable") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryable ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryable = field_map json__ "retryable" Boolean.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryable ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that an exception occurred in the AWS CloudHSM service."]
module InvalidRequestException =
  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
       "Indicates that one or more of the request parameters are not valid."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module Certificate =
  struct
    type nonrec t = string
    let context_ = "Certificate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:600) >>=
             (fun () ->
                (check_string_max i ~max:2400) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w :+=./\\n-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Certificate" j
    let to_json = simple_to_json to_value
  end
module ExternalId =
  struct
    type nonrec t = string
    let context_ = "ExternalId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[\\w :+=./-]*"); 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:"ExternalId" j
    let to_json = simple_to_json to_value
  end
module IamRoleArn =
  struct
    type nonrec t = string
    let context_ = "IamRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-iso)?:iam::[0-9]{12}:role/[a-zA-Z0-9_\\+=,\\.\\-@]{1,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:"IamRoleArn" j
    let to_json = simple_to_json to_value
  end
module IpAddress =
  struct
    type nonrec t = string
    let context_ = "IpAddress"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IpAddress" j
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"subnet-[0-9a-f]{8}"); 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:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module Label =
  struct
    type nonrec t = string
    let context_ = "Label"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_.-]{1,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:"Label" j
    let to_json = simple_to_json to_value
  end
module PartitionSerialList =
  struct
    type nonrec t = PartitionSerial.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:PartitionSerial.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:PartitionSerial.of_xml)
    let of_json j =
      list_of_json ~kind:"PartitionSerialList"
        ~of_json:PartitionSerial.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientList =
  struct
    type nonrec t = ClientArn.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:ClientArn.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:ClientArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ClientList" ~of_json:ClientArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9+/]*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module HsmList =
  struct
    type nonrec t = HsmArn.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:HsmArn.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:HsmArn.of_xml)
    let of_json j = list_of_json ~kind:"HsmList" ~of_json:HsmArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module HapgList =
  struct
    type nonrec t = HapgArn.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:HapgArn.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:HapgArn.of_xml)
    let of_json j = list_of_json ~kind:"HapgList" ~of_json:HapgArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module AZList =
  struct
    type nonrec t = AZ.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:AZ.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:AZ.of_xml)
    let of_json j = list_of_json ~kind:"AZList" ~of_json:AZ.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientVersion =
  struct
    type nonrec t =
      | Zz5_1 
      | Zz5_3 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Zz5_1 -> "5.1" | Zz5_3 -> "5.3" | Non_static_id s -> s
    let of_string =
      function | "5.1" -> Zz5_1 | "5.3" -> Zz5_3 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ClientVersion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClientVersion" j)
    let to_json = simple_to_json to_value
  end
module CertificateFingerprint =
  struct
    type nonrec t = string
    let context_ = "CertificateFingerprint"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"([0-9a-fA-F][0-9a-fA-F]:){15}[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:"CertificateFingerprint" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let context_ = "Timestamp"
    let make i =
      let open Result in ok_or_failwith (check_pattern i ~pattern:"\\d*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Timestamp" j
    let to_json = simple_to_json to_value
  end
module EniId =
  struct
    type nonrec t = string
    let context_ = "EniId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"eni-[0-9a-f]{8}"); 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:"EniId" j
    let to_json = simple_to_json to_value
  end
module HsmSerialNumber =
  struct
    type nonrec t = string
    let context_ = "HsmSerialNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{1,16}"); 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:"HsmSerialNumber" j
    let to_json = simple_to_json to_value
  end
module HsmStatus =
  struct
    type nonrec t =
      | PENDING 
      | RUNNING 
      | UPDATING 
      | SUSPENDED 
      | TERMINATING 
      | TERMINATED 
      | DEGRADED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | UPDATING -> "UPDATING"
      | SUSPENDED -> "SUSPENDED"
      | TERMINATING -> "TERMINATING"
      | TERMINATED -> "TERMINATED"
      | DEGRADED -> "DEGRADED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "UPDATING" -> UPDATING
      | "SUSPENDED" -> SUSPENDED
      | "TERMINATING" -> TERMINATING
      | "TERMINATED" -> TERMINATED
      | "DEGRADED" -> DEGRADED
      | 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 HsmStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HsmStatus" j)
    let to_json = simple_to_json to_value
  end
module PartitionList =
  struct
    type nonrec t = PartitionArn.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:PartitionArn.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:PartitionArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PartitionList" ~of_json:PartitionArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module SshKey =
  struct
    type nonrec t = string
    let context_ = "SshKey"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9+/= ._:\\\\@-]*");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SshKey" j
    let to_json = simple_to_json to_value
  end
module SubscriptionType =
  struct
    type nonrec t =
      | PRODUCTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | PRODUCTION -> "PRODUCTION" | Non_static_id s -> s
    let of_string =
      function | "PRODUCTION" -> PRODUCTION | 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 SubscriptionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SubscriptionType" j)
    let to_json = simple_to_json to_value
  end
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"vpc-[0-9a-f]{8}"); 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:"VpcId" j
    let to_json = simple_to_json to_value
  end
module CloudHsmObjectState =
  struct
    type nonrec t =
      | READY 
      | UPDATING 
      | DEGRADED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READY -> "READY"
      | UPDATING -> "UPDATING"
      | DEGRADED -> "DEGRADED"
      | Non_static_id s -> s
    let of_string =
      function
      | "READY" -> READY
      | "UPDATING" -> UPDATING
      | "DEGRADED" -> DEGRADED
      | 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 CloudHsmObjectState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CloudHsmObjectState" j)
    let to_json = simple_to_json to_value
  end
module ClientLabel =
  struct
    type nonrec t = string
    let context_ = "ClientLabel"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_.-]{2,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:"ClientLabel" j
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9]{1,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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module RemoveTagsFromResourceResponse =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "The status of the operation."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Removes one or more tags from the specified AWS CloudHSM resource. To remove a tag, specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use AddTagsToResource."]
module RemoveTagsFromResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the AWS CloudHSM resource."];
      tagKeyList: TagKeyList.t
        [@ocaml.doc
          "The tag key or keys to remove. Specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use AddTagsToResource."]}
    let context_ = "RemoveTagsFromResourceRequest"
    let make ~resourceArn =
      fun ~tagKeyList -> fun () -> { resourceArn; tagKeyList }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("TagKeyList", (Some (TagKeyList.to_value x.tagKeyList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeyList =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeyList") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeyList ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeyList = field_map_exn json__ "TagKeyList" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~tagKeyList ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Removes one or more tags from the specified AWS CloudHSM resource. To remove a tag, specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use AddTagsToResource."]
module ModifyLunaClientResponse =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t option [@ocaml.doc "The ARN of the client."]}
    type nonrec error =
      [ `CloudHsmServiceException of CloudHsmServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientArn = fun () -> { clientArn }
    let error_of_json name json =
      match name with
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.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
        [("ClientArn", (Option.map x.clientArn ~f:ClientArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientArn =
        (Option.map ~f:ClientArn.of_xml) (Xml.child xml_arg0 "ClientArn") in
      make ?clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientArn = field_map json__ "ClientArn" ClientArn.of_json in
      make ?clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Modifies the certificate used by the client. This action can potentially start a workflow to install the new certificate on the client's HSMs."]
module ModifyLunaClientRequest =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t [@ocaml.doc "The ARN of the client."];
      certificate: Certificate.t
        [@ocaml.doc "The new certificate for the client."]}
    let context_ = "ModifyLunaClientRequest"
    let make ~clientArn =
      fun ~certificate -> fun () -> { clientArn; certificate }
    let to_value x =
      structure_to_value
        [("ClientArn", (Some (ClientArn.to_value x.clientArn)));
        ("Certificate", (Some (Certificate.to_value x.certificate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        Certificate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Certificate") in
      let clientArn =
        ClientArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientArn") in
      make ~certificate ~clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate =
        field_map_exn json__ "Certificate" Certificate.of_json in
      let clientArn = field_map_exn json__ "ClientArn" ClientArn.of_json in
      make ~certificate ~clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Modifies the certificate used by the client. This action can potentially start a workflow to install the new certificate on the client's HSMs."]
module ModifyHsmResponse =
  struct
    type nonrec t =
      {
      hsmArn: HsmArn.t option [@ocaml.doc "The ARN of the HSM."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hsmArn = fun () -> { hsmArn }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HsmArn", (Option.map x.hsmArn ~f:HsmArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hsmArn =
        (Option.map ~f:HsmArn.of_xml) (Xml.child xml_arg0 "HsmArn") in
      make ?hsmArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hsmArn = field_map json__ "HsmArn" HsmArn.of_json in
      make ?hsmArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the ModifyHsm operation."]
module ModifyHsmRequest =
  struct
    type nonrec t =
      {
      hsmArn: HsmArn.t [@ocaml.doc "The ARN of the HSM to modify."];
      subnetId: SubnetId.t option
        [@ocaml.doc
          "The new identifier of the subnet that the HSM is in. The new subnet must be in the same Availability Zone as the current subnet."];
      eniIp: IpAddress.t option
        [@ocaml.doc
          "The new IP address for the elastic network interface (ENI) attached to the HSM. If the HSM is moved to a different subnet, and an IP address is not specified, an IP address will be randomly chosen from the CIDR range of the new subnet."];
      iamRoleArn: IamRoleArn.t option [@ocaml.doc "The new IAM role ARN."];
      externalId: ExternalId.t option [@ocaml.doc "The new external ID."];
      syslogIp: IpAddress.t option
        [@ocaml.doc
          "The new IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server."]}
    let context_ = "ModifyHsmRequest"
    let make ?subnetId =
      fun ?eniIp ->
        fun ?iamRoleArn ->
          fun ?externalId ->
            fun ?syslogIp ->
              fun ~hsmArn ->
                fun () ->
                  { subnetId; eniIp; iamRoleArn; externalId; syslogIp; hsmArn
                  }
    let to_value x =
      structure_to_value
        [("HsmArn", (Some (HsmArn.to_value x.hsmArn)));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("EniIp", (Option.map x.eniIp ~f:IpAddress.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:IamRoleArn.to_value));
        ("ExternalId", (Option.map x.externalId ~f:ExternalId.to_value));
        ("SyslogIp", (Option.map x.syslogIp ~f:IpAddress.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let syslogIp =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "SyslogIp") in
      let externalId =
        (Option.map ~f:ExternalId.of_xml) (Xml.child xml_arg0 "ExternalId") in
      let iamRoleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let eniIp =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "EniIp") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let hsmArn =
        HsmArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "HsmArn") in
      make ?syslogIp ?externalId ?iamRoleArn ?eniIp ?subnetId ~hsmArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let syslogIp = field_map json__ "SyslogIp" IpAddress.of_json in
      let externalId = field_map json__ "ExternalId" ExternalId.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" IamRoleArn.of_json in
      let eniIp = field_map json__ "EniIp" IpAddress.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let hsmArn = field_map_exn json__ "HsmArn" HsmArn.of_json in
      make ?syslogIp ?externalId ?iamRoleArn ?eniIp ?subnetId ~hsmArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the ModifyHsm operation."]
module ModifyHapgResponse =
  struct
    type nonrec t =
      {
      hapgArn: HapgArn.t option
        [@ocaml.doc "The ARN of the high-availability partition group."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hapgArn = fun () -> { hapgArn }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HapgArn", (Option.map x.hapgArn ~f:HapgArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hapgArn =
        (Option.map ~f:HapgArn.of_xml) (Xml.child xml_arg0 "HapgArn") in
      make ?hapgArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hapgArn = field_map json__ "HapgArn" HapgArn.of_json in
      make ?hapgArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Modifies an existing high-availability partition group."]
module ModifyHapgRequest =
  struct
    type nonrec t =
      {
      hapgArn: HapgArn.t
        [@ocaml.doc
          "The ARN of the high-availability partition group to modify."];
      label: Label.t option
        [@ocaml.doc
          "The new label for the high-availability partition group."];
      partitionSerialList: PartitionSerialList.t option
        [@ocaml.doc
          "The list of partition serial numbers to make members of the high-availability partition group."]}
    let context_ = "ModifyHapgRequest"
    let make ?label =
      fun ?partitionSerialList ->
        fun ~hapgArn -> fun () -> { label; partitionSerialList; hapgArn }
    let to_value x =
      structure_to_value
        [("HapgArn", (Some (HapgArn.to_value x.hapgArn)));
        ("Label", (Option.map x.label ~f:Label.to_value));
        ("PartitionSerialList",
          (Option.map x.partitionSerialList ~f:PartitionSerialList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partitionSerialList =
        (Option.map ~f:PartitionSerialList.of_xml)
          (Xml.child xml_arg0 "PartitionSerialList") in
      let label = (Option.map ~f:Label.of_xml) (Xml.child xml_arg0 "Label") in
      let hapgArn =
        HapgArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "HapgArn") in
      make ?partitionSerialList ?label ~hapgArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partitionSerialList =
        field_map json__ "PartitionSerialList" PartitionSerialList.of_json in
      let label = field_map json__ "Label" Label.of_json in
      let hapgArn = field_map_exn json__ "HapgArn" HapgArn.of_json in
      make ?partitionSerialList ?label ~hapgArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Modifies an existing high-availability partition group."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tagList: TagList.t option [@ocaml.doc "One or more tags."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tagList = fun () -> { tagList }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("TagList", (Option.map x.tagList ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      make ?tagList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map json__ "TagList" TagList.of_json in
      make ?tagList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Returns a list of all tags for the specified AWS CloudHSM resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the AWS CloudHSM resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.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" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Returns a list of all tags for the specified AWS CloudHSM resource."]
module ListLunaClientsResponse =
  struct
    type nonrec t =
      {
      clientList: ClientList.t option [@ocaml.doc "The list of clients."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this to ListLunaClients to retrieve the next set of items."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientList =
      fun ?nextToken -> fun () -> { clientList; nextToken }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("ClientList", (Option.map x.clientList ~f:ClientList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let clientList =
        (Option.map ~f:ClientList.of_xml) (Xml.child xml_arg0 "ClientList") in
      make ?nextToken ?clientList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let clientList = field_map json__ "ClientList" ClientList.of_json in
      make ?nextToken ?clientList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Lists all of the clients. This operation supports pagination with the use of the NextToken member. If more results are available, the NextToken member of the response contains a token that you pass in the next call to ListLunaClients to retrieve the next set of items."]
module ListLunaClientsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The NextToken value from a previous call to ListLunaClients. Pass null if this is the first call."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Lists all of the clients. This operation supports pagination with the use of the NextToken member. If more results are available, the NextToken member of the response contains a token that you pass in the next call to ListLunaClients to retrieve the next set of items."]
module ListHsmsResponse =
  struct
    type nonrec t =
      {
      hsmList: HsmList.t option
        [@ocaml.doc "The list of ARNs that identify the HSMs."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value to ListHsms to retrieve the next set of items."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hsmList = fun ?nextToken -> fun () -> { hsmList; nextToken }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HsmList", (Option.map x.hsmList ~f:HsmList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let hsmList =
        (Option.map ~f:HsmList.of_xml) (Xml.child xml_arg0 "HsmList") in
      make ?nextToken ?hsmList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let hsmList = field_map json__ "HsmList" HsmList.of_json in
      make ?nextToken ?hsmList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the ListHsms operation."]
module ListHsmsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The NextToken value from a previous call to ListHsms. Pass null if this is the first call."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Retrieves the identifiers of all of the HSMs provisioned for the current customer. This operation supports pagination with the use of the NextToken member. If more results are available, the NextToken member of the response contains a token that you pass in the next call to ListHsms to retrieve the next set of items."]
module ListHapgsResponse =
  struct
    type nonrec t =
      {
      hapgList: HapgList.t option
        [@ocaml.doc "The list of high-availability partition groups."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value to ListHapgs to retrieve the next set of items."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hapgList = fun ?nextToken -> fun () -> { hapgList; nextToken }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HapgList", (Option.map x.hapgList ~f:HapgList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let hapgList =
        (Option.map ~f:HapgList.of_xml) (Xml.child xml_arg0 "HapgList") in
      make ?nextToken ?hapgList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let hapgList = field_map json__ "HapgList" HapgList.of_json in
      make ?nextToken ?hapgList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Lists the high-availability partition groups for the account. This operation supports pagination with the use of the NextToken member. If more results are available, the NextToken member of the response contains a token that you pass in the next call to ListHapgs to retrieve the next set of items."]
module ListHapgsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The NextToken value from a previous call to ListHapgs. Pass null if this is the first call."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Lists the high-availability partition groups for the account. This operation supports pagination with the use of the NextToken member. If more results are available, the NextToken member of the response contains a token that you pass in the next call to ListHapgs to retrieve the next set of items."]
module ListAvailableZonesResponse =
  struct
    type nonrec t =
      {
      aZList: AZList.t option
        [@ocaml.doc
          "The list of Availability Zones that have available AWS CloudHSM capacity."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?aZList = fun () -> { aZList }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("AZList", (Option.map x.aZList ~f:AZList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aZList =
        (Option.map ~f:AZList.of_xml) (Xml.child xml_arg0 "AZList") in
      make ?aZList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aZList = field_map json__ "AZList" AZList.of_json in
      make ?aZList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Lists the Availability Zones that have available AWS CloudHSM capacity."]
module ListAvailableZonesRequest =
  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 "Contains the inputs for the ListAvailableZones action."]
module GetConfigResponse =
  struct
    type nonrec t =
      {
      configType: String_.t option [@ocaml.doc "The type of credentials."];
      configFile: String_.t option
        [@ocaml.doc "The chrystoki.conf configuration file."];
      configCred: String_.t option
        [@ocaml.doc
          "The certificate file containing the server.pem files of the HSMs."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configType =
      fun ?configFile ->
        fun ?configCred -> fun () -> { configType; configFile; configCred }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("ConfigType", (Option.map x.configType ~f:String_.to_value));
        ("ConfigFile", (Option.map x.configFile ~f:String_.to_value));
        ("ConfigCred", (Option.map x.configCred ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configCred =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ConfigCred") in
      let configFile =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ConfigFile") in
      let configType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ConfigType") in
      make ?configCred ?configFile ?configType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configCred = field_map json__ "ConfigCred" String_.of_json in
      let configFile = field_map json__ "ConfigFile" String_.of_json in
      let configType = field_map json__ "ConfigType" String_.of_json in
      make ?configCred ?configFile ?configType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Gets the configuration files necessary to connect to all high availability partition groups the client is associated with."]
module GetConfigRequest =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t [@ocaml.doc "The ARN of the client."];
      clientVersion: ClientVersion.t [@ocaml.doc "The client version."];
      hapgList: HapgList.t
        [@ocaml.doc
          "A list of ARNs that identify the high-availability partition groups that are associated with the client."]}
    let context_ = "GetConfigRequest"
    let make ~clientArn =
      fun ~clientVersion ->
        fun ~hapgList -> fun () -> { clientArn; clientVersion; hapgList }
    let to_value x =
      structure_to_value
        [("ClientArn", (Some (ClientArn.to_value x.clientArn)));
        ("ClientVersion", (Some (ClientVersion.to_value x.clientVersion)));
        ("HapgList", (Some (HapgList.to_value x.hapgList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hapgList =
        HapgList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "HapgList") in
      let clientVersion =
        ClientVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientVersion") in
      let clientArn =
        ClientArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientArn") in
      make ~hapgList ~clientVersion ~clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hapgList = field_map_exn json__ "HapgList" HapgList.of_json in
      let clientVersion =
        field_map_exn json__ "ClientVersion" ClientVersion.of_json in
      let clientArn = field_map_exn json__ "ClientArn" ClientArn.of_json in
      make ~hapgList ~clientVersion ~clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Gets the configuration files necessary to connect to all high availability partition groups the client is associated with."]
module DescribeLunaClientResponse =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t option [@ocaml.doc "The ARN of the client."];
      certificate: Certificate.t option
        [@ocaml.doc
          "The certificate installed on the HSMs used by this client."];
      certificateFingerprint: CertificateFingerprint.t option
        [@ocaml.doc "The certificate fingerprint."];
      lastModifiedTimestamp: Timestamp.t option
        [@ocaml.doc "The date and time the client was last modified."];
      label: Label.t option [@ocaml.doc "The label of the client."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientArn =
      fun ?certificate ->
        fun ?certificateFingerprint ->
          fun ?lastModifiedTimestamp ->
            fun ?label ->
              fun () ->
                {
                  clientArn;
                  certificate;
                  certificateFingerprint;
                  lastModifiedTimestamp;
                  label
                }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("ClientArn", (Option.map x.clientArn ~f:ClientArn.to_value));
        ("Certificate", (Option.map x.certificate ~f:Certificate.to_value));
        ("CertificateFingerprint",
          (Option.map x.certificateFingerprint
             ~f:CertificateFingerprint.to_value));
        ("LastModifiedTimestamp",
          (Option.map x.lastModifiedTimestamp ~f:Timestamp.to_value));
        ("Label", (Option.map x.label ~f:Label.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let label = (Option.map ~f:Label.of_xml) (Xml.child xml_arg0 "Label") in
      let lastModifiedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTimestamp") in
      let certificateFingerprint =
        (Option.map ~f:CertificateFingerprint.of_xml)
          (Xml.child xml_arg0 "CertificateFingerprint") in
      let certificate =
        (Option.map ~f:Certificate.of_xml) (Xml.child xml_arg0 "Certificate") in
      let clientArn =
        (Option.map ~f:ClientArn.of_xml) (Xml.child xml_arg0 "ClientArn") in
      make ?label ?lastModifiedTimestamp ?certificateFingerprint ?certificate
        ?clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let label = field_map json__ "Label" Label.of_json in
      let lastModifiedTimestamp =
        field_map json__ "LastModifiedTimestamp" Timestamp.of_json in
      let certificateFingerprint =
        field_map json__ "CertificateFingerprint"
          CertificateFingerprint.of_json in
      let certificate = field_map json__ "Certificate" Certificate.of_json in
      let clientArn = field_map json__ "ClientArn" ClientArn.of_json in
      make ?label ?lastModifiedTimestamp ?certificateFingerprint ?certificate
        ?clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Retrieves information about an HSM client."]
module DescribeLunaClientRequest =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t option [@ocaml.doc "The ARN of the client."];
      certificateFingerprint: CertificateFingerprint.t option
        [@ocaml.doc "The certificate fingerprint."]}
    let make ?clientArn =
      fun ?certificateFingerprint ->
        fun () -> { clientArn; certificateFingerprint }
    let to_value x =
      structure_to_value
        [("ClientArn", (Option.map x.clientArn ~f:ClientArn.to_value));
        ("CertificateFingerprint",
          (Option.map x.certificateFingerprint
             ~f:CertificateFingerprint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateFingerprint =
        (Option.map ~f:CertificateFingerprint.of_xml)
          (Xml.child xml_arg0 "CertificateFingerprint") in
      let clientArn =
        (Option.map ~f:ClientArn.of_xml) (Xml.child xml_arg0 "ClientArn") in
      make ?certificateFingerprint ?clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateFingerprint =
        field_map json__ "CertificateFingerprint"
          CertificateFingerprint.of_json in
      let clientArn = field_map json__ "ClientArn" ClientArn.of_json in
      make ?certificateFingerprint ?clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Retrieves information about an HSM client."]
module DescribeHsmResponse =
  struct
    type nonrec t =
      {
      hsmArn: HsmArn.t option [@ocaml.doc "The ARN of the HSM."];
      status: HsmStatus.t option [@ocaml.doc "The status of the HSM."];
      statusDetails: String_.t option
        [@ocaml.doc
          "Contains additional information about the status of the HSM."];
      availabilityZone: AZ.t option
        [@ocaml.doc "The Availability Zone that the HSM is in."];
      eniId: EniId.t option
        [@ocaml.doc
          "The identifier of the elastic network interface (ENI) attached to the HSM."];
      eniIp: IpAddress.t option
        [@ocaml.doc "The IP address assigned to the HSM's ENI."];
      subscriptionType: SubscriptionType.t option ;
      subscriptionStartDate: Timestamp.t option
        [@ocaml.doc "The subscription start date."];
      subscriptionEndDate: Timestamp.t option
        [@ocaml.doc "The subscription end date."];
      vpcId: VpcId.t option
        [@ocaml.doc "The identifier of the VPC that the HSM is in."];
      subnetId: SubnetId.t option
        [@ocaml.doc "The identifier of the subnet that the HSM is in."];
      iamRoleArn: IamRoleArn.t option
        [@ocaml.doc "The ARN of the IAM role assigned to the HSM."];
      serialNumber: HsmSerialNumber.t option
        [@ocaml.doc "The serial number of the HSM."];
      vendorName: String_.t option [@ocaml.doc "The name of the HSM vendor."];
      hsmType: String_.t option [@ocaml.doc "The HSM model type."];
      softwareVersion: String_.t option
        [@ocaml.doc "The HSM software version."];
      sshPublicKey: SshKey.t option [@ocaml.doc "The public SSH key."];
      sshKeyLastUpdated: Timestamp.t option
        [@ocaml.doc "The date and time that the SSH key was last updated."];
      serverCertUri: String_.t option
        [@ocaml.doc "The URI of the certificate server."];
      serverCertLastUpdated: Timestamp.t option
        [@ocaml.doc
          "The date and time that the server certificate was last updated."];
      partitions: PartitionList.t option
        [@ocaml.doc "The list of partitions on the HSM."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hsmArn =
      fun ?status ->
        fun ?statusDetails ->
          fun ?availabilityZone ->
            fun ?eniId ->
              fun ?eniIp ->
                fun ?subscriptionType ->
                  fun ?subscriptionStartDate ->
                    fun ?subscriptionEndDate ->
                      fun ?vpcId ->
                        fun ?subnetId ->
                          fun ?iamRoleArn ->
                            fun ?serialNumber ->
                              fun ?vendorName ->
                                fun ?hsmType ->
                                  fun ?softwareVersion ->
                                    fun ?sshPublicKey ->
                                      fun ?sshKeyLastUpdated ->
                                        fun ?serverCertUri ->
                                          fun ?serverCertLastUpdated ->
                                            fun ?partitions ->
                                              fun () ->
                                                {
                                                  hsmArn;
                                                  status;
                                                  statusDetails;
                                                  availabilityZone;
                                                  eniId;
                                                  eniIp;
                                                  subscriptionType;
                                                  subscriptionStartDate;
                                                  subscriptionEndDate;
                                                  vpcId;
                                                  subnetId;
                                                  iamRoleArn;
                                                  serialNumber;
                                                  vendorName;
                                                  hsmType;
                                                  softwareVersion;
                                                  sshPublicKey;
                                                  sshKeyLastUpdated;
                                                  serverCertUri;
                                                  serverCertLastUpdated;
                                                  partitions
                                                }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HsmArn", (Option.map x.hsmArn ~f:HsmArn.to_value));
        ("Status", (Option.map x.status ~f:HsmStatus.to_value));
        ("StatusDetails", (Option.map x.statusDetails ~f:String_.to_value));
        ("AvailabilityZone", (Option.map x.availabilityZone ~f:AZ.to_value));
        ("EniId", (Option.map x.eniId ~f:EniId.to_value));
        ("EniIp", (Option.map x.eniIp ~f:IpAddress.to_value));
        ("SubscriptionType",
          (Option.map x.subscriptionType ~f:SubscriptionType.to_value));
        ("SubscriptionStartDate",
          (Option.map x.subscriptionStartDate ~f:Timestamp.to_value));
        ("SubscriptionEndDate",
          (Option.map x.subscriptionEndDate ~f:Timestamp.to_value));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:IamRoleArn.to_value));
        ("SerialNumber",
          (Option.map x.serialNumber ~f:HsmSerialNumber.to_value));
        ("VendorName", (Option.map x.vendorName ~f:String_.to_value));
        ("HsmType", (Option.map x.hsmType ~f:String_.to_value));
        ("SoftwareVersion",
          (Option.map x.softwareVersion ~f:String_.to_value));
        ("SshPublicKey", (Option.map x.sshPublicKey ~f:SshKey.to_value));
        ("SshKeyLastUpdated",
          (Option.map x.sshKeyLastUpdated ~f:Timestamp.to_value));
        ("ServerCertUri", (Option.map x.serverCertUri ~f:String_.to_value));
        ("ServerCertLastUpdated",
          (Option.map x.serverCertLastUpdated ~f:Timestamp.to_value));
        ("Partitions", (Option.map x.partitions ~f:PartitionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partitions =
        (Option.map ~f:PartitionList.of_xml)
          (Xml.child xml_arg0 "Partitions") in
      let serverCertLastUpdated =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ServerCertLastUpdated") in
      let serverCertUri =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServerCertUri") in
      let sshKeyLastUpdated =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SshKeyLastUpdated") in
      let sshPublicKey =
        (Option.map ~f:SshKey.of_xml) (Xml.child xml_arg0 "SshPublicKey") in
      let softwareVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SoftwareVersion") in
      let hsmType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HsmType") in
      let vendorName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VendorName") in
      let serialNumber =
        (Option.map ~f:HsmSerialNumber.of_xml)
          (Xml.child xml_arg0 "SerialNumber") in
      let iamRoleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let subscriptionEndDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubscriptionEndDate") in
      let subscriptionStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubscriptionStartDate") in
      let subscriptionType =
        (Option.map ~f:SubscriptionType.of_xml)
          (Xml.child xml_arg0 "SubscriptionType") in
      let eniIp =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "EniIp") in
      let eniId = (Option.map ~f:EniId.of_xml) (Xml.child xml_arg0 "EniId") in
      let availabilityZone =
        (Option.map ~f:AZ.of_xml) (Xml.child xml_arg0 "AvailabilityZone") in
      let statusDetails =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusDetails") in
      let status =
        (Option.map ~f:HsmStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let hsmArn =
        (Option.map ~f:HsmArn.of_xml) (Xml.child xml_arg0 "HsmArn") in
      make ?partitions ?serverCertLastUpdated ?serverCertUri
        ?sshKeyLastUpdated ?sshPublicKey ?softwareVersion ?hsmType
        ?vendorName ?serialNumber ?iamRoleArn ?subnetId ?vpcId
        ?subscriptionEndDate ?subscriptionStartDate ?subscriptionType ?eniIp
        ?eniId ?availabilityZone ?statusDetails ?status ?hsmArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partitions = field_map json__ "Partitions" PartitionList.of_json in
      let serverCertLastUpdated =
        field_map json__ "ServerCertLastUpdated" Timestamp.of_json in
      let serverCertUri = field_map json__ "ServerCertUri" String_.of_json in
      let sshKeyLastUpdated =
        field_map json__ "SshKeyLastUpdated" Timestamp.of_json in
      let sshPublicKey = field_map json__ "SshPublicKey" SshKey.of_json in
      let softwareVersion =
        field_map json__ "SoftwareVersion" String_.of_json in
      let hsmType = field_map json__ "HsmType" String_.of_json in
      let vendorName = field_map json__ "VendorName" String_.of_json in
      let serialNumber =
        field_map json__ "SerialNumber" HsmSerialNumber.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" IamRoleArn.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let subscriptionEndDate =
        field_map json__ "SubscriptionEndDate" Timestamp.of_json in
      let subscriptionStartDate =
        field_map json__ "SubscriptionStartDate" Timestamp.of_json in
      let subscriptionType =
        field_map json__ "SubscriptionType" SubscriptionType.of_json in
      let eniIp = field_map json__ "EniIp" IpAddress.of_json in
      let eniId = field_map json__ "EniId" EniId.of_json in
      let availabilityZone = field_map json__ "AvailabilityZone" AZ.of_json in
      let statusDetails = field_map json__ "StatusDetails" String_.of_json in
      let status = field_map json__ "Status" HsmStatus.of_json in
      let hsmArn = field_map json__ "HsmArn" HsmArn.of_json in
      make ?partitions ?serverCertLastUpdated ?serverCertUri
        ?sshKeyLastUpdated ?sshPublicKey ?softwareVersion ?hsmType
        ?vendorName ?serialNumber ?iamRoleArn ?subnetId ?vpcId
        ?subscriptionEndDate ?subscriptionStartDate ?subscriptionType ?eniIp
        ?eniId ?availabilityZone ?statusDetails ?status ?hsmArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the DescribeHsm operation."]
module DescribeHsmRequest =
  struct
    type nonrec t =
      {
      hsmArn: HsmArn.t option
        [@ocaml.doc
          "The ARN of the HSM. Either the HsmArn or the SerialNumber parameter must be specified."];
      hsmSerialNumber: HsmSerialNumber.t option
        [@ocaml.doc
          "The serial number of the HSM. Either the HsmArn or the HsmSerialNumber parameter must be specified."]}
    let make ?hsmArn =
      fun ?hsmSerialNumber -> fun () -> { hsmArn; hsmSerialNumber }
    let to_value x =
      structure_to_value
        [("HsmArn", (Option.map x.hsmArn ~f:HsmArn.to_value));
        ("HsmSerialNumber",
          (Option.map x.hsmSerialNumber ~f:HsmSerialNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hsmSerialNumber =
        (Option.map ~f:HsmSerialNumber.of_xml)
          (Xml.child xml_arg0 "HsmSerialNumber") in
      let hsmArn =
        (Option.map ~f:HsmArn.of_xml) (Xml.child xml_arg0 "HsmArn") in
      make ?hsmSerialNumber ?hsmArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hsmSerialNumber =
        field_map json__ "HsmSerialNumber" HsmSerialNumber.of_json in
      let hsmArn = field_map json__ "HsmArn" HsmArn.of_json in
      make ?hsmSerialNumber ?hsmArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DescribeHsm operation."]
module DescribeHapgResponse =
  struct
    type nonrec t =
      {
      hapgArn: HapgArn.t option
        [@ocaml.doc "The ARN of the high-availability partition group."];
      hapgSerial: String_.t option
        [@ocaml.doc
          "The serial number of the high-availability partition group."];
      hsmsLastActionFailed: HsmList.t option ;
      hsmsPendingDeletion: HsmList.t option ;
      hsmsPendingRegistration: HsmList.t option ;
      label: Label.t option
        [@ocaml.doc "The label for the high-availability partition group."];
      lastModifiedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time the high-availability partition group was last modified."];
      partitionSerialList: PartitionSerialList.t option
        [@ocaml.doc
          "The list of partition serial numbers that belong to the high-availability partition group."];
      state: CloudHsmObjectState.t option
        [@ocaml.doc "The state of the high-availability partition group."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hapgArn =
      fun ?hapgSerial ->
        fun ?hsmsLastActionFailed ->
          fun ?hsmsPendingDeletion ->
            fun ?hsmsPendingRegistration ->
              fun ?label ->
                fun ?lastModifiedTimestamp ->
                  fun ?partitionSerialList ->
                    fun ?state ->
                      fun () ->
                        {
                          hapgArn;
                          hapgSerial;
                          hsmsLastActionFailed;
                          hsmsPendingDeletion;
                          hsmsPendingRegistration;
                          label;
                          lastModifiedTimestamp;
                          partitionSerialList;
                          state
                        }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HapgArn", (Option.map x.hapgArn ~f:HapgArn.to_value));
        ("HapgSerial", (Option.map x.hapgSerial ~f:String_.to_value));
        ("HsmsLastActionFailed",
          (Option.map x.hsmsLastActionFailed ~f:HsmList.to_value));
        ("HsmsPendingDeletion",
          (Option.map x.hsmsPendingDeletion ~f:HsmList.to_value));
        ("HsmsPendingRegistration",
          (Option.map x.hsmsPendingRegistration ~f:HsmList.to_value));
        ("Label", (Option.map x.label ~f:Label.to_value));
        ("LastModifiedTimestamp",
          (Option.map x.lastModifiedTimestamp ~f:Timestamp.to_value));
        ("PartitionSerialList",
          (Option.map x.partitionSerialList ~f:PartitionSerialList.to_value));
        ("State", (Option.map x.state ~f:CloudHsmObjectState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:CloudHsmObjectState.of_xml)
          (Xml.child xml_arg0 "State") in
      let partitionSerialList =
        (Option.map ~f:PartitionSerialList.of_xml)
          (Xml.child xml_arg0 "PartitionSerialList") in
      let lastModifiedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastModifiedTimestamp") in
      let label = (Option.map ~f:Label.of_xml) (Xml.child xml_arg0 "Label") in
      let hsmsPendingRegistration =
        (Option.map ~f:HsmList.of_xml)
          (Xml.child xml_arg0 "HsmsPendingRegistration") in
      let hsmsPendingDeletion =
        (Option.map ~f:HsmList.of_xml)
          (Xml.child xml_arg0 "HsmsPendingDeletion") in
      let hsmsLastActionFailed =
        (Option.map ~f:HsmList.of_xml)
          (Xml.child xml_arg0 "HsmsLastActionFailed") in
      let hapgSerial =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HapgSerial") in
      let hapgArn =
        (Option.map ~f:HapgArn.of_xml) (Xml.child xml_arg0 "HapgArn") in
      make ?state ?partitionSerialList ?lastModifiedTimestamp ?label
        ?hsmsPendingRegistration ?hsmsPendingDeletion ?hsmsLastActionFailed
        ?hapgSerial ?hapgArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" CloudHsmObjectState.of_json in
      let partitionSerialList =
        field_map json__ "PartitionSerialList" PartitionSerialList.of_json in
      let lastModifiedTimestamp =
        field_map json__ "LastModifiedTimestamp" Timestamp.of_json in
      let label = field_map json__ "Label" Label.of_json in
      let hsmsPendingRegistration =
        field_map json__ "HsmsPendingRegistration" HsmList.of_json in
      let hsmsPendingDeletion =
        field_map json__ "HsmsPendingDeletion" HsmList.of_json in
      let hsmsLastActionFailed =
        field_map json__ "HsmsLastActionFailed" HsmList.of_json in
      let hapgSerial = field_map json__ "HapgSerial" String_.of_json in
      let hapgArn = field_map json__ "HapgArn" HapgArn.of_json in
      make ?state ?partitionSerialList ?lastModifiedTimestamp ?label
        ?hsmsPendingRegistration ?hsmsPendingDeletion ?hsmsLastActionFailed
        ?hapgSerial ?hapgArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the DescribeHapg action."]
module DescribeHapgRequest =
  struct
    type nonrec t =
      {
      hapgArn: HapgArn.t
        [@ocaml.doc
          "The ARN of the high-availability partition group to describe."]}
    let context_ = "DescribeHapgRequest"
    let make ~hapgArn = fun () -> { hapgArn }
    let to_value x =
      structure_to_value [("HapgArn", (Some (HapgArn.to_value x.hapgArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hapgArn =
        HapgArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "HapgArn") in
      make ~hapgArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hapgArn = field_map_exn json__ "HapgArn" HapgArn.of_json in
      make ~hapgArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DescribeHapg action."]
module DeleteLunaClientResponse =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "The status of the action."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Deletes a client."]
module DeleteLunaClientRequest =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t [@ocaml.doc "The ARN of the client to delete."]}
    let context_ = "DeleteLunaClientRequest"
    let make ~clientArn = fun () -> { clientArn }
    let to_value x =
      structure_to_value
        [("ClientArn", (Some (ClientArn.to_value x.clientArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientArn =
        ClientArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientArn") in
      make ~clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientArn = field_map_exn json__ "ClientArn" ClientArn.of_json in
      make ~clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Deletes a client."]
module DeleteHsmResponse =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "The status of the operation."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the DeleteHsm operation."]
module DeleteHsmRequest =
  struct
    type nonrec t =
      {
      hsmArn: HsmArn.t [@ocaml.doc "The ARN of the HSM to delete."]}
    let context_ = "DeleteHsmRequest"
    let make ~hsmArn = fun () -> { hsmArn }
    let to_value x =
      structure_to_value [("HsmArn", (Some (HsmArn.to_value x.hsmArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hsmArn =
        HsmArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "HsmArn") in
      make ~hsmArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hsmArn = field_map_exn json__ "HsmArn" HsmArn.of_json in
      make ~hsmArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DeleteHsm operation."]
module DeleteHapgResponse =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "The status of the action."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the DeleteHapg action."]
module DeleteHapgRequest =
  struct
    type nonrec t =
      {
      hapgArn: HapgArn.t
        [@ocaml.doc
          "The ARN of the high-availability partition group to delete."]}
    let context_ = "DeleteHapgRequest"
    let make ~hapgArn = fun () -> { hapgArn }
    let to_value x =
      structure_to_value [("HapgArn", (Some (HapgArn.to_value x.hapgArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hapgArn =
        HapgArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "HapgArn") in
      make ~hapgArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hapgArn = field_map_exn json__ "HapgArn" HapgArn.of_json in
      make ~hapgArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DeleteHapg action."]
module CreateLunaClientResponse =
  struct
    type nonrec t =
      {
      clientArn: ClientArn.t option [@ocaml.doc "The ARN of the client."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientArn = fun () -> { clientArn }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("ClientArn", (Option.map x.clientArn ~f:ClientArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientArn =
        (Option.map ~f:ClientArn.of_xml) (Xml.child xml_arg0 "ClientArn") in
      make ?clientArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientArn = field_map json__ "ClientArn" ClientArn.of_json in
      make ?clientArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the CreateLunaClient action."]
module CreateLunaClientRequest =
  struct
    type nonrec t =
      {
      label: ClientLabel.t option [@ocaml.doc "The label for the client."];
      certificate: Certificate.t
        [@ocaml.doc
          "The contents of a Base64-Encoded X.509 v3 certificate to be installed on the HSMs used by this client."]}
    let context_ = "CreateLunaClientRequest"
    let make ?label = fun ~certificate -> fun () -> { label; certificate }
    let to_value x =
      structure_to_value
        [("Label", (Option.map x.label ~f:ClientLabel.to_value));
        ("Certificate", (Some (Certificate.to_value x.certificate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        Certificate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Certificate") in
      let label =
        (Option.map ~f:ClientLabel.of_xml) (Xml.child xml_arg0 "Label") in
      make ~certificate ?label ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate =
        field_map_exn json__ "Certificate" Certificate.of_json in
      let label = field_map json__ "Label" ClientLabel.of_json in
      make ~certificate ?label ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateLunaClient action."]
module CreateHsmResponse =
  struct
    type nonrec t =
      {
      hsmArn: HsmArn.t option [@ocaml.doc "The ARN of the HSM."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hsmArn = fun () -> { hsmArn }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HsmArn", (Option.map x.hsmArn ~f:HsmArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hsmArn =
        (Option.map ~f:HsmArn.of_xml) (Xml.child xml_arg0 "HsmArn") in
      make ?hsmArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hsmArn = field_map json__ "HsmArn" HsmArn.of_json in
      make ?hsmArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the output of the CreateHsm operation."]
module CreateHsmRequest =
  struct
    type nonrec t =
      {
      subnetId: SubnetId.t
        [@ocaml.doc
          "The identifier of the subnet in your VPC in which to place the HSM."];
      sshKey: SshKey.t
        [@ocaml.doc "The SSH public key to install on the HSM."];
      eniIp: IpAddress.t option
        [@ocaml.doc
          "The IP address to assign to the HSM's ENI. If an IP address is not specified, an IP address will be randomly chosen from the CIDR range of the subnet."];
      iamRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The ARN of an IAM role to enable the AWS CloudHSM service to allocate an ENI on your behalf."];
      externalId: ExternalId.t option
        [@ocaml.doc "The external ID from IamRoleArn, if present."];
      subscriptionType: SubscriptionType.t ;
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A user-defined token to ensure idempotence. Subsequent calls to this operation with the same token will be ignored."];
      syslogIp: IpAddress.t option
        [@ocaml.doc
          "The IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server."]}
    let context_ = "CreateHsmRequest"
    let make ?eniIp =
      fun ?externalId ->
        fun ?clientToken ->
          fun ?syslogIp ->
            fun ~subnetId ->
              fun ~sshKey ->
                fun ~iamRoleArn ->
                  fun ~subscriptionType ->
                    fun () ->
                      {
                        eniIp;
                        externalId;
                        clientToken;
                        syslogIp;
                        subnetId;
                        sshKey;
                        iamRoleArn;
                        subscriptionType
                      }
    let to_value x =
      structure_to_value
        [("SubnetId", (Some (SubnetId.to_value x.subnetId)));
        ("SshKey", (Some (SshKey.to_value x.sshKey)));
        ("EniIp", (Option.map x.eniIp ~f:IpAddress.to_value));
        ("IamRoleArn", (Some (IamRoleArn.to_value x.iamRoleArn)));
        ("ExternalId", (Option.map x.externalId ~f:ExternalId.to_value));
        ("SubscriptionType",
          (Some (SubscriptionType.to_value x.subscriptionType)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("SyslogIp", (Option.map x.syslogIp ~f:IpAddress.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let syslogIp =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "SyslogIp") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let subscriptionType =
        SubscriptionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionType") in
      let externalId =
        (Option.map ~f:ExternalId.of_xml) (Xml.child xml_arg0 "ExternalId") in
      let iamRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      let eniIp =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "EniIp") in
      let sshKey =
        SshKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SshKey") in
      let subnetId =
        SubnetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SubnetId") in
      make ?syslogIp ?clientToken ~subscriptionType ?externalId ~iamRoleArn
        ?eniIp ~sshKey ~subnetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let syslogIp = field_map json__ "SyslogIp" IpAddress.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let subscriptionType =
        field_map_exn json__ "SubscriptionType" SubscriptionType.of_json in
      let externalId = field_map json__ "ExternalId" ExternalId.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" IamRoleArn.of_json in
      let eniIp = field_map json__ "EniIp" IpAddress.of_json in
      let sshKey = field_map_exn json__ "SshKey" SshKey.of_json in
      let subnetId = field_map_exn json__ "SubnetId" SubnetId.of_json in
      make ?syslogIp ?clientToken ~subscriptionType ?externalId ~iamRoleArn
        ?eniIp ~sshKey ~subnetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateHsm operation."]
module CreateHapgResponse =
  struct
    type nonrec t =
      {
      hapgArn: HapgArn.t option
        [@ocaml.doc "The ARN of the high-availability partition group."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?hapgArn = fun () -> { hapgArn }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("HapgArn", (Option.map x.hapgArn ~f:HapgArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hapgArn =
        (Option.map ~f:HapgArn.of_xml) (Xml.child xml_arg0 "HapgArn") in
      make ?hapgArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hapgArn = field_map json__ "HapgArn" HapgArn.of_json in
      make ?hapgArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the output of the CreateHAPartitionGroup action."]
module CreateHapgRequest =
  struct
    type nonrec t =
      {
      label: Label.t
        [@ocaml.doc
          "The label of the new high-availability partition group."]}
    let context_ = "CreateHapgRequest"
    let make ~label = fun () -> { label }
    let to_value x =
      structure_to_value [("Label", (Some (Label.to_value x.label)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let label =
        Label.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Label") in
      make ~label ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let label = field_map_exn json__ "Label" Label.of_json in
      make ~label ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateHapgRequest action."]
module AddTagsToResourceResponse =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "The status of the operation."]}
    type nonrec error =
      [ `CloudHsmInternalException of CloudHsmInternalException.t 
      | `CloudHsmServiceException of CloudHsmServiceException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_json json)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CloudHsmInternalException" ->
          `CloudHsmInternalException (CloudHsmInternalException.of_xml xml)
      | "CloudHsmServiceException" ->
          `CloudHsmServiceException (CloudHsmServiceException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CloudHsmInternalException e ->
          `Assoc
            [("error", (`String "CloudHsmInternalException"));
            ("details", (CloudHsmInternalException.to_json e))]
      | `CloudHsmServiceException e ->
          `Assoc
            [("error", (`String "CloudHsmServiceException"));
            ("details", (CloudHsmServiceException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Adds or overwrites one or more tags for the specified AWS CloudHSM resource. Each tag consists of a key and a value. Tag keys must be unique to each resource."]
module AddTagsToResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag."];
      tagList: TagList.t [@ocaml.doc "One or more tags."]}
    let context_ = "AddTagsToResourceRequest"
    let make ~resourceArn =
      fun ~tagList -> fun () -> { resourceArn; tagList }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("TagList", (Some (TagList.to_value x.tagList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagList") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagList ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map_exn json__ "TagList" TagList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~tagList ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is documentation for AWS CloudHSM Classic. For more information, see AWS CloudHSM Classic FAQs, the AWS CloudHSM Classic User Guide, and the AWS CloudHSM Classic API Reference. For information about the current version of AWS CloudHSM, see AWS CloudHSM, the AWS CloudHSM User Guide, and the AWS CloudHSM API Reference. Adds or overwrites one or more tags for the specified AWS CloudHSM resource. Each tag consists of a key and a value. Tag keys must be unique to each resource."]