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.cloudfront_keyvaluestore
let apiVersion = "2022-07-26"
let endpointPrefix = "cloudfront-keyvaluestore"
let serviceFullName = "Amazon CloudFront KeyValueStore"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module Key =
  struct
    type nonrec t = string
    let context_ = "Key"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"Key" j
    let to_json = simple_to_json to_value
  end
module Value =
  struct
    type nonrec t = string
    let context_ = "Value"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Value" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module DeleteKeyRequestListItem =
  struct
    type nonrec t =
      {
      key: Key.t [@ocaml.doc "The key of the key value pair to be deleted."]}
    let context_ = "DeleteKeyRequestListItem"
    let make ~key = fun () -> { key }
    let to_value x =
      structure_to_value [("Key", (Some (Key.to_value x.key)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map_exn json__ "Key" Key.of_json in make ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List item for keys to delete."]
module PutKeyRequestListItem =
  struct
    type nonrec t =
      {
      key: Key.t
        [@ocaml.doc "The key of the key value pair list item to put."];
      value: Value.t [@ocaml.doc "The value for the key value pair to put."]}
    let context_ = "PutKeyRequestListItem"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (Key.to_value x.key)));
        ("Value", (Some (Value.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        Value.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key = Key.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" Value.of_json in
      let key = field_map_exn json__ "Key" Key.of_json in make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List item for key value pair to put."]
module ListKeysResponseListItem =
  struct
    type nonrec t =
      {
      key: Key.t option [@ocaml.doc "The key of the key value pair."];
      value: Value.t option [@ocaml.doc "The value of the key value pair."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:Key.to_value));
        ("Value", (Option.map x.value ~f:Value.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Value.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:Key.of_xml) (Xml.child 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 json__ "Value" Value.of_json in
      let key = field_map json__ "Key" Key.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key value pair."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Access denied."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Resource is not in expected state."]
module Etag =
  struct
    type nonrec t = string
    let context_ = "Etag"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Etag" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Internal server error."]
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Resource was not found."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Limit exceeded."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Validation failed."]
module DeleteKeyRequestsList =
  struct
    type nonrec t = DeleteKeyRequestListItem.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:DeleteKeyRequestListItem.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:DeleteKeyRequestListItem.of_xml)
    let of_json j =
      list_of_json ~kind:"DeleteKeyRequestsList"
        ~of_json:DeleteKeyRequestListItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module KvsARN =
  struct
    type nonrec t = string
    let context_ = "KvsARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"KvsARN" j
    let to_json = simple_to_json to_value
  end
module PutKeyRequestsList =
  struct
    type nonrec t = PutKeyRequestListItem.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:PutKeyRequestListItem.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:PutKeyRequestListItem.of_xml)
    let of_json j =
      list_of_json ~kind:"PutKeyRequestsList"
        ~of_json:PutKeyRequestListItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListKeysResponseList =
  struct
    type nonrec t = ListKeysResponseListItem.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:ListKeysResponseListItem.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:ListKeysResponseListItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListKeysResponseList"
        ~of_json:ListKeysResponseListItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListKeysRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListKeysRequestMaxResultsInteger" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UpdateKeysResponse =
  struct
    type nonrec t =
      {
      itemCount: Integer.t option
        [@ocaml.doc
          "Number of key value pairs in the Key Value Store after the successful update."];
      totalSizeInBytes: Long.t option
        [@ocaml.doc
          "Total size of the Key Value Store after the successful update, in bytes."];
      eTag: Etag.t option
        [@ocaml.doc
          "The current version identifier of the Key Value Store after the successful update."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?itemCount =
      fun ?totalSizeInBytes ->
        fun ?eTag -> fun () -> { itemCount; totalSizeInBytes; eTag }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ItemCount", (Option.map x.itemCount ~f:Integer.to_value));
        ("TotalSizeInBytes",
          (Option.map x.totalSizeInBytes ~f:Long.to_value));
        ("ETag", (Option.map x.eTag ~f:Etag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eTag = (Option.map ~f:Etag.of_xml) (Xml.child xml_arg0 "ETag") in
      let totalSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalSizeInBytes") in
      let itemCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ItemCount") in
      make ?eTag ?totalSizeInBytes ?itemCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eTag = field_map json__ "ETag" Etag.of_json in
      let totalSizeInBytes = field_map json__ "TotalSizeInBytes" Long.of_json in
      let itemCount = field_map json__ "ItemCount" Integer.of_json in
      make ?eTag ?totalSizeInBytes ?itemCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Metadata information about a Key Value Store."]
module UpdateKeysRequest =
  struct
    type nonrec t =
      {
      kvsARN: KvsARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."];
      ifMatch: Etag.t
        [@ocaml.doc
          "The current version (ETag) of the Key Value Store that you are updating keys of, which you can get using DescribeKeyValueStore."];
      puts: PutKeyRequestsList.t option
        [@ocaml.doc "List of key value pairs to put."];
      deletes: DeleteKeyRequestsList.t option
        [@ocaml.doc "List of keys to delete."]}
    let context_ = "UpdateKeysRequest"
    let make ?puts =
      fun ?deletes ->
        fun ~kvsARN ->
          fun ~ifMatch -> fun () -> { puts; deletes; kvsARN; ifMatch }
    let to_value x =
      structure_to_value
        [("KvsARN", (Some (KvsARN.to_value x.kvsARN)));
        ("If-Match", (Some (Etag.to_value x.ifMatch)));
        ("Puts", (Option.map x.puts ~f:PutKeyRequestsList.to_value));
        ("Deletes", (Option.map x.deletes ~f:DeleteKeyRequestsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletes =
        (Option.map ~f:DeleteKeyRequestsList.of_xml)
          (Xml.child xml_arg0 "Deletes") in
      let puts =
        (Option.map ~f:PutKeyRequestsList.of_xml) (Xml.child xml_arg0 "Puts") in
      let ifMatch =
        Etag.of_xml (Xml.child_exn ~context:context_ xml_arg0 "If-Match") in
      let kvsARN =
        KvsARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KvsARN") in
      make ?deletes ?puts ~ifMatch ~kvsARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletes = field_map json__ "Deletes" DeleteKeyRequestsList.of_json in
      let puts = field_map json__ "Puts" PutKeyRequestsList.of_json in
      let ifMatch = field_map_exn json__ "IfMatch" Etag.of_json in
      let kvsARN = field_map_exn json__ "KvsARN" KvsARN.of_json in
      make ?deletes ?puts ~ifMatch ~kvsARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Puts or Deletes multiple key value pairs in a single, all-or-nothing operation."]
module PutKeyResponse =
  struct
    type nonrec t =
      {
      itemCount: Integer.t option
        [@ocaml.doc
          "Number of key value pairs in the Key Value Store after the successful put."];
      totalSizeInBytes: Long.t option
        [@ocaml.doc
          "Total size of the Key Value Store after the successful put, in bytes."];
      eTag: Etag.t option
        [@ocaml.doc
          "The current version identifier of the Key Value Store after the successful put."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?itemCount =
      fun ?totalSizeInBytes ->
        fun ?eTag -> fun () -> { itemCount; totalSizeInBytes; eTag }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ItemCount", (Option.map x.itemCount ~f:Integer.to_value));
        ("TotalSizeInBytes",
          (Option.map x.totalSizeInBytes ~f:Long.to_value));
        ("ETag", (Option.map x.eTag ~f:Etag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eTag = (Option.map ~f:Etag.of_xml) (Xml.child xml_arg0 "ETag") in
      let totalSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalSizeInBytes") in
      let itemCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ItemCount") in
      make ?eTag ?totalSizeInBytes ?itemCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eTag = field_map json__ "ETag" Etag.of_json in
      let totalSizeInBytes = field_map json__ "TotalSizeInBytes" Long.of_json in
      let itemCount = field_map json__ "ItemCount" Integer.of_json in
      make ?eTag ?totalSizeInBytes ?itemCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Metadata information about a Key Value Store."]
module PutKeyRequest =
  struct
    type nonrec t =
      {
      key: Key.t [@ocaml.doc "The key to put."];
      value: Value.t [@ocaml.doc "The value to put."];
      kvsARN: KvsARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."];
      ifMatch: Etag.t
        [@ocaml.doc
          "The current version (ETag) of the Key Value Store that you are putting keys into, which you can get using DescribeKeyValueStore."]}
    let context_ = "PutKeyRequest"
    let make ~key =
      fun ~value ->
        fun ~kvsARN ->
          fun ~ifMatch -> fun () -> { key; value; kvsARN; ifMatch }
    let to_value x =
      structure_to_value
        [("Key", (Some (Key.to_value x.key)));
        ("Value", (Some (Value.to_value x.value)));
        ("KvsARN", (Some (KvsARN.to_value x.kvsARN)));
        ("If-Match", (Some (Etag.to_value x.ifMatch)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ifMatch =
        Etag.of_xml (Xml.child_exn ~context:context_ xml_arg0 "If-Match") in
      let kvsARN =
        KvsARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KvsARN") in
      let value =
        Value.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key = Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~ifMatch ~kvsARN ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ifMatch = field_map_exn json__ "IfMatch" Etag.of_json in
      let kvsARN = field_map_exn json__ "KvsARN" KvsARN.of_json in
      let value = field_map_exn json__ "Value" Value.of_json in
      let key = field_map_exn json__ "Key" Key.of_json in
      make ~ifMatch ~kvsARN ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key value pair."]
module ListKeysResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned in the response, there are more results available. Make the next call using the returned token to retrieve the next page."];
      items: ListKeysResponseList.t option [@ocaml.doc "Key value pairs"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("Items", (Option.map x.items ~f:ListKeysResponseList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:ListKeysResponseList.of_xml)
          (Xml.child xml_arg0 "Items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "Items" ListKeysResponseList.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of key value pairs."]
module ListKeysRequest =
  struct
    type nonrec t =
      {
      kvsARN: KvsARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned in the response, there are more results available. Make the next call using the returned token to retrieve the next page."];
      maxResults: ListKeysRequestMaxResultsInteger.t option
        [@ocaml.doc
          "Maximum number of results that are returned per call. The default is 10 and maximum allowed page is 50."]}
    let context_ = "ListKeysRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~kvsARN -> fun () -> { nextToken; maxResults; kvsARN }
    let to_value x =
      structure_to_value
        [("KvsARN", (Some (KvsARN.to_value x.kvsARN)));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListKeysRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListKeysRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let kvsARN =
        KvsARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KvsARN") in
      make ?maxResults ?nextToken ~kvsARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults"
          ListKeysRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let kvsARN = field_map_exn json__ "KvsARN" KvsARN.of_json in
      make ?maxResults ?nextToken ~kvsARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of key value pairs."]
module GetKeyResponse =
  struct
    type nonrec t =
      {
      key: Key.t option [@ocaml.doc "The key of the key value pair."];
      value: Value.t option [@ocaml.doc "The value of the key value pair."];
      itemCount: Integer.t option
        [@ocaml.doc "Number of key value pairs in the Key Value Store."];
      totalSizeInBytes: Long.t option
        [@ocaml.doc "Total size of the Key Value Store in bytes."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?key =
      fun ?value ->
        fun ?itemCount ->
          fun ?totalSizeInBytes ->
            fun () -> { key; value; itemCount; totalSizeInBytes }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:Key.to_value));
        ("Value", (Option.map x.value ~f:Value.to_value));
        ("ItemCount", (Option.map x.itemCount ~f:Integer.to_value));
        ("TotalSizeInBytes",
          (Option.map x.totalSizeInBytes ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalSizeInBytes") in
      let itemCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ItemCount") in
      let value = (Option.map ~f:Value.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "Key") in
      make ?totalSizeInBytes ?itemCount ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalSizeInBytes = field_map json__ "TotalSizeInBytes" Long.of_json in
      let itemCount = field_map json__ "ItemCount" Integer.of_json in
      let value = field_map json__ "Value" Value.of_json in
      let key = field_map json__ "Key" Key.of_json in
      make ?totalSizeInBytes ?itemCount ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key value pair."]
module GetKeyRequest =
  struct
    type nonrec t =
      {
      kvsARN: KvsARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."];
      key: Key.t [@ocaml.doc "The key to get."]}
    let context_ = "GetKeyRequest"
    let make ~kvsARN = fun ~key -> fun () -> { kvsARN; key }
    let to_value x =
      structure_to_value
        [("KvsARN", (Some (KvsARN.to_value x.kvsARN)));
        ("Key", (Some (Key.to_value x.key)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      let kvsARN =
        KvsARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KvsARN") in
      make ~key ~kvsARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map_exn json__ "Key" Key.of_json in
      let kvsARN = field_map_exn json__ "KvsARN" KvsARN.of_json in
      make ~key ~kvsARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a key value pair."]
module DescribeKeyValueStoreResponse =
  struct
    type nonrec t =
      {
      itemCount: Integer.t option
        [@ocaml.doc "Number of key value pairs in the Key Value Store."];
      totalSizeInBytes: Long.t option
        [@ocaml.doc "Total size of the Key Value Store in bytes."];
      kvsARN: KvsARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."];
      created: Timestamp.t option
        [@ocaml.doc "Date and time when the Key Value Store was created."];
      eTag: Etag.t option
        [@ocaml.doc
          "The version identifier for the current version of the Key Value Store."];
      lastModified: Timestamp.t option
        [@ocaml.doc
          "Date and time when the key value pairs in the Key Value Store was last modified."];
      status: String_.t option
        [@ocaml.doc "The current status of the Key Value Store."];
      failureReason: String_.t option
        [@ocaml.doc "The reason for Key Value Store creation failure."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?itemCount =
      fun ?totalSizeInBytes ->
        fun ?kvsARN ->
          fun ?created ->
            fun ?eTag ->
              fun ?lastModified ->
                fun ?status ->
                  fun ?failureReason ->
                    fun () ->
                      {
                        itemCount;
                        totalSizeInBytes;
                        kvsARN;
                        created;
                        eTag;
                        lastModified;
                        status;
                        failureReason
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("ItemCount", (Option.map x.itemCount ~f:Integer.to_value));
        ("TotalSizeInBytes",
          (Option.map x.totalSizeInBytes ~f:Long.to_value));
        ("KvsARN", (Option.map x.kvsARN ~f:KvsARN.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("ETag", (Option.map x.eTag ~f:Etag.to_value));
        ("LastModified", (Option.map x.lastModified ~f:Timestamp.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("FailureReason", (Option.map x.failureReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureReason") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let lastModified =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "LastModified") in
      let eTag = (Option.map ~f:Etag.of_xml) (Xml.child xml_arg0 "ETag") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let kvsARN =
        (Option.map ~f:KvsARN.of_xml) (Xml.child xml_arg0 "KvsARN") in
      let totalSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalSizeInBytes") in
      let itemCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ItemCount") in
      make ?failureReason ?status ?lastModified ?eTag ?created ?kvsARN
        ?totalSizeInBytes ?itemCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureReason = field_map json__ "FailureReason" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let lastModified = field_map json__ "LastModified" Timestamp.of_json in
      let eTag = field_map json__ "ETag" Etag.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let kvsARN = field_map json__ "KvsARN" KvsARN.of_json in
      let totalSizeInBytes = field_map json__ "TotalSizeInBytes" Long.of_json in
      let itemCount = field_map json__ "ItemCount" Integer.of_json in
      make ?failureReason ?status ?lastModified ?eTag ?created ?kvsARN
        ?totalSizeInBytes ?itemCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Metadata information about a Key Value Store."]
module DescribeKeyValueStoreRequest =
  struct
    type nonrec t =
      {
      kvsARN: KvsARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."]}
    let context_ = "DescribeKeyValueStoreRequest"
    let make ~kvsARN = fun () -> { kvsARN }
    let to_value x =
      structure_to_value [("KvsARN", (Some (KvsARN.to_value x.kvsARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kvsARN =
        KvsARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KvsARN") in
      make ~kvsARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kvsARN = field_map_exn json__ "KvsARN" KvsARN.of_json in
      make ~kvsARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns metadata information about Key Value Store."]
module DeleteKeyResponse =
  struct
    type nonrec t =
      {
      itemCount: Integer.t option
        [@ocaml.doc
          "Number of key value pairs in the Key Value Store after the successful delete."];
      totalSizeInBytes: Long.t option
        [@ocaml.doc
          "Total size of the Key Value Store after the successful delete, in bytes."];
      eTag: Etag.t option
        [@ocaml.doc
          "The current version identifier of the Key Value Store after the successful delete."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?itemCount =
      fun ?totalSizeInBytes ->
        fun ?eTag -> fun () -> { itemCount; totalSizeInBytes; eTag }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ItemCount", (Option.map x.itemCount ~f:Integer.to_value));
        ("TotalSizeInBytes",
          (Option.map x.totalSizeInBytes ~f:Long.to_value));
        ("ETag", (Option.map x.eTag ~f:Etag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eTag = (Option.map ~f:Etag.of_xml) (Xml.child xml_arg0 "ETag") in
      let totalSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalSizeInBytes") in
      let itemCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ItemCount") in
      make ?eTag ?totalSizeInBytes ?itemCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eTag = field_map json__ "ETag" Etag.of_json in
      let totalSizeInBytes = field_map json__ "TotalSizeInBytes" Long.of_json in
      let itemCount = field_map json__ "ItemCount" Integer.of_json in
      make ?eTag ?totalSizeInBytes ?itemCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Metadata information about a Key Value Store."]
module DeleteKeyRequest =
  struct
    type nonrec t =
      {
      kvsARN: KvsARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Key Value Store."];
      key: Key.t [@ocaml.doc "The key to delete."];
      ifMatch: Etag.t
        [@ocaml.doc
          "The current version (ETag) of the Key Value Store that you are deleting keys from, which you can get using DescribeKeyValueStore."]}
    let context_ = "DeleteKeyRequest"
    let make ~kvsARN =
      fun ~key -> fun ~ifMatch -> fun () -> { kvsARN; key; ifMatch }
    let to_value x =
      structure_to_value
        [("KvsARN", (Some (KvsARN.to_value x.kvsARN)));
        ("Key", (Some (Key.to_value x.key)));
        ("If-Match", (Some (Etag.to_value x.ifMatch)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ifMatch =
        Etag.of_xml (Xml.child_exn ~context:context_ xml_arg0 "If-Match") in
      let key = Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      let kvsARN =
        KvsARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KvsARN") in
      make ~ifMatch ~key ~kvsARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ifMatch = field_map_exn json__ "IfMatch" Etag.of_json in
      let key = field_map_exn json__ "Key" Key.of_json in
      let kvsARN = field_map_exn json__ "KvsARN" KvsARN.of_json in
      make ~ifMatch ~key ~kvsARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the key value pair specified by the key."]