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.glacier
let apiVersion = "2012-06-01"
let endpointPrefix = "glacier"
let serviceFullName = "Amazon Glacier"
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 Type =
  struct
    type nonrec t =
      | AmazonCustomerByEmail 
      | CanonicalUser 
      | Group 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AmazonCustomerByEmail -> "AmazonCustomerByEmail"
      | CanonicalUser -> "CanonicalUser"
      | Group -> "Group"
      | Non_static_id s -> s
    let of_string =
      function
      | "AmazonCustomerByEmail" -> AmazonCustomerByEmail
      | "CanonicalUser" -> CanonicalUser
      | "Group" -> Group
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Type" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Type" 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 Grantee =
  struct
    type nonrec t =
      {
      type_: Type.t [@ocaml.doc "Type of grantee"];
      displayName: String_.t option
        [@ocaml.doc "Screen name of the grantee."];
      uRI: String_.t option [@ocaml.doc "URI of the grantee group."];
      iD: String_.t option
        [@ocaml.doc "The canonical user ID of the grantee."];
      emailAddress: String_.t option
        [@ocaml.doc "Email address of the grantee."]}
    let context_ = "Grantee"
    let make ?displayName =
      fun ?uRI ->
        fun ?iD ->
          fun ?emailAddress ->
            fun ~type_ ->
              fun () -> { displayName; uRI; iD; emailAddress; type_ }
    let to_value x =
      structure_to_value
        [("Type", (Some (Type.to_value x.type_)));
        ("DisplayName", (Option.map x.displayName ~f:String_.to_value));
        ("URI", (Option.map x.uRI ~f:String_.to_value));
        ("ID", (Option.map x.iD ~f:String_.to_value));
        ("EmailAddress", (Option.map x.emailAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EmailAddress") in
      let iD = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ID") in
      let uRI = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "URI") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DisplayName") in
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ?emailAddress ?iD ?uRI ?displayName ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress = field_map json__ "EmailAddress" String_.of_json in
      let iD = field_map json__ "ID" String_.of_json in
      let uRI = field_map json__ "URI" String_.of_json in
      let displayName = field_map json__ "DisplayName" String_.of_json in
      let type_ = field_map_exn json__ "Type" Type.of_json in
      make ?emailAddress ?iD ?uRI ?displayName ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about the grantee."]
module Permission =
  struct
    type nonrec t =
      | FULL_CONTROL 
      | WRITE 
      | WRITE_ACP 
      | READ 
      | READ_ACP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FULL_CONTROL -> "FULL_CONTROL"
      | WRITE -> "WRITE"
      | WRITE_ACP -> "WRITE_ACP"
      | READ -> "READ"
      | READ_ACP -> "READ_ACP"
      | Non_static_id s -> s
    let of_string =
      function
      | "FULL_CONTROL" -> FULL_CONTROL
      | "WRITE" -> WRITE
      | "WRITE_ACP" -> WRITE_ACP
      | "READ" -> READ
      | "READ_ACP" -> READ_ACP
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Permission" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Permission" j)
    let to_json = simple_to_json to_value
  end
module Grant =
  struct
    type nonrec t =
      {
      grantee: Grantee.t option [@ocaml.doc "The grantee."];
      permission: Permission.t option
        [@ocaml.doc "Specifies the permission given to the grantee."]}
    let make ?grantee = fun ?permission -> fun () -> { grantee; permission }
    let to_value x =
      structure_to_value
        [("Grantee", (Option.map x.grantee ~f:Grantee.to_value));
        ("Permission", (Option.map x.permission ~f:Permission.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permission =
        (Option.map ~f:Permission.of_xml) (Xml.child xml_arg0 "Permission") in
      let grantee =
        (Option.map ~f:Grantee.of_xml) (Xml.child xml_arg0 "Grantee") in
      make ?permission ?grantee ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permission = field_map json__ "Permission" Permission.of_json in
      let grantee = field_map json__ "Grantee" Grantee.of_json in
      make ?permission ?grantee ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a grant."]
module EncryptionType =
  struct
    type nonrec t =
      | Aws_kms 
      | AES256 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Aws_kms -> "aws:kms"
      | AES256 -> "AES256"
      | Non_static_id s -> s
    let of_string =
      function
      | "aws:kms" -> Aws_kms
      | "AES256" -> AES256
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EncryptionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionType" j)
    let to_json = simple_to_json to_value
  end
module FileHeaderInfo =
  struct
    type nonrec t =
      | USE 
      | IGNORE 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USE -> "USE"
      | IGNORE -> "IGNORE"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "USE" -> USE
      | "IGNORE" -> IGNORE
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration FileHeaderInfo" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FileHeaderInfo" j)
    let to_json = simple_to_json to_value
  end
module QuoteFields =
  struct
    type nonrec t =
      | ALWAYS 
      | ASNEEDED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALWAYS -> "ALWAYS"
      | ASNEEDED -> "ASNEEDED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALWAYS" -> ALWAYS
      | "ASNEEDED" -> ASNEEDED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration QuoteFields" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QuoteFields" j)
    let to_json = simple_to_json to_value
  end
module AccessControlPolicyList =
  struct
    type nonrec t = Grant.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:Grant.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:Grant.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessControlPolicyList" ~of_json:Grant.of_json j
    let to_json v = composed_to_json to_value v
  end
module CannedACL =
  struct
    type nonrec t =
      | Private 
      | Public_read 
      | Public_read_write 
      | Aws_exec_read 
      | Authenticated_read 
      | Bucket_owner_read 
      | Bucket_owner_full_control 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Private -> "private"
      | Public_read -> "public-read"
      | Public_read_write -> "public-read-write"
      | Aws_exec_read -> "aws-exec-read"
      | Authenticated_read -> "authenticated-read"
      | Bucket_owner_read -> "bucket-owner-read"
      | Bucket_owner_full_control -> "bucket-owner-full-control"
      | Non_static_id s -> s
    let of_string =
      function
      | "private" -> Private
      | "public-read" -> Public_read
      | "public-read-write" -> Public_read_write
      | "aws-exec-read" -> Aws_exec_read
      | "authenticated-read" -> Authenticated_read
      | "bucket-owner-read" -> Bucket_owner_read
      | "bucket-owner-full-control" -> Bucket_owner_full_control
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CannedACL" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CannedACL" j)
    let to_json = simple_to_json to_value
  end
module Encryption =
  struct
    type nonrec t =
      {
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "The server-side encryption algorithm used when storing job results in Amazon S3, for example AES256 or aws:kms."];
      kMSKeyId: String_.t option
        [@ocaml.doc
          "The AWS KMS key ID to use for object encryption. All GET and PUT requests for an object protected by AWS KMS fail if not made by using Secure Sockets Layer (SSL) or Signature Version 4."];
      kMSContext: String_.t option
        [@ocaml.doc
          "Optional. If the encryption type is aws:kms, you can use this value to specify the encryption context for the job results."]}
    let make ?encryptionType =
      fun ?kMSKeyId ->
        fun ?kMSContext -> fun () -> { encryptionType; kMSKeyId; kMSContext }
    let to_value x =
      structure_to_value
        [("EncryptionType",
           (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSKeyId", (Option.map x.kMSKeyId ~f:String_.to_value));
        ("KMSContext", (Option.map x.kMSContext ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kMSContext =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KMSContext") in
      let kMSKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KMSKeyId") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      make ?kMSContext ?kMSKeyId ?encryptionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kMSContext = field_map json__ "KMSContext" String_.of_json in
      let kMSKeyId = field_map json__ "KMSKeyId" String_.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      make ?kMSContext ?kMSKeyId ?encryptionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the encryption used to store the job results in Amazon S3."]
module StorageClass =
  struct
    type nonrec t =
      | STANDARD 
      | REDUCED_REDUNDANCY 
      | STANDARD_IA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | REDUCED_REDUNDANCY -> "REDUCED_REDUNDANCY"
      | STANDARD_IA -> "STANDARD_IA"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "REDUCED_REDUNDANCY" -> REDUCED_REDUNDANCY
      | "STANDARD_IA" -> STANDARD_IA
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StorageClass" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StorageClass" j)
    let to_json = simple_to_json to_value
  end
module Hashmap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module CSVInput =
  struct
    type nonrec t =
      {
      fileHeaderInfo: FileHeaderInfo.t option
        [@ocaml.doc
          "Describes the first line of input. Valid values are None, Ignore, and Use."];
      comments: String_.t option
        [@ocaml.doc
          "A single character used to indicate that a row should be ignored when the character is present at the start of that row."];
      quoteEscapeCharacter: String_.t option
        [@ocaml.doc
          "A single character used for escaping the quotation-mark character inside an already escaped value."];
      recordDelimiter: String_.t option
        [@ocaml.doc
          "A value used to separate individual records from each other."];
      fieldDelimiter: String_.t option
        [@ocaml.doc
          "A value used to separate individual fields from each other within a record."];
      quoteCharacter: String_.t option
        [@ocaml.doc
          "A value used as an escape character where the field delimiter is part of the value."]}
    let make ?fileHeaderInfo =
      fun ?comments ->
        fun ?quoteEscapeCharacter ->
          fun ?recordDelimiter ->
            fun ?fieldDelimiter ->
              fun ?quoteCharacter ->
                fun () ->
                  {
                    fileHeaderInfo;
                    comments;
                    quoteEscapeCharacter;
                    recordDelimiter;
                    fieldDelimiter;
                    quoteCharacter
                  }
    let to_value x =
      structure_to_value
        [("FileHeaderInfo",
           (Option.map x.fileHeaderInfo ~f:FileHeaderInfo.to_value));
        ("Comments", (Option.map x.comments ~f:String_.to_value));
        ("QuoteEscapeCharacter",
          (Option.map x.quoteEscapeCharacter ~f:String_.to_value));
        ("RecordDelimiter",
          (Option.map x.recordDelimiter ~f:String_.to_value));
        ("FieldDelimiter", (Option.map x.fieldDelimiter ~f:String_.to_value));
        ("QuoteCharacter", (Option.map x.quoteCharacter ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quoteCharacter =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QuoteCharacter") in
      let fieldDelimiter =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FieldDelimiter") in
      let recordDelimiter =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RecordDelimiter") in
      let quoteEscapeCharacter =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "QuoteEscapeCharacter") in
      let comments =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Comments") in
      let fileHeaderInfo =
        (Option.map ~f:FileHeaderInfo.of_xml)
          (Xml.child xml_arg0 "FileHeaderInfo") in
      make ?quoteCharacter ?fieldDelimiter ?recordDelimiter
        ?quoteEscapeCharacter ?comments ?fileHeaderInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quoteCharacter = field_map json__ "QuoteCharacter" String_.of_json in
      let fieldDelimiter = field_map json__ "FieldDelimiter" String_.of_json in
      let recordDelimiter =
        field_map json__ "RecordDelimiter" String_.of_json in
      let quoteEscapeCharacter =
        field_map json__ "QuoteEscapeCharacter" String_.of_json in
      let comments = field_map json__ "Comments" String_.of_json in
      let fileHeaderInfo =
        field_map json__ "FileHeaderInfo" FileHeaderInfo.of_json in
      make ?quoteCharacter ?fieldDelimiter ?recordDelimiter
        ?quoteEscapeCharacter ?comments ?fileHeaderInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the comma-separated value (CSV) file to select from."]
module CSVOutput =
  struct
    type nonrec t =
      {
      quoteFields: QuoteFields.t option
        [@ocaml.doc
          "A value that indicates whether all output fields should be contained within quotation marks."];
      quoteEscapeCharacter: String_.t option
        [@ocaml.doc
          "A single character used for escaping the quotation-mark character inside an already escaped value."];
      recordDelimiter: String_.t option
        [@ocaml.doc
          "A value used to separate individual records from each other."];
      fieldDelimiter: String_.t option
        [@ocaml.doc
          "A value used to separate individual fields from each other within a record."];
      quoteCharacter: String_.t option
        [@ocaml.doc
          "A value used as an escape character where the field delimiter is part of the value."]}
    let make ?quoteFields =
      fun ?quoteEscapeCharacter ->
        fun ?recordDelimiter ->
          fun ?fieldDelimiter ->
            fun ?quoteCharacter ->
              fun () ->
                {
                  quoteFields;
                  quoteEscapeCharacter;
                  recordDelimiter;
                  fieldDelimiter;
                  quoteCharacter
                }
    let to_value x =
      structure_to_value
        [("QuoteFields", (Option.map x.quoteFields ~f:QuoteFields.to_value));
        ("QuoteEscapeCharacter",
          (Option.map x.quoteEscapeCharacter ~f:String_.to_value));
        ("RecordDelimiter",
          (Option.map x.recordDelimiter ~f:String_.to_value));
        ("FieldDelimiter", (Option.map x.fieldDelimiter ~f:String_.to_value));
        ("QuoteCharacter", (Option.map x.quoteCharacter ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quoteCharacter =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QuoteCharacter") in
      let fieldDelimiter =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FieldDelimiter") in
      let recordDelimiter =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RecordDelimiter") in
      let quoteEscapeCharacter =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "QuoteEscapeCharacter") in
      let quoteFields =
        (Option.map ~f:QuoteFields.of_xml) (Xml.child xml_arg0 "QuoteFields") in
      make ?quoteCharacter ?fieldDelimiter ?recordDelimiter
        ?quoteEscapeCharacter ?quoteFields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quoteCharacter = field_map json__ "QuoteCharacter" String_.of_json in
      let fieldDelimiter = field_map json__ "FieldDelimiter" String_.of_json in
      let recordDelimiter =
        field_map json__ "RecordDelimiter" String_.of_json in
      let quoteEscapeCharacter =
        field_map json__ "QuoteEscapeCharacter" String_.of_json in
      let quoteFields = field_map json__ "QuoteFields" QuoteFields.of_json in
      make ?quoteCharacter ?fieldDelimiter ?recordDelimiter
        ?quoteEscapeCharacter ?quoteFields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the comma-separated value (CSV) file that the job results are stored in."]
module NullableLong =
  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 DateTime =
  struct
    type nonrec t = string
    let context_ = "DateTime"
    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:"DateTime" j
    let to_json = simple_to_json to_value
  end
module S3Location =
  struct
    type nonrec t =
      {
      bucketName: String_.t option
        [@ocaml.doc
          "The name of the Amazon S3 bucket where the job results are stored."];
      prefix: String_.t option
        [@ocaml.doc
          "The prefix that is prepended to the results for this request."];
      encryption: Encryption.t option
        [@ocaml.doc
          "Contains information about the encryption used to store the job results in Amazon S3."];
      cannedACL: CannedACL.t option
        [@ocaml.doc
          "The canned access control list (ACL) to apply to the job results."];
      accessControlList: AccessControlPolicyList.t option
        [@ocaml.doc
          "A list of grants that control access to the staged results."];
      tagging: Hashmap.t option
        [@ocaml.doc "The tag-set that is applied to the job results."];
      userMetadata: Hashmap.t option
        [@ocaml.doc
          "A map of metadata to store with the job results in Amazon S3."];
      storageClass: StorageClass.t option
        [@ocaml.doc "The storage class used to store the job results."]}
    let make ?bucketName =
      fun ?prefix ->
        fun ?encryption ->
          fun ?cannedACL ->
            fun ?accessControlList ->
              fun ?tagging ->
                fun ?userMetadata ->
                  fun ?storageClass ->
                    fun () ->
                      {
                        bucketName;
                        prefix;
                        encryption;
                        cannedACL;
                        accessControlList;
                        tagging;
                        userMetadata;
                        storageClass
                      }
    let to_value x =
      structure_to_value
        [("BucketName", (Option.map x.bucketName ~f:String_.to_value));
        ("Prefix", (Option.map x.prefix ~f:String_.to_value));
        ("Encryption", (Option.map x.encryption ~f:Encryption.to_value));
        ("CannedACL", (Option.map x.cannedACL ~f:CannedACL.to_value));
        ("AccessControlList",
          (Option.map x.accessControlList ~f:AccessControlPolicyList.to_value));
        ("Tagging", (Option.map x.tagging ~f:Hashmap.to_value));
        ("UserMetadata", (Option.map x.userMetadata ~f:Hashmap.to_value));
        ("StorageClass",
          (Option.map x.storageClass ~f:StorageClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "StorageClass") in
      let userMetadata =
        (Option.map ~f:Hashmap.of_xml) (Xml.child xml_arg0 "UserMetadata") in
      let tagging =
        (Option.map ~f:Hashmap.of_xml) (Xml.child xml_arg0 "Tagging") in
      let accessControlList =
        (Option.map ~f:AccessControlPolicyList.of_xml)
          (Xml.child xml_arg0 "AccessControlList") in
      let cannedACL =
        (Option.map ~f:CannedACL.of_xml) (Xml.child xml_arg0 "CannedACL") in
      let encryption =
        (Option.map ~f:Encryption.of_xml) (Xml.child xml_arg0 "Encryption") in
      let prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Prefix") in
      let bucketName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BucketName") in
      make ?storageClass ?userMetadata ?tagging ?accessControlList ?cannedACL
        ?encryption ?prefix ?bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClass = field_map json__ "StorageClass" StorageClass.of_json in
      let userMetadata = field_map json__ "UserMetadata" Hashmap.of_json in
      let tagging = field_map json__ "Tagging" Hashmap.of_json in
      let accessControlList =
        field_map json__ "AccessControlList" AccessControlPolicyList.of_json in
      let cannedACL = field_map json__ "CannedACL" CannedACL.of_json in
      let encryption = field_map json__ "Encryption" Encryption.of_json in
      let prefix = field_map json__ "Prefix" String_.of_json in
      let bucketName = field_map json__ "BucketName" String_.of_json in
      make ?storageClass ?userMetadata ?tagging ?accessControlList ?cannedACL
        ?encryption ?prefix ?bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the location in Amazon S3 where the select job results are stored."]
module ExpressionType =
  struct
    type nonrec t =
      | SQL 
      | Non_static_id of string 
    let make i = i
    let to_string = function | SQL -> "SQL" | Non_static_id s -> s
    let of_string = function | "SQL" -> SQL | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ExpressionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExpressionType" j)
    let to_json = simple_to_json to_value
  end
module InputSerialization =
  struct
    type nonrec t =
      {
      csv: CSVInput.t option
        [@ocaml.doc "Describes the serialization of a CSV-encoded object."]}
    let make ?csv = fun () -> { csv }
    let to_value x =
      structure_to_value [("csv", (Option.map x.csv ~f:CSVInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let csv = (Option.map ~f:CSVInput.of_xml) (Xml.child xml_arg0 "csv") in
      make ?csv ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let csv = field_map json__ "csv" CSVInput.of_json in make ?csv ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes how the archive is serialized."]
module OutputSerialization =
  struct
    type nonrec t =
      {
      csv: CSVOutput.t option
        [@ocaml.doc
          "Describes the serialization of CSV-encoded query results."]}
    let make ?csv = fun () -> { csv }
    let to_value x =
      structure_to_value [("csv", (Option.map x.csv ~f:CSVOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let csv = (Option.map ~f:CSVOutput.of_xml) (Xml.child xml_arg0 "csv") in
      make ?csv ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let csv = field_map json__ "csv" CSVOutput.of_json in make ?csv ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes how the select output is serialized."]
module DataRetrievalRule =
  struct
    type nonrec t =
      {
      strategy: String_.t option
        [@ocaml.doc
          "The type of data retrieval policy to set. Valid values: BytesPerHour|FreeTier|None"];
      bytesPerHour: NullableLong.t option
        [@ocaml.doc
          "The maximum number of bytes that can be retrieved in an hour. This field is required only if the value of the Strategy field is BytesPerHour. Your PUT operation will be rejected if the Strategy field is not set to BytesPerHour and you set this field."]}
    let make ?strategy =
      fun ?bytesPerHour -> fun () -> { strategy; bytesPerHour }
    let to_value x =
      structure_to_value
        [("Strategy", (Option.map x.strategy ~f:String_.to_value));
        ("BytesPerHour",
          (Option.map x.bytesPerHour ~f:NullableLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bytesPerHour =
        (Option.map ~f:NullableLong.of_xml)
          (Xml.child xml_arg0 "BytesPerHour") in
      let strategy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Strategy") in
      make ?bytesPerHour ?strategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bytesPerHour = field_map json__ "BytesPerHour" NullableLong.of_json in
      let strategy = field_map json__ "Strategy" String_.of_json in
      make ?bytesPerHour ?strategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Data retrieval policy rule."]
module InvalidParameterValueException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client"];
      code: String_.t option [@ocaml.doc "400 Bad Request"];
      message: String_.t option
        [@ocaml.doc
          "Returned if a parameter of the request is incorrectly specified."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if a parameter of the request is incorrectly specified."]
module MissingParameterValueException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client."];
      code: String_.t option [@ocaml.doc "400 Bad Request"];
      message: String_.t option
        [@ocaml.doc
          "Returned if no authentication data is found for the request."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if a required header or parameter is missing from the request."]
module NoLongerSupportedException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client"];
      code: String_.t option [@ocaml.doc "400 Bad Request"];
      message: String_.t option
        [@ocaml.doc
          "This API is no longer supported for new accounts. Please use Amazon S3 Glacier storage classes instead."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the request was made by a customer with no Amazon Glacier storage. The request is denied as the API is no longer supported for new customers. Please use Amazon S3 Glacier storage classes instead."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client"];
      code: String_.t option [@ocaml.doc "404 Not Found"];
      message: String_.t option
        [@ocaml.doc
          "Returned if the specified resource (such as a vault, upload ID, or job ID) doesn't exist."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the specified resource (such as a vault, upload ID, or job ID) doesn't exist."]
module ServiceUnavailableException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Server"];
      code: String_.t option [@ocaml.doc "500 Internal Server Error"];
      message: String_.t option
        [@ocaml.doc "Returned if the service cannot complete the request."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned if the service cannot complete the request."]
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 ActionCode =
  struct
    type nonrec t =
      | ArchiveRetrieval 
      | InventoryRetrieval 
      | Select 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ArchiveRetrieval -> "ArchiveRetrieval"
      | InventoryRetrieval -> "InventoryRetrieval"
      | Select -> "Select"
      | Non_static_id s -> s
    let of_string =
      function
      | "ArchiveRetrieval" -> ArchiveRetrieval
      | "InventoryRetrieval" -> InventoryRetrieval
      | "Select" -> Select
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ActionCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActionCode" j)
    let to_json = simple_to_json to_value
  end
module InventoryRetrievalJobDescription =
  struct
    type nonrec t =
      {
      format: String_.t option
        [@ocaml.doc
          "The output format for the vault inventory list, which is set by the InitiateJob request when initiating a job to retrieve a vault inventory. Valid values are CSV and JSON."];
      startDate: DateTime.t option
        [@ocaml.doc
          "The start of the date range in Universal Coordinated Time (UTC) for vault inventory retrieval that includes archives created on or after this date. This value should be a string in the ISO 8601 date format, for example 2013-03-20T17:03:43Z."];
      endDate: DateTime.t option
        [@ocaml.doc
          "The end of the date range in UTC for vault inventory retrieval that includes archives created before this date. This value should be a string in the ISO 8601 date format, for example 2013-03-20T17:03:43Z."];
      limit: String_.t option
        [@ocaml.doc
          "The maximum number of inventory items returned per vault inventory retrieval request. This limit is set when initiating the job with the a InitiateJob request."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string that represents where to continue pagination of the vault inventory retrieval results. You use the marker in a new InitiateJob request to obtain additional inventory items. If there are no more inventory items, this value is null. For more information, see Range Inventory Retrieval."]}
    let make ?format =
      fun ?startDate ->
        fun ?endDate ->
          fun ?limit ->
            fun ?marker ->
              fun () -> { format; startDate; endDate; limit; marker }
    let to_value x =
      structure_to_value
        [("Format", (Option.map x.format ~f:String_.to_value));
        ("StartDate", (Option.map x.startDate ~f:DateTime.to_value));
        ("EndDate", (Option.map x.endDate ~f:DateTime.to_value));
        ("Limit", (Option.map x.limit ~f:String_.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let limit = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Limit") in
      let endDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndDate") in
      let startDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartDate") in
      let format =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Format") in
      make ?marker ?limit ?endDate ?startDate ?format ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" String_.of_json in
      let limit = field_map json__ "Limit" String_.of_json in
      let endDate = field_map json__ "EndDate" DateTime.of_json in
      let startDate = field_map json__ "StartDate" DateTime.of_json in
      let format = field_map json__ "Format" String_.of_json in
      make ?marker ?limit ?endDate ?startDate ?format ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the options for a range inventory retrieval job."]
module OutputLocation =
  struct
    type nonrec t =
      {
      s3: S3Location.t option
        [@ocaml.doc
          "Describes an S3 location that will receive the results of the job request."]}
    let make ?s3 = fun () -> { s3 }
    let to_value x =
      structure_to_value [("S3", (Option.map x.s3 ~f:S3Location.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3 = (Option.map ~f:S3Location.of_xml) (Xml.child xml_arg0 "S3") in
      make ?s3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3 = field_map json__ "S3" S3Location.of_json in make ?s3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the location where the select job results are stored."]
module SelectParameters =
  struct
    type nonrec t =
      {
      inputSerialization: InputSerialization.t option
        [@ocaml.doc "Describes the serialization format of the object."];
      expressionType: ExpressionType.t option
        [@ocaml.doc "The type of the provided expression, for example SQL."];
      expression: String_.t option
        [@ocaml.doc "The expression that is used to select the object."];
      outputSerialization: OutputSerialization.t option
        [@ocaml.doc
          "Describes how the results of the select job are serialized."]}
    let make ?inputSerialization =
      fun ?expressionType ->
        fun ?expression ->
          fun ?outputSerialization ->
            fun () ->
              {
                inputSerialization;
                expressionType;
                expression;
                outputSerialization
              }
    let to_value x =
      structure_to_value
        [("InputSerialization",
           (Option.map x.inputSerialization ~f:InputSerialization.to_value));
        ("ExpressionType",
          (Option.map x.expressionType ~f:ExpressionType.to_value));
        ("Expression", (Option.map x.expression ~f:String_.to_value));
        ("OutputSerialization",
          (Option.map x.outputSerialization ~f:OutputSerialization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputSerialization =
        (Option.map ~f:OutputSerialization.of_xml)
          (Xml.child xml_arg0 "OutputSerialization") in
      let expression =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Expression") in
      let expressionType =
        (Option.map ~f:ExpressionType.of_xml)
          (Xml.child xml_arg0 "ExpressionType") in
      let inputSerialization =
        (Option.map ~f:InputSerialization.of_xml)
          (Xml.child xml_arg0 "InputSerialization") in
      make ?outputSerialization ?expression ?expressionType
        ?inputSerialization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputSerialization =
        field_map json__ "OutputSerialization" OutputSerialization.of_json in
      let expression = field_map json__ "Expression" String_.of_json in
      let expressionType =
        field_map json__ "ExpressionType" ExpressionType.of_json in
      let inputSerialization =
        field_map json__ "InputSerialization" InputSerialization.of_json in
      make ?outputSerialization ?expression ?expressionType
        ?inputSerialization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the parameters used for a select."]
module Size =
  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 StatusCode =
  struct
    type nonrec t =
      | InProgress 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Succeeded -> "Succeeded"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Succeeded" -> Succeeded
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StatusCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatusCode" 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 NotificationEventList =
  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
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"NotificationEventList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataRetrievalRulesList =
  struct
    type nonrec t = DataRetrievalRule.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:DataRetrievalRule.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:DataRetrievalRule.of_xml)
    let of_json j =
      list_of_json ~kind:"DataRetrievalRulesList"
        ~of_json:DataRetrievalRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module DescribeVaultOutput =
  struct
    type nonrec t =
      {
      vaultARN: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the vault."];
      vaultName: String_.t option [@ocaml.doc "The name of the vault."];
      creationDate: String_.t option
        [@ocaml.doc
          "The Universal Coordinated Time (UTC) date when the vault was created. This value should be a string in the ISO 8601 date format, for example 2012-03-20T17:03:43.221Z."];
      lastInventoryDate: String_.t option
        [@ocaml.doc
          "The Universal Coordinated Time (UTC) date when Amazon Glacier completed the last vault inventory. This value should be a string in the ISO 8601 date format, for example 2012-03-20T17:03:43.221Z."];
      numberOfArchives: Long.t option
        [@ocaml.doc
          "The number of archives in the vault as of the last inventory date. This field will return null if an inventory has not yet run on the vault, for example if you just created the vault."];
      sizeInBytes: Long.t option
        [@ocaml.doc
          "Total size, in bytes, of the archives in the vault as of the last inventory date. This field will return null if an inventory has not yet run on the vault, for example if you just created the vault."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vaultARN =
      fun ?vaultName ->
        fun ?creationDate ->
          fun ?lastInventoryDate ->
            fun ?numberOfArchives ->
              fun ?sizeInBytes ->
                fun () ->
                  {
                    vaultARN;
                    vaultName;
                    creationDate;
                    lastInventoryDate;
                    numberOfArchives;
                    sizeInBytes
                  }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("VaultARN", (Option.map x.vaultARN ~f:String_.to_value));
        ("VaultName", (Option.map x.vaultName ~f:String_.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:String_.to_value));
        ("LastInventoryDate",
          (Option.map x.lastInventoryDate ~f:String_.to_value));
        ("NumberOfArchives",
          (Option.map x.numberOfArchives ~f:Long.to_value));
        ("SizeInBytes", (Option.map x.sizeInBytes ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "SizeInBytes") in
      let numberOfArchives =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "NumberOfArchives") in
      let lastInventoryDate =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LastInventoryDate") in
      let creationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let vaultName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VaultName") in
      let vaultARN =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VaultARN") in
      make ?sizeInBytes ?numberOfArchives ?lastInventoryDate ?creationDate
        ?vaultName ?vaultARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInBytes = field_map json__ "SizeInBytes" Long.of_json in
      let numberOfArchives = field_map json__ "NumberOfArchives" Long.of_json in
      let lastInventoryDate =
        field_map json__ "LastInventoryDate" String_.of_json in
      let creationDate = field_map json__ "CreationDate" String_.of_json in
      let vaultName = field_map json__ "VaultName" String_.of_json in
      let vaultARN = field_map json__ "VaultARN" String_.of_json in
      make ?sizeInBytes ?numberOfArchives ?lastInventoryDate ?creationDate
        ?vaultName ?vaultARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ProvisionedCapacityDescription =
  struct
    type nonrec t =
      {
      capacityId: String_.t option
        [@ocaml.doc "The ID that identifies the provisioned capacity unit."];
      startDate: String_.t option
        [@ocaml.doc
          "The date that the provisioned capacity unit was purchased, in Universal Coordinated Time (UTC)."];
      expirationDate: String_.t option
        [@ocaml.doc
          "The date that the provisioned capacity unit expires, in Universal Coordinated Time (UTC)."]}
    let make ?capacityId =
      fun ?startDate ->
        fun ?expirationDate ->
          fun () -> { capacityId; startDate; expirationDate }
    let to_value x =
      structure_to_value
        [("CapacityId", (Option.map x.capacityId ~f:String_.to_value));
        ("StartDate", (Option.map x.startDate ~f:String_.to_value));
        ("ExpirationDate", (Option.map x.expirationDate ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ExpirationDate") in
      let startDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StartDate") in
      let capacityId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CapacityId") in
      make ?expirationDate ?startDate ?capacityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationDate = field_map json__ "ExpirationDate" String_.of_json in
      let startDate = field_map json__ "StartDate" String_.of_json in
      let capacityId = field_map json__ "CapacityId" String_.of_json in
      make ?expirationDate ?startDate ?capacityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The definition for a provisioned capacity unit."]
module PartListElement =
  struct
    type nonrec t =
      {
      rangeInBytes: String_.t option
        [@ocaml.doc
          "The byte range of a part, inclusive of the upper value of the range."];
      sHA256TreeHash: String_.t option
        [@ocaml.doc
          "The SHA256 tree hash value that Amazon Glacier calculated for the part. This field is never null."]}
    let make ?rangeInBytes =
      fun ?sHA256TreeHash -> fun () -> { rangeInBytes; sHA256TreeHash }
    let to_value x =
      structure_to_value
        [("RangeInBytes", (Option.map x.rangeInBytes ~f:String_.to_value));
        ("SHA256TreeHash", (Option.map x.sHA256TreeHash ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sHA256TreeHash =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SHA256TreeHash") in
      let rangeInBytes =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RangeInBytes") in
      make ?sHA256TreeHash ?rangeInBytes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sHA256TreeHash = field_map json__ "SHA256TreeHash" String_.of_json in
      let rangeInBytes = field_map json__ "RangeInBytes" String_.of_json in
      make ?sHA256TreeHash ?rangeInBytes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of the part sizes of the multipart upload."]
module UploadListElement =
  struct
    type nonrec t =
      {
      multipartUploadId: String_.t option
        [@ocaml.doc "The ID of a multipart upload."];
      vaultARN: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the vault that contains the archive."];
      archiveDescription: String_.t option
        [@ocaml.doc
          "The description of the archive that was specified in the Initiate Multipart Upload request."];
      partSizeInBytes: Long.t option
        [@ocaml.doc
          "The part size, in bytes, specified in the Initiate Multipart Upload request. This is the size of all the parts in the upload except the last part, which may be smaller than this size."];
      creationDate: String_.t option
        [@ocaml.doc
          "The UTC time at which the multipart upload was initiated."]}
    let make ?multipartUploadId =
      fun ?vaultARN ->
        fun ?archiveDescription ->
          fun ?partSizeInBytes ->
            fun ?creationDate ->
              fun () ->
                {
                  multipartUploadId;
                  vaultARN;
                  archiveDescription;
                  partSizeInBytes;
                  creationDate
                }
    let to_value x =
      structure_to_value
        [("MultipartUploadId",
           (Option.map x.multipartUploadId ~f:String_.to_value));
        ("VaultARN", (Option.map x.vaultARN ~f:String_.to_value));
        ("ArchiveDescription",
          (Option.map x.archiveDescription ~f:String_.to_value));
        ("PartSizeInBytes", (Option.map x.partSizeInBytes ~f:Long.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let partSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "PartSizeInBytes") in
      let archiveDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ArchiveDescription") in
      let vaultARN =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VaultARN") in
      let multipartUploadId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MultipartUploadId") in
      make ?creationDate ?partSizeInBytes ?archiveDescription ?vaultARN
        ?multipartUploadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationDate = field_map json__ "CreationDate" String_.of_json in
      let partSizeInBytes = field_map json__ "PartSizeInBytes" Long.of_json in
      let archiveDescription =
        field_map json__ "ArchiveDescription" String_.of_json in
      let vaultARN = field_map json__ "VaultARN" String_.of_json in
      let multipartUploadId =
        field_map json__ "MultipartUploadId" String_.of_json in
      make ?creationDate ?partSizeInBytes ?archiveDescription ?vaultARN
        ?multipartUploadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of in-progress multipart uploads for a vault."]
module GlacierJobDescription =
  struct
    type nonrec t =
      {
      jobId: String_.t option
        [@ocaml.doc
          "An opaque string that identifies an Amazon S3 Glacier job."];
      jobDescription: String_.t option
        [@ocaml.doc "The job description provided when initiating the job."];
      action: ActionCode.t option
        [@ocaml.doc
          "The job type. This value is either ArchiveRetrieval, InventoryRetrieval, or Select."];
      archiveId: String_.t option
        [@ocaml.doc
          "The archive ID requested for a select job or archive retrieval. Otherwise, this field is null."];
      vaultARN: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the vault from which an archive retrieval was requested."];
      creationDate: String_.t option
        [@ocaml.doc
          "The UTC date when the job was created. This value is a string representation of ISO 8601 date format, for example \"2012-03-20T17:03:43.221Z\"."];
      completed: Boolean.t option
        [@ocaml.doc
          "The job status. When a job is completed, you get the job's output using Get Job Output (GET output)."];
      statusCode: StatusCode.t option
        [@ocaml.doc
          "The status code can be InProgress, Succeeded, or Failed, and indicates the status of the job."];
      statusMessage: String_.t option
        [@ocaml.doc "A friendly message that describes the job status."];
      archiveSizeInBytes: Size.t option
        [@ocaml.doc
          "For an archive retrieval job, this value is the size in bytes of the archive being requested for download. For an inventory retrieval or select job, this value is null."];
      inventorySizeInBytes: Size.t option
        [@ocaml.doc
          "For an inventory retrieval job, this value is the size in bytes of the inventory requested for download. For an archive retrieval or select job, this value is null."];
      sNSTopic: String_.t option
        [@ocaml.doc "An Amazon SNS topic that receives notification."];
      completionDate: String_.t option
        [@ocaml.doc
          "The UTC time that the job request completed. While the job is in progress, the value is null."];
      sHA256TreeHash: String_.t option
        [@ocaml.doc
          "For an archive retrieval job, this value is the checksum of the archive. Otherwise, this value is null. The SHA256 tree hash value for the requested range of an archive. If the InitiateJob request for an archive specified a tree-hash aligned range, then this field returns a value. If the whole archive is retrieved, this value is the same as the ArchiveSHA256TreeHash value. This field is null for the following: Archive retrieval jobs that specify a range that is not tree-hash aligned Archival jobs that specify a range that is equal to the whole archive, when the job status is InProgress Inventory jobs Select jobs"];
      archiveSHA256TreeHash: String_.t option
        [@ocaml.doc
          "The SHA256 tree hash of the entire archive for an archive retrieval. For inventory retrieval or select jobs, this field is null."];
      retrievalByteRange: String_.t option
        [@ocaml.doc
          "The retrieved byte range for archive retrieval jobs in the form StartByteValue-EndByteValue. If no range was specified in the archive retrieval, then the whole archive is retrieved. In this case, StartByteValue equals 0 and EndByteValue equals the size of the archive minus 1. For inventory retrieval or select jobs, this field is null."];
      tier: String_.t option
        [@ocaml.doc
          "The tier to use for a select or an archive retrieval. Valid values are Expedited, Standard, or Bulk. Standard is the default."];
      inventoryRetrievalParameters: InventoryRetrievalJobDescription.t option
        [@ocaml.doc "Parameters used for range inventory retrieval."];
      jobOutputPath: String_.t option
        [@ocaml.doc "Contains the job output location."];
      selectParameters: SelectParameters.t option
        [@ocaml.doc "Contains the parameters used for a select."];
      outputLocation: OutputLocation.t option
        [@ocaml.doc
          "Contains the location where the data from the select job is stored."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?jobDescription ->
        fun ?action ->
          fun ?archiveId ->
            fun ?vaultARN ->
              fun ?creationDate ->
                fun ?completed ->
                  fun ?statusCode ->
                    fun ?statusMessage ->
                      fun ?archiveSizeInBytes ->
                        fun ?inventorySizeInBytes ->
                          fun ?sNSTopic ->
                            fun ?completionDate ->
                              fun ?sHA256TreeHash ->
                                fun ?archiveSHA256TreeHash ->
                                  fun ?retrievalByteRange ->
                                    fun ?tier ->
                                      fun ?inventoryRetrievalParameters ->
                                        fun ?jobOutputPath ->
                                          fun ?selectParameters ->
                                            fun ?outputLocation ->
                                              fun () ->
                                                {
                                                  jobId;
                                                  jobDescription;
                                                  action;
                                                  archiveId;
                                                  vaultARN;
                                                  creationDate;
                                                  completed;
                                                  statusCode;
                                                  statusMessage;
                                                  archiveSizeInBytes;
                                                  inventorySizeInBytes;
                                                  sNSTopic;
                                                  completionDate;
                                                  sHA256TreeHash;
                                                  archiveSHA256TreeHash;
                                                  retrievalByteRange;
                                                  tier;
                                                  inventoryRetrievalParameters;
                                                  jobOutputPath;
                                                  selectParameters;
                                                  outputLocation
                                                }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("JobId", (Option.map x.jobId ~f:String_.to_value));
        ("JobDescription", (Option.map x.jobDescription ~f:String_.to_value));
        ("Action", (Option.map x.action ~f:ActionCode.to_value));
        ("ArchiveId", (Option.map x.archiveId ~f:String_.to_value));
        ("VaultARN", (Option.map x.vaultARN ~f:String_.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:String_.to_value));
        ("Completed", (Option.map x.completed ~f:Boolean.to_value));
        ("StatusCode", (Option.map x.statusCode ~f:StatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("ArchiveSizeInBytes",
          (Option.map x.archiveSizeInBytes ~f:Size.to_value));
        ("InventorySizeInBytes",
          (Option.map x.inventorySizeInBytes ~f:Size.to_value));
        ("SNSTopic", (Option.map x.sNSTopic ~f:String_.to_value));
        ("CompletionDate", (Option.map x.completionDate ~f:String_.to_value));
        ("SHA256TreeHash", (Option.map x.sHA256TreeHash ~f:String_.to_value));
        ("ArchiveSHA256TreeHash",
          (Option.map x.archiveSHA256TreeHash ~f:String_.to_value));
        ("RetrievalByteRange",
          (Option.map x.retrievalByteRange ~f:String_.to_value));
        ("Tier", (Option.map x.tier ~f:String_.to_value));
        ("InventoryRetrievalParameters",
          (Option.map x.inventoryRetrievalParameters
             ~f:InventoryRetrievalJobDescription.to_value));
        ("JobOutputPath", (Option.map x.jobOutputPath ~f:String_.to_value));
        ("SelectParameters",
          (Option.map x.selectParameters ~f:SelectParameters.to_value));
        ("OutputLocation",
          (Option.map x.outputLocation ~f:OutputLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputLocation =
        (Option.map ~f:OutputLocation.of_xml)
          (Xml.child xml_arg0 "OutputLocation") in
      let selectParameters =
        (Option.map ~f:SelectParameters.of_xml)
          (Xml.child xml_arg0 "SelectParameters") in
      let jobOutputPath =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "JobOutputPath") in
      let inventoryRetrievalParameters =
        (Option.map ~f:InventoryRetrievalJobDescription.of_xml)
          (Xml.child xml_arg0 "InventoryRetrievalParameters") in
      let tier = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Tier") in
      let retrievalByteRange =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RetrievalByteRange") in
      let archiveSHA256TreeHash =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ArchiveSHA256TreeHash") in
      let sHA256TreeHash =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SHA256TreeHash") in
      let completionDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CompletionDate") in
      let sNSTopic =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SNSTopic") in
      let inventorySizeInBytes =
        (Option.map ~f:Size.of_xml)
          (Xml.child xml_arg0 "InventorySizeInBytes") in
      let archiveSizeInBytes =
        (Option.map ~f:Size.of_xml) (Xml.child xml_arg0 "ArchiveSizeInBytes") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:StatusCode.of_xml) (Xml.child xml_arg0 "StatusCode") in
      let completed =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Completed") in
      let creationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let vaultARN =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VaultARN") in
      let archiveId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ArchiveId") in
      let action =
        (Option.map ~f:ActionCode.of_xml) (Xml.child xml_arg0 "Action") in
      let jobDescription =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "JobDescription") in
      let jobId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?outputLocation ?selectParameters ?jobOutputPath
        ?inventoryRetrievalParameters ?tier ?retrievalByteRange
        ?archiveSHA256TreeHash ?sHA256TreeHash ?completionDate ?sNSTopic
        ?inventorySizeInBytes ?archiveSizeInBytes ?statusMessage ?statusCode
        ?completed ?creationDate ?vaultARN ?archiveId ?action ?jobDescription
        ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputLocation =
        field_map json__ "OutputLocation" OutputLocation.of_json in
      let selectParameters =
        field_map json__ "SelectParameters" SelectParameters.of_json in
      let jobOutputPath = field_map json__ "JobOutputPath" String_.of_json in
      let inventoryRetrievalParameters =
        field_map json__ "InventoryRetrievalParameters"
          InventoryRetrievalJobDescription.of_json in
      let tier = field_map json__ "Tier" String_.of_json in
      let retrievalByteRange =
        field_map json__ "RetrievalByteRange" String_.of_json in
      let archiveSHA256TreeHash =
        field_map json__ "ArchiveSHA256TreeHash" String_.of_json in
      let sHA256TreeHash = field_map json__ "SHA256TreeHash" String_.of_json in
      let completionDate = field_map json__ "CompletionDate" String_.of_json in
      let sNSTopic = field_map json__ "SNSTopic" String_.of_json in
      let inventorySizeInBytes =
        field_map json__ "InventorySizeInBytes" Size.of_json in
      let archiveSizeInBytes =
        field_map json__ "ArchiveSizeInBytes" Size.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let statusCode = field_map json__ "StatusCode" StatusCode.of_json in
      let completed = field_map json__ "Completed" Boolean.of_json in
      let creationDate = field_map json__ "CreationDate" String_.of_json in
      let vaultARN = field_map json__ "VaultARN" String_.of_json in
      let archiveId = field_map json__ "ArchiveId" String_.of_json in
      let action = field_map json__ "Action" ActionCode.of_json in
      let jobDescription = field_map json__ "JobDescription" String_.of_json in
      let jobId = field_map json__ "JobId" String_.of_json in
      make ?outputLocation ?selectParameters ?jobOutputPath
        ?inventoryRetrievalParameters ?tier ?retrievalByteRange
        ?archiveSHA256TreeHash ?sHA256TreeHash ?completionDate ?sNSTopic
        ?inventorySizeInBytes ?archiveSizeInBytes ?statusMessage ?statusCode
        ?completed ?creationDate ?vaultARN ?archiveId ?action ?jobDescription
        ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the description of an Amazon S3 Glacier job."]
module InventoryRetrievalJobInput =
  struct
    type nonrec t =
      {
      startDate: String_.t option
        [@ocaml.doc
          "The start of the date range in UTC for vault inventory retrieval that includes archives created on or after this date. This value should be a string in the ISO 8601 date format, for example 2013-03-20T17:03:43Z."];
      endDate: String_.t option
        [@ocaml.doc
          "The end of the date range in UTC for vault inventory retrieval that includes archives created before this date. This value should be a string in the ISO 8601 date format, for example 2013-03-20T17:03:43Z."];
      limit: String_.t option
        [@ocaml.doc
          "Specifies the maximum number of inventory items returned per vault inventory retrieval request. Valid values are greater than or equal to 1."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string that represents where to continue pagination of the vault inventory retrieval results. You use the marker in a new InitiateJob request to obtain additional inventory items. If there are no more inventory items, this value is null."]}
    let make ?startDate =
      fun ?endDate ->
        fun ?limit ->
          fun ?marker -> fun () -> { startDate; endDate; limit; marker }
    let to_value x =
      structure_to_value
        [("StartDate", (Option.map x.startDate ~f:String_.to_value));
        ("EndDate", (Option.map x.endDate ~f:String_.to_value));
        ("Limit", (Option.map x.limit ~f:String_.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let limit = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Limit") in
      let endDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EndDate") in
      let startDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StartDate") in
      make ?marker ?limit ?endDate ?startDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" String_.of_json in
      let limit = field_map json__ "Limit" String_.of_json in
      let endDate = field_map json__ "EndDate" String_.of_json in
      let startDate = field_map json__ "StartDate" String_.of_json in
      make ?marker ?limit ?endDate ?startDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for specifying a range inventory retrieval job."]
module RequestTimeoutException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client"];
      code: String_.t option [@ocaml.doc "408 Request Timeout"];
      message: String_.t option
        [@ocaml.doc
          "Returned if, when uploading an archive, Amazon Glacier times out while receiving the upload."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if, when uploading an archive, Amazon Glacier times out while receiving the upload."]
module Stream =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module VaultNotificationConfig =
  struct
    type nonrec t =
      {
      sNSTopic: String_.t option
        [@ocaml.doc
          "The Amazon Simple Notification Service (Amazon SNS) topic Amazon Resource Name (ARN)."];
      events: NotificationEventList.t option
        [@ocaml.doc
          "A list of one or more events for which Amazon Glacier will send a notification to the specified Amazon SNS topic."]}
    let make ?sNSTopic = fun ?events -> fun () -> { sNSTopic; events }
    let to_value x =
      structure_to_value
        [("SNSTopic", (Option.map x.sNSTopic ~f:String_.to_value));
        ("Events", (Option.map x.events ~f:NotificationEventList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        (Option.map ~f:NotificationEventList.of_xml)
          (Xml.child xml_arg0 "Events") in
      let sNSTopic =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SNSTopic") in
      make ?events ?sNSTopic ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events = field_map json__ "Events" NotificationEventList.of_json in
      let sNSTopic = field_map json__ "SNSTopic" String_.of_json in
      make ?events ?sNSTopic ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a vault's notification configuration."]
module VaultAccessPolicy =
  struct
    type nonrec t =
      {
      policy: String_.t option [@ocaml.doc "The vault access policy."]}
    let make ?policy = fun () -> { policy }
    let to_value x =
      structure_to_value
        [("Policy", (Option.map x.policy ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" String_.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the vault access policy."]
module DataRetrievalPolicy =
  struct
    type nonrec t =
      {
      rules: DataRetrievalRulesList.t option
        [@ocaml.doc
          "The policy rule. Although this is a list type, currently there must be only one rule, which contains a Strategy field and optionally a BytesPerHour field."]}
    let make ?rules = fun () -> { rules }
    let to_value x =
      structure_to_value
        [("Rules", (Option.map x.rules ~f:DataRetrievalRulesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        (Option.map ~f:DataRetrievalRulesList.of_xml)
          (Xml.child xml_arg0 "Rules") in
      make ?rules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map json__ "Rules" DataRetrievalRulesList.of_json in
      make ?rules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Data retrieval policy."]
module TagKeyList =
  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
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeyList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module LimitExceededException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client"];
      code: String_.t option [@ocaml.doc "400 Bad Request"];
      message: String_.t option
        [@ocaml.doc
          "Returned if the request results in a vault limit or tags limit being exceeded."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the request results in a vault or account limit being exceeded."]
module VaultList =
  struct
    type nonrec t = DescribeVaultOutput.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:DescribeVaultOutput.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:DescribeVaultOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"VaultList" ~of_json:DescribeVaultOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProvisionedCapacityList =
  struct
    type nonrec t = ProvisionedCapacityDescription.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:ProvisionedCapacityDescription.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:ProvisionedCapacityDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"ProvisionedCapacityList"
        ~of_json:ProvisionedCapacityDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartList =
  struct
    type nonrec t = PartListElement.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:PartListElement.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:PartListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"PartList" ~of_json:PartListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module UploadsList =
  struct
    type nonrec t = UploadListElement.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:UploadListElement.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:UploadListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"UploadsList" ~of_json:UploadListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobList =
  struct
    type nonrec t = GlacierJobDescription.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:GlacierJobDescription.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:GlacierJobDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"JobList" ~of_json:GlacierJobDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module VaultLockPolicy =
  struct
    type nonrec t =
      {
      policy: String_.t option [@ocaml.doc "The vault lock policy."]}
    let make ?policy = fun () -> { policy }
    let to_value x =
      structure_to_value
        [("Policy", (Option.map x.policy ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" String_.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the vault lock policy."]
module InsufficientCapacityException =
  struct
    type nonrec t =
      {
      type_: String_.t option ;
      code: String_.t option ;
      message: String_.t option }
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if there is insufficient capacity to process this expedited request. This error only applies to expedited retrievals and not to standard or bulk retrievals."]
module PolicyEnforcedException =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "Client"];
      code: String_.t option [@ocaml.doc "PolicyEnforcedException"];
      message: String_.t option
        [@ocaml.doc
          "InitiateJob request denied by current data retrieval policy."]}
    let make ?type_ =
      fun ?code -> fun ?message -> fun () -> { type_; code; message }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?message ?code ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?message ?code ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if a retrieval job would exceed the current data policy's retrieval rate limit. For more information about data retrieval policies,"]
module JobParameters =
  struct
    type nonrec t =
      {
      format: String_.t option
        [@ocaml.doc
          "When initiating a job to retrieve a vault inventory, you can optionally add this parameter to your request to specify the output format. If you are initiating an inventory job and do not specify a Format field, JSON is the default format. Valid values are \"CSV\" and \"JSON\"."];
      type_: String_.t option
        [@ocaml.doc
          "The job type. You can initiate a job to perform a select query on an archive, retrieve an archive, or get an inventory of a vault. Valid values are \"select\", \"archive-retrieval\" and \"inventory-retrieval\"."];
      archiveId: String_.t option
        [@ocaml.doc
          "The ID of the archive that you want to retrieve. This field is required only if Type is set to select or archive-retrievalcode>. An error occurs if you specify this request parameter for an inventory retrieval job request."];
      description: String_.t option
        [@ocaml.doc
          "The optional description for the job. The description must be less than or equal to 1,024 bytes. The allowable characters are 7-bit ASCII without control codes-specifically, ASCII values 32-126 decimal or 0x20-0x7E hexadecimal."];
      sNSTopic: String_.t option
        [@ocaml.doc
          "The Amazon SNS topic ARN to which Amazon Glacier sends a notification when the job is completed and the output is ready for you to download. The specified topic publishes the notification to its subscribers. The SNS topic must exist."];
      retrievalByteRange: String_.t option
        [@ocaml.doc
          "The byte range to retrieve for an archive retrieval. in the form \"StartByteValue-EndByteValue\" If not specified, the whole archive is retrieved. If specified, the byte range must be megabyte (1024*1024) aligned which means that StartByteValue must be divisible by 1 MB and EndByteValue plus 1 must be divisible by 1 MB or be the end of the archive specified as the archive byte size value minus 1. If RetrievalByteRange is not megabyte aligned, this operation returns a 400 response. An error occurs if you specify this field for an inventory retrieval job request."];
      tier: String_.t option
        [@ocaml.doc
          "The tier to use for a select or an archive retrieval job. Valid values are Expedited, Standard, or Bulk. Standard is the default."];
      inventoryRetrievalParameters: InventoryRetrievalJobInput.t option
        [@ocaml.doc "Input parameters used for range inventory retrieval."];
      selectParameters: SelectParameters.t option
        [@ocaml.doc "Contains the parameters that define a job."];
      outputLocation: OutputLocation.t option
        [@ocaml.doc
          "Contains information about the location where the select job results are stored."]}
    let make ?format =
      fun ?type_ ->
        fun ?archiveId ->
          fun ?description ->
            fun ?sNSTopic ->
              fun ?retrievalByteRange ->
                fun ?tier ->
                  fun ?inventoryRetrievalParameters ->
                    fun ?selectParameters ->
                      fun ?outputLocation ->
                        fun () ->
                          {
                            format;
                            type_;
                            archiveId;
                            description;
                            sNSTopic;
                            retrievalByteRange;
                            tier;
                            inventoryRetrievalParameters;
                            selectParameters;
                            outputLocation
                          }
    let to_value x =
      structure_to_value
        [("Format", (Option.map x.format ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value));
        ("ArchiveId", (Option.map x.archiveId ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("SNSTopic", (Option.map x.sNSTopic ~f:String_.to_value));
        ("RetrievalByteRange",
          (Option.map x.retrievalByteRange ~f:String_.to_value));
        ("Tier", (Option.map x.tier ~f:String_.to_value));
        ("InventoryRetrievalParameters",
          (Option.map x.inventoryRetrievalParameters
             ~f:InventoryRetrievalJobInput.to_value));
        ("SelectParameters",
          (Option.map x.selectParameters ~f:SelectParameters.to_value));
        ("OutputLocation",
          (Option.map x.outputLocation ~f:OutputLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputLocation =
        (Option.map ~f:OutputLocation.of_xml)
          (Xml.child xml_arg0 "OutputLocation") in
      let selectParameters =
        (Option.map ~f:SelectParameters.of_xml)
          (Xml.child xml_arg0 "SelectParameters") in
      let inventoryRetrievalParameters =
        (Option.map ~f:InventoryRetrievalJobInput.of_xml)
          (Xml.child xml_arg0 "InventoryRetrievalParameters") in
      let tier = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Tier") in
      let retrievalByteRange =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RetrievalByteRange") in
      let sNSTopic =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SNSTopic") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let archiveId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ArchiveId") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let format =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Format") in
      make ?outputLocation ?selectParameters ?inventoryRetrievalParameters
        ?tier ?retrievalByteRange ?sNSTopic ?description ?archiveId ?type_
        ?format ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputLocation =
        field_map json__ "OutputLocation" OutputLocation.of_json in
      let selectParameters =
        field_map json__ "SelectParameters" SelectParameters.of_json in
      let inventoryRetrievalParameters =
        field_map json__ "InventoryRetrievalParameters"
          InventoryRetrievalJobInput.of_json in
      let tier = field_map json__ "Tier" String_.of_json in
      let retrievalByteRange =
        field_map json__ "RetrievalByteRange" String_.of_json in
      let sNSTopic = field_map json__ "SNSTopic" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let archiveId = field_map json__ "ArchiveId" String_.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      let format = field_map json__ "Format" String_.of_json in
      make ?outputLocation ?selectParameters ?inventoryRetrievalParameters
        ?tier ?retrievalByteRange ?sNSTopic ?description ?archiveId ?type_
        ?format ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides options for defining a job."]
module Httpstatus =
  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 httpstatus" 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 UploadMultipartPartOutput =
  struct
    type nonrec t =
      {
      checksum: String_.t option
        [@ocaml.doc
          "The SHA256 tree hash that Amazon Glacier computed for the uploaded part."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?checksum = fun () -> { checksum }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?checksum:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "x-amz-sha256-tree-hash") ~f:String_.of_string)
            ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-sha256-tree-hash",
           (Option.map x.checksum ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checksum =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-sha256-tree-hash") in
      make ?checksum ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checksum = field_map json__ "checksum" String_.of_json in
      make ?checksum ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module UploadMultipartPartInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      uploadId: String_.t
        [@ocaml.doc "The upload ID of the multipart upload."];
      checksum: String_.t option
        [@ocaml.doc "The SHA256 tree hash of the data being uploaded."];
      range: String_.t option
        [@ocaml.doc
          "Identifies the range of bytes in the assembled archive that will be uploaded in this part. Amazon Glacier uses this information to assemble the archive in the proper sequence. The format of this header follows RFC 2616. An example header is Content-Range:bytes 0-4194303/*."];
      body: Stream.t option [@ocaml.doc "The data to upload."]}
    let context_ = "UploadMultipartPartInput"
    let make ?checksum =
      fun ?range ->
        fun ?body ->
          fun ~accountId ->
            fun ~vaultName ->
              fun ~uploadId ->
                fun () ->
                  { checksum; range; body; accountId; vaultName; uploadId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "accountId"))
            ~vaultName:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "vaultName"))
            ~uploadId:(String_.of_string
                         ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                            xs "uploadId"))
            ?checksum:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "x-amz-sha256-tree-hash") ~f:String_.of_string)
            ?range:(Option.map
                      ((List.Assoc.find ~equal:String.Caseless.equal) xs
                         "Content-Range") ~f:String_.of_string)
            ?body:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("uploadId", (Some (String_.to_value x.uploadId)));
        ("x-amz-sha256-tree-hash",
          (Option.map x.checksum ~f:String_.to_value));
        ("Content-Range", (Option.map x.range ~f:String_.to_value));
        ("body", (Option.map x.body ~f:Stream.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body = (Option.map ~f:Stream.of_xml) (Xml.child xml_arg0 "body") in
      let range =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Content-Range") in
      let checksum =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-sha256-tree-hash") in
      let uploadId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uploadId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?body ?range ?checksum ~uploadId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map json__ "body" Stream.of_json in
      let range = field_map json__ "range" String_.of_json in
      let checksum = field_map json__ "checksum" String_.of_json in
      let uploadId = field_map_exn json__ "uploadId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?body ?range ?checksum ~uploadId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options to upload a part of an archive in a multipart upload operation."]
module UploadArchiveInput =
  struct
    type nonrec t =
      {
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      archiveDescription: String_.t option
        [@ocaml.doc
          "The optional description of the archive you are uploading."];
      checksum: String_.t option
        [@ocaml.doc "The SHA256 tree hash of the data being uploaded."];
      body: Stream.t option [@ocaml.doc "The data to upload."]}
    let context_ = "UploadArchiveInput"
    let make ?archiveDescription =
      fun ?checksum ->
        fun ?body ->
          fun ~vaultName ->
            fun ~accountId ->
              fun () ->
                { archiveDescription; checksum; body; vaultName; accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~vaultName:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "vaultName"))
            ~accountId:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "accountId"))
            ?archiveDescription:(Option.map
                                   ((List.Assoc.find
                                       ~equal:String.Caseless.equal) xs
                                      "x-amz-archive-description")
                                   ~f:String_.of_string)
            ?checksum:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "x-amz-sha256-tree-hash") ~f:String_.of_string)
            ?body:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("vaultName", (Some (String_.to_value x.vaultName)));
        ("accountId", (Some (String_.to_value x.accountId)));
        ("x-amz-archive-description",
          (Option.map x.archiveDescription ~f:String_.to_value));
        ("x-amz-sha256-tree-hash",
          (Option.map x.checksum ~f:String_.to_value));
        ("body", (Option.map x.body ~f:Stream.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body = (Option.map ~f:Stream.of_xml) (Xml.child xml_arg0 "body") in
      let checksum =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-sha256-tree-hash") in
      let archiveDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-archive-description") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      make ?body ?checksum ?archiveDescription ~accountId ~vaultName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map json__ "body" Stream.of_json in
      let checksum = field_map json__ "checksum" String_.of_json in
      let archiveDescription =
        field_map json__ "archiveDescription" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      make ?body ?checksum ?archiveDescription ~accountId ~vaultName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides options to add an archive to a vault."]
module SetVaultNotificationsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      vaultNotificationConfig: VaultNotificationConfig.t option
        [@ocaml.doc
          "Provides options for specifying notification configuration."]}
    let context_ = "SetVaultNotificationsInput"
    let make ?vaultNotificationConfig =
      fun ~accountId ->
        fun ~vaultName ->
          fun () -> { vaultNotificationConfig; accountId; vaultName }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "accountId"))
            ~vaultName:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "vaultName"))
            ?vaultNotificationConfig:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("vaultNotificationConfig",
          (Option.map x.vaultNotificationConfig
             ~f:VaultNotificationConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultNotificationConfig =
        (Option.map ~f:VaultNotificationConfig.of_xml)
          (Xml.child xml_arg0 "vaultNotificationConfig") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?vaultNotificationConfig ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultNotificationConfig =
        field_map json__ "vaultNotificationConfig"
          VaultNotificationConfig.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?vaultNotificationConfig ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options to configure notifications that will be sent when specific events happen to a vault."]
module SetVaultAccessPolicyInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      policy: VaultAccessPolicy.t option
        [@ocaml.doc "The vault access policy as a JSON string."]}
    let context_ = "SetVaultAccessPolicyInput"
    let make ?policy =
      fun ~accountId ->
        fun ~vaultName -> fun () -> { policy; accountId; vaultName }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "accountId"))
            ~vaultName:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "vaultName")) ?policy:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("policy", (Option.map x.policy ~f:VaultAccessPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:VaultAccessPolicy.of_xml)
          (Xml.child xml_arg0 "policy") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?policy ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "policy" VaultAccessPolicy.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?policy ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "SetVaultAccessPolicy input."]
module SetDataRetrievalPolicyInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."];
      policy: DataRetrievalPolicy.t option
        [@ocaml.doc "The data retrieval policy in JSON format."]}
    let context_ = "SetDataRetrievalPolicyInput"
    let make ?policy = fun ~accountId -> fun () -> { policy; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("Policy", (Option.map x.policy ~f:DataRetrievalPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:DataRetrievalPolicy.of_xml)
          (Xml.child xml_arg0 "Policy") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?policy ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" DataRetrievalPolicy.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?policy ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "SetDataRetrievalPolicy input."]
module RemoveTagsFromVaultInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      tagKeys: TagKeyList.t option
        [@ocaml.doc
          "A list of tag keys. Each corresponding tag is removed from the vault."]}
    let context_ = "RemoveTagsFromVaultInput"
    let make ?tagKeys =
      fun ~accountId ->
        fun ~vaultName -> fun () -> { tagKeys; accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("TagKeys", (Option.map x.tagKeys ~f:TagKeyList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        (Option.map ~f:TagKeyList.of_xml) (Xml.child xml_arg0 "TagKeys") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?tagKeys ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map json__ "TagKeys" TagKeyList.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?tagKeys ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input value for RemoveTagsFromVaultInput."]
module PurchaseProvisionedCapacityOutput =
  struct
    type nonrec t =
      {
      capacityId: String_.t option
        [@ocaml.doc "The ID that identifies the provisioned capacity unit."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?capacityId = fun () -> { capacityId }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?capacityId:(Option.map
                           ((List.Assoc.find ~equal:String.Caseless.equal) xs
                              "x-amz-capacity-id") ~f:String_.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-capacity-id", (Option.map x.capacityId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-capacity-id") in
      make ?capacityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityId = field_map json__ "capacityId" String_.of_json in
      make ?capacityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation purchases a provisioned capacity unit for an AWS account."]
module PurchaseProvisionedCapacityInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, don't include any hyphens ('-') in the ID."]}
    let context_ = "PurchaseProvisionedCapacityInput"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation purchases a provisioned capacity unit for an AWS account."]
module ListVaultsOutput =
  struct
    type nonrec t =
      {
      vaultList: VaultList.t option [@ocaml.doc "List of vaults."];
      marker: String_.t option
        [@ocaml.doc
          "The vault ARN at which to continue pagination of the results. You use the marker in another List Vaults request to obtain more vaults in the list."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vaultList = fun ?marker -> fun () -> { vaultList; marker }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("VaultList", (Option.map x.vaultList ~f:VaultList.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let vaultList =
        (Option.map ~f:VaultList.of_xml) (Xml.child xml_arg0 "VaultList") in
      make ?marker ?vaultList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" String_.of_json in
      let vaultList = field_map json__ "VaultList" VaultList.of_json in
      make ?marker ?vaultList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module ListVaultsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."];
      marker: String_.t option
        [@ocaml.doc
          "A string used for pagination. The marker specifies the vault ARN after which the listing of vaults should begin."];
      limit: String_.t option
        [@ocaml.doc
          "The maximum number of vaults to be returned. The default limit is 10. The number of vaults returned might be fewer than the specified limit, but the number of returned vaults never exceeds the limit."]}
    let context_ = "ListVaultsInput"
    let make ?marker =
      fun ?limit -> fun ~accountId -> fun () -> { marker; limit; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("marker", (Option.map x.marker ~f:String_.to_value));
        ("limit", (Option.map x.limit ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "marker") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?limit ?marker ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "limit" String_.of_json in
      let marker = field_map json__ "marker" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?limit ?marker ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options to retrieve the vault list owned by the calling user's account. The list provides metadata information for each vault."]
module ListTagsForVaultOutput =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "The tags attached to the vault. Each tag is composed of a key and a value."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module ListTagsForVaultInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "ListTagsForVaultInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input value for ListTagsForVaultInput."]
module ListProvisionedCapacityOutput =
  struct
    type nonrec t =
      {
      provisionedCapacityList: ProvisionedCapacityList.t option
        [@ocaml.doc "The response body contains the following JSON fields."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?provisionedCapacityList = fun () -> { provisionedCapacityList }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("ProvisionedCapacityList",
           (Option.map x.provisionedCapacityList
              ~f:ProvisionedCapacityList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let provisionedCapacityList =
        (Option.map ~f:ProvisionedCapacityList.of_xml)
          (Xml.child xml_arg0 "ProvisionedCapacityList") in
      make ?provisionedCapacityList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let provisionedCapacityList =
        field_map json__ "ProvisionedCapacityList"
          ProvisionedCapacityList.of_json in
      make ?provisionedCapacityList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation lists the provisioned capacity units for the specified AWS account."]
module ListProvisionedCapacityInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, don't include any hyphens ('-') in the ID."]}
    let context_ = "ListProvisionedCapacityInput"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation lists the provisioned capacity units for the specified AWS account."]
module ListPartsOutput =
  struct
    type nonrec t =
      {
      multipartUploadId: String_.t option
        [@ocaml.doc
          "The ID of the upload to which the parts are associated."];
      vaultARN: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the vault to which the multipart upload was initiated."];
      archiveDescription: String_.t option
        [@ocaml.doc
          "The description of the archive that was specified in the Initiate Multipart Upload request."];
      partSizeInBytes: Long.t option
        [@ocaml.doc
          "The part size in bytes. This is the same value that you specified in the Initiate Multipart Upload request."];
      creationDate: String_.t option
        [@ocaml.doc
          "The UTC time at which the multipart upload was initiated."];
      parts: PartList.t option
        [@ocaml.doc
          "A list of the part sizes of the multipart upload. Each object in the array contains a RangeBytes and sha256-tree-hash name/value pair."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string that represents where to continue pagination of the results. You use the marker in a new List Parts request to obtain more jobs in the list. If there are no more parts, this value is null."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?multipartUploadId =
      fun ?vaultARN ->
        fun ?archiveDescription ->
          fun ?partSizeInBytes ->
            fun ?creationDate ->
              fun ?parts ->
                fun ?marker ->
                  fun () ->
                    {
                      multipartUploadId;
                      vaultARN;
                      archiveDescription;
                      partSizeInBytes;
                      creationDate;
                      parts;
                      marker
                    }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("MultipartUploadId",
           (Option.map x.multipartUploadId ~f:String_.to_value));
        ("VaultARN", (Option.map x.vaultARN ~f:String_.to_value));
        ("ArchiveDescription",
          (Option.map x.archiveDescription ~f:String_.to_value));
        ("PartSizeInBytes", (Option.map x.partSizeInBytes ~f:Long.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:String_.to_value));
        ("Parts", (Option.map x.parts ~f:PartList.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let parts =
        (Option.map ~f:PartList.of_xml) (Xml.child xml_arg0 "Parts") in
      let creationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let partSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "PartSizeInBytes") in
      let archiveDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ArchiveDescription") in
      let vaultARN =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VaultARN") in
      let multipartUploadId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MultipartUploadId") in
      make ?marker ?parts ?creationDate ?partSizeInBytes ?archiveDescription
        ?vaultARN ?multipartUploadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" String_.of_json in
      let parts = field_map json__ "Parts" PartList.of_json in
      let creationDate = field_map json__ "CreationDate" String_.of_json in
      let partSizeInBytes = field_map json__ "PartSizeInBytes" Long.of_json in
      let archiveDescription =
        field_map json__ "ArchiveDescription" String_.of_json in
      let vaultARN = field_map json__ "VaultARN" String_.of_json in
      let multipartUploadId =
        field_map json__ "MultipartUploadId" String_.of_json in
      make ?marker ?parts ?creationDate ?partSizeInBytes ?archiveDescription
        ?vaultARN ?multipartUploadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module ListPartsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      uploadId: String_.t
        [@ocaml.doc "The upload ID of the multipart upload."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string used for pagination. This value specifies the part at which the listing of parts should begin. Get the marker value from the response of a previous List Parts response. You need only include the marker if you are continuing the pagination of results started in a previous List Parts request."];
      limit: String_.t option
        [@ocaml.doc
          "The maximum number of parts to be returned. The default limit is 50. The number of parts returned might be fewer than the specified limit, but the number of returned parts never exceeds the limit."]}
    let context_ = "ListPartsInput"
    let make ?marker =
      fun ?limit ->
        fun ~accountId ->
          fun ~vaultName ->
            fun ~uploadId ->
              fun () -> { marker; limit; accountId; vaultName; uploadId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("uploadId", (Some (String_.to_value x.uploadId)));
        ("marker", (Option.map x.marker ~f:String_.to_value));
        ("limit", (Option.map x.limit ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "marker") in
      let uploadId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uploadId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?limit ?marker ~uploadId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "limit" String_.of_json in
      let marker = field_map json__ "marker" String_.of_json in
      let uploadId = field_map_exn json__ "uploadId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?limit ?marker ~uploadId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for retrieving a list of parts of an archive that have been uploaded in a specific multipart upload."]
module ListMultipartUploadsOutput =
  struct
    type nonrec t =
      {
      uploadsList: UploadsList.t option
        [@ocaml.doc "A list of in-progress multipart uploads."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string that represents where to continue pagination of the results. You use the marker in a new List Multipart Uploads request to obtain more uploads in the list. If there are no more uploads, this value is null."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?uploadsList = fun ?marker -> fun () -> { uploadsList; marker }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("UploadsList", (Option.map x.uploadsList ~f:UploadsList.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let uploadsList =
        (Option.map ~f:UploadsList.of_xml) (Xml.child xml_arg0 "UploadsList") in
      make ?marker ?uploadsList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" String_.of_json in
      let uploadsList = field_map json__ "UploadsList" UploadsList.of_json in
      make ?marker ?uploadsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module ListMultipartUploadsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string used for pagination. This value specifies the upload at which the listing of uploads should begin. Get the marker value from a previous List Uploads response. You need only include the marker if you are continuing the pagination of results started in a previous List Uploads request."];
      limit: String_.t option
        [@ocaml.doc
          "Specifies the maximum number of uploads returned in the response body. If this value is not specified, the List Uploads operation returns up to 50 uploads."]}
    let context_ = "ListMultipartUploadsInput"
    let make ?marker =
      fun ?limit ->
        fun ~accountId ->
          fun ~vaultName -> fun () -> { marker; limit; accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("marker", (Option.map x.marker ~f:String_.to_value));
        ("limit", (Option.map x.limit ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "marker") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?limit ?marker ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "limit" String_.of_json in
      let marker = field_map json__ "marker" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?limit ?marker ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for retrieving list of in-progress multipart uploads for an Amazon Glacier vault."]
module ListJobsOutput =
  struct
    type nonrec t =
      {
      jobList: JobList.t option
        [@ocaml.doc
          "A list of job objects. Each job object contains metadata describing the job."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string used for pagination that specifies the job at which the listing of jobs should begin. You get the marker value from a previous List Jobs response. You only need to include the marker if you are continuing the pagination of the results started in a previous List Jobs request."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobList = fun ?marker -> fun () -> { jobList; marker }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("JobList", (Option.map x.jobList ~f:JobList.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let jobList =
        (Option.map ~f:JobList.of_xml) (Xml.child xml_arg0 "JobList") in
      make ?marker ?jobList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" String_.of_json in
      let jobList = field_map json__ "JobList" JobList.of_json in
      make ?marker ?jobList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module ListJobsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      limit: String_.t option
        [@ocaml.doc
          "The maximum number of jobs to be returned. The default limit is 50. The number of jobs returned might be fewer than the specified limit, but the number of returned jobs never exceeds the limit."];
      marker: String_.t option
        [@ocaml.doc
          "An opaque string used for pagination. This value specifies the job at which the listing of jobs should begin. Get the marker value from a previous List Jobs response. You only need to include the marker if you are continuing the pagination of results started in a previous List Jobs request."];
      statuscode: String_.t option
        [@ocaml.doc
          "The type of job status to return. You can specify the following values: InProgress, Succeeded, or Failed."];
      completed: String_.t option
        [@ocaml.doc
          "The state of the jobs to return. You can specify true or false."]}
    let context_ = "ListJobsInput"
    let make ?limit =
      fun ?marker ->
        fun ?statuscode ->
          fun ?completed ->
            fun ~accountId ->
              fun ~vaultName ->
                fun () ->
                  {
                    limit;
                    marker;
                    statuscode;
                    completed;
                    accountId;
                    vaultName
                  }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("limit", (Option.map x.limit ~f:String_.to_value));
        ("marker", (Option.map x.marker ~f:String_.to_value));
        ("statuscode", (Option.map x.statuscode ~f:String_.to_value));
        ("completed", (Option.map x.completed ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completed =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "completed") in
      let statuscode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statuscode") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "marker") in
      let limit = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "limit") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?completed ?statuscode ?marker ?limit ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completed = field_map json__ "completed" String_.of_json in
      let statuscode = field_map json__ "statuscode" String_.of_json in
      let marker = field_map json__ "marker" String_.of_json in
      let limit = field_map json__ "limit" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?completed ?statuscode ?marker ?limit ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for retrieving a job list for an Amazon Glacier vault."]
module InitiateVaultLockOutput =
  struct
    type nonrec t =
      {
      lockId: String_.t option
        [@ocaml.doc
          "The lock ID, which is used to complete the vault locking process."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lockId = fun () -> { lockId }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?lockId:(Option.map
                       ((List.Assoc.find ~equal:String.Caseless.equal) xs
                          "x-amz-lock-id") ~f:String_.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-lock-id", (Option.map x.lockId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lockId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "x-amz-lock-id") in
      make ?lockId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lockId = field_map json__ "lockId" String_.of_json in
      make ?lockId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module InitiateVaultLockInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      policy: VaultLockPolicy.t option
        [@ocaml.doc
          "The vault lock policy as a JSON string, which uses \"\\\" as an escape character."]}
    let context_ = "InitiateVaultLockInput"
    let make ?policy =
      fun ~accountId ->
        fun ~vaultName -> fun () -> { policy; accountId; vaultName }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "accountId"))
            ~vaultName:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "vaultName")) ?policy:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("policy", (Option.map x.policy ~f:VaultLockPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:VaultLockPolicy.of_xml) (Xml.child xml_arg0 "policy") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?policy ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "policy" VaultLockPolicy.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?policy ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input values for InitiateVaultLock."]
module InitiateMultipartUploadOutput =
  struct
    type nonrec t =
      {
      location: String_.t option
        [@ocaml.doc
          "The relative URI path of the multipart upload ID Amazon Glacier created."];
      uploadId: String_.t option
        [@ocaml.doc
          "The ID of the multipart upload. This value is also included as part of the location."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?location = fun ?uploadId -> fun () -> { location; uploadId }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?location:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "Location") ~f:String_.of_string)
            ?uploadId:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "x-amz-multipart-upload-id") ~f:String_.of_string)
            ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Location", (Option.map x.location ~f:String_.to_value));
        ("x-amz-multipart-upload-id",
          (Option.map x.uploadId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uploadId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-multipart-upload-id") in
      let location =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Location") in
      make ?uploadId ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uploadId = field_map json__ "uploadId" String_.of_json in
      let location = field_map json__ "location" String_.of_json in
      make ?uploadId ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Amazon Glacier response to your request."]
module InitiateMultipartUploadInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      archiveDescription: String_.t option
        [@ocaml.doc
          "The archive description that you are uploading in parts. The part size must be a megabyte (1024 KB) multiplied by a power of 2, for example 1048576 (1 MB), 2097152 (2 MB), 4194304 (4 MB), 8388608 (8 MB), and so on. The minimum allowable part size is 1 MB, and the maximum is 4 GB (4096 MB)."];
      partSize: String_.t option
        [@ocaml.doc
          "The size of each part except the last, in bytes. The last part can be smaller than this part size."]}
    let context_ = "InitiateMultipartUploadInput"
    let make ?archiveDescription =
      fun ?partSize ->
        fun ~accountId ->
          fun ~vaultName ->
            fun () -> { archiveDescription; partSize; accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("x-amz-archive-description",
          (Option.map x.archiveDescription ~f:String_.to_value));
        ("x-amz-part-size", (Option.map x.partSize ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partSize =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "x-amz-part-size") in
      let archiveDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-archive-description") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?partSize ?archiveDescription ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partSize = field_map json__ "partSize" String_.of_json in
      let archiveDescription =
        field_map json__ "archiveDescription" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?partSize ?archiveDescription ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for initiating a multipart upload to an Amazon Glacier vault."]
module InitiateJobOutput =
  struct
    type nonrec t =
      {
      location: String_.t option
        [@ocaml.doc "The relative URI path of the job."];
      jobId: String_.t option [@ocaml.doc "The ID of the job."];
      jobOutputPath: String_.t option
        [@ocaml.doc
          "The path to the location of where the select results are stored."]}
    type nonrec error =
      [ `InsufficientCapacityException of InsufficientCapacityException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `PolicyEnforcedException of PolicyEnforcedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?location =
      fun ?jobId ->
        fun ?jobOutputPath -> fun () -> { location; jobId; jobOutputPath }
    let error_of_json name json =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "PolicyEnforcedException" ->
          `PolicyEnforcedException (PolicyEnforcedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InsufficientCapacityException" ->
          `InsufficientCapacityException
            (InsufficientCapacityException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "PolicyEnforcedException" ->
          `PolicyEnforcedException (PolicyEnforcedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InsufficientCapacityException e ->
          `Assoc
            [("error", (`String "InsufficientCapacityException"));
            ("details", (InsufficientCapacityException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `PolicyEnforcedException e ->
          `Assoc
            [("error", (`String "PolicyEnforcedException"));
            ("details", (PolicyEnforcedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?location:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "Location") ~f:String_.of_string)
            ?jobId:(Option.map
                      ((List.Assoc.find ~equal:String.Caseless.equal) xs
                         "x-amz-job-id") ~f:String_.of_string)
            ?jobOutputPath:(Option.map
                              ((List.Assoc.find ~equal:String.Caseless.equal)
                                 xs "x-amz-job-output-path")
                              ~f:String_.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Location", (Option.map x.location ~f:String_.to_value));
        ("x-amz-job-id", (Option.map x.jobId ~f:String_.to_value));
        ("x-amz-job-output-path",
          (Option.map x.jobOutputPath ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobOutputPath =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-job-output-path") in
      let jobId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "x-amz-job-id") in
      let location =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Location") in
      make ?jobOutputPath ?jobId ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobOutputPath = field_map json__ "jobOutputPath" String_.of_json in
      let jobId = field_map json__ "jobId" String_.of_json in
      let location = field_map json__ "location" String_.of_json in
      make ?jobOutputPath ?jobId ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module InitiateJobInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      jobParameters: JobParameters.t option
        [@ocaml.doc "Provides options for specifying job information."]}
    let context_ = "InitiateJobInput"
    let make ?jobParameters =
      fun ~accountId ->
        fun ~vaultName -> fun () -> { jobParameters; accountId; vaultName }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "accountId"))
            ~vaultName:(String_.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "vaultName")) ?jobParameters:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("jobParameters",
          (Option.map x.jobParameters ~f:JobParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobParameters =
        (Option.map ~f:JobParameters.of_xml)
          (Xml.child xml_arg0 "jobParameters") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?jobParameters ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobParameters =
        field_map json__ "jobParameters" JobParameters.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?jobParameters ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides options for initiating an Amazon Glacier job."]
module GetVaultNotificationsOutput =
  struct
    type nonrec t =
      {
      vaultNotificationConfig: VaultNotificationConfig.t option
        [@ocaml.doc
          "Returns the notification configuration set on the vault."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vaultNotificationConfig = fun () -> { vaultNotificationConfig }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) -> make ?vaultNotificationConfig:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("vaultNotificationConfig",
           (Option.map x.vaultNotificationConfig
              ~f:VaultNotificationConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultNotificationConfig =
        (Option.map ~f:VaultNotificationConfig.of_xml)
          (Xml.child xml_arg0 "vaultNotificationConfig") in
      make ?vaultNotificationConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultNotificationConfig =
        field_map json__ "vaultNotificationConfig"
          VaultNotificationConfig.of_json in
      make ?vaultNotificationConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module GetVaultNotificationsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "GetVaultNotificationsInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for retrieving the notification configuration set on an Amazon Glacier vault."]
module GetVaultLockOutput =
  struct
    type nonrec t =
      {
      policy: String_.t option
        [@ocaml.doc
          "The vault lock policy as a JSON string, which uses \"\\\" as an escape character."];
      state: String_.t option
        [@ocaml.doc "The state of the vault lock. InProgress or Locked."];
      expirationDate: String_.t option
        [@ocaml.doc
          "The UTC date and time at which the lock ID expires. This value can be null if the vault lock is in a Locked state."];
      creationDate: String_.t option
        [@ocaml.doc
          "The UTC date and time at which the vault lock was put into the InProgress state."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy =
      fun ?state ->
        fun ?expirationDate ->
          fun ?creationDate ->
            fun () -> { policy; state; expirationDate; creationDate }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `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
        [("Policy", (Option.map x.policy ~f:String_.to_value));
        ("State", (Option.map x.state ~f:String_.to_value));
        ("ExpirationDate", (Option.map x.expirationDate ~f:String_.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let expirationDate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ExpirationDate") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "State") in
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?creationDate ?expirationDate ?state ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationDate = field_map json__ "CreationDate" String_.of_json in
      let expirationDate = field_map json__ "ExpirationDate" String_.of_json in
      let state = field_map json__ "State" String_.of_json in
      let policy = field_map json__ "Policy" String_.of_json in
      make ?creationDate ?expirationDate ?state ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module GetVaultLockInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "GetVaultLockInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input values for GetVaultLock."]
module GetVaultAccessPolicyOutput =
  struct
    type nonrec t =
      {
      policy: VaultAccessPolicy.t option
        [@ocaml.doc
          "Contains the returned vault access policy as a JSON string."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ?policy:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:VaultAccessPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:VaultAccessPolicy.of_xml)
          (Xml.child xml_arg0 "policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "policy" VaultAccessPolicy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output for GetVaultAccessPolicy."]
module GetVaultAccessPolicyInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "GetVaultAccessPolicyInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for GetVaultAccessPolicy."]
module GetJobOutputOutput =
  struct
    type nonrec t =
      {
      body: Stream.t option
        [@ocaml.doc "The job data, either archive data or inventory data."];
      checksum: String_.t option
        [@ocaml.doc
          "The checksum of the data in the response. This header is returned only when retrieving the output for an archive retrieval job. Furthermore, this header appears only under the following conditions: You get the entire range of the archive. You request a range to return of the archive that starts and ends on a multiple of 1 MB. For example, if you have an 3.1 MB archive and you specify a range to return that starts at 1 MB and ends at 2 MB, then the x-amz-sha256-tree-hash is returned as a response header. You request a range of the archive to return that starts on a multiple of 1 MB and goes to the end of the archive. For example, if you have a 3.1 MB archive and you specify a range that starts at 2 MB and ends at 3.1 MB (the end of the archive), then the x-amz-sha256-tree-hash is returned as a response header."];
      status: Httpstatus.t option
        [@ocaml.doc
          "The HTTP response code for a job output request. The value depends on whether a range was specified in the request."];
      contentRange: String_.t option
        [@ocaml.doc
          "The range of bytes returned by Amazon Glacier. If only partial output is downloaded, the response provides the range of bytes Amazon Glacier returned. For example, bytes 0-1048575/8388608 returns the first 1 MB from 8 MB."];
      acceptRanges: String_.t option
        [@ocaml.doc
          "Indicates the range units accepted. For more information, see RFC2616."];
      contentType: String_.t option
        [@ocaml.doc
          "The Content-Type depends on whether the job output is an archive or a vault inventory. For archive data, the Content-Type is application/octet-stream. For vault inventory, if you requested CSV format when you initiated the job, the Content-Type is text/csv. Otherwise, by default, vault inventory is returned as JSON, and the Content-Type is application/json."];
      archiveDescription: String_.t option
        [@ocaml.doc "The description of an archive."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?body =
      fun ?checksum ->
        fun ?status ->
          fun ?contentRange ->
            fun ?acceptRanges ->
              fun ?contentType ->
                fun ?archiveDescription ->
                  fun () ->
                    {
                      body;
                      checksum;
                      status;
                      contentRange;
                      acceptRanges;
                      contentType;
                      archiveDescription
                    }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make ?body:(Some pipe)
            ?checksum:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "x-amz-sha256-tree-hash") ~f:String_.of_string)
            ?status:(Option.map
                       ((List.Assoc.find ~equal:String.Caseless.equal) xs
                          "status") ~f:Httpstatus.of_string)
            ?contentRange:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "Content-Range") ~f:String_.of_string)
            ?acceptRanges:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "Accept-Ranges") ~f:String_.of_string)
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:String_.of_string)
            ?archiveDescription:(Option.map
                                   ((List.Assoc.find
                                       ~equal:String.Caseless.equal) xs
                                      "x-amz-archive-description")
                                   ~f:String_.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("body", (Option.map x.body ~f:Stream.to_value));
        ("x-amz-sha256-tree-hash",
          (Option.map x.checksum ~f:String_.to_value));
        ("status", (Option.map x.status ~f:Httpstatus.to_value));
        ("Content-Range", (Option.map x.contentRange ~f:String_.to_value));
        ("Accept-Ranges", (Option.map x.acceptRanges ~f:String_.to_value));
        ("Content-Type", (Option.map x.contentType ~f:String_.to_value));
        ("x-amz-archive-description",
          (Option.map x.archiveDescription ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-archive-description") in
      let contentType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Content-Type") in
      let acceptRanges =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Accept-Ranges") in
      let contentRange =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Content-Range") in
      let status =
        (Option.map ~f:Httpstatus.of_xml) (Xml.child xml_arg0 "status") in
      let checksum =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-sha256-tree-hash") in
      let body = (Option.map ~f:Stream.of_xml) (Xml.child xml_arg0 "body") in
      make ?archiveDescription ?contentType ?acceptRanges ?contentRange
        ?status ?checksum ?body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveDescription =
        field_map json__ "archiveDescription" String_.of_json in
      let contentType = field_map json__ "contentType" String_.of_json in
      let acceptRanges = field_map json__ "acceptRanges" String_.of_json in
      let contentRange = field_map json__ "contentRange" String_.of_json in
      let status = field_map json__ "status" Httpstatus.of_json in
      let checksum = field_map json__ "checksum" String_.of_json in
      let body = field_map json__ "body" Stream.of_json in
      make ?archiveDescription ?contentType ?acceptRanges ?contentRange
        ?status ?checksum ?body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module GetJobOutputInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      jobId: String_.t [@ocaml.doc "The job ID whose data is downloaded."];
      range: String_.t option
        [@ocaml.doc
          "The range of bytes to retrieve from the output. For example, if you want to download the first 1,048,576 bytes, specify the range as bytes=0-1048575. By default, this operation downloads the entire output. If the job output is large, then you can use a range to retrieve a portion of the output. This allows you to download the entire output in smaller chunks of bytes. For example, suppose you have 1 GB of job output you want to download and you decide to download 128 MB chunks of data at a time, which is a total of eight Get Job Output requests. You use the following process to download the job output: Download a 128 MB chunk of output by specifying the appropriate byte range. Verify that all 128 MB of data was received. Along with the data, the response includes a SHA256 tree hash of the payload. You compute the checksum of the payload on the client and compare it with the checksum you received in the response to ensure you received all the expected data. Repeat steps 1 and 2 for all the eight 128 MB chunks of output data, each time specifying the appropriate byte range. After downloading all the parts of the job output, you have a list of eight checksum values. Compute the tree hash of these values to find the checksum of the entire output. Using the DescribeJob API, obtain job information of the job that provided you the output. The response includes the checksum of the entire archive stored in Amazon Glacier. You compare this value with the checksum you computed to ensure you have downloaded the entire archive content with no errors."]}
    let context_ = "GetJobOutputInput"
    let make ?range =
      fun ~accountId ->
        fun ~vaultName ->
          fun ~jobId -> fun () -> { range; accountId; vaultName; jobId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("jobId", (Some (String_.to_value x.jobId)));
        ("Range", (Option.map x.range ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let range = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Range") in
      let jobId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?range ~jobId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let range = field_map json__ "range" String_.of_json in
      let jobId = field_map_exn json__ "jobId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?range ~jobId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for downloading output of an Amazon Glacier job."]
module GetDataRetrievalPolicyOutput =
  struct
    type nonrec t =
      {
      policy: DataRetrievalPolicy.t option
        [@ocaml.doc
          "Contains the returned data retrieval policy in JSON format."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("Policy", (Option.map x.policy ~f:DataRetrievalPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:DataRetrievalPolicy.of_xml)
          (Xml.child xml_arg0 "Policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" DataRetrievalPolicy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the Amazon Glacier response to the GetDataRetrievalPolicy request."]
module GetDataRetrievalPolicyInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."]}
    let context_ = "GetDataRetrievalPolicyInput"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for GetDataRetrievalPolicy."]
module DescribeVaultInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "DescribeVaultInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for retrieving metadata for a specific vault in Amazon Glacier."]
module DescribeJobInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      jobId: String_.t [@ocaml.doc "The ID of the job to describe."]}
    let context_ = "DescribeJobInput"
    let make ~accountId =
      fun ~vaultName ->
        fun ~jobId -> fun () -> { accountId; vaultName; jobId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("jobId", (Some (String_.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~jobId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~jobId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides options for retrieving a job description."]
module DeleteVaultNotificationsInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "DeleteVaultNotificationsInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for deleting a vault notification configuration from an Amazon Glacier vault."]
module DeleteVaultInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "DeleteVaultInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for deleting a vault from Amazon Glacier."]
module DeleteVaultAccessPolicyInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "DeleteVaultAccessPolicyInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteVaultAccessPolicy input."]
module DeleteArchiveInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      archiveId: String_.t [@ocaml.doc "The ID of the archive to delete."]}
    let context_ = "DeleteArchiveInput"
    let make ~accountId =
      fun ~vaultName ->
        fun ~archiveId -> fun () -> { accountId; vaultName; archiveId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("archiveId", (Some (String_.to_value x.archiveId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "archiveId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~archiveId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveId = field_map_exn json__ "archiveId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~archiveId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options for deleting an archive from an Amazon Glacier vault."]
module CreateVaultOutput =
  struct
    type nonrec t =
      {
      location: String_.t option
        [@ocaml.doc "The URI of the vault that was created."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?location = fun () -> { location }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?location:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "Location") ~f:String_.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Location", (Option.map x.location ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let location =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Location") in
      make ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let location = field_map json__ "location" String_.of_json in
      make ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the Amazon Glacier response to your request."]
module CreateVaultInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon S3 Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "CreateVaultInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides options to create a vault."]
module CompleteVaultLockInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      lockId: String_.t
        [@ocaml.doc
          "The lockId value is the lock ID obtained from a InitiateVaultLock request."]}
    let context_ = "CompleteVaultLockInput"
    let make ~accountId =
      fun ~vaultName ->
        fun ~lockId -> fun () -> { accountId; vaultName; lockId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("lockId", (Some (String_.to_value x.lockId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lockId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "lockId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~lockId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lockId = field_map_exn json__ "lockId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~lockId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input values for CompleteVaultLock."]
module CompleteMultipartUploadInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      uploadId: String_.t
        [@ocaml.doc "The upload ID of the multipart upload."];
      archiveSize: String_.t option
        [@ocaml.doc
          "The total size, in bytes, of the entire archive. This value should be the sum of all the sizes of the individual parts that you uploaded."];
      checksum: String_.t option
        [@ocaml.doc
          "The SHA256 tree hash of the entire archive. It is the tree hash of SHA256 tree hash of the individual parts. If the value you specify in the request does not match the SHA256 tree hash of the final assembled archive as computed by Amazon Glacier (Glacier), Glacier returns an error and the request fails."]}
    let context_ = "CompleteMultipartUploadInput"
    let make ?archiveSize =
      fun ?checksum ->
        fun ~accountId ->
          fun ~vaultName ->
            fun ~uploadId ->
              fun () ->
                { archiveSize; checksum; accountId; vaultName; uploadId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("uploadId", (Some (String_.to_value x.uploadId)));
        ("x-amz-archive-size",
          (Option.map x.archiveSize ~f:String_.to_value));
        ("x-amz-sha256-tree-hash",
          (Option.map x.checksum ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checksum =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-sha256-tree-hash") in
      let archiveSize =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-archive-size") in
      let uploadId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uploadId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?checksum ?archiveSize ~uploadId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checksum = field_map json__ "checksum" String_.of_json in
      let archiveSize = field_map json__ "archiveSize" String_.of_json in
      let uploadId = field_map_exn json__ "uploadId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?checksum ?archiveSize ~uploadId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options to complete a multipart upload operation. This informs Amazon Glacier that all the archive parts have been uploaded and Amazon Glacier (Glacier) can now assemble the archive from the uploaded parts. After assembling and saving the archive to the vault, Glacier returns the URI path of the newly created archive resource."]
module ArchiveCreationOutput =
  struct
    type nonrec t =
      {
      location: String_.t option
        [@ocaml.doc
          "The relative URI path of the newly added archive resource."];
      checksum: String_.t option
        [@ocaml.doc
          "The checksum of the archive computed by Amazon Glacier."];
      archiveId: String_.t option
        [@ocaml.doc
          "The ID of the archive. This value is also included as part of the location."]}
    type nonrec error =
      [ `InvalidParameterValueException of InvalidParameterValueException.t 
      | `MissingParameterValueException of MissingParameterValueException.t 
      | `NoLongerSupportedException of NoLongerSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?location =
      fun ?checksum ->
        fun ?archiveId -> fun () -> { location; checksum; archiveId }
    let error_of_json name json =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_json json)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException
            (NoLongerSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "MissingParameterValueException" ->
          `MissingParameterValueException
            (MissingParameterValueException.of_xml xml)
      | "NoLongerSupportedException" ->
          `NoLongerSupportedException (NoLongerSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `MissingParameterValueException e ->
          `Assoc
            [("error", (`String "MissingParameterValueException"));
            ("details", (MissingParameterValueException.to_json e))]
      | `NoLongerSupportedException e ->
          `Assoc
            [("error", (`String "NoLongerSupportedException"));
            ("details", (NoLongerSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?location:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "Location") ~f:String_.of_string)
            ?checksum:(Option.map
                         ((List.Assoc.find ~equal:String.Caseless.equal) xs
                            "x-amz-sha256-tree-hash") ~f:String_.of_string)
            ?archiveId:(Option.map
                          ((List.Assoc.find ~equal:String.Caseless.equal) xs
                             "x-amz-archive-id") ~f:String_.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Location", (Option.map x.location ~f:String_.to_value));
        ("x-amz-sha256-tree-hash",
          (Option.map x.checksum ~f:String_.to_value));
        ("x-amz-archive-id", (Option.map x.archiveId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-archive-id") in
      let checksum =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "x-amz-sha256-tree-hash") in
      let location =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Location") in
      make ?archiveId ?checksum ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveId = field_map json__ "archiveId" String_.of_json in
      let checksum = field_map json__ "checksum" String_.of_json in
      let location = field_map json__ "location" String_.of_json in
      make ?archiveId ?checksum ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the Amazon Glacier response to your request. For information about the underlying REST API, see Upload Archive. For conceptual information, see Working with Archives in Amazon Glacier."]
module AddTagsToVaultInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      tags: TagMap.t option
        [@ocaml.doc
          "The tags to add to the vault. Each tag is composed of a key and a value. The value can be an empty string."]}
    let context_ = "AddTagsToVaultInput"
    let make ?tags =
      fun ~accountId ->
        fun ~vaultName -> fun () -> { tags; accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?tags ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ?tags ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input values for AddTagsToVault."]
module AbortVaultLockInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID. This value must match the AWS account ID associated with the credentials used to sign the request. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you specify your account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."]}
    let context_ = "AbortVaultLockInput"
    let make ~accountId =
      fun ~vaultName -> fun () -> { accountId; vaultName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input values for AbortVaultLock."]
module AbortMultipartUploadInput =
  struct
    type nonrec t =
      {
      accountId: String_.t
        [@ocaml.doc
          "The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '-' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens ('-') in the ID."];
      vaultName: String_.t [@ocaml.doc "The name of the vault."];
      uploadId: String_.t
        [@ocaml.doc "The upload ID of the multipart upload to delete."]}
    let context_ = "AbortMultipartUploadInput"
    let make ~accountId =
      fun ~vaultName ->
        fun ~uploadId -> fun () -> { accountId; vaultName; uploadId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("vaultName", (Some (String_.to_value x.vaultName)));
        ("uploadId", (Some (String_.to_value x.uploadId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uploadId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uploadId") in
      let vaultName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vaultName") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~uploadId ~vaultName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uploadId = field_map_exn json__ "uploadId" String_.of_json in
      let vaultName = field_map_exn json__ "vaultName" String_.of_json in
      let accountId = field_map_exn json__ "accountId" String_.of_json in
      make ~uploadId ~vaultName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides options to abort a multipart upload identified by the upload ID. For information about the underlying REST API, see Abort Multipart Upload. For conceptual information, see Working with Archives in Amazon Glacier."]