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.sdb
let apiVersion = "2009-04-15"
let endpointPrefix = "sdb"
let serviceFullName = "Amazon SimpleDB"
let signatureVersion = "v2"
let protocol = "query"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let xmlNamespace = "http://sdb.amazonaws.com/doc/2009-04-15/"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module 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 Attribute =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the attribute."];
      alternateNameEncoding: String_.t option ;
      value: String_.t [@ocaml.doc "The value of the attribute."];
      alternateValueEncoding: String_.t option }
    let context_ = "Attribute"
    let make ?alternateNameEncoding =
      fun ?alternateValueEncoding ->
        fun ~name ->
          fun ~value ->
            fun () ->
              { alternateNameEncoding; alternateValueEncoding; name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("AlternateNameEncoding",
          (Option.map x.alternateNameEncoding ~f:String_.to_value));
        ("Value", (Some (String_.to_value x.value)));
        ("AlternateValueEncoding",
          (Option.map x.alternateValueEncoding ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alternateValueEncoding =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AlternateValueEncoding") in
      let value =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let alternateNameEncoding =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AlternateNameEncoding") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?alternateValueEncoding ~value ?alternateNameEncoding ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alternateValueEncoding =
        field_map json__ "AlternateValueEncoding" String_.of_json in
      let value = field_map_exn json__ "Value" String_.of_json in
      let alternateNameEncoding =
        field_map json__ "AlternateNameEncoding" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?alternateValueEncoding ~value ?alternateNameEncoding ~name ()
    let to_json v = composed_to_json to_value v
  end
module ReplaceableAttribute =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the replaceable attribute."];
      value: String_.t [@ocaml.doc "The value of the replaceable attribute."];
      replace: Boolean.t option
        [@ocaml.doc
          "A flag specifying whether or not to replace the attribute/value pair or to add a new attribute/value pair. The default setting is false."]}
    let context_ = "ReplaceableAttribute"
    let make ?replace =
      fun ~name -> fun ~value -> fun () -> { replace; name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Value", (Some (String_.to_value x.value)));
        ("Replace", (Option.map x.replace ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replace =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Replace") in
      let value =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?replace ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replace = field_map json__ "Replace" Boolean.of_json in
      let value = field_map_exn json__ "Value" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?replace ~value ~name ()
    let to_json v = composed_to_json to_value v
  end
module AttributeList =
  struct
    type nonrec t = Attribute.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:Attribute.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 x ~f:Attribute.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeList" ~of_json:Attribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplaceableAttributeList =
  struct
    type nonrec t = ReplaceableAttribute.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:ReplaceableAttribute.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 x ~f:ReplaceableAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplaceableAttributeList"
        ~of_json:ReplaceableAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module Float_ =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module Item =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the item."];
      alternateNameEncoding: String_.t option ;
      attributes: AttributeList.t option [@ocaml.doc "A list of attributes."]}
    let make ?name =
      fun ?alternateNameEncoding ->
        fun ?attributes ->
          fun () -> { name; alternateNameEncoding; attributes }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("AlternateNameEncoding",
          (Option.map x.alternateNameEncoding ~f:String_.to_value));
        ("Attributes", (Option.map x.attributes ~f:AttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributeList.of_xml)
          (Some (Xml.children xml_arg0 "Attribute")) in
      let alternateNameEncoding =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AlternateNameEncoding") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?attributes ?alternateNameEncoding ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "Attributes" AttributeList.of_json in
      let alternateNameEncoding =
        field_map json__ "AlternateNameEncoding" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?attributes ?alternateNameEncoding ?name ()
    let to_json v = composed_to_json to_value v
  end
module ReplaceableItem =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the replaceable item."];
      attributes: ReplaceableAttributeList.t
        [@ocaml.doc "The list of attributes for a replaceable item."]}
    let context_ = "ReplaceableItem"
    let make ~name = fun ~attributes -> fun () -> { name; attributes }
    let to_value x =
      structure_to_value
        [("ItemName", (Some (String_.to_value x.name)));
        ("Attributes",
          (Some (ReplaceableAttributeList.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        ReplaceableAttributeList.of_xml (Xml.children xml_arg0 "Attribute") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ItemName") in
      make ~attributes ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" ReplaceableAttributeList.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ~attributes ~name ()
    let to_json v = composed_to_json to_value v
  end
module DeletableItem =
  struct
    type nonrec t = {
      name: String_.t ;
      attributes: AttributeList.t option }
    let context_ = "DeletableItem"
    let make ?attributes = fun ~name -> fun () -> { attributes; name }
    let to_value x =
      structure_to_value
        [("ItemName", (Some (String_.to_value x.name)));
        ("Attributes", (Option.map x.attributes ~f:AttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributeList.of_xml)
          (Some (Xml.children xml_arg0 "Attribute")) in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ItemName") in
      make ?attributes ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "Attributes" AttributeList.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?attributes ~name ()
    let to_json v = composed_to_json to_value v
  end
module InvalidNextToken =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified NextToken is not valid."]
module InvalidNumberPredicates =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many predicates exist in the query expression."]
module InvalidNumberValueTests =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many predicates exist in the query expression."]
module InvalidParameterValue =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The value for a parameter is invalid."]
module InvalidQueryExpression =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified query expression syntax is not valid."]
module ItemList =
  struct
    type nonrec t = Item.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:Item.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 x ~f:Item.of_xml)
    let of_json j = list_of_json ~kind:"ItemList" ~of_json:Item.of_json j
    let to_json v = composed_to_json to_value v
  end
module MissingParameter =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request must contain the specified missing parameter."]
module NoSuchDomain =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified domain does not exist."]
module RequestTimeout =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A timeout occurred when attempting to query the specified domain with specified query expression."]
module TooManyRequestedAttributes =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many attributes requested."]
module UpdateCondition =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the attribute involved in the condition."];
      value: String_.t option
        [@ocaml.doc
          "The value of an attribute. This value can only be specified when the Exists parameter is equal to true."];
      exists: Boolean.t option
        [@ocaml.doc
          "A value specifying whether or not the specified attribute must exist with the specified value in order for the update condition to be satisfied. Specify true if the attribute must exist for the update condition to be satisfied. Specify false if the attribute should not exist in order for the update condition to be satisfied."]}
    let make ?name =
      fun ?value -> fun ?exists -> fun () -> { name; value; exists }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value));
        ("Exists", (Option.map x.exists ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exists =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Exists") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?exists ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exists = field_map json__ "Exists" Boolean.of_json in
      let value = field_map json__ "Value" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?exists ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the conditions under which data should be updated. If an update condition is specified for a request, the data will only be updated if the condition is satisfied. For example, if an attribute with a specific name and value exists, or if a specific attribute doesn't exist."]
module DomainNameList =
  struct
    type nonrec t = String_.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:String_.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 x ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainNameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  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 AttributeNameList =
  struct
    type nonrec t = String_.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:String_.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 x ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeNameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
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 ReplaceableItemList =
  struct
    type nonrec t = ReplaceableItem.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:ReplaceableItem.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 x ~f:ReplaceableItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplaceableItemList"
        ~of_json:ReplaceableItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeletableItemList =
  struct
    type nonrec t = DeletableItem.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:DeletableItem.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 x ~f:DeletableItem.of_xml)
    let of_json j =
      list_of_json ~kind:"DeletableItemList" ~of_json:DeletableItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module SelectResult =
  struct
    type selectResult =
      {
      items: ItemList.t option
        [@ocaml.doc "A list of items that match the select expression."];
      nextToken: String_.t option
        [@ocaml.doc
          "An opaque token indicating that more items than MaxNumberOfItems were matched, the response size exceeded 1 megabyte, or the execution time exceeded 5 seconds."]}
    and responseMetaData = unit
    and t = {
      selectResult: selectResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidNextToken of InvalidNextToken.t 
      | `InvalidNumberPredicates of InvalidNumberPredicates.t 
      | `InvalidNumberValueTests of InvalidNumberValueTests.t 
      | `InvalidParameterValue of InvalidParameterValue.t 
      | `InvalidQueryExpression of InvalidQueryExpression.t 
      | `MissingParameter of MissingParameter.t 
      | `NoSuchDomain of NoSuchDomain.t 
      | `RequestTimeout of RequestTimeout.t 
      | `TooManyRequestedAttributes of TooManyRequestedAttributes.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "SelectResult"
    let make ?items =
      fun ?nextToken ->
        fun () ->
          { selectResult = { items; nextToken }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidNextToken" ->
          `InvalidNextToken (InvalidNextToken.of_json json)
      | "InvalidNumberPredicates" ->
          `InvalidNumberPredicates (InvalidNumberPredicates.of_json json)
      | "InvalidNumberValueTests" ->
          `InvalidNumberValueTests (InvalidNumberValueTests.of_json json)
      | "InvalidParameterValue" ->
          `InvalidParameterValue (InvalidParameterValue.of_json json)
      | "InvalidQueryExpression" ->
          `InvalidQueryExpression (InvalidQueryExpression.of_json json)
      | "MissingParameter" ->
          `MissingParameter (MissingParameter.of_json json)
      | "NoSuchDomain" -> `NoSuchDomain (NoSuchDomain.of_json json)
      | "RequestTimeout" -> `RequestTimeout (RequestTimeout.of_json json)
      | "TooManyRequestedAttributes" ->
          `TooManyRequestedAttributes
            (TooManyRequestedAttributes.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextToken" -> `InvalidNextToken (InvalidNextToken.of_xml xml)
      | "InvalidNumberPredicates" ->
          `InvalidNumberPredicates (InvalidNumberPredicates.of_xml xml)
      | "InvalidNumberValueTests" ->
          `InvalidNumberValueTests (InvalidNumberValueTests.of_xml xml)
      | "InvalidParameterValue" ->
          `InvalidParameterValue (InvalidParameterValue.of_xml xml)
      | "InvalidQueryExpression" ->
          `InvalidQueryExpression (InvalidQueryExpression.of_xml xml)
      | "MissingParameter" -> `MissingParameter (MissingParameter.of_xml xml)
      | "NoSuchDomain" -> `NoSuchDomain (NoSuchDomain.of_xml xml)
      | "RequestTimeout" -> `RequestTimeout (RequestTimeout.of_xml xml)
      | "TooManyRequestedAttributes" ->
          `TooManyRequestedAttributes (TooManyRequestedAttributes.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextToken e ->
          `Assoc
            [("error", (`String "InvalidNextToken"));
            ("details", (InvalidNextToken.to_json e))]
      | `InvalidNumberPredicates e ->
          `Assoc
            [("error", (`String "InvalidNumberPredicates"));
            ("details", (InvalidNumberPredicates.to_json e))]
      | `InvalidNumberValueTests e ->
          `Assoc
            [("error", (`String "InvalidNumberValueTests"));
            ("details", (InvalidNumberValueTests.to_json e))]
      | `InvalidParameterValue e ->
          `Assoc
            [("error", (`String "InvalidParameterValue"));
            ("details", (InvalidParameterValue.to_json e))]
      | `InvalidQueryExpression e ->
          `Assoc
            [("error", (`String "InvalidQueryExpression"));
            ("details", (InvalidQueryExpression.to_json e))]
      | `MissingParameter e ->
          `Assoc
            [("error", (`String "MissingParameter"));
            ("details", (MissingParameter.to_json e))]
      | `NoSuchDomain e ->
          `Assoc
            [("error", (`String "NoSuchDomain"));
            ("details", (NoSuchDomain.to_json e))]
      | `RequestTimeout e ->
          `Assoc
            [("error", (`String "RequestTimeout"));
            ("details", (RequestTimeout.to_json e))]
      | `TooManyRequestedAttributes e ->
          `Assoc
            [("error", (`String "TooManyRequestedAttributes"));
            ("details", (TooManyRequestedAttributes.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.selectResult in
      structure_to_wrapped_value
        [("Items", (Option.map x.items ~f:ItemList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
        ~wrapper:"SelectResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "SelectResult" in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let items =
        (Option.map ~f:ItemList.of_xml) (Some (Xml.children xml_arg0 "Item")) in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let items = field_map json__ "Items" ItemList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Select operation returns a set of attributes for ItemNames that match the select expression. Select is similar to the standard SQL SELECT statement. The total size of the response cannot exceed 1 MB in total size. Amazon SimpleDB automatically adjusts the number of items returned per page to enforce this limit. For example, if the client asks to retrieve 2500 items, but each individual item is 10 kB in size, the system returns 100 items and an appropriate NextToken so the client can access the next page of results. For information on how to construct select expressions, see Using Select to Create Amazon SimpleDB Queries in the Developer Guide."]
module SelectRequest =
  struct
    type nonrec t =
      {
      selectExpression: String_.t
        [@ocaml.doc "The expression used to query the domain."];
      nextToken: String_.t option
        [@ocaml.doc
          "A string informing Amazon SimpleDB where to start the next list of ItemNames."];
      consistentRead: Boolean.t option
        [@ocaml.doc
          "Determines whether or not strong consistency should be enforced when data is read from SimpleDB. If true, any data previously written to SimpleDB will be returned. Otherwise, results will be consistent eventually, and the client may not see data that was written immediately before your read."]}
    let context_ = "SelectRequest"
    let make ?nextToken =
      fun ?consistentRead ->
        fun ~selectExpression ->
          fun () -> { nextToken; consistentRead; selectExpression }
    let to_value x =
      structure_to_value
        [("SelectExpression", (Some (String_.to_value x.selectExpression)));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("ConsistentRead", (Option.map x.consistentRead ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistentRead =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ConsistentRead") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let selectExpression =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SelectExpression") in
      make ?consistentRead ?nextToken ~selectExpression ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistentRead = field_map json__ "ConsistentRead" Boolean.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let selectExpression =
        field_map_exn json__ "SelectExpression" String_.of_json in
      make ?consistentRead ?nextToken ~selectExpression ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Select operation returns a set of attributes for ItemNames that match the select expression. Select is similar to the standard SQL SELECT statement. The total size of the response cannot exceed 1 MB in total size. Amazon SimpleDB automatically adjusts the number of items returned per page to enforce this limit. For example, if the client asks to retrieve 2500 items, but each individual item is 10 kB in size, the system returns 100 items and an appropriate NextToken so the client can access the next page of results. For information on how to construct select expressions, see Using Select to Create Amazon SimpleDB Queries in the Developer Guide."]
module PutAttributesRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain in which to perform the operation."];
      itemName: String_.t [@ocaml.doc "The name of the item."];
      attributes: ReplaceableAttributeList.t
        [@ocaml.doc "The list of attributes."];
      expected: UpdateCondition.t option
        [@ocaml.doc
          "The update condition which, if specified, determines whether the specified attributes will be updated or not. The update condition must be satisfied in order for this request to be processed and the attributes to be updated."]}
    let context_ = "PutAttributesRequest"
    let make ?expected =
      fun ~domainName ->
        fun ~itemName ->
          fun ~attributes ->
            fun () -> { expected; domainName; itemName; attributes }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)));
        ("ItemName", (Some (String_.to_value x.itemName)));
        ("Attributes",
          (Some (ReplaceableAttributeList.to_value x.attributes)));
        ("Expected", (Option.map x.expected ~f:UpdateCondition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expected =
        (Option.map ~f:UpdateCondition.of_xml)
          (Xml.child xml_arg0 "Expected") in
      let attributes =
        ReplaceableAttributeList.of_xml (Xml.children xml_arg0 "Attribute") in
      let itemName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ItemName") in
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?expected ~attributes ~itemName ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expected = field_map json__ "Expected" UpdateCondition.of_json in
      let attributes =
        field_map_exn json__ "Attributes" ReplaceableAttributeList.of_json in
      let itemName = field_map_exn json__ "ItemName" String_.of_json in
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ?expected ~attributes ~itemName ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The PutAttributes operation creates or replaces attributes in an item. The client may specify new attributes using a combination of the Attribute.X.Name and Attribute.X.Value parameters. The client specifies the first attribute by the parameters Attribute.0.Name and Attribute.0.Value, the second attribute by the parameters Attribute.1.Name and Attribute.1.Value, and so on. Attributes are uniquely identified in an item by their name/value combination. For example, a single item can have the attributes \\{ \"first_name\", \"first_value\" \\} and \\{ \"first_name\", second_value\" \\}. However, it cannot have two attribute instances where both the Attribute.X.Name and Attribute.X.Value are the same. Optionally, the requestor can supply the Replace parameter for each individual attribute. Setting this value to true causes the new attribute value to replace the existing attribute value(s). For example, if an item has the attributes \\{ 'a', '1' \\}, \\{ 'b', '2'\\} and \\{ 'b', '3' \\} and the requestor calls PutAttributes using the attributes \\{ 'b', '4' \\} with the Replace parameter set to true, the final attributes of the item are changed to \\{ 'a', '1' \\} and \\{ 'b', '4' \\}, which replaces the previous values of the 'b' attribute with the new value. You cannot specify an empty string as an attribute name. Because Amazon SimpleDB makes multiple copies of client data and uses an eventual consistency update model, an immediate GetAttributes or Select operation (read) immediately after a PutAttributes or DeleteAttributes operation (write) might not return the updated data. The following limitations are enforced for this operation: 256 total attribute name-value pairs per item One billion attributes per domain 10 GB of total user data storage per domain"]
module NumberSubmittedItemsExceeded =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many items exist in a single call."]
module NumberSubmittedAttributesExceeded =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many attributes exist in a single call."]
module NumberItemAttributesExceeded =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many attributes in this item."]
module NumberDomainsExceeded =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many domains exist per this account."]
module NumberDomainBytesExceeded =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many bytes in this domain."]
module NumberDomainAttributesExceeded =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Too many attributes in this domain."]
module ListDomainsResult =
  struct
    type listDomainsResult =
      {
      domainNames: DomainNameList.t option
        [@ocaml.doc "A list of domain names that match the expression."];
      nextToken: String_.t option
        [@ocaml.doc
          "An opaque token indicating that there are more domains than the specified MaxNumberOfDomains still available."]}
    and responseMetaData = unit
    and t =
      {
      listDomainsResult: listDomainsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidNextToken of InvalidNextToken.t 
      | `InvalidParameterValue of InvalidParameterValue.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListDomainsResult"
    let make ?domainNames =
      fun ?nextToken ->
        fun () ->
          {
            listDomainsResult = { domainNames; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "InvalidNextToken" ->
          `InvalidNextToken (InvalidNextToken.of_json json)
      | "InvalidParameterValue" ->
          `InvalidParameterValue (InvalidParameterValue.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextToken" -> `InvalidNextToken (InvalidNextToken.of_xml xml)
      | "InvalidParameterValue" ->
          `InvalidParameterValue (InvalidParameterValue.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextToken e ->
          `Assoc
            [("error", (`String "InvalidNextToken"));
            ("details", (InvalidNextToken.to_json e))]
      | `InvalidParameterValue e ->
          `Assoc
            [("error", (`String "InvalidParameterValue"));
            ("details", (InvalidParameterValue.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listDomainsResult in
      structure_to_wrapped_value
        [("DomainNames",
           (Option.map x.domainNames ~f:DomainNameList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
        ~wrapper:"ListDomainsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListDomainsResult" in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let domainNames =
        (Option.map ~f:DomainNameList.of_xml)
          (Some (Xml.children xml_arg0 "DomainName")) in
      make ?nextToken ?domainNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let domainNames = field_map json__ "DomainNames" DomainNameList.of_json in
      make ?nextToken ?domainNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListDomains operation lists all domains associated with the Access Key ID. It returns domain names up to the limit set by MaxNumberOfDomains. A NextToken is returned if there are more than MaxNumberOfDomains domains. Calling ListDomains successive times with the NextToken provided by the operation returns up to MaxNumberOfDomains more domain names with each successive operation call."]
module ListDomainsRequest =
  struct
    type nonrec t =
      {
      maxNumberOfDomains: Integer.t option
        [@ocaml.doc
          "The maximum number of domain names you want returned. The range is 1 to 100. The default setting is 100."];
      nextToken: String_.t option
        [@ocaml.doc
          "A string informing Amazon SimpleDB where to start the next list of domain names."]}
    let make ?maxNumberOfDomains =
      fun ?nextToken -> fun () -> { maxNumberOfDomains; nextToken }
    let to_value x =
      structure_to_value
        [("MaxNumberOfDomains",
           (Option.map x.maxNumberOfDomains ~f:Integer.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxNumberOfDomains =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "MaxNumberOfDomains") in
      make ?nextToken ?maxNumberOfDomains ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxNumberOfDomains =
        field_map json__ "MaxNumberOfDomains" Integer.of_json in
      make ?nextToken ?maxNumberOfDomains ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ListDomains operation lists all domains associated with the Access Key ID. It returns domain names up to the limit set by MaxNumberOfDomains. A NextToken is returned if there are more than MaxNumberOfDomains domains. Calling ListDomains successive times with the NextToken provided by the operation returns up to MaxNumberOfDomains more domain names with each successive operation call."]
module GetAttributesResult =
  struct
    type getAttributesResult =
      {
      attributes: AttributeList.t option
        [@ocaml.doc "The list of attributes returned by the operation."]}
    and responseMetaData = unit
    and t =
      {
      getAttributesResult: getAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidParameterValue of InvalidParameterValue.t 
      | `MissingParameter of MissingParameter.t 
      | `NoSuchDomain of NoSuchDomain.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetAttributesResult"
    let make ?attributes =
      fun () ->
        { getAttributesResult = { attributes }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidParameterValue" ->
          `InvalidParameterValue (InvalidParameterValue.of_json json)
      | "MissingParameter" ->
          `MissingParameter (MissingParameter.of_json json)
      | "NoSuchDomain" -> `NoSuchDomain (NoSuchDomain.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValue" ->
          `InvalidParameterValue (InvalidParameterValue.of_xml xml)
      | "MissingParameter" -> `MissingParameter (MissingParameter.of_xml xml)
      | "NoSuchDomain" -> `NoSuchDomain (NoSuchDomain.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValue e ->
          `Assoc
            [("error", (`String "InvalidParameterValue"));
            ("details", (InvalidParameterValue.to_json e))]
      | `MissingParameter e ->
          `Assoc
            [("error", (`String "MissingParameter"));
            ("details", (MissingParameter.to_json e))]
      | `NoSuchDomain e ->
          `Assoc
            [("error", (`String "NoSuchDomain"));
            ("details", (NoSuchDomain.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getAttributesResult in
      structure_to_wrapped_value
        [("Attributes", (Option.map x.attributes ~f:AttributeList.to_value))]
        ~wrapper:"GetAttributesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "GetAttributesResult" in
      let attributes =
        (Option.map ~f:AttributeList.of_xml)
          (Some (Xml.children xml_arg0 "Attribute")) in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "Attributes" AttributeList.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns all of the attributes associated with the specified item. Optionally, the attributes returned can be limited to one or more attributes by specifying an attribute name parameter. If the item does not exist on the replica that was accessed for this operation, an empty set is returned. The system does not return an error as it cannot guarantee the item does not exist on other replicas."]
module GetAttributesRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain in which to perform the operation."];
      itemName: String_.t [@ocaml.doc "The name of the item."];
      attributeNames: AttributeNameList.t option
        [@ocaml.doc "The names of the attributes."];
      consistentRead: Boolean.t option
        [@ocaml.doc
          "Determines whether or not strong consistency should be enforced when data is read from SimpleDB. If true, any data previously written to SimpleDB will be returned. Otherwise, results will be consistent eventually, and the client may not see data that was written immediately before your read."]}
    let context_ = "GetAttributesRequest"
    let make ?attributeNames =
      fun ?consistentRead ->
        fun ~domainName ->
          fun ~itemName ->
            fun () ->
              { attributeNames; consistentRead; domainName; itemName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)));
        ("ItemName", (Some (String_.to_value x.itemName)));
        ("AttributeNames",
          (Option.map x.attributeNames ~f:AttributeNameList.to_value));
        ("ConsistentRead", (Option.map x.consistentRead ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistentRead =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ConsistentRead") in
      let attributeNames =
        (Option.map ~f:AttributeNameList.of_xml)
          (Some (Xml.children xml_arg0 "AttributeName")) in
      let itemName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ItemName") in
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?consistentRead ?attributeNames ~itemName ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistentRead = field_map json__ "ConsistentRead" Boolean.of_json in
      let attributeNames =
        field_map json__ "AttributeNames" AttributeNameList.of_json in
      let itemName = field_map_exn json__ "ItemName" String_.of_json in
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ?consistentRead ?attributeNames ~itemName ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns all of the attributes associated with the specified item. Optionally, the attributes returned can be limited to one or more attributes by specifying an attribute name parameter. If the item does not exist on the replica that was accessed for this operation, an empty set is returned. The system does not return an error as it cannot guarantee the item does not exist on other replicas."]
module DuplicateItemName =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The item name was specified more than once."]
module DomainMetadataResult =
  struct
    type domainMetadataResult =
      {
      itemCount: Integer.t option
        [@ocaml.doc "The number of all items in the domain."];
      itemNamesSizeBytes: Long.t option
        [@ocaml.doc
          "The total size of all item names in the domain, in bytes."];
      attributeNameCount: Integer.t option
        [@ocaml.doc "The number of unique attribute names in the domain."];
      attributeNamesSizeBytes: Long.t option
        [@ocaml.doc
          "The total size of all unique attribute names in the domain, in bytes."];
      attributeValueCount: Integer.t option
        [@ocaml.doc
          "The number of all attribute name/value pairs in the domain."];
      attributeValuesSizeBytes: Long.t option
        [@ocaml.doc
          "The total size of all attribute values in the domain, in bytes."];
      timestamp: Integer.t option
        [@ocaml.doc
          "The data and time when metadata was calculated, in Epoch (UNIX) seconds."]}
    and responseMetaData = unit
    and t =
      {
      domainMetadataResult: domainMetadataResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `MissingParameter of MissingParameter.t 
      | `NoSuchDomain of NoSuchDomain.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DomainMetadataResult"
    let make ?itemCount =
      fun ?itemNamesSizeBytes ->
        fun ?attributeNameCount ->
          fun ?attributeNamesSizeBytes ->
            fun ?attributeValueCount ->
              fun ?attributeValuesSizeBytes ->
                fun ?timestamp ->
                  fun () ->
                    {
                      domainMetadataResult =
                        {
                          itemCount;
                          itemNamesSizeBytes;
                          attributeNameCount;
                          attributeNamesSizeBytes;
                          attributeValueCount;
                          attributeValuesSizeBytes;
                          timestamp
                        };
                      responseMetaData = ()
                    }
    let error_of_json name json =
      match name with
      | "MissingParameter" ->
          `MissingParameter (MissingParameter.of_json json)
      | "NoSuchDomain" -> `NoSuchDomain (NoSuchDomain.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "MissingParameter" -> `MissingParameter (MissingParameter.of_xml xml)
      | "NoSuchDomain" -> `NoSuchDomain (NoSuchDomain.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `MissingParameter e ->
          `Assoc
            [("error", (`String "MissingParameter"));
            ("details", (MissingParameter.to_json e))]
      | `NoSuchDomain e ->
          `Assoc
            [("error", (`String "NoSuchDomain"));
            ("details", (NoSuchDomain.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.domainMetadataResult in
      structure_to_wrapped_value
        [("ItemCount", (Option.map x.itemCount ~f:Integer.to_value));
        ("ItemNamesSizeBytes",
          (Option.map x.itemNamesSizeBytes ~f:Long.to_value));
        ("AttributeNameCount",
          (Option.map x.attributeNameCount ~f:Integer.to_value));
        ("AttributeNamesSizeBytes",
          (Option.map x.attributeNamesSizeBytes ~f:Long.to_value));
        ("AttributeValueCount",
          (Option.map x.attributeValueCount ~f:Integer.to_value));
        ("AttributeValuesSizeBytes",
          (Option.map x.attributeValuesSizeBytes ~f:Long.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Integer.to_value))]
        ~wrapper:"DomainMetadataResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "DomainMetadataResult" in
      let timestamp =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let attributeValuesSizeBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "AttributeValuesSizeBytes") in
      let attributeValueCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AttributeValueCount") in
      let attributeNamesSizeBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "AttributeNamesSizeBytes") in
      let attributeNameCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AttributeNameCount") in
      let itemNamesSizeBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "ItemNamesSizeBytes") in
      let itemCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ItemCount") in
      make ?timestamp ?attributeValuesSizeBytes ?attributeValueCount
        ?attributeNamesSizeBytes ?attributeNameCount ?itemNamesSizeBytes
        ?itemCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "Timestamp" Integer.of_json in
      let attributeValuesSizeBytes =
        field_map json__ "AttributeValuesSizeBytes" Long.of_json in
      let attributeValueCount =
        field_map json__ "AttributeValueCount" Integer.of_json in
      let attributeNamesSizeBytes =
        field_map json__ "AttributeNamesSizeBytes" Long.of_json in
      let attributeNameCount =
        field_map json__ "AttributeNameCount" Integer.of_json in
      let itemNamesSizeBytes =
        field_map json__ "ItemNamesSizeBytes" Long.of_json in
      let itemCount = field_map json__ "ItemCount" Integer.of_json in
      make ?timestamp ?attributeValuesSizeBytes ?attributeValueCount
        ?attributeNamesSizeBytes ?attributeNameCount ?itemNamesSizeBytes
        ?itemCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the domain, including when the domain was created, the number of items and attributes in the domain, and the size of the attribute names and values."]
module DomainMetadataRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain for which to display the metadata of."]}
    let context_ = "DomainMetadataRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the domain, including when the domain was created, the number of items and attributes in the domain, and the size of the attribute names and values."]
module DeleteDomainRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t [@ocaml.doc "The name of the domain to delete."]}
    let context_ = "DeleteDomainRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The DeleteDomain operation deletes a domain. Any items (and their attributes) in the domain are deleted as well. The DeleteDomain operation might take 10 or more seconds to complete."]
module DeleteAttributesRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain in which to perform the operation."];
      itemName: String_.t
        [@ocaml.doc
          "The name of the item. Similar to rows on a spreadsheet, items represent individual objects that contain one or more value-attribute pairs."];
      attributes: AttributeList.t option
        [@ocaml.doc
          "A list of Attributes. Similar to columns on a spreadsheet, attributes represent categories of data that can be assigned to items."];
      expected: UpdateCondition.t option
        [@ocaml.doc
          "The update condition which, if specified, determines whether the specified attributes will be deleted or not. The update condition must be satisfied in order for this request to be processed and the attributes to be deleted."]}
    let context_ = "DeleteAttributesRequest"
    let make ?attributes =
      fun ?expected ->
        fun ~domainName ->
          fun ~itemName ->
            fun () -> { attributes; expected; domainName; itemName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)));
        ("ItemName", (Some (String_.to_value x.itemName)));
        ("Attributes", (Option.map x.attributes ~f:AttributeList.to_value));
        ("Expected", (Option.map x.expected ~f:UpdateCondition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expected =
        (Option.map ~f:UpdateCondition.of_xml)
          (Xml.child xml_arg0 "Expected") in
      let attributes =
        (Option.map ~f:AttributeList.of_xml)
          (Some (Xml.children xml_arg0 "Attribute")) in
      let itemName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ItemName") in
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?expected ?attributes ~itemName ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expected = field_map json__ "Expected" UpdateCondition.of_json in
      let attributes = field_map json__ "Attributes" AttributeList.of_json in
      let itemName = field_map_exn json__ "ItemName" String_.of_json in
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ?expected ?attributes ~itemName ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes one or more attributes associated with an item. If all attributes of the item are deleted, the item is deleted. DeleteAttributes is an idempotent operation; running it multiple times on the same item or attribute does not result in an error response. Because Amazon SimpleDB makes multiple copies of item data and uses an eventual consistency update model, performing a GetAttributes or Select operation (read) immediately after a DeleteAttributes or PutAttributes operation (write) might not return updated item data."]
module CreateDomainRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain to create. The name can range between 3 and 255 characters and can contain the following characters: a-z, A-Z, 0-9, '_', '-', and '.'."]}
    let context_ = "CreateDomainRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CreateDomain operation creates a new domain. The domain name should be unique among the domains associated with the Access Key ID provided in the request. The CreateDomain operation may take 10 or more seconds to complete. The client can create up to 100 domains per account. If the client requires additional domains, go to http://aws.amazon.com/contact-us/simpledb-limit-request/."]
module BatchPutAttributesRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain in which the attributes are being stored."];
      items: ReplaceableItemList.t
        [@ocaml.doc "A list of items on which to perform the operation."]}
    let context_ = "BatchPutAttributesRequest"
    let make ~domainName = fun ~items -> fun () -> { domainName; items }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)));
        ("Items", (Some (ReplaceableItemList.to_value x.items)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items = ReplaceableItemList.of_xml (Xml.children xml_arg0 "Item") in
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~items ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map_exn json__ "Items" ReplaceableItemList.of_json in
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ~items ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The BatchPutAttributes operation creates or replaces attributes within one or more items. By using this operation, the client can perform multiple PutAttribute operation with a single call. This helps yield savings in round trips and latencies, enabling Amazon SimpleDB to optimize requests and generally produce better throughput. The client may specify the item name with the Item.X.ItemName parameter. The client may specify new attributes using a combination of the Item.X.Attribute.Y.Name and Item.X.Attribute.Y.Value parameters. The client may specify the first attribute for the first item using the parameters Item.0.Attribute.0.Name and Item.0.Attribute.0.Value, and for the second attribute for the first item by the parameters Item.0.Attribute.1.Name and Item.0.Attribute.1.Value, and so on. Attributes are uniquely identified within an item by their name/value combination. For example, a single item can have the attributes \\{ \"first_name\", \"first_value\" \\} and \\{ \"first_name\", \"second_value\" \\}. However, it cannot have two attribute instances where both the Item.X.Attribute.Y.Name and Item.X.Attribute.Y.Value are the same. Optionally, the requester can supply the Replace parameter for each individual value. Setting this value to true will cause the new attribute values to replace the existing attribute values. For example, if an item I has the attributes \\{ 'a', '1' \\}, \\{ 'b', '2'\\} and \\{ 'b', '3' \\} and the requester does a BatchPutAttributes of \\{'I', 'b', '4' \\} with the Replace parameter set to true, the final attributes of the item will be \\{ 'a', '1' \\} and \\{ 'b', '4' \\}, replacing the previous values of the 'b' attribute with the new value. This operation is vulnerable to exceeding the maximum URL size when making a REST request using the HTTP GET method. This operation does not support conditions using Expected.X.Name, Expected.X.Value, or Expected.X.Exists. You can execute multiple BatchPutAttributes operations and other operations in parallel. However, large numbers of concurrent BatchPutAttributes calls can result in Service Unavailable (503) responses. The following limitations are enforced for this operation: 256 attribute name-value pairs per item 1 MB request size 1 billion attributes per domain 10 GB of total user data storage per domain 25 item limit per BatchPutAttributes operation"]
module BatchDeleteAttributesRequest =
  struct
    type nonrec t =
      {
      domainName: String_.t
        [@ocaml.doc
          "The name of the domain in which the attributes are being deleted."];
      items: DeletableItemList.t
        [@ocaml.doc "A list of items on which to perform the operation."]}
    let context_ = "BatchDeleteAttributesRequest"
    let make ~domainName = fun ~items -> fun () -> { domainName; items }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (String_.to_value x.domainName)));
        ("Items", (Some (DeletableItemList.to_value x.items)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items = DeletableItemList.of_xml (Xml.children xml_arg0 "Item") in
      let domainName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~items ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map_exn json__ "Items" DeletableItemList.of_json in
      let domainName = field_map_exn json__ "DomainName" String_.of_json in
      make ~items ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Performs multiple DeleteAttributes operations in a single call, which reduces round trips and latencies. This enables Amazon SimpleDB to optimize requests, which generally yields better throughput. The following limitations are enforced for this operation: 1 MB request size 25 item limit per BatchDeleteAttributes operation"]
module AttributeDoesNotExist =
  struct
    type nonrec t = {
      boxUsage: Float_.t option }
    let make ?boxUsage = fun () -> { boxUsage }
    let to_value x =
      structure_to_value
        [("BoxUsage", (Option.map x.boxUsage ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boxUsage =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "BoxUsage") in
      make ?boxUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boxUsage = field_map json__ "BoxUsage" Float_.of_json in
      make ?boxUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified attribute does not exist."]