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.s3control
let apiVersion = "2018-08-20"
let endpointPrefix = "s3-control"
let serviceFullName = "AWS S3 Control"
let signatureVersion = "s3v4"
let protocol = "rest_xml"
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 NonEmptyMaxLength1024String =
  struct
    type nonrec t = string
    let context_ = "NonEmptyMaxLength1024String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyMaxLength1024String" j
    let to_json = simple_to_json to_value
  end
module S3GranteeTypeIdentifier =
  struct
    type nonrec t =
      | Id 
      | EmailAddress 
      | Uri_ 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Id -> "id"
      | EmailAddress -> "emailAddress"
      | Uri_ -> "uri"
      | Non_static_id s -> s
    let of_string =
      function
      | "id" -> Id
      | "emailAddress" -> EmailAddress
      | "uri" -> Uri_
      | 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 S3GranteeTypeIdentifier" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"S3GranteeTypeIdentifier" j)
    let to_json = simple_to_json to_value
  end
module TagKeyString =
  struct
    type nonrec t = string
    let context_ = "TagKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKeyString" j
    let to_json = simple_to_json to_value
  end
module TagValueString =
  struct
    type nonrec t = string
    let context_ = "TagValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValueString" j
    let to_json = simple_to_json to_value
  end
module NonEmptyKmsKeyArnString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyKmsKeyArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[a-zA-Z0-9-]*:kms:[a-z0-9-]+:[0-9]{12}:key/[a-zA-Z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyKmsKeyArnString" 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 S3Grantee =
  struct
    type nonrec t =
      {
      typeIdentifier: S3GranteeTypeIdentifier.t option ;
      identifier: NonEmptyMaxLength1024String.t option ;
      displayName: NonEmptyMaxLength1024String.t option }
    let make ?typeIdentifier =
      fun ?identifier ->
        fun ?displayName ->
          fun () -> { typeIdentifier; identifier; displayName }
    let to_value x =
      structure_to_value
        [("TypeIdentifier",
           (Option.map x.typeIdentifier ~f:S3GranteeTypeIdentifier.to_value));
        ("Identifier",
          (Option.map x.identifier ~f:NonEmptyMaxLength1024String.to_value));
        ("DisplayName",
          (Option.map x.displayName ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let identifier =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "Identifier") in
      let typeIdentifier =
        (Option.map ~f:S3GranteeTypeIdentifier.of_xml)
          (Xml.child xml_arg0 "TypeIdentifier") in
      make ?displayName ?identifier ?typeIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "DisplayName" NonEmptyMaxLength1024String.of_json in
      let identifier =
        field_map json__ "Identifier" NonEmptyMaxLength1024String.of_json in
      let typeIdentifier =
        field_map json__ "TypeIdentifier" S3GranteeTypeIdentifier.of_json in
      make ?displayName ?identifier ?typeIdentifier ()
    let to_json v = composed_to_json to_value v
  end
module S3Permission =
  struct
    type nonrec t =
      | FULL_CONTROL 
      | READ 
      | WRITE 
      | READ_ACP 
      | WRITE_ACP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FULL_CONTROL -> "FULL_CONTROL"
      | READ -> "READ"
      | WRITE -> "WRITE"
      | READ_ACP -> "READ_ACP"
      | WRITE_ACP -> "WRITE_ACP"
      | Non_static_id s -> s
    let of_string =
      function
      | "FULL_CONTROL" -> FULL_CONTROL
      | "READ" -> READ
      | "WRITE" -> WRITE
      | "READ_ACP" -> READ_ACP
      | "WRITE_ACP" -> WRITE_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 S3Permission" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3Permission" j)
    let to_json = simple_to_json to_value
  end
module MinStorageBytesPercentage =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.1));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module StorageLensPrefixLevelDelimiter =
  struct
    type nonrec t = string
    let context_ = "StorageLensPrefixLevelDelimiter"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StorageLensPrefixLevelDelimiter" j
    let to_json = simple_to_json to_value
  end
module StorageLensPrefixLevelMaxDepth =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for StorageLensPrefixLevelMaxDepth"
           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 Minutes =
  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 Minutes" 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 S3Tag =
  struct
    type nonrec t =
      {
      key: TagKeyString.t [@ocaml.doc "Key of the tag"];
      value: TagValueString.t [@ocaml.doc "Value of the tag"]}
    let context_ = "S3Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKeyString.to_value x.key)));
        ("Value", (Some (TagValueString.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKeyString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValueString.of_json in
      let key = field_map_exn json__ "Key" TagKeyString.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A container for a key-value name pair."]
module DSSEKMSFilter =
  struct
    type nonrec t =
      {
      kmsKeyArn: NonEmptyKmsKeyArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the customer managed KMS key to use for the filter to return objects that are encrypted by the specified key. For best performance, use keys in the same Region as the S3 Batch Operations job."]}
    let make ?kmsKeyArn = fun () -> { kmsKeyArn }
    let to_value x =
      structure_to_value
        [("KmsKeyArn",
           (Option.map x.kmsKeyArn ~f:NonEmptyKmsKeyArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyArn =
        (Option.map ~f:NonEmptyKmsKeyArnString.of_xml)
          (Xml.child xml_arg0 "KmsKeyArn") in
      make ?kmsKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyArn =
        field_map json__ "KmsKeyArn" NonEmptyKmsKeyArnString.of_json in
      make ?kmsKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that returns objects that are encrypted by dual-layer server-side encryption with Amazon Web Services Key Management Service (KMS) keys (DSSE-KMS). You can further refine your filtering by optionally providing a KMS Key ARN to filter objects encrypted by a specific key."]
module NotSSEFilter =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that returns objects that aren't server-side encrypted."]
module SSECFilter =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that returns objects that are encrypted by server-side encryption with customer-provided keys (SSE-C)."]
module SSEKMSFilter =
  struct
    type nonrec t =
      {
      kmsKeyArn: NonEmptyKmsKeyArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the customer managed KMS key to use for the filter to return objects that are encrypted by the specified key. For best performance, use keys in the same Region as the S3 Batch Operations job."];
      bucketKeyEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should use an S3 Bucket Key for object encryption with server-side encryption using Amazon Web Services Key Management Service (Amazon Web Services KMS) keys (SSE-KMS). If specified, will filter SSE-KMS encrypted objects by S3 Bucket Key status."]}
    let make ?kmsKeyArn =
      fun ?bucketKeyEnabled -> fun () -> { kmsKeyArn; bucketKeyEnabled }
    let to_value x =
      structure_to_value
        [("KmsKeyArn",
           (Option.map x.kmsKeyArn ~f:NonEmptyKmsKeyArnString.to_value));
        ("BucketKeyEnabled",
          (Option.map x.bucketKeyEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketKeyEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "BucketKeyEnabled") in
      let kmsKeyArn =
        (Option.map ~f:NonEmptyKmsKeyArnString.of_xml)
          (Xml.child xml_arg0 "KmsKeyArn") in
      make ?bucketKeyEnabled ?kmsKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketKeyEnabled =
        field_map json__ "BucketKeyEnabled" Boolean.of_json in
      let kmsKeyArn =
        field_map json__ "KmsKeyArn" NonEmptyKmsKeyArnString.of_json in
      make ?bucketKeyEnabled ?kmsKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that returns objects that are encrypted by server-side encryption with Amazon Web Services KMS (SSE-KMS)."]
module SSES3Filter =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that returns objects that are encrypted by server-side encryption with Amazon S3 managed keys (SSE-S3)."]
module KmsKeyArnString =
  struct
    type nonrec t = string
    let context_ = "KmsKeyArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyArnString" j
    let to_json = simple_to_json to_value
  end
module S3Grant =
  struct
    type nonrec t =
      {
      grantee: S3Grantee.t option ;
      permission: S3Permission.t option }
    let make ?grantee = fun ?permission -> fun () -> { grantee; permission }
    let to_value x =
      structure_to_value
        [("Grantee", (Option.map x.grantee ~f:S3Grantee.to_value));
        ("Permission", (Option.map x.permission ~f:S3Permission.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permission =
        (Option.map ~f:S3Permission.of_xml) (Xml.child xml_arg0 "Permission") in
      let grantee =
        (Option.map ~f:S3Grantee.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" S3Permission.of_json in
      let grantee = field_map json__ "Grantee" S3Grantee.of_json in
      make ?permission ?grantee ()
    let to_json v = composed_to_json to_value v
  end
module IsEnabled =
  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 SelectionCriteria =
  struct
    type nonrec t =
      {
      delimiter: StorageLensPrefixLevelDelimiter.t option
        [@ocaml.doc
          "A container for the delimiter of the selection criteria being used."];
      maxDepth: StorageLensPrefixLevelMaxDepth.t option
        [@ocaml.doc "The max depth of the selection criteria"];
      minStorageBytesPercentage: MinStorageBytesPercentage.t option
        [@ocaml.doc
          "The minimum number of storage bytes percentage whose metrics will be selected. You must choose a value greater than or equal to 1.0."]}
    let make ?delimiter =
      fun ?maxDepth ->
        fun ?minStorageBytesPercentage ->
          fun () -> { delimiter; maxDepth; minStorageBytesPercentage }
    let to_value x =
      structure_to_value
        [("Delimiter",
           (Option.map x.delimiter
              ~f:StorageLensPrefixLevelDelimiter.to_value));
        ("MaxDepth",
          (Option.map x.maxDepth ~f:StorageLensPrefixLevelMaxDepth.to_value));
        ("MinStorageBytesPercentage",
          (Option.map x.minStorageBytesPercentage
             ~f:MinStorageBytesPercentage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minStorageBytesPercentage =
        (Option.map ~f:MinStorageBytesPercentage.of_xml)
          (Xml.child xml_arg0 "MinStorageBytesPercentage") in
      let maxDepth =
        (Option.map ~f:StorageLensPrefixLevelMaxDepth.of_xml)
          (Xml.child xml_arg0 "MaxDepth") in
      let delimiter =
        (Option.map ~f:StorageLensPrefixLevelDelimiter.of_xml)
          (Xml.child xml_arg0 "Delimiter") in
      make ?minStorageBytesPercentage ?maxDepth ?delimiter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minStorageBytesPercentage =
        field_map json__ "MinStorageBytesPercentage"
          MinStorageBytesPercentage.of_json in
      let maxDepth =
        field_map json__ "MaxDepth" StorageLensPrefixLevelMaxDepth.of_json in
      let delimiter =
        field_map json__ "Delimiter" StorageLensPrefixLevelDelimiter.of_json in
      make ?minStorageBytesPercentage ?maxDepth ?delimiter ()
    let to_json v = composed_to_json to_value v
  end
module StorageLensGroupArn =
  struct
    type nonrec t = string
    let context_ = "StorageLensGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\-]+:s3:[a-z0-9\\-]+:\\d{12}:storage\\-lens\\-group\\/.*")));
        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:"StorageLensGroupArn" j
    let to_json = simple_to_json to_value
  end
module SSEKMSKeyId =
  struct
    type nonrec t = string
    let context_ = "SSEKMSKeyId"
    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:"SSEKMSKeyId" j
    let to_json = simple_to_json to_value
  end
module OwnerOverride =
  struct
    type nonrec t =
      | Destination 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Destination -> "Destination" | Non_static_id s -> s
    let of_string =
      function | "Destination" -> Destination | 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 OwnerOverride" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OwnerOverride" j)
    let to_json = simple_to_json to_value
  end
module ReplicaKmsKeyID =
  struct
    type nonrec t = string
    let context_ = "ReplicaKmsKeyID"
    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:"ReplicaKmsKeyID" j
    let to_json = simple_to_json to_value
  end
module MetricsStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 MetricsStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetricsStatus" j)
    let to_json = simple_to_json to_value
  end
module ReplicationTimeValue =
  struct
    type nonrec t =
      {
      minutes: Minutes.t option
        [@ocaml.doc
          "Contains an integer that specifies the time period in minutes. Valid value: 15"]}
    let make ?minutes = fun () -> { minutes }
    let to_value x =
      structure_to_value
        [("Minutes", (Option.map x.minutes ~f:Minutes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minutes =
        (Option.map ~f:Minutes.of_xml) (Xml.child xml_arg0 "Minutes") in
      make ?minutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minutes = field_map json__ "Minutes" Minutes.of_json in
      make ?minutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container that specifies the time value for S3 Replication Time Control (S3 RTC). This value is also used for the replication metrics EventThreshold element. This is not supported by Amazon S3 on Outposts buckets."]
module ReplicationTimeStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 ReplicationTimeStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReplicationTimeStatus" j)
    let to_json = simple_to_json to_value
  end
module Prefix =
  struct
    type nonrec t = string
    let context_ = "Prefix"
    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:"Prefix" j
    let to_json = simple_to_json to_value
  end
module S3TagSet =
  struct
    type nonrec t = S3Tag.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:S3Tag.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:S3Tag.of_xml)
    let of_json j = list_of_json ~kind:"S3TagSet" ~of_json:S3Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplicaModificationsStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 ReplicaModificationsStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReplicaModificationsStatus" j)
    let to_json = simple_to_json to_value
  end
module SseKmsEncryptedObjectsStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 SseKmsEncryptedObjectsStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SseKmsEncryptedObjectsStatus" j)
    let to_json = simple_to_json to_value
  end
module ObjectSizeGreaterThanBytes =
  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 ObjectSizeLessThanBytes =
  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 Days =
  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 Days" 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 TransitionStorageClass =
  struct
    type nonrec t =
      | GLACIER 
      | STANDARD_IA 
      | ONEZONE_IA 
      | INTELLIGENT_TIERING 
      | DEEP_ARCHIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GLACIER -> "GLACIER"
      | STANDARD_IA -> "STANDARD_IA"
      | ONEZONE_IA -> "ONEZONE_IA"
      | INTELLIGENT_TIERING -> "INTELLIGENT_TIERING"
      | DEEP_ARCHIVE -> "DEEP_ARCHIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "GLACIER" -> GLACIER
      | "STANDARD_IA" -> STANDARD_IA
      | "ONEZONE_IA" -> ONEZONE_IA
      | "INTELLIGENT_TIERING" -> INTELLIGENT_TIERING
      | "DEEP_ARCHIVE" -> DEEP_ARCHIVE
      | 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 TransitionStorageClass" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TransitionStorageClass" j)
    let to_json = simple_to_json to_value
  end
module Date =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module AwsLambdaTransformationPayload =
  struct
    type nonrec t = string
    let context_ = "AwsLambdaTransformationPayload"
    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:"AwsLambdaTransformationPayload" j
    let to_json = simple_to_json to_value
  end
module FunctionArnString =
  struct
    type nonrec t = string
    let context_ = "FunctionArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:(aws[a-zA-Z-]*)?:lambda:)?([a-z]{2}((-gov)|(-iso([a-z]?)))?-[a-z]+-\\d{1}:)?(\\d{12}:)?(function:)?([a-zA-Z0-9-_]+)(:(\\$LATEST|[a-zA-Z0-9-_]+))?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FunctionArnString" j
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_pattern i ~pattern:"^\\d{12}$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module BucketName =
  struct
    type nonrec t = string
    let context_ = "BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BucketName" j
    let to_json = simple_to_json to_value
  end
module AsyncRequestStatus =
  struct
    type nonrec t = string
    let context_ = "AsyncRequestStatus"
    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:"AsyncRequestStatus" j
    let to_json = simple_to_json to_value
  end
module RegionName =
  struct
    type nonrec t = string
    let context_ = "RegionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegionName" j
    let to_json = simple_to_json to_value
  end
module NonEmptyMaxLength1024StringList =
  struct
    type nonrec t = NonEmptyMaxLength1024String.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:NonEmptyMaxLength1024String.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:NonEmptyMaxLength1024String.of_xml)
    let of_json j =
      list_of_json ~kind:"NonEmptyMaxLength1024StringList"
        ~of_json:NonEmptyMaxLength1024String.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectEncryptionFilter =
  struct
    type nonrec t =
      {
      sSES3: SSES3Filter.t option
        [@ocaml.doc
          "Filters for objects that are encrypted by server-side encryption with Amazon S3 managed keys (SSE-S3)."];
      sSEKMS: SSEKMSFilter.t option
        [@ocaml.doc
          "Filters for objects that are encrypted by server-side encryption with Amazon Web Services Key Management Service (KMS) keys (SSE-KMS)."];
      dSSEKMS: DSSEKMSFilter.t option
        [@ocaml.doc
          "Filters for objects that are encrypted by dual-layer server-side encryption with Amazon Web Services Key Management Service (KMS) keys (DSSE-KMS)."];
      sSEC: SSECFilter.t option
        [@ocaml.doc
          "Filters for objects that are encrypted by server-side encryption with customer-provided keys (SSE-C)."];
      nOTSSE: NotSSEFilter.t option
        [@ocaml.doc
          "Filters for objects that are not encrypted by server-side encryption."]}
    let make ?sSES3 =
      fun ?sSEKMS ->
        fun ?dSSEKMS ->
          fun ?sSEC ->
            fun ?nOTSSE -> fun () -> { sSES3; sSEKMS; dSSEKMS; sSEC; nOTSSE }
    let to_value x =
      structure_to_value
        [("SSE-S3", (Option.map x.sSES3 ~f:SSES3Filter.to_value));
        ("SSE-KMS", (Option.map x.sSEKMS ~f:SSEKMSFilter.to_value));
        ("DSSE-KMS", (Option.map x.dSSEKMS ~f:DSSEKMSFilter.to_value));
        ("SSE-C", (Option.map x.sSEC ~f:SSECFilter.to_value));
        ("NOT-SSE", (Option.map x.nOTSSE ~f:NotSSEFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nOTSSE =
        (Option.map ~f:NotSSEFilter.of_xml) (Xml.child xml_arg0 "NOT-SSE") in
      let sSEC =
        (Option.map ~f:SSECFilter.of_xml) (Xml.child xml_arg0 "SSE-C") in
      let dSSEKMS =
        (Option.map ~f:DSSEKMSFilter.of_xml) (Xml.child xml_arg0 "DSSE-KMS") in
      let sSEKMS =
        (Option.map ~f:SSEKMSFilter.of_xml) (Xml.child xml_arg0 "SSE-KMS") in
      let sSES3 =
        (Option.map ~f:SSES3Filter.of_xml) (Xml.child xml_arg0 "SSE-S3") in
      make ?nOTSSE ?sSEC ?dSSEKMS ?sSEKMS ?sSES3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nOTSSE = field_map json__ "NOTSSE" NotSSEFilter.of_json in
      let sSEC = field_map json__ "SSEC" SSECFilter.of_json in
      let dSSEKMS = field_map json__ "DSSEKMS" DSSEKMSFilter.of_json in
      let sSEKMS = field_map json__ "SSEKMS" SSEKMSFilter.of_json in
      let sSES3 = field_map json__ "SSES3" SSES3Filter.of_json in
      make ?nOTSSE ?sSEC ?dSSEKMS ?sSEKMS ?sSES3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An optional filter for the S3JobManifestGenerator that identifies the subset of objects by encryption type."]
module ReplicationStatus =
  struct
    type nonrec t =
      | COMPLETED 
      | FAILED 
      | REPLICA 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | REPLICA -> "REPLICA"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | "REPLICA" -> REPLICA
      | "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 ReplicationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicationStatus" j)
    let to_json = simple_to_json to_value
  end
module S3StorageClass =
  struct
    type nonrec t =
      | STANDARD 
      | STANDARD_IA 
      | ONEZONE_IA 
      | GLACIER 
      | INTELLIGENT_TIERING 
      | DEEP_ARCHIVE 
      | GLACIER_IR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | STANDARD_IA -> "STANDARD_IA"
      | ONEZONE_IA -> "ONEZONE_IA"
      | GLACIER -> "GLACIER"
      | INTELLIGENT_TIERING -> "INTELLIGENT_TIERING"
      | DEEP_ARCHIVE -> "DEEP_ARCHIVE"
      | GLACIER_IR -> "GLACIER_IR"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "STANDARD_IA" -> STANDARD_IA
      | "ONEZONE_IA" -> ONEZONE_IA
      | "GLACIER" -> GLACIER
      | "INTELLIGENT_TIERING" -> INTELLIGENT_TIERING
      | "DEEP_ARCHIVE" -> DEEP_ARCHIVE
      | "GLACIER_IR" -> GLACIER_IR
      | 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 S3StorageClass" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3StorageClass" j)
    let to_json = simple_to_json to_value
  end
module SSEKMSEncryption =
  struct
    type nonrec t =
      {
      keyId: KmsKeyArnString.t
        [@ocaml.doc
          "Specifies the ID of the Amazon Web Services Key Management Service (Amazon Web Services KMS) symmetric encryption customer managed key to use for encrypting generated manifest objects."]}
    let context_ = "SSEKMSEncryption"
    let make ~keyId = fun () -> { keyId }
    let to_value x =
      structure_to_value
        [("KeyId", (Some (KmsKeyArnString.to_value x.keyId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyId =
        KmsKeyArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyId") in
      make ~keyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyId = field_map_exn json__ "KeyId" KmsKeyArnString.of_json in
      make ~keyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for the use of SSE-KMS to encrypt generated manifest objects."]
module SSES3Encryption =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for the use of SSE-S3 to encrypt generated manifest objects."]
module MaxLength1024String =
  struct
    type nonrec t = string
    let context_ = "MaxLength1024String"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); 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:"MaxLength1024String" j
    let to_json = simple_to_json to_value
  end
module S3GrantList =
  struct
    type nonrec t = S3Grant.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:S3Grant.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:S3Grant.of_xml)
    let of_json j =
      list_of_json ~kind:"S3GrantList" ~of_json:S3Grant.of_json j
    let to_json v = composed_to_json to_value v
  end
module S3ObjectOwner =
  struct
    type nonrec t =
      {
      iD: NonEmptyMaxLength1024String.t option ;
      displayName: NonEmptyMaxLength1024String.t option }
    let make ?iD = fun ?displayName -> fun () -> { iD; displayName }
    let to_value x =
      structure_to_value
        [("ID", (Option.map x.iD ~f:NonEmptyMaxLength1024String.to_value));
        ("DisplayName",
          (Option.map x.displayName ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let iD =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "ID") in
      make ?displayName ?iD ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "DisplayName" NonEmptyMaxLength1024String.of_json in
      let iD = field_map json__ "ID" NonEmptyMaxLength1024String.of_json in
      make ?displayName ?iD ()
    let to_json v = composed_to_json to_value v
  end
module Suffix =
  struct
    type nonrec t = string
    let context_ = "Suffix"
    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:"Suffix" j
    let to_json = simple_to_json to_value
  end
module ObjectAgeValue =
  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 ObjectAgeValue" 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 ObjectSizeValue =
  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 PrefixLevelStorageMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container for whether prefix-level storage metrics are enabled."];
      selectionCriteria: SelectionCriteria.t option }
    let make ?isEnabled =
      fun ?selectionCriteria -> fun () -> { isEnabled; selectionCriteria }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value));
        ("SelectionCriteria",
          (Option.map x.selectionCriteria ~f:SelectionCriteria.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selectionCriteria =
        (Option.map ~f:SelectionCriteria.of_xml)
          (Xml.child xml_arg0 "SelectionCriteria") in
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      make ?selectionCriteria ?isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selectionCriteria =
        field_map json__ "SelectionCriteria" SelectionCriteria.of_json in
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      make ?selectionCriteria ?isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the prefix-level storage metrics for S3 Storage Lens."]
module StorageLensGroupLevelExclude =
  struct
    type nonrec t = StorageLensGroupArn.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:StorageLensGroupArn.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:StorageLensGroupArn.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageLensGroupLevelExclude"
        ~of_json:StorageLensGroupArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageLensGroupLevelInclude =
  struct
    type nonrec t = StorageLensGroupArn.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:StorageLensGroupArn.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:StorageLensGroupArn.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageLensGroupLevelInclude"
        ~of_json:StorageLensGroupArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module SSEKMS =
  struct
    type nonrec t =
      {
      keyId: SSEKMSKeyId.t
        [@ocaml.doc
          "A container for the ARN of the SSE-KMS encryption. This property is read-only and follows the following format: arn:aws:kms:us-east-1:example-account-id:key/example-9a73-4afc-8d29-8f5900cef44e"]}
    let context_ = "SSEKMS"
    let make ~keyId = fun () -> { keyId }
    let to_value x =
      structure_to_value [("KeyId", (Some (SSEKMSKeyId.to_value x.keyId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyId =
        SSEKMSKeyId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KeyId") in
      make ~keyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyId = field_map_exn json__ "KeyId" SSEKMSKeyId.of_json in
      make ~keyId ()
    let to_json v = composed_to_json to_value v
  end
module SSES3 =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end
module DeleteMarkerReplicationStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 DeleteMarkerReplicationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DeleteMarkerReplicationStatus" j)
    let to_json = simple_to_json to_value
  end
module AccessControlTranslation =
  struct
    type nonrec t =
      {
      owner: OwnerOverride.t [@ocaml.doc "Specifies the replica ownership."]}
    let context_ = "AccessControlTranslation"
    let make ~owner = fun () -> { owner }
    let to_value x =
      structure_to_value [("Owner", (Some (OwnerOverride.to_value x.owner)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner =
        OwnerOverride.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Owner") in
      make ~owner ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner = field_map_exn json__ "Owner" OwnerOverride.of_json in
      make ~owner ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for information about access control for replicas. This is not supported by Amazon S3 on Outposts buckets."]
module BucketIdentifierString =
  struct
    type nonrec t = string
    let context_ = "BucketIdentifierString"
    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:"BucketIdentifierString" j
    let to_json = simple_to_json to_value
  end
module EncryptionConfiguration =
  struct
    type nonrec t =
      {
      replicaKmsKeyID: ReplicaKmsKeyID.t option
        [@ocaml.doc
          "Specifies the ID of the customer managed KMS key that's stored in Key Management Service (KMS) for the destination bucket. This ID is either the Amazon Resource Name (ARN) for the KMS key or the alias ARN for the KMS key. Amazon S3 uses this KMS key to encrypt replica objects. Amazon S3 supports only symmetric encryption KMS keys. For more information, see Symmetric encryption KMS keys in the Amazon Web Services Key Management Service Developer Guide."]}
    let make ?replicaKmsKeyID = fun () -> { replicaKmsKeyID }
    let to_value x =
      structure_to_value
        [("ReplicaKmsKeyID",
           (Option.map x.replicaKmsKeyID ~f:ReplicaKmsKeyID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicaKmsKeyID =
        (Option.map ~f:ReplicaKmsKeyID.of_xml)
          (Xml.child xml_arg0 "ReplicaKmsKeyID") in
      make ?replicaKmsKeyID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicaKmsKeyID =
        field_map json__ "ReplicaKmsKeyID" ReplicaKmsKeyID.of_json in
      make ?replicaKmsKeyID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies encryption-related information for an Amazon S3 bucket that is a destination for replicated objects. If you're specifying a customer managed KMS key, we recommend using a fully qualified KMS key ARN. If you use a KMS key alias instead, then KMS resolves the key within the requester\226\128\153s account. This behavior can result in data that's encrypted with a KMS key that belongs to the requester, and not the bucket owner. This is not supported by Amazon S3 on Outposts buckets."]
module Metrics =
  struct
    type nonrec t =
      {
      status: MetricsStatus.t
        [@ocaml.doc "Specifies whether replication metrics are enabled."];
      eventThreshold: ReplicationTimeValue.t option
        [@ocaml.doc
          "A container that specifies the time threshold for emitting the s3:Replication:OperationMissedThreshold event. This is not supported by Amazon S3 on Outposts buckets."]}
    let context_ = "Metrics"
    let make ?eventThreshold =
      fun ~status -> fun () -> { eventThreshold; status }
    let to_value x =
      structure_to_value
        [("Status", (Some (MetricsStatus.to_value x.status)));
        ("EventThreshold",
          (Option.map x.eventThreshold ~f:ReplicationTimeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventThreshold =
        (Option.map ~f:ReplicationTimeValue.of_xml)
          (Xml.child xml_arg0 "EventThreshold") in
      let status =
        MetricsStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ?eventThreshold ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventThreshold =
        field_map json__ "EventThreshold" ReplicationTimeValue.of_json in
      let status = field_map_exn json__ "Status" MetricsStatus.of_json in
      make ?eventThreshold ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container that specifies replication metrics-related settings."]
module ReplicationStorageClass =
  struct
    type nonrec t =
      | STANDARD 
      | REDUCED_REDUNDANCY 
      | STANDARD_IA 
      | ONEZONE_IA 
      | INTELLIGENT_TIERING 
      | GLACIER 
      | DEEP_ARCHIVE 
      | OUTPOSTS 
      | GLACIER_IR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | REDUCED_REDUNDANCY -> "REDUCED_REDUNDANCY"
      | STANDARD_IA -> "STANDARD_IA"
      | ONEZONE_IA -> "ONEZONE_IA"
      | INTELLIGENT_TIERING -> "INTELLIGENT_TIERING"
      | GLACIER -> "GLACIER"
      | DEEP_ARCHIVE -> "DEEP_ARCHIVE"
      | OUTPOSTS -> "OUTPOSTS"
      | GLACIER_IR -> "GLACIER_IR"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "REDUCED_REDUNDANCY" -> REDUCED_REDUNDANCY
      | "STANDARD_IA" -> STANDARD_IA
      | "ONEZONE_IA" -> ONEZONE_IA
      | "INTELLIGENT_TIERING" -> INTELLIGENT_TIERING
      | "GLACIER" -> GLACIER
      | "DEEP_ARCHIVE" -> DEEP_ARCHIVE
      | "OUTPOSTS" -> OUTPOSTS
      | "GLACIER_IR" -> GLACIER_IR
      | 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 ReplicationStorageClass" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReplicationStorageClass" j)
    let to_json = simple_to_json to_value
  end
module ReplicationTime =
  struct
    type nonrec t =
      {
      status: ReplicationTimeStatus.t
        [@ocaml.doc
          "Specifies whether S3 Replication Time Control (S3 RTC) is enabled."];
      time: ReplicationTimeValue.t
        [@ocaml.doc
          "A container that specifies the time by which replication should be complete for all objects and operations on objects."]}
    let context_ = "ReplicationTime"
    let make ~status = fun ~time -> fun () -> { status; time }
    let to_value x =
      structure_to_value
        [("Status", (Some (ReplicationTimeStatus.to_value x.status)));
        ("Time", (Some (ReplicationTimeValue.to_value x.time)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let time =
        ReplicationTimeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Time") in
      let status =
        ReplicationTimeStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~time ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let time = field_map_exn json__ "Time" ReplicationTimeValue.of_json in
      let status =
        field_map_exn json__ "Status" ReplicationTimeStatus.of_json in
      make ~time ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container that specifies S3 Replication Time Control (S3 RTC) related information, including whether S3 RTC is enabled and the time when all objects and operations on objects must be replicated. This is not supported by Amazon S3 on Outposts buckets."]
module ExistingObjectReplicationStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 ExistingObjectReplicationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ExistingObjectReplicationStatus" j)
    let to_json = simple_to_json to_value
  end
module ReplicationRuleAndOperator =
  struct
    type nonrec t =
      {
      prefix: Prefix.t option
        [@ocaml.doc
          "An object key name prefix that identifies the subset of objects that the rule applies to."];
      tags: S3TagSet.t option
        [@ocaml.doc "An array of tags that contain key and value pairs."]}
    let make ?prefix = fun ?tags -> fun () -> { prefix; tags }
    let to_value x =
      structure_to_value
        [("Prefix", (Option.map x.prefix ~f:Prefix.to_value));
        ("Tags", (Option.map x.tags ~f:S3TagSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:S3TagSet.of_xml) (Xml.child xml_arg0 "Tags") in
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "Prefix") in
      make ?tags ?prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" S3TagSet.of_json in
      let prefix = field_map json__ "Prefix" Prefix.of_json in
      make ?tags ?prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for specifying rule filters. The filters determine the subset of objects to which the rule applies. This element is required only if you specify more than one filter. For example: If you specify both a Prefix and a Tag filter, wrap these filters in an And element. If you specify a filter based on multiple tags, wrap the Tag elements in an And element."]
module ReplicaModifications =
  struct
    type nonrec t =
      {
      status: ReplicaModificationsStatus.t
        [@ocaml.doc
          "Specifies whether S3 on Outposts replicates modifications to object metadata on replicas."]}
    let context_ = "ReplicaModifications"
    let make ~status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("Status", (Some (ReplicaModificationsStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        ReplicaModificationsStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "Status" ReplicaModificationsStatus.of_json in
      make ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that you can use to specify whether replica modification sync is enabled. S3 on Outposts replica modification sync can help you keep object metadata synchronized between replicas and source objects. By default, S3 on Outposts replicates metadata from the source objects to the replicas only. When replica modification sync is enabled, S3 on Outposts replicates metadata changes made to the replica copies back to the source object, making the replication bidirectional. To replicate object metadata modifications on replicas, you can specify this element and set the Status of this element to Enabled. You must enable replica modification sync on the source and destination buckets to replicate replica metadata changes between the source and the replicas."]
module SseKmsEncryptedObjects =
  struct
    type nonrec t =
      {
      status: SseKmsEncryptedObjectsStatus.t
        [@ocaml.doc
          "Specifies whether Amazon S3 replicates objects that are created with server-side encryption by using an KMS key stored in Key Management Service."]}
    let context_ = "SseKmsEncryptedObjects"
    let make ~status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("Status", (Some (SseKmsEncryptedObjectsStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        SseKmsEncryptedObjectsStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "Status" SseKmsEncryptedObjectsStatus.of_json in
      make ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for filter information that you can use to select S3 objects that are encrypted with Key Management Service (KMS). This is not supported by Amazon S3 on Outposts buckets."]
module DaysAfterInitiation =
  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 DaysAfterInitiation" 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 ExpiredObjectDeleteMarker =
  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 LifecycleRuleAndOperator =
  struct
    type nonrec t =
      {
      prefix: Prefix.t option
        [@ocaml.doc
          "Prefix identifying one or more objects to which the rule applies."];
      tags: S3TagSet.t option
        [@ocaml.doc
          "All of these tags must exist in the object's tag set in order for the rule to apply."];
      objectSizeGreaterThan: ObjectSizeGreaterThanBytes.t option
        [@ocaml.doc
          "The non-inclusive minimum object size for the lifecycle rule. Setting this property to 7 means the rule applies to objects with a size that is greater than 7."];
      objectSizeLessThan: ObjectSizeLessThanBytes.t option
        [@ocaml.doc
          "The non-inclusive maximum object size for the lifecycle rule. Setting this property to 77 means the rule applies to objects with a size that is less than 77."]}
    let make ?prefix =
      fun ?tags ->
        fun ?objectSizeGreaterThan ->
          fun ?objectSizeLessThan ->
            fun () ->
              { prefix; tags; objectSizeGreaterThan; objectSizeLessThan }
    let to_value x =
      structure_to_value
        [("Prefix", (Option.map x.prefix ~f:Prefix.to_value));
        ("Tags", (Option.map x.tags ~f:S3TagSet.to_value));
        ("ObjectSizeGreaterThan",
          (Option.map x.objectSizeGreaterThan
             ~f:ObjectSizeGreaterThanBytes.to_value));
        ("ObjectSizeLessThan",
          (Option.map x.objectSizeLessThan
             ~f:ObjectSizeLessThanBytes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectSizeLessThan =
        (Option.map ~f:ObjectSizeLessThanBytes.of_xml)
          (Xml.child xml_arg0 "ObjectSizeLessThan") in
      let objectSizeGreaterThan =
        (Option.map ~f:ObjectSizeGreaterThanBytes.of_xml)
          (Xml.child xml_arg0 "ObjectSizeGreaterThan") in
      let tags = (Option.map ~f:S3TagSet.of_xml) (Xml.child xml_arg0 "Tags") in
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "Prefix") in
      make ?objectSizeLessThan ?objectSizeGreaterThan ?tags ?prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectSizeLessThan =
        field_map json__ "ObjectSizeLessThan" ObjectSizeLessThanBytes.of_json in
      let objectSizeGreaterThan =
        field_map json__ "ObjectSizeGreaterThan"
          ObjectSizeGreaterThanBytes.of_json in
      let tags = field_map json__ "Tags" S3TagSet.of_json in
      let prefix = field_map json__ "Prefix" Prefix.of_json in
      make ?objectSizeLessThan ?objectSizeGreaterThan ?tags ?prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container for the Outposts bucket lifecycle rule and operator."]
module NoncurrentVersionCount =
  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 NoncurrentVersionCount" 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 NoncurrentVersionTransition =
  struct
    type nonrec t =
      {
      noncurrentDays: Days.t option
        [@ocaml.doc
          "Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see How Amazon S3 Calculates How Long an Object Has Been Noncurrent in the Amazon S3 User Guide."];
      storageClass: TransitionStorageClass.t option
        [@ocaml.doc "The class of storage used to store the object."]}
    let make ?noncurrentDays =
      fun ?storageClass -> fun () -> { noncurrentDays; storageClass }
    let to_value x =
      structure_to_value
        [("NoncurrentDays", (Option.map x.noncurrentDays ~f:Days.to_value));
        ("StorageClass",
          (Option.map x.storageClass ~f:TransitionStorageClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClass =
        (Option.map ~f:TransitionStorageClass.of_xml)
          (Xml.child xml_arg0 "StorageClass") in
      let noncurrentDays =
        (Option.map ~f:Days.of_xml) (Xml.child xml_arg0 "NoncurrentDays") in
      make ?storageClass ?noncurrentDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClass =
        field_map json__ "StorageClass" TransitionStorageClass.of_json in
      let noncurrentDays = field_map json__ "NoncurrentDays" Days.of_json in
      make ?storageClass ?noncurrentDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container for the noncurrent version transition."]
module Transition =
  struct
    type nonrec t =
      {
      date: Date.t option
        [@ocaml.doc
          "Indicates when objects are transitioned to the specified storage class. The date value must be in ISO 8601 format. The time is always midnight UTC."];
      days: Days.t option
        [@ocaml.doc
          "Indicates the number of days after creation when objects are transitioned to the specified storage class. The value must be a positive integer."];
      storageClass: TransitionStorageClass.t option
        [@ocaml.doc
          "The storage class to which you want the object to transition."]}
    let make ?date =
      fun ?days ->
        fun ?storageClass -> fun () -> { date; days; storageClass }
    let to_value x =
      structure_to_value
        [("Date", (Option.map x.date ~f:Date.to_value));
        ("Days", (Option.map x.days ~f:Days.to_value));
        ("StorageClass",
          (Option.map x.storageClass ~f:TransitionStorageClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClass =
        (Option.map ~f:TransitionStorageClass.of_xml)
          (Xml.child xml_arg0 "StorageClass") in
      let days = (Option.map ~f:Days.of_xml) (Xml.child xml_arg0 "Days") in
      let date = (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "Date") in
      make ?storageClass ?days ?date ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClass =
        field_map json__ "StorageClass" TransitionStorageClass.of_json in
      let days = field_map json__ "Days" Days.of_json in
      let date = field_map json__ "Date" Date.of_json in
      make ?storageClass ?days ?date ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies when an object transitions to a specified storage class. For more information about Amazon S3 Lifecycle configuration rules, see Transitioning objects using Amazon S3 Lifecycle in the Amazon S3 User Guide."]
module AwsLambdaTransformation =
  struct
    type nonrec t =
      {
      functionArn: FunctionArnString.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Lambda function."];
      functionPayload: AwsLambdaTransformationPayload.t option
        [@ocaml.doc
          "Additional JSON that provides supplemental data to the Lambda function used to transform objects."]}
    let context_ = "AwsLambdaTransformation"
    let make ?functionPayload =
      fun ~functionArn -> fun () -> { functionPayload; functionArn }
    let to_value x =
      structure_to_value
        [("FunctionArn", (Some (FunctionArnString.to_value x.functionArn)));
        ("FunctionPayload",
          (Option.map x.functionPayload
             ~f:AwsLambdaTransformationPayload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let functionPayload =
        (Option.map ~f:AwsLambdaTransformationPayload.of_xml)
          (Xml.child xml_arg0 "FunctionPayload") in
      let functionArn =
        FunctionArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FunctionArn") in
      make ?functionPayload ~functionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let functionPayload =
        field_map json__ "FunctionPayload"
          AwsLambdaTransformationPayload.of_json in
      let functionArn =
        field_map_exn json__ "FunctionArn" FunctionArnString.of_json in
      make ?functionPayload ~functionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lambda function used to transform objects through an Object Lambda Access Point."]
module ObjectLambdaTransformationConfigurationAction =
  struct
    type nonrec t =
      | GetObject 
      | HeadObject 
      | ListObjects 
      | ListObjectsV2 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GetObject -> "GetObject"
      | HeadObject -> "HeadObject"
      | ListObjects -> "ListObjects"
      | ListObjectsV2 -> "ListObjectsV2"
      | Non_static_id s -> s
    let of_string =
      function
      | "GetObject" -> GetObject
      | "HeadObject" -> HeadObject
      | "ListObjects" -> ListObjects
      | "ListObjectsV2" -> ListObjectsV2
      | 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 ObjectLambdaTransformationConfigurationAction"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ObjectLambdaTransformationConfigurationAction"
           j)
    let to_json = simple_to_json to_value
  end
module JobTimeInStateSeconds =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); 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 Setting =
  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 Region =
  struct
    type nonrec t =
      {
      bucket: BucketName.t
        [@ocaml.doc "The name of the associated bucket for the Region."];
      bucketAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the Amazon S3 bucket that's associated with this Multi-Region Access Point."]}
    let context_ = "Region"
    let make ?bucketAccountId =
      fun ~bucket -> fun () -> { bucketAccountId; bucket }
    let to_value x =
      structure_to_value
        [("Bucket", (Some (BucketName.to_value x.bucket)));
        ("BucketAccountId",
          (Option.map x.bucketAccountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "BucketAccountId") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Bucket") in
      make ?bucketAccountId ~bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketAccountId =
        field_map json__ "BucketAccountId" AccountId.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      make ?bucketAccountId ~bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Region that supports a Multi-Region Access Point as well as the associated bucket for the Region."]
module MultiRegionAccessPointRegionalResponse =
  struct
    type nonrec t =
      {
      name: RegionName.t option
        [@ocaml.doc
          "The name of the Region in the Multi-Region Access Point."];
      requestStatus: AsyncRequestStatus.t option
        [@ocaml.doc
          "The current status of the Multi-Region Access Point in this Region."]}
    let make ?name = fun ?requestStatus -> fun () -> { name; requestStatus }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:RegionName.to_value));
        ("RequestStatus",
          (Option.map x.requestStatus ~f:AsyncRequestStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestStatus =
        (Option.map ~f:AsyncRequestStatus.of_xml)
          (Xml.child xml_arg0 "RequestStatus") in
      let name =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?requestStatus ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestStatus =
        field_map json__ "RequestStatus" AsyncRequestStatus.of_json in
      let name = field_map json__ "Name" RegionName.of_json in
      make ?requestStatus ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status information for a single Multi-Region Access Point Region."]
module JobManifestFieldName =
  struct
    type nonrec t =
      | Ignore 
      | Bucket 
      | Key 
      | VersionId 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ignore -> "Ignore"
      | Bucket -> "Bucket"
      | Key -> "Key"
      | VersionId -> "VersionId"
      | Non_static_id s -> s
    let of_string =
      function
      | "Ignore" -> Ignore
      | "Bucket" -> Bucket
      | "Key" -> Key
      | "VersionId" -> VersionId
      | 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 JobManifestFieldName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobManifestFieldName" j)
    let to_json = simple_to_json to_value
  end
module KeyNameConstraint =
  struct
    type nonrec t =
      {
      matchAnyPrefix: NonEmptyMaxLength1024StringList.t option
        [@ocaml.doc
          "If provided, the generated manifest includes objects where the specified string appears at the start of the object key string. Each KeyNameConstraint filter accepts an array of strings with a length of 1 string."];
      matchAnySuffix: NonEmptyMaxLength1024StringList.t option
        [@ocaml.doc
          "If provided, the generated manifest includes objects where the specified string appears at the end of the object key string. Each KeyNameConstraint filter accepts an array of strings with a length of 1 string."];
      matchAnySubstring: NonEmptyMaxLength1024StringList.t option
        [@ocaml.doc
          "If provided, the generated manifest includes objects where the specified string appears anywhere within the object key string. Each KeyNameConstraint filter accepts an array of strings with a length of 1 string."]}
    let make ?matchAnyPrefix =
      fun ?matchAnySuffix ->
        fun ?matchAnySubstring ->
          fun () -> { matchAnyPrefix; matchAnySuffix; matchAnySubstring }
    let to_value x =
      structure_to_value
        [("MatchAnyPrefix",
           (Option.map x.matchAnyPrefix
              ~f:NonEmptyMaxLength1024StringList.to_value));
        ("MatchAnySuffix",
          (Option.map x.matchAnySuffix
             ~f:NonEmptyMaxLength1024StringList.to_value));
        ("MatchAnySubstring",
          (Option.map x.matchAnySubstring
             ~f:NonEmptyMaxLength1024StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchAnySubstring =
        (Option.map ~f:NonEmptyMaxLength1024StringList.of_xml)
          (Xml.child xml_arg0 "MatchAnySubstring") in
      let matchAnySuffix =
        (Option.map ~f:NonEmptyMaxLength1024StringList.of_xml)
          (Xml.child xml_arg0 "MatchAnySuffix") in
      let matchAnyPrefix =
        (Option.map ~f:NonEmptyMaxLength1024StringList.of_xml)
          (Xml.child xml_arg0 "MatchAnyPrefix") in
      make ?matchAnySubstring ?matchAnySuffix ?matchAnyPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchAnySubstring =
        field_map json__ "MatchAnySubstring"
          NonEmptyMaxLength1024StringList.of_json in
      let matchAnySuffix =
        field_map json__ "MatchAnySuffix"
          NonEmptyMaxLength1024StringList.of_json in
      let matchAnyPrefix =
        field_map json__ "MatchAnyPrefix"
          NonEmptyMaxLength1024StringList.of_json in
      make ?matchAnySubstring ?matchAnySuffix ?matchAnyPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If provided, the generated manifest includes only source bucket objects whose object keys match the string constraints specified for MatchAnyPrefix, MatchAnySuffix, and MatchAnySubstring."]
module ObjectCreationTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ObjectEncryptionFilterList =
  struct
    type nonrec t = ObjectEncryptionFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ObjectEncryptionFilter.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:ObjectEncryptionFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectEncryptionFilterList"
        ~of_json:ObjectEncryptionFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplicationStatusFilterList =
  struct
    type nonrec t = ReplicationStatus.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:ReplicationStatus.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:ReplicationStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplicationStatusFilterList"
        ~of_json:ReplicationStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageClassList =
  struct
    type nonrec t = S3StorageClass.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:S3StorageClass.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:S3StorageClass.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageClassList" ~of_json:S3StorageClass.of_json j
    let to_json v = composed_to_json to_value v
  end
module GeneratedManifestEncryption =
  struct
    type nonrec t =
      {
      sSES3: SSES3Encryption.t option
        [@ocaml.doc
          "Specifies the use of SSE-S3 to encrypt generated manifest objects."];
      sSEKMS: SSEKMSEncryption.t option
        [@ocaml.doc
          "Configuration details on how SSE-KMS is used to encrypt generated manifest objects."]}
    let make ?sSES3 = fun ?sSEKMS -> fun () -> { sSES3; sSEKMS }
    let to_value x =
      structure_to_value
        [("SSE-S3", (Option.map x.sSES3 ~f:SSES3Encryption.to_value));
        ("SSE-KMS", (Option.map x.sSEKMS ~f:SSEKMSEncryption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sSEKMS =
        (Option.map ~f:SSEKMSEncryption.of_xml)
          (Xml.child xml_arg0 "SSE-KMS") in
      let sSES3 =
        (Option.map ~f:SSES3Encryption.of_xml) (Xml.child xml_arg0 "SSE-S3") in
      make ?sSEKMS ?sSES3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sSEKMS = field_map json__ "SSEKMS" SSEKMSEncryption.of_json in
      let sSES3 = field_map json__ "SSES3" SSES3Encryption.of_json in
      make ?sSEKMS ?sSES3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The encryption configuration to use when storing the generated manifest."]
module GeneratedManifestFormat =
  struct
    type nonrec t =
      | S3InventoryReport_CSV_20211130 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | S3InventoryReport_CSV_20211130 -> "S3InventoryReport_CSV_20211130"
      | Non_static_id s -> s
    let of_string =
      function
      | "S3InventoryReport_CSV_20211130" -> S3InventoryReport_CSV_20211130
      | 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 GeneratedManifestFormat" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"GeneratedManifestFormat" j)
    let to_json = simple_to_json to_value
  end
module ManifestPrefixString =
  struct
    type nonrec t = string
    let context_ = "ManifestPrefixString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ManifestPrefixString" j
    let to_json = simple_to_json to_value
  end
module S3BucketArnString =
  struct
    type nonrec t = string
    let context_ = "S3BucketArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"arn:[^:]+:s3:.*")));
        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:"S3BucketArnString" j
    let to_json = simple_to_json to_value
  end
module NonEmptyMaxLength64String =
  struct
    type nonrec t = string
    let context_ = "NonEmptyMaxLength64String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyMaxLength64String" j
    let to_json = simple_to_json to_value
  end
module S3ContentLength =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); 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 S3SSEAlgorithm =
  struct
    type nonrec t =
      | AES256 
      | KMS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | AES256 -> "AES256" | KMS -> "KMS" | Non_static_id s -> s
    let of_string =
      function | "AES256" -> AES256 | "KMS" -> KMS | 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 S3SSEAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3SSEAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module S3UserMetadata =
  struct
    type nonrec t =
      (NonEmptyMaxLength1024String.t * MaxLength1024String.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:8192); 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 ->
                            ((NonEmptyMaxLength1024String.of_string chopped),
                              (MaxLength1024String.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (NonEmptyMaxLength1024String.to_value x) |>
                    (fun x ->
                       (MaxLength1024String.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:NonEmptyMaxLength1024String.of_string
        ~of_json:MaxLength1024String.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimeStamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module S3AccessControlList =
  struct
    type nonrec t = {
      owner: S3ObjectOwner.t ;
      grants: S3GrantList.t option }
    let context_ = "S3AccessControlList"
    let make ?grants = fun ~owner -> fun () -> { grants; owner }
    let to_value x =
      structure_to_value
        [("Owner", (Some (S3ObjectOwner.to_value x.owner)));
        ("Grants", (Option.map x.grants ~f:S3GrantList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grants =
        (Option.map ~f:S3GrantList.of_xml) (Xml.child xml_arg0 "Grants") in
      let owner =
        S3ObjectOwner.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Owner") in
      make ?grants ~owner ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grants = field_map json__ "Grants" S3GrantList.of_json in
      let owner = field_map_exn json__ "Owner" S3ObjectOwner.of_json in
      make ?grants ~owner ()
    let to_json v = composed_to_json to_value v
  end
module S3CannedAccessControlList =
  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 S3CannedAccessControlList" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"S3CannedAccessControlList" j)
    let to_json = simple_to_json to_value
  end
module S3ObjectLockLegalHoldStatus =
  struct
    type nonrec t =
      | OFF 
      | ON 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OFF -> "OFF" | ON -> "ON" | Non_static_id s -> s
    let of_string =
      function | "OFF" -> OFF | "ON" -> ON | 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 S3ObjectLockLegalHoldStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"S3ObjectLockLegalHoldStatus" j)
    let to_json = simple_to_json to_value
  end
module S3ObjectLockRetentionMode =
  struct
    type nonrec t =
      | COMPLIANCE 
      | GOVERNANCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLIANCE -> "COMPLIANCE"
      | GOVERNANCE -> "GOVERNANCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLIANCE" -> COMPLIANCE
      | "GOVERNANCE" -> GOVERNANCE
      | 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 S3ObjectLockRetentionMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"S3ObjectLockRetentionMode" j)
    let to_json = simple_to_json to_value
  end
module S3UpdateObjectEncryptionSSEKMS =
  struct
    type nonrec t =
      {
      kMSKeyArn: NonEmptyKmsKeyArnString.t
        [@ocaml.doc
          "Specifies the Amazon Web Services KMS key Amazon Resource Name (ARN) to use for the updated server-side encryption type. Required if UpdateObjectEncryption specifies SSEKMS."];
      bucketKeyEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should use an S3 Bucket Key for object encryption with server-side encryption using Key Management Service (KMS) keys (SSE-KMS). If this value isn't specified, it defaults to false. Setting this value to true causes Amazon S3 to use an S3 Bucket Key for update object encryption with SSE-KMS."]}
    let context_ = "S3UpdateObjectEncryptionSSEKMS"
    let make ?bucketKeyEnabled =
      fun ~kMSKeyArn -> fun () -> { bucketKeyEnabled; kMSKeyArn }
    let to_value x =
      structure_to_value
        [("KMSKeyArn", (Some (NonEmptyKmsKeyArnString.to_value x.kMSKeyArn)));
        ("BucketKeyEnabled",
          (Option.map x.bucketKeyEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketKeyEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "BucketKeyEnabled") in
      let kMSKeyArn =
        NonEmptyKmsKeyArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KMSKeyArn") in
      make ?bucketKeyEnabled ~kMSKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketKeyEnabled =
        field_map json__ "BucketKeyEnabled" Boolean.of_json in
      let kMSKeyArn =
        field_map_exn json__ "KMSKeyArn" NonEmptyKmsKeyArnString.of_json in
      make ?bucketKeyEnabled ~kMSKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If SSEKMS is specified for UpdateObjectEncryption, this data type specifies the Amazon Web Services KMS key Amazon Resource Name (ARN) to use and whether to use an S3 Bucket Key for server-side encryption using Key Management Service (KMS) keys (SSE-KMS)."]
module MatchAnyPrefix =
  struct
    type nonrec t = Prefix.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:Prefix.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:Prefix.of_xml)
    let of_json j =
      list_of_json ~kind:"MatchAnyPrefix" ~of_json:Prefix.of_json j
    let to_json v = composed_to_json to_value v
  end
module MatchAnySuffix =
  struct
    type nonrec t = Suffix.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:Suffix.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:Suffix.of_xml)
    let of_json j =
      list_of_json ~kind:"MatchAnySuffix" ~of_json:Suffix.of_json j
    let to_json v = composed_to_json to_value v
  end
module MatchAnyTag =
  struct
    type nonrec t = S3Tag.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:S3Tag.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:S3Tag.of_xml)
    let of_json j = list_of_json ~kind:"MatchAnyTag" ~of_json:S3Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module MatchObjectAge =
  struct
    type nonrec t =
      {
      daysGreaterThan: ObjectAgeValue.t option
        [@ocaml.doc
          "Specifies the maximum object age in days. Must be a positive whole number, greater than the minimum object age and less than or equal to 2,147,483,647."];
      daysLessThan: ObjectAgeValue.t option
        [@ocaml.doc
          "Specifies the minimum object age in days. The value must be a positive whole number, greater than 0 and less than or equal to 2,147,483,647."]}
    let make ?daysGreaterThan =
      fun ?daysLessThan -> fun () -> { daysGreaterThan; daysLessThan }
    let to_value x =
      structure_to_value
        [("DaysGreaterThan",
           (Option.map x.daysGreaterThan ~f:ObjectAgeValue.to_value));
        ("DaysLessThan",
          (Option.map x.daysLessThan ~f:ObjectAgeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let daysLessThan =
        (Option.map ~f:ObjectAgeValue.of_xml)
          (Xml.child xml_arg0 "DaysLessThan") in
      let daysGreaterThan =
        (Option.map ~f:ObjectAgeValue.of_xml)
          (Xml.child xml_arg0 "DaysGreaterThan") in
      make ?daysLessThan ?daysGreaterThan ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let daysLessThan =
        field_map json__ "DaysLessThan" ObjectAgeValue.of_json in
      let daysGreaterThan =
        field_map json__ "DaysGreaterThan" ObjectAgeValue.of_json in
      make ?daysLessThan ?daysGreaterThan ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter condition that specifies the object age range of included objects in days. Only integers are supported."]
module MatchObjectSize =
  struct
    type nonrec t =
      {
      bytesGreaterThan: ObjectSizeValue.t option
        [@ocaml.doc
          "Specifies the minimum object size in Bytes. The value must be a positive number, greater than 0 and less than 50 TB."];
      bytesLessThan: ObjectSizeValue.t option
        [@ocaml.doc
          "Specifies the maximum object size in Bytes. The value must be a positive number, greater than the minimum object size and less than 50 TB."]}
    let make ?bytesGreaterThan =
      fun ?bytesLessThan -> fun () -> { bytesGreaterThan; bytesLessThan }
    let to_value x =
      structure_to_value
        [("BytesGreaterThan",
           (Option.map x.bytesGreaterThan ~f:ObjectSizeValue.to_value));
        ("BytesLessThan",
          (Option.map x.bytesLessThan ~f:ObjectSizeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bytesLessThan =
        (Option.map ~f:ObjectSizeValue.of_xml)
          (Xml.child xml_arg0 "BytesLessThan") in
      let bytesGreaterThan =
        (Option.map ~f:ObjectSizeValue.of_xml)
          (Xml.child xml_arg0 "BytesGreaterThan") in
      make ?bytesLessThan ?bytesGreaterThan ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bytesLessThan =
        field_map json__ "BytesLessThan" ObjectSizeValue.of_json in
      let bytesGreaterThan =
        field_map json__ "BytesGreaterThan" ObjectSizeValue.of_json in
      make ?bytesLessThan ?bytesGreaterThan ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter condition that specifies the object size range of included objects in bytes. Only integers are supported."]
module ActivityMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container that indicates whether activity metrics are enabled."]}
    let make ?isEnabled = fun () -> { isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      make ?isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      make ?isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container element for Amazon S3 Storage Lens activity metrics. Activity metrics show details about how your storage is requested, such as requests (for example, All requests, Get requests, Put requests), bytes uploaded or downloaded, and errors. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide."]
module AdvancedCostOptimizationMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container that indicates whether advanced cost-optimization metrics are enabled."]}
    let make ?isEnabled = fun () -> { isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      make ?isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      make ?isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container element for Amazon S3 Storage Lens advanced cost-optimization metrics. Advanced cost-optimization metrics provide insights that you can use to manage and optimize your storage costs, for example, lifecycle rule counts for transitions, expirations, and incomplete multipart uploads. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide."]
module AdvancedDataProtectionMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container that indicates whether advanced data-protection metrics are enabled."]}
    let make ?isEnabled = fun () -> { isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      make ?isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      make ?isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container element for Amazon S3 Storage Lens advanced data-protection metrics. Advanced data-protection metrics provide insights that you can use to perform audits and protect your data, for example replication rule counts within and across Regions. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide."]
module AdvancedPerformanceMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container that indicates whether S3 Storage Lens advanced performance metrics are enabled."]}
    let make ?isEnabled = fun () -> { isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      make ?isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      make ?isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container element for S3 Storage Lens advanced performance metrics. Advanced performance metrics provide insights into application performance, such as request efficiency and access patterns. These metrics help you optimize your S3 storage for both cost and performance by providing detailed analytics on how your applications interact with S3 resources. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide."]
module DetailedStatusCodesMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container that indicates whether detailed status code metrics are enabled."]}
    let make ?isEnabled = fun () -> { isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      make ?isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      make ?isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container element for Amazon S3 Storage Lens detailed status code metrics. Detailed status code metrics generate metrics for HTTP status codes, such as 200 OK, 403 Forbidden, 503 Service Unavailable and others. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide."]
module PrefixLevel =
  struct
    type nonrec t =
      {
      storageMetrics: PrefixLevelStorageMetrics.t
        [@ocaml.doc
          "A container for the prefix-level storage metrics for S3 Storage Lens."]}
    let context_ = "PrefixLevel"
    let make ~storageMetrics = fun () -> { storageMetrics }
    let to_value x =
      structure_to_value
        [("StorageMetrics",
           (Some (PrefixLevelStorageMetrics.to_value x.storageMetrics)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageMetrics =
        PrefixLevelStorageMetrics.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StorageMetrics") in
      make ~storageMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageMetrics =
        field_map_exn json__ "StorageMetrics"
          PrefixLevelStorageMetrics.of_json in
      make ~storageMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A container for the prefix-level configuration."]
module StorageLensGroupLevelSelectionCriteria =
  struct
    type nonrec t =
      {
      include_: StorageLensGroupLevelInclude.t option
        [@ocaml.doc
          "Indicates which Storage Lens group ARNs to include in the Storage Lens group aggregation."];
      exclude: StorageLensGroupLevelExclude.t option
        [@ocaml.doc
          "Indicates which Storage Lens group ARNs to exclude from the Storage Lens group aggregation."]}
    let make ?include_ = fun ?exclude -> fun () -> { include_; exclude }
    let to_value x =
      structure_to_value
        [("Include",
           (Option.map x.include_ ~f:StorageLensGroupLevelInclude.to_value));
        ("Exclude",
          (Option.map x.exclude ~f:StorageLensGroupLevelExclude.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclude =
        (Option.map ~f:StorageLensGroupLevelExclude.of_xml)
          (Xml.child xml_arg0 "Exclude") in
      let include_ =
        (Option.map ~f:StorageLensGroupLevelInclude.of_xml)
          (Xml.child xml_arg0 "Include") in
      make ?exclude ?include_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclude =
        field_map json__ "Exclude" StorageLensGroupLevelExclude.of_json in
      let include_ =
        field_map json__ "Include" StorageLensGroupLevelInclude.of_json in
      make ?exclude ?include_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates which Storage Lens group ARNs to include or exclude in the Storage Lens group aggregation. You can only attach Storage Lens groups to your Storage Lens dashboard if they're included in your Storage Lens group aggregation. If this value is left null, then all Storage Lens groups are selected."]
module S3AWSRegion =
  struct
    type nonrec t = string
    let context_ = "S3AWSRegion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3AWSRegion" j
    let to_json = simple_to_json to_value
  end
module Format_ =
  struct
    type nonrec t =
      | CSV 
      | Parquet 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | CSV -> "CSV" | Parquet -> "Parquet" | Non_static_id s -> s
    let of_string =
      function | "CSV" -> CSV | "Parquet" -> Parquet | 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 Format" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Format" j)
    let to_json = simple_to_json to_value
  end
module OutputSchemaVersion =
  struct
    type nonrec t =
      | V_1 
      | Non_static_id of string 
    let make i = i
    let to_string = function | V_1 -> "V_1" | Non_static_id s -> s
    let of_string = function | "V_1" -> V_1 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration OutputSchemaVersion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OutputSchemaVersion" j)
    let to_json = simple_to_json to_value
  end
module StorageLensDataExportEncryption =
  struct
    type nonrec t = {
      sSES3: SSES3.t option ;
      sSEKMS: SSEKMS.t option }
    let make ?sSES3 = fun ?sSEKMS -> fun () -> { sSES3; sSEKMS }
    let to_value x =
      structure_to_value
        [("SSE-S3", (Option.map x.sSES3 ~f:SSES3.to_value));
        ("SSE-KMS", (Option.map x.sSEKMS ~f:SSEKMS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sSEKMS =
        (Option.map ~f:SSEKMS.of_xml) (Xml.child xml_arg0 "SSE-KMS") in
      let sSES3 = (Option.map ~f:SSES3.of_xml) (Xml.child xml_arg0 "SSE-S3") in
      make ?sSEKMS ?sSES3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sSEKMS = field_map json__ "SSEKMS" SSEKMS.of_json in
      let sSES3 = field_map json__ "SSES3" SSES3.of_json in
      make ?sSEKMS ?sSES3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the encryption of the S3 Storage Lens metrics exports."]
module DeleteMarkerReplication =
  struct
    type nonrec t =
      {
      status: DeleteMarkerReplicationStatus.t
        [@ocaml.doc "Indicates whether to replicate delete markers."]}
    let context_ = "DeleteMarkerReplication"
    let make ~status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("Status", (Some (DeleteMarkerReplicationStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        DeleteMarkerReplicationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "Status" DeleteMarkerReplicationStatus.of_json in
      make ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies whether S3 on Outposts replicates delete markers. If you specify a Filter element in your replication configuration, you must also include a DeleteMarkerReplication element. If your Filter includes a Tag element, the DeleteMarkerReplication element's Status child element must be set to Disabled, because S3 on Outposts does not support replicating delete markers for tag-based rules. For more information about delete marker replication, see How delete operations affect replication in the Amazon S3 User Guide."]
module Destination =
  struct
    type nonrec t =
      {
      account: AccountId.t option
        [@ocaml.doc "The destination bucket owner's account ID."];
      bucket: BucketIdentifierString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access point for the destination bucket where you want S3 on Outposts to store the replication results."];
      replicationTime: ReplicationTime.t option
        [@ocaml.doc
          "A container that specifies S3 Replication Time Control (S3 RTC) settings, including whether S3 RTC is enabled and the time when all objects and operations on objects must be replicated. Must be specified together with a Metrics block. This is not supported by Amazon S3 on Outposts buckets."];
      accessControlTranslation: AccessControlTranslation.t option
        [@ocaml.doc
          "Specify this property only in a cross-account scenario (where the source and destination bucket owners are not the same), and you want to change replica ownership to the Amazon Web Services account that owns the destination bucket. If this property is not specified in the replication configuration, the replicas are owned by same Amazon Web Services account that owns the source object. This is not supported by Amazon S3 on Outposts buckets."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "A container that provides information about encryption. If SourceSelectionCriteria is specified, you must specify this element. This is not supported by Amazon S3 on Outposts buckets."];
      metrics: Metrics.t option
        [@ocaml.doc
          "A container that specifies replication metrics-related settings."];
      storageClass: ReplicationStorageClass.t option
        [@ocaml.doc
          "The storage class to use when replicating objects. All objects stored on S3 on Outposts are stored in the OUTPOSTS storage class. S3 on Outposts uses the OUTPOSTS storage class to create the object replicas. Values other than OUTPOSTS aren't supported by Amazon S3 on Outposts."]}
    let context_ = "Destination"
    let make ?account =
      fun ?replicationTime ->
        fun ?accessControlTranslation ->
          fun ?encryptionConfiguration ->
            fun ?metrics ->
              fun ?storageClass ->
                fun ~bucket ->
                  fun () ->
                    {
                      account;
                      replicationTime;
                      accessControlTranslation;
                      encryptionConfiguration;
                      metrics;
                      storageClass;
                      bucket
                    }
    let to_value x =
      structure_to_value
        [("Account", (Option.map x.account ~f:AccountId.to_value));
        ("Bucket", (Some (BucketIdentifierString.to_value x.bucket)));
        ("ReplicationTime",
          (Option.map x.replicationTime ~f:ReplicationTime.to_value));
        ("AccessControlTranslation",
          (Option.map x.accessControlTranslation
             ~f:AccessControlTranslation.to_value));
        ("EncryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("Metrics", (Option.map x.metrics ~f:Metrics.to_value));
        ("StorageClass",
          (Option.map x.storageClass ~f:ReplicationStorageClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClass =
        (Option.map ~f:ReplicationStorageClass.of_xml)
          (Xml.child xml_arg0 "StorageClass") in
      let metrics =
        (Option.map ~f:Metrics.of_xml) (Xml.child xml_arg0 "Metrics") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "EncryptionConfiguration") in
      let accessControlTranslation =
        (Option.map ~f:AccessControlTranslation.of_xml)
          (Xml.child xml_arg0 "AccessControlTranslation") in
      let replicationTime =
        (Option.map ~f:ReplicationTime.of_xml)
          (Xml.child xml_arg0 "ReplicationTime") in
      let bucket =
        BucketIdentifierString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Bucket") in
      let account =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "Account") in
      make ?storageClass ?metrics ?encryptionConfiguration
        ?accessControlTranslation ?replicationTime ~bucket ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClass =
        field_map json__ "StorageClass" ReplicationStorageClass.of_json in
      let metrics = field_map json__ "Metrics" Metrics.of_json in
      let encryptionConfiguration =
        field_map json__ "EncryptionConfiguration"
          EncryptionConfiguration.of_json in
      let accessControlTranslation =
        field_map json__ "AccessControlTranslation"
          AccessControlTranslation.of_json in
      let replicationTime =
        field_map json__ "ReplicationTime" ReplicationTime.of_json in
      let bucket =
        field_map_exn json__ "Bucket" BucketIdentifierString.of_json in
      let account = field_map json__ "Account" AccountId.of_json in
      make ?storageClass ?metrics ?encryptionConfiguration
        ?accessControlTranslation ?replicationTime ~bucket ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies information about the replication destination bucket and its settings for an S3 on Outposts replication configuration."]
module ExistingObjectReplication =
  struct
    type nonrec t =
      {
      status: ExistingObjectReplicationStatus.t
        [@ocaml.doc
          "Specifies whether Amazon S3 replicates existing source bucket objects."]}
    let context_ = "ExistingObjectReplication"
    let make ~status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("Status",
           (Some (ExistingObjectReplicationStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        ExistingObjectReplicationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "Status" ExistingObjectReplicationStatus.of_json in
      make ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An optional configuration to replicate existing source bucket objects. This is not supported by Amazon S3 on Outposts buckets."]
module ID =
  struct
    type nonrec t = string
    let context_ = "ID"
    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:"ID" j
    let to_json = simple_to_json to_value
  end
module Priority =
  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 Priority" 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 ReplicationRuleFilter =
  struct
    type nonrec t =
      {
      prefix: Prefix.t option
        [@ocaml.doc
          "An object key name prefix that identifies the subset of objects that the rule applies to. When you're using XML requests, you must replace special characters (such as carriage returns) in object keys with their equivalent XML entity codes. For more information, see XML-related object key constraints in the Amazon S3 User Guide."];
      tag: S3Tag.t option ;
      and_: ReplicationRuleAndOperator.t option
        [@ocaml.doc
          "A container for specifying rule filters. The filters determine the subset of objects that the rule applies to. This element is required only if you specify more than one filter. For example: If you specify both a Prefix and a Tag filter, wrap these filters in an And element. If you specify a filter based on multiple tags, wrap the Tag elements in an And element."]}
    let make ?prefix =
      fun ?tag -> fun ?and_ -> fun () -> { prefix; tag; and_ }
    let to_value x =
      structure_to_value
        [("Prefix", (Option.map x.prefix ~f:Prefix.to_value));
        ("Tag", (Option.map x.tag ~f:S3Tag.to_value));
        ("And", (Option.map x.and_ ~f:ReplicationRuleAndOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let and_ =
        (Option.map ~f:ReplicationRuleAndOperator.of_xml)
          (Xml.child xml_arg0 "And") in
      let tag = (Option.map ~f:S3Tag.of_xml) (Xml.child xml_arg0 "Tag") in
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "Prefix") in
      make ?and_ ?tag ?prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let and_ = field_map json__ "And" ReplicationRuleAndOperator.of_json in
      let tag = field_map json__ "Tag" S3Tag.of_json in
      let prefix = field_map json__ "Prefix" Prefix.of_json in
      make ?and_ ?tag ?prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that identifies the subset of objects to which the replication rule applies. A Filter element must specify exactly one Prefix, Tag, or And child element."]
module ReplicationRuleStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 ReplicationRuleStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReplicationRuleStatus" j)
    let to_json = simple_to_json to_value
  end
module SourceSelectionCriteria =
  struct
    type nonrec t =
      {
      sseKmsEncryptedObjects: SseKmsEncryptedObjects.t option
        [@ocaml.doc
          "A filter that you can use to select Amazon S3 objects that are encrypted with server-side encryption by using Key Management Service (KMS) keys. If you include SourceSelectionCriteria in the replication configuration, this element is required. This is not supported by Amazon S3 on Outposts buckets."];
      replicaModifications: ReplicaModifications.t option
        [@ocaml.doc
          "A filter that you can use to specify whether replica modification sync is enabled. S3 on Outposts replica modification sync can help you keep object metadata synchronized between replicas and source objects. By default, S3 on Outposts replicates metadata from the source objects to the replicas only. When replica modification sync is enabled, S3 on Outposts replicates metadata changes made to the replica copies back to the source object, making the replication bidirectional. To replicate object metadata modifications on replicas, you can specify this element and set the Status of this element to Enabled. You must enable replica modification sync on the source and destination buckets to replicate replica metadata changes between the source and the replicas."]}
    let make ?sseKmsEncryptedObjects =
      fun ?replicaModifications ->
        fun () -> { sseKmsEncryptedObjects; replicaModifications }
    let to_value x =
      structure_to_value
        [("SseKmsEncryptedObjects",
           (Option.map x.sseKmsEncryptedObjects
              ~f:SseKmsEncryptedObjects.to_value));
        ("ReplicaModifications",
          (Option.map x.replicaModifications ~f:ReplicaModifications.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicaModifications =
        (Option.map ~f:ReplicaModifications.of_xml)
          (Xml.child xml_arg0 "ReplicaModifications") in
      let sseKmsEncryptedObjects =
        (Option.map ~f:SseKmsEncryptedObjects.of_xml)
          (Xml.child xml_arg0 "SseKmsEncryptedObjects") in
      make ?replicaModifications ?sseKmsEncryptedObjects ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicaModifications =
        field_map json__ "ReplicaModifications" ReplicaModifications.of_json in
      let sseKmsEncryptedObjects =
        field_map json__ "SseKmsEncryptedObjects"
          SseKmsEncryptedObjects.of_json in
      make ?replicaModifications ?sseKmsEncryptedObjects ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container that describes additional filters for identifying the source objects that you want to replicate. You can choose to enable or disable the replication of these objects."]
module AbortIncompleteMultipartUpload =
  struct
    type nonrec t =
      {
      daysAfterInitiation: DaysAfterInitiation.t option
        [@ocaml.doc
          "Specifies the number of days after which Amazon S3 aborts an incomplete multipart upload to the Outposts bucket."]}
    let make ?daysAfterInitiation = fun () -> { daysAfterInitiation }
    let to_value x =
      structure_to_value
        [("DaysAfterInitiation",
           (Option.map x.daysAfterInitiation ~f:DaysAfterInitiation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let daysAfterInitiation =
        (Option.map ~f:DaysAfterInitiation.of_xml)
          (Xml.child xml_arg0 "DaysAfterInitiation") in
      make ?daysAfterInitiation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let daysAfterInitiation =
        field_map json__ "DaysAfterInitiation" DaysAfterInitiation.of_json in
      make ?daysAfterInitiation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container for abort incomplete multipart upload"]
module ExpirationStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 ExpirationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExpirationStatus" j)
    let to_json = simple_to_json to_value
  end
module LifecycleExpiration =
  struct
    type nonrec t =
      {
      date: Date.t option
        [@ocaml.doc
          "Indicates at what date the object is to be deleted. Should be in GMT ISO 8601 format."];
      days: Days.t option
        [@ocaml.doc
          "Indicates the lifetime, in days, of the objects that are subject to the rule. The value must be a non-zero positive integer."];
      expiredObjectDeleteMarker: ExpiredObjectDeleteMarker.t option
        [@ocaml.doc
          "Indicates whether Amazon S3 will remove a delete marker with no noncurrent versions. If set to true, the delete marker will be expired. If set to false, the policy takes no action. This cannot be specified with Days or Date in a Lifecycle Expiration Policy. To learn more about delete markers, see Working with delete markers."]}
    let make ?date =
      fun ?days ->
        fun ?expiredObjectDeleteMarker ->
          fun () -> { date; days; expiredObjectDeleteMarker }
    let to_value x =
      structure_to_value
        [("Date", (Option.map x.date ~f:Date.to_value));
        ("Days", (Option.map x.days ~f:Days.to_value));
        ("ExpiredObjectDeleteMarker",
          (Option.map x.expiredObjectDeleteMarker
             ~f:ExpiredObjectDeleteMarker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiredObjectDeleteMarker =
        (Option.map ~f:ExpiredObjectDeleteMarker.of_xml)
          (Xml.child xml_arg0 "ExpiredObjectDeleteMarker") in
      let days = (Option.map ~f:Days.of_xml) (Xml.child xml_arg0 "Days") in
      let date = (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "Date") in
      make ?expiredObjectDeleteMarker ?days ?date ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiredObjectDeleteMarker =
        field_map json__ "ExpiredObjectDeleteMarker"
          ExpiredObjectDeleteMarker.of_json in
      let days = field_map json__ "Days" Days.of_json in
      let date = field_map json__ "Date" Date.of_json in
      make ?expiredObjectDeleteMarker ?days ?date ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container of the Outposts bucket lifecycle expiration."]
module LifecycleRuleFilter =
  struct
    type nonrec t =
      {
      prefix: Prefix.t option
        [@ocaml.doc
          "Prefix identifying one or more objects to which the rule applies. When you're using XML requests, you must replace special characters (such as carriage returns) in object keys with their equivalent XML entity codes. For more information, see XML-related object key constraints in the Amazon S3 User Guide."];
      tag: S3Tag.t option ;
      and_: LifecycleRuleAndOperator.t option
        [@ocaml.doc
          "The container for the AND condition for the lifecycle rule."];
      objectSizeGreaterThan: ObjectSizeGreaterThanBytes.t option
        [@ocaml.doc "Minimum object size to which the rule applies."];
      objectSizeLessThan: ObjectSizeLessThanBytes.t option
        [@ocaml.doc "Maximum object size to which the rule applies."]}
    let make ?prefix =
      fun ?tag ->
        fun ?and_ ->
          fun ?objectSizeGreaterThan ->
            fun ?objectSizeLessThan ->
              fun () ->
                {
                  prefix;
                  tag;
                  and_;
                  objectSizeGreaterThan;
                  objectSizeLessThan
                }
    let to_value x =
      structure_to_value
        [("Prefix", (Option.map x.prefix ~f:Prefix.to_value));
        ("Tag", (Option.map x.tag ~f:S3Tag.to_value));
        ("And", (Option.map x.and_ ~f:LifecycleRuleAndOperator.to_value));
        ("ObjectSizeGreaterThan",
          (Option.map x.objectSizeGreaterThan
             ~f:ObjectSizeGreaterThanBytes.to_value));
        ("ObjectSizeLessThan",
          (Option.map x.objectSizeLessThan
             ~f:ObjectSizeLessThanBytes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectSizeLessThan =
        (Option.map ~f:ObjectSizeLessThanBytes.of_xml)
          (Xml.child xml_arg0 "ObjectSizeLessThan") in
      let objectSizeGreaterThan =
        (Option.map ~f:ObjectSizeGreaterThanBytes.of_xml)
          (Xml.child xml_arg0 "ObjectSizeGreaterThan") in
      let and_ =
        (Option.map ~f:LifecycleRuleAndOperator.of_xml)
          (Xml.child xml_arg0 "And") in
      let tag = (Option.map ~f:S3Tag.of_xml) (Xml.child xml_arg0 "Tag") in
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "Prefix") in
      make ?objectSizeLessThan ?objectSizeGreaterThan ?and_ ?tag ?prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectSizeLessThan =
        field_map json__ "ObjectSizeLessThan" ObjectSizeLessThanBytes.of_json in
      let objectSizeGreaterThan =
        field_map json__ "ObjectSizeGreaterThan"
          ObjectSizeGreaterThanBytes.of_json in
      let and_ = field_map json__ "And" LifecycleRuleAndOperator.of_json in
      let tag = field_map json__ "Tag" S3Tag.of_json in
      let prefix = field_map json__ "Prefix" Prefix.of_json in
      make ?objectSizeLessThan ?objectSizeGreaterThan ?and_ ?tag ?prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container for the filter of the lifecycle rule."]
module NoncurrentVersionExpiration =
  struct
    type nonrec t =
      {
      noncurrentDays: Days.t option
        [@ocaml.doc
          "Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see How Amazon S3 Calculates When an Object Became Noncurrent in the Amazon S3 User Guide."];
      newerNoncurrentVersions: NoncurrentVersionCount.t option
        [@ocaml.doc
          "Specifies how many noncurrent versions S3 on Outposts will retain. If there are this many more recent noncurrent versions, S3 on Outposts will take the associated action. For more information about noncurrent versions, see Lifecycle configuration elements in the Amazon S3 User Guide."]}
    let make ?noncurrentDays =
      fun ?newerNoncurrentVersions ->
        fun () -> { noncurrentDays; newerNoncurrentVersions }
    let to_value x =
      structure_to_value
        [("NoncurrentDays", (Option.map x.noncurrentDays ~f:Days.to_value));
        ("NewerNoncurrentVersions",
          (Option.map x.newerNoncurrentVersions
             ~f:NoncurrentVersionCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newerNoncurrentVersions =
        (Option.map ~f:NoncurrentVersionCount.of_xml)
          (Xml.child xml_arg0 "NewerNoncurrentVersions") in
      let noncurrentDays =
        (Option.map ~f:Days.of_xml) (Xml.child xml_arg0 "NoncurrentDays") in
      make ?newerNoncurrentVersions ?noncurrentDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newerNoncurrentVersions =
        field_map json__ "NewerNoncurrentVersions"
          NoncurrentVersionCount.of_json in
      let noncurrentDays = field_map json__ "NoncurrentDays" Days.of_json in
      make ?newerNoncurrentVersions ?noncurrentDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container of the noncurrent version expiration."]
module NoncurrentVersionTransitionList =
  struct
    type nonrec t = NoncurrentVersionTransition.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:NoncurrentVersionTransition.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:NoncurrentVersionTransition.of_xml)
    let of_json j =
      list_of_json ~kind:"NoncurrentVersionTransitionList"
        ~of_json:NoncurrentVersionTransition.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitionList =
  struct
    type nonrec t = Transition.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:Transition.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:Transition.of_xml)
    let of_json j =
      list_of_json ~kind:"TransitionList" ~of_json:Transition.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectLambdaContentTransformation =
  struct
    type nonrec t =
      {
      awsLambda: AwsLambdaTransformation.t option
        [@ocaml.doc "A container for an Lambda function."]}
    let make ?awsLambda = fun () -> { awsLambda }
    let to_value x =
      structure_to_value
        [("AwsLambda",
           (Option.map x.awsLambda ~f:AwsLambdaTransformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsLambda =
        (Option.map ~f:AwsLambdaTransformation.of_xml)
          (Xml.child xml_arg0 "AwsLambda") in
      make ?awsLambda ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsLambda =
        field_map json__ "AwsLambda" AwsLambdaTransformation.of_json in
      make ?awsLambda ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A container for AwsLambdaTransformation."]
module ObjectLambdaTransformationConfigurationActionsList =
  struct
    type nonrec t = ObjectLambdaTransformationConfigurationAction.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:ObjectLambdaTransformationConfigurationAction.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:ObjectLambdaTransformationConfigurationAction.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectLambdaTransformationConfigurationActionsList"
        ~of_json:ObjectLambdaTransformationConfigurationAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegionReport =
  struct
    type nonrec t =
      {
      bucket: BucketName.t option [@ocaml.doc "The name of the bucket."];
      region: RegionName.t option [@ocaml.doc "The name of the Region."];
      bucketAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the Amazon S3 bucket that's associated with this Multi-Region Access Point."]}
    let make ?bucket =
      fun ?region ->
        fun ?bucketAccountId -> fun () -> { bucket; region; bucketAccountId }
    let to_value x =
      structure_to_value
        [("Bucket", (Option.map x.bucket ~f:BucketName.to_value));
        ("Region", (Option.map x.region ~f:RegionName.to_value));
        ("BucketAccountId",
          (Option.map x.bucketAccountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "BucketAccountId") in
      let region =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "Region") in
      let bucket =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "Bucket") in
      make ?bucketAccountId ?region ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketAccountId =
        field_map json__ "BucketAccountId" AccountId.of_json in
      let region = field_map json__ "Region" RegionName.of_json in
      let bucket = field_map json__ "Bucket" BucketName.of_json in
      make ?bucketAccountId ?region ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A combination of a bucket and Region that's part of a Multi-Region Access Point."]
module JobNumberOfTasksFailed =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); 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 JobNumberOfTasksSucceeded =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); 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 JobTimers =
  struct
    type nonrec t =
      {
      elapsedTimeInActiveSeconds: JobTimeInStateSeconds.t option
        [@ocaml.doc
          "Indicates the elapsed time in seconds the job has been in the Active job state."]}
    let make ?elapsedTimeInActiveSeconds =
      fun () -> { elapsedTimeInActiveSeconds }
    let to_value x =
      structure_to_value
        [("ElapsedTimeInActiveSeconds",
           (Option.map x.elapsedTimeInActiveSeconds
              ~f:JobTimeInStateSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let elapsedTimeInActiveSeconds =
        (Option.map ~f:JobTimeInStateSeconds.of_xml)
          (Xml.child xml_arg0 "ElapsedTimeInActiveSeconds") in
      make ?elapsedTimeInActiveSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let elapsedTimeInActiveSeconds =
        field_map json__ "ElapsedTimeInActiveSeconds"
          JobTimeInStateSeconds.of_json in
      make ?elapsedTimeInActiveSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides timing details for the job."]
module JobTotalNumberOfTasks =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); 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 VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcId" j
    let to_json = simple_to_json to_value
  end
module ObjectLambdaAccessPointAliasStatus =
  struct
    type nonrec t =
      | PROVISIONING 
      | READY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROVISIONING -> "PROVISIONING"
      | READY -> "READY"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROVISIONING" -> PROVISIONING
      | "READY" -> READY
      | 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 ObjectLambdaAccessPointAliasStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ObjectLambdaAccessPointAliasStatus" j)
    let to_json = simple_to_json to_value
  end
module ObjectLambdaAccessPointAliasValue =
  struct
    type nonrec t = string
    let context_ = "ObjectLambdaAccessPointAliasValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9a-z\\\\-]{3,63}")));
        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:"ObjectLambdaAccessPointAliasValue" j
    let to_json = simple_to_json to_value
  end
module S3Prefix =
  struct
    type nonrec t = string
    let context_ = "S3Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:"^.+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Prefix" j
    let to_json = simple_to_json to_value
  end
module GranteeIdentifier =
  struct
    type nonrec t = string
    let context_ = "GranteeIdentifier"
    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:"GranteeIdentifier" j
    let to_json = simple_to_json to_value
  end
module GranteeType =
  struct
    type nonrec t =
      | DIRECTORY_USER 
      | DIRECTORY_GROUP 
      | IAM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DIRECTORY_USER -> "DIRECTORY_USER"
      | DIRECTORY_GROUP -> "DIRECTORY_GROUP"
      | IAM -> "IAM"
      | Non_static_id s -> s
    let of_string =
      function
      | "DIRECTORY_USER" -> DIRECTORY_USER
      | "DIRECTORY_GROUP" -> DIRECTORY_GROUP
      | "IAM" -> IAM
      | 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 GranteeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GranteeType" j)
    let to_json = simple_to_json to_value
  end
module MultiRegionAccessPointName =
  struct
    type nonrec t = string
    let context_ = "MultiRegionAccessPointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () ->
                check_pattern i ~pattern:"^[a-z0-9][-a-z0-9]{1,48}[a-z0-9]$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MultiRegionAccessPointName" j
    let to_json = simple_to_json to_value
  end
module PublicAccessBlockConfiguration =
  struct
    type nonrec t =
      {
      blockPublicAcls: Setting.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should block public access control lists (ACLs) for buckets in this account. Setting this element to TRUE causes the following behavior: PutBucketAcl and PutObjectAcl calls fail if the specified ACL is public. PUT Object calls fail if the request includes a public ACL. PUT Bucket calls fail if the request includes a public ACL. Enabling this setting doesn't affect existing policies or ACLs. This property is not supported for Amazon S3 on Outposts."];
      ignorePublicAcls: Setting.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should ignore public ACLs for buckets in this account. Setting this element to TRUE causes Amazon S3 to ignore all public ACLs on buckets in this account and any objects that they contain. Enabling this setting doesn't affect the persistence of any existing ACLs and doesn't prevent new public ACLs from being set. This property is not supported for Amazon S3 on Outposts."];
      blockPublicPolicy: Setting.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should block public bucket policies for buckets in this account. Setting this element to TRUE causes Amazon S3 to reject calls to PUT Bucket policy if the specified bucket policy allows public access. Enabling this setting doesn't affect existing bucket policies. This property is not supported for Amazon S3 on Outposts."];
      restrictPublicBuckets: Setting.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should restrict public bucket policies for buckets in this account. Setting this element to TRUE restricts access to buckets with public policies to only Amazon Web Services service principals and authorized users within this account. Enabling this setting doesn't affect previously stored bucket policies, except that public and cross-account access within any public bucket policy, including non-public delegation to specific accounts, is blocked. This property is not supported for Amazon S3 on Outposts."]}
    let make ?blockPublicAcls =
      fun ?ignorePublicAcls ->
        fun ?blockPublicPolicy ->
          fun ?restrictPublicBuckets ->
            fun () ->
              {
                blockPublicAcls;
                ignorePublicAcls;
                blockPublicPolicy;
                restrictPublicBuckets
              }
    let to_value x =
      structure_to_value
        [("BlockPublicAcls",
           (Option.map x.blockPublicAcls ~f:Setting.to_value));
        ("IgnorePublicAcls",
          (Option.map x.ignorePublicAcls ~f:Setting.to_value));
        ("BlockPublicPolicy",
          (Option.map x.blockPublicPolicy ~f:Setting.to_value));
        ("RestrictPublicBuckets",
          (Option.map x.restrictPublicBuckets ~f:Setting.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let restrictPublicBuckets =
        (Option.map ~f:Setting.of_xml)
          (Xml.child xml_arg0 "RestrictPublicBuckets") in
      let blockPublicPolicy =
        (Option.map ~f:Setting.of_xml)
          (Xml.child xml_arg0 "BlockPublicPolicy") in
      let ignorePublicAcls =
        (Option.map ~f:Setting.of_xml)
          (Xml.child xml_arg0 "IgnorePublicAcls") in
      let blockPublicAcls =
        (Option.map ~f:Setting.of_xml) (Xml.child xml_arg0 "BlockPublicAcls") in
      make ?restrictPublicBuckets ?blockPublicPolicy ?ignorePublicAcls
        ?blockPublicAcls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let restrictPublicBuckets =
        field_map json__ "RestrictPublicBuckets" Setting.of_json in
      let blockPublicPolicy =
        field_map json__ "BlockPublicPolicy" Setting.of_json in
      let ignorePublicAcls =
        field_map json__ "IgnorePublicAcls" Setting.of_json in
      let blockPublicAcls =
        field_map json__ "BlockPublicAcls" Setting.of_json in
      make ?restrictPublicBuckets ?blockPublicPolicy ?ignorePublicAcls
        ?blockPublicAcls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The PublicAccessBlock configuration that you want to apply to this Amazon S3 account. You can enable the configuration options in any combination. For more information about when Amazon S3 considers a bucket or object public, see The Meaning of \"Public\" in the Amazon S3 User Guide. This data type is not supported for Amazon S3 on Outposts."]
module RegionCreationList =
  struct
    type nonrec t = Region.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Region.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Region.of_xml)
    let of_json j =
      list_of_json ~kind:"RegionCreationList" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module Policy =
  struct
    type nonrec t = string
    let context_ = "Policy"
    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:"Policy" j
    let to_json = simple_to_json to_value
  end
module MultiRegionAccessPointRegionalResponseList =
  struct
    type nonrec t = MultiRegionAccessPointRegionalResponse.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:MultiRegionAccessPointRegionalResponse.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:MultiRegionAccessPointRegionalResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"MultiRegionAccessPointRegionalResponseList"
        ~of_json:MultiRegionAccessPointRegionalResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobFailureCode =
  struct
    type nonrec t = string
    let context_ = "JobFailureCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobFailureCode" j
    let to_json = simple_to_json to_value
  end
module JobFailureReason =
  struct
    type nonrec t = string
    let context_ = "JobFailureReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobFailureReason" j
    let to_json = simple_to_json to_value
  end
module S3KeyArnString =
  struct
    type nonrec t = string
    let context_ = "S3KeyArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:"arn:[^:]+:s3:.*")));
        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:"S3KeyArnString" j
    let to_json = simple_to_json to_value
  end
module S3ObjectVersionId =
  struct
    type nonrec t = string
    let context_ = "S3ObjectVersionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3ObjectVersionId" j
    let to_json = simple_to_json to_value
  end
module JobManifestFieldList =
  struct
    type nonrec t = JobManifestFieldName.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:JobManifestFieldName.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:JobManifestFieldName.of_xml)
    let of_json j =
      list_of_json ~kind:"JobManifestFieldList"
        ~of_json:JobManifestFieldName.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobManifestFormat =
  struct
    type nonrec t =
      | S3BatchOperations_CSV_20180820 
      | S3InventoryReport_CSV_20161130 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | S3BatchOperations_CSV_20180820 -> "S3BatchOperations_CSV_20180820"
      | S3InventoryReport_CSV_20161130 -> "S3InventoryReport_CSV_20161130"
      | Non_static_id s -> s
    let of_string =
      function
      | "S3BatchOperations_CSV_20180820" -> S3BatchOperations_CSV_20180820
      | "S3InventoryReport_CSV_20161130" -> S3InventoryReport_CSV_20161130
      | 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 JobManifestFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobManifestFormat" j)
    let to_json = simple_to_json to_value
  end
module JobManifestGeneratorFilter =
  struct
    type nonrec t =
      {
      eligibleForReplication: Boolean.t option
        [@ocaml.doc
          "Include objects in the generated manifest only if they are eligible for replication according to the Replication configuration on the source bucket."];
      createdAfter: ObjectCreationTime.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects that were created after this time."];
      createdBefore: ObjectCreationTime.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects that were created before this time."];
      objectReplicationStatuses: ReplicationStatusFilterList.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects that have one of the specified Replication statuses."];
      keyNameConstraint: KeyNameConstraint.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects whose object keys match the string constraints specified for MatchAnyPrefix, MatchAnySuffix, and MatchAnySubstring."];
      objectSizeGreaterThanBytes: ObjectSizeGreaterThanBytes.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects whose file size is greater than the specified number of bytes."];
      objectSizeLessThanBytes: ObjectSizeLessThanBytes.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects whose file size is less than the specified number of bytes."];
      matchAnyStorageClass: StorageClassList.t option
        [@ocaml.doc
          "If provided, the generated manifest includes only source bucket objects that are stored with the specified storage class."];
      matchAnyObjectEncryption: ObjectEncryptionFilterList.t option
        [@ocaml.doc
          "If provided, the generated object list includes only source bucket objects with the indicated server-side encryption type (SSE-S3, SSE-KMS, DSSE-KMS, SSE-C, or NOT-SSE)."]}
    let make ?eligibleForReplication =
      fun ?createdAfter ->
        fun ?createdBefore ->
          fun ?objectReplicationStatuses ->
            fun ?keyNameConstraint ->
              fun ?objectSizeGreaterThanBytes ->
                fun ?objectSizeLessThanBytes ->
                  fun ?matchAnyStorageClass ->
                    fun ?matchAnyObjectEncryption ->
                      fun () ->
                        {
                          eligibleForReplication;
                          createdAfter;
                          createdBefore;
                          objectReplicationStatuses;
                          keyNameConstraint;
                          objectSizeGreaterThanBytes;
                          objectSizeLessThanBytes;
                          matchAnyStorageClass;
                          matchAnyObjectEncryption
                        }
    let to_value x =
      structure_to_value
        [("EligibleForReplication",
           (Option.map x.eligibleForReplication ~f:Boolean.to_value));
        ("CreatedAfter",
          (Option.map x.createdAfter ~f:ObjectCreationTime.to_value));
        ("CreatedBefore",
          (Option.map x.createdBefore ~f:ObjectCreationTime.to_value));
        ("ObjectReplicationStatuses",
          (Option.map x.objectReplicationStatuses
             ~f:ReplicationStatusFilterList.to_value));
        ("KeyNameConstraint",
          (Option.map x.keyNameConstraint ~f:KeyNameConstraint.to_value));
        ("ObjectSizeGreaterThanBytes",
          (Option.map x.objectSizeGreaterThanBytes
             ~f:ObjectSizeGreaterThanBytes.to_value));
        ("ObjectSizeLessThanBytes",
          (Option.map x.objectSizeLessThanBytes
             ~f:ObjectSizeLessThanBytes.to_value));
        ("MatchAnyStorageClass",
          (Option.map x.matchAnyStorageClass ~f:StorageClassList.to_value));
        ("MatchAnyObjectEncryption",
          (Option.map x.matchAnyObjectEncryption
             ~f:ObjectEncryptionFilterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchAnyObjectEncryption =
        (Option.map ~f:ObjectEncryptionFilterList.of_xml)
          (Xml.child xml_arg0 "MatchAnyObjectEncryption") in
      let matchAnyStorageClass =
        (Option.map ~f:StorageClassList.of_xml)
          (Xml.child xml_arg0 "MatchAnyStorageClass") in
      let objectSizeLessThanBytes =
        (Option.map ~f:ObjectSizeLessThanBytes.of_xml)
          (Xml.child xml_arg0 "ObjectSizeLessThanBytes") in
      let objectSizeGreaterThanBytes =
        (Option.map ~f:ObjectSizeGreaterThanBytes.of_xml)
          (Xml.child xml_arg0 "ObjectSizeGreaterThanBytes") in
      let keyNameConstraint =
        (Option.map ~f:KeyNameConstraint.of_xml)
          (Xml.child xml_arg0 "KeyNameConstraint") in
      let objectReplicationStatuses =
        (Option.map ~f:ReplicationStatusFilterList.of_xml)
          (Xml.child xml_arg0 "ObjectReplicationStatuses") in
      let createdBefore =
        (Option.map ~f:ObjectCreationTime.of_xml)
          (Xml.child xml_arg0 "CreatedBefore") in
      let createdAfter =
        (Option.map ~f:ObjectCreationTime.of_xml)
          (Xml.child xml_arg0 "CreatedAfter") in
      let eligibleForReplication =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EligibleForReplication") in
      make ?matchAnyObjectEncryption ?matchAnyStorageClass
        ?objectSizeLessThanBytes ?objectSizeGreaterThanBytes
        ?keyNameConstraint ?objectReplicationStatuses ?createdBefore
        ?createdAfter ?eligibleForReplication ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchAnyObjectEncryption =
        field_map json__ "MatchAnyObjectEncryption"
          ObjectEncryptionFilterList.of_json in
      let matchAnyStorageClass =
        field_map json__ "MatchAnyStorageClass" StorageClassList.of_json in
      let objectSizeLessThanBytes =
        field_map json__ "ObjectSizeLessThanBytes"
          ObjectSizeLessThanBytes.of_json in
      let objectSizeGreaterThanBytes =
        field_map json__ "ObjectSizeGreaterThanBytes"
          ObjectSizeGreaterThanBytes.of_json in
      let keyNameConstraint =
        field_map json__ "KeyNameConstraint" KeyNameConstraint.of_json in
      let objectReplicationStatuses =
        field_map json__ "ObjectReplicationStatuses"
          ReplicationStatusFilterList.of_json in
      let createdBefore =
        field_map json__ "CreatedBefore" ObjectCreationTime.of_json in
      let createdAfter =
        field_map json__ "CreatedAfter" ObjectCreationTime.of_json in
      let eligibleForReplication =
        field_map json__ "EligibleForReplication" Boolean.of_json in
      make ?matchAnyObjectEncryption ?matchAnyStorageClass
        ?objectSizeLessThanBytes ?objectSizeGreaterThanBytes
        ?keyNameConstraint ?objectReplicationStatuses ?createdBefore
        ?createdAfter ?eligibleForReplication ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter used to describe a set of objects for the job's manifest."]
module S3ManifestOutputLocation =
  struct
    type nonrec t =
      {
      expectedManifestBucketOwner: AccountId.t option
        [@ocaml.doc
          "The Account ID that owns the bucket the generated manifest is written to."];
      bucket: S3BucketArnString.t
        [@ocaml.doc
          "The bucket ARN the generated manifest should be written to. Directory buckets - Directory buckets aren't supported as the buckets to store the generated manifest."];
      manifestPrefix: ManifestPrefixString.t option
        [@ocaml.doc
          "Prefix identifying one or more objects to which the manifest applies."];
      manifestEncryption: GeneratedManifestEncryption.t option
        [@ocaml.doc
          "Specifies what encryption should be used when the generated manifest objects are written."];
      manifestFormat: GeneratedManifestFormat.t
        [@ocaml.doc "The format of the generated manifest."]}
    let context_ = "S3ManifestOutputLocation"
    let make ?expectedManifestBucketOwner =
      fun ?manifestPrefix ->
        fun ?manifestEncryption ->
          fun ~bucket ->
            fun ~manifestFormat ->
              fun () ->
                {
                  expectedManifestBucketOwner;
                  manifestPrefix;
                  manifestEncryption;
                  bucket;
                  manifestFormat
                }
    let to_value x =
      structure_to_value
        [("ExpectedManifestBucketOwner",
           (Option.map x.expectedManifestBucketOwner ~f:AccountId.to_value));
        ("Bucket", (Some (S3BucketArnString.to_value x.bucket)));
        ("ManifestPrefix",
          (Option.map x.manifestPrefix ~f:ManifestPrefixString.to_value));
        ("ManifestEncryption",
          (Option.map x.manifestEncryption
             ~f:GeneratedManifestEncryption.to_value));
        ("ManifestFormat",
          (Some (GeneratedManifestFormat.to_value x.manifestFormat)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manifestFormat =
        GeneratedManifestFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManifestFormat") in
      let manifestEncryption =
        (Option.map ~f:GeneratedManifestEncryption.of_xml)
          (Xml.child xml_arg0 "ManifestEncryption") in
      let manifestPrefix =
        (Option.map ~f:ManifestPrefixString.of_xml)
          (Xml.child xml_arg0 "ManifestPrefix") in
      let bucket =
        S3BucketArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Bucket") in
      let expectedManifestBucketOwner =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ExpectedManifestBucketOwner") in
      make ~manifestFormat ?manifestEncryption ?manifestPrefix ~bucket
        ?expectedManifestBucketOwner ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manifestFormat =
        field_map_exn json__ "ManifestFormat" GeneratedManifestFormat.of_json in
      let manifestEncryption =
        field_map json__ "ManifestEncryption"
          GeneratedManifestEncryption.of_json in
      let manifestPrefix =
        field_map json__ "ManifestPrefix" ManifestPrefixString.of_json in
      let bucket = field_map_exn json__ "Bucket" S3BucketArnString.of_json in
      let expectedManifestBucketOwner =
        field_map json__ "ExpectedManifestBucketOwner" AccountId.of_json in
      make ~manifestFormat ?manifestEncryption ?manifestPrefix ~bucket
        ?expectedManifestBucketOwner ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Location details for where the generated manifest should be written."]
module UserArguments =
  struct
    type nonrec t =
      (NonEmptyMaxLength64String.t * MaxLength1024String.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        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 ->
                            ((NonEmptyMaxLength64String.of_string chopped),
                              (MaxLength1024String.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (NonEmptyMaxLength64String.to_value x) |>
                    (fun x ->
                       (MaxLength1024String.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:NonEmptyMaxLength64String.of_string
        ~of_json:MaxLength1024String.of_json j
    let to_json v = composed_to_json to_value v
  end
module ComputeObjectChecksumAlgorithm =
  struct
    type nonrec t =
      | CRC32 
      | CRC32C 
      | CRC64NVME 
      | MD5 
      | SHA1 
      | SHA256 
      | SHA512 
      | XXHASH64 
      | XXHASH3 
      | XXHASH128 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CRC32 -> "CRC32"
      | CRC32C -> "CRC32C"
      | CRC64NVME -> "CRC64NVME"
      | MD5 -> "MD5"
      | SHA1 -> "SHA1"
      | SHA256 -> "SHA256"
      | SHA512 -> "SHA512"
      | XXHASH64 -> "XXHASH64"
      | XXHASH3 -> "XXHASH3"
      | XXHASH128 -> "XXHASH128"
      | Non_static_id s -> s
    let of_string =
      function
      | "CRC32" -> CRC32
      | "CRC32C" -> CRC32C
      | "CRC64NVME" -> CRC64NVME
      | "MD5" -> MD5
      | "SHA1" -> SHA1
      | "SHA256" -> SHA256
      | "SHA512" -> SHA512
      | "XXHASH64" -> XXHASH64
      | "XXHASH3" -> XXHASH3
      | "XXHASH128" -> XXHASH128
      | 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 ComputeObjectChecksumAlgorithm"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ComputeObjectChecksumAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module ComputeObjectChecksumType =
  struct
    type nonrec t =
      | FULL_OBJECT 
      | COMPOSITE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FULL_OBJECT -> "FULL_OBJECT"
      | COMPOSITE -> "COMPOSITE"
      | Non_static_id s -> s
    let of_string =
      function
      | "FULL_OBJECT" -> FULL_OBJECT
      | "COMPOSITE" -> COMPOSITE
      | 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 ComputeObjectChecksumType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ComputeObjectChecksumType" j)
    let to_json = simple_to_json to_value
  end
module NonEmptyMaxLength2048String =
  struct
    type nonrec t = string
    let context_ = "NonEmptyMaxLength2048String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyMaxLength2048String" j
    let to_json = simple_to_json to_value
  end
module S3ChecksumAlgorithm =
  struct
    type nonrec t =
      | CRC32 
      | CRC32C 
      | SHA1 
      | SHA256 
      | CRC64NVME 
      | SHA512 
      | MD5 
      | XXHASH64 
      | XXHASH3 
      | XXHASH128 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CRC32 -> "CRC32"
      | CRC32C -> "CRC32C"
      | SHA1 -> "SHA1"
      | SHA256 -> "SHA256"
      | CRC64NVME -> "CRC64NVME"
      | SHA512 -> "SHA512"
      | MD5 -> "MD5"
      | XXHASH64 -> "XXHASH64"
      | XXHASH3 -> "XXHASH3"
      | XXHASH128 -> "XXHASH128"
      | Non_static_id s -> s
    let of_string =
      function
      | "CRC32" -> CRC32
      | "CRC32C" -> CRC32C
      | "SHA1" -> SHA1
      | "SHA256" -> SHA256
      | "CRC64NVME" -> CRC64NVME
      | "SHA512" -> SHA512
      | "MD5" -> MD5
      | "XXHASH64" -> XXHASH64
      | "XXHASH3" -> XXHASH3
      | "XXHASH128" -> XXHASH128
      | 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 S3ChecksumAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3ChecksumAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module S3MetadataDirective =
  struct
    type nonrec t =
      | COPY 
      | REPLACE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | COPY -> "COPY" | REPLACE -> "REPLACE" | Non_static_id s -> s
    let of_string =
      function | "COPY" -> COPY | "REPLACE" -> REPLACE | 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 S3MetadataDirective" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3MetadataDirective" j)
    let to_json = simple_to_json to_value
  end
module S3ObjectLockMode =
  struct
    type nonrec t =
      | COMPLIANCE 
      | GOVERNANCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLIANCE -> "COMPLIANCE"
      | GOVERNANCE -> "GOVERNANCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLIANCE" -> COMPLIANCE
      | "GOVERNANCE" -> GOVERNANCE
      | 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 S3ObjectLockMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3ObjectLockMode" j)
    let to_json = simple_to_json to_value
  end
module S3ObjectMetadata =
  struct
    type nonrec t =
      {
      cacheControl: NonEmptyMaxLength1024String.t option ;
      contentDisposition: NonEmptyMaxLength1024String.t option ;
      contentEncoding: NonEmptyMaxLength1024String.t option ;
      contentLanguage: NonEmptyMaxLength1024String.t option ;
      userMetadata: S3UserMetadata.t option ;
      contentLength: S3ContentLength.t option
        [@ocaml.doc "This member has been deprecated."];
      contentMD5: NonEmptyMaxLength1024String.t option
        [@ocaml.doc "This member has been deprecated."];
      contentType: NonEmptyMaxLength1024String.t option ;
      httpExpiresDate: TimeStamp.t option ;
      requesterCharged: Boolean.t option
        [@ocaml.doc "This member has been deprecated."];
      sSEAlgorithm: S3SSEAlgorithm.t option
        [@ocaml.doc
          "The server-side encryption algorithm used when storing objects in Amazon S3. Directory buckets - For directory buckets, there are only two supported options for server-side encryption: server-side encryption with Amazon S3 managed keys (SSE-S3) (AES256) and server-side encryption with KMS keys (SSE-KMS) (KMS). For more information, see Protecting data with server-side encryption in the Amazon S3 User Guide. For the Copy operation in Batch Operations, see S3CopyObjectOperation."]}
    let make ?cacheControl =
      fun ?contentDisposition ->
        fun ?contentEncoding ->
          fun ?contentLanguage ->
            fun ?userMetadata ->
              fun ?contentLength ->
                fun ?contentMD5 ->
                  fun ?contentType ->
                    fun ?httpExpiresDate ->
                      fun ?requesterCharged ->
                        fun ?sSEAlgorithm ->
                          fun () ->
                            {
                              cacheControl;
                              contentDisposition;
                              contentEncoding;
                              contentLanguage;
                              userMetadata;
                              contentLength;
                              contentMD5;
                              contentType;
                              httpExpiresDate;
                              requesterCharged;
                              sSEAlgorithm
                            }
    let to_value x =
      structure_to_value
        [("CacheControl",
           (Option.map x.cacheControl ~f:NonEmptyMaxLength1024String.to_value));
        ("ContentDisposition",
          (Option.map x.contentDisposition
             ~f:NonEmptyMaxLength1024String.to_value));
        ("ContentEncoding",
          (Option.map x.contentEncoding
             ~f:NonEmptyMaxLength1024String.to_value));
        ("ContentLanguage",
          (Option.map x.contentLanguage
             ~f:NonEmptyMaxLength1024String.to_value));
        ("UserMetadata",
          (Option.map x.userMetadata ~f:S3UserMetadata.to_value));
        ("ContentLength",
          (Option.map x.contentLength ~f:S3ContentLength.to_value));
        ("ContentMD5",
          (Option.map x.contentMD5 ~f:NonEmptyMaxLength1024String.to_value));
        ("ContentType",
          (Option.map x.contentType ~f:NonEmptyMaxLength1024String.to_value));
        ("HttpExpiresDate",
          (Option.map x.httpExpiresDate ~f:TimeStamp.to_value));
        ("RequesterCharged",
          (Option.map x.requesterCharged ~f:Boolean.to_value));
        ("SSEAlgorithm",
          (Option.map x.sSEAlgorithm ~f:S3SSEAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sSEAlgorithm =
        (Option.map ~f:S3SSEAlgorithm.of_xml)
          (Xml.child xml_arg0 "SSEAlgorithm") in
      let requesterCharged =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RequesterCharged") in
      let httpExpiresDate =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "HttpExpiresDate") in
      let contentType =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "ContentType") in
      let contentMD5 =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "ContentMD5") in
      let contentLength =
        (Option.map ~f:S3ContentLength.of_xml)
          (Xml.child xml_arg0 "ContentLength") in
      let userMetadata =
        (Option.map ~f:S3UserMetadata.of_xml)
          (Xml.child xml_arg0 "UserMetadata") in
      let contentLanguage =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "ContentLanguage") in
      let contentEncoding =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "ContentEncoding") in
      let contentDisposition =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "ContentDisposition") in
      let cacheControl =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "CacheControl") in
      make ?sSEAlgorithm ?requesterCharged ?httpExpiresDate ?contentType
        ?contentMD5 ?contentLength ?userMetadata ?contentLanguage
        ?contentEncoding ?contentDisposition ?cacheControl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sSEAlgorithm =
        field_map json__ "SSEAlgorithm" S3SSEAlgorithm.of_json in
      let requesterCharged =
        field_map json__ "RequesterCharged" Boolean.of_json in
      let httpExpiresDate =
        field_map json__ "HttpExpiresDate" TimeStamp.of_json in
      let contentType =
        field_map json__ "ContentType" NonEmptyMaxLength1024String.of_json in
      let contentMD5 =
        field_map json__ "ContentMD5" NonEmptyMaxLength1024String.of_json in
      let contentLength =
        field_map json__ "ContentLength" S3ContentLength.of_json in
      let userMetadata =
        field_map json__ "UserMetadata" S3UserMetadata.of_json in
      let contentLanguage =
        field_map json__ "ContentLanguage"
          NonEmptyMaxLength1024String.of_json in
      let contentEncoding =
        field_map json__ "ContentEncoding"
          NonEmptyMaxLength1024String.of_json in
      let contentDisposition =
        field_map json__ "ContentDisposition"
          NonEmptyMaxLength1024String.of_json in
      let cacheControl =
        field_map json__ "CacheControl" NonEmptyMaxLength1024String.of_json in
      make ?sSEAlgorithm ?requesterCharged ?httpExpiresDate ?contentType
        ?contentMD5 ?contentLength ?userMetadata ?contentLanguage
        ?contentEncoding ?contentDisposition ?cacheControl ()
    let to_json v = composed_to_json to_value v
  end
module S3RegionalOrS3ExpressBucketArnString =
  struct
    type nonrec t = string
    let context_ = "S3RegionalOrS3ExpressBucketArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:[^:]+:(s3|s3express):.*")));
        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:"S3RegionalOrS3ExpressBucketArnString" j
    let to_json = simple_to_json to_value
  end
module S3ExpirationInDays =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); 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 S3ExpirationInDays" 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 S3GlacierJobTier =
  struct
    type nonrec t =
      | BULK 
      | STANDARD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BULK -> "BULK"
      | STANDARD -> "STANDARD"
      | Non_static_id s -> s
    let of_string =
      function
      | "BULK" -> BULK
      | "STANDARD" -> STANDARD
      | 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 S3GlacierJobTier" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3GlacierJobTier" j)
    let to_json = simple_to_json to_value
  end
module S3AccessControlPolicy =
  struct
    type nonrec t =
      {
      accessControlList: S3AccessControlList.t option ;
      cannedAccessControlList: S3CannedAccessControlList.t option }
    let make ?accessControlList =
      fun ?cannedAccessControlList ->
        fun () -> { accessControlList; cannedAccessControlList }
    let to_value x =
      structure_to_value
        [("AccessControlList",
           (Option.map x.accessControlList ~f:S3AccessControlList.to_value));
        ("CannedAccessControlList",
          (Option.map x.cannedAccessControlList
             ~f:S3CannedAccessControlList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cannedAccessControlList =
        (Option.map ~f:S3CannedAccessControlList.of_xml)
          (Xml.child xml_arg0 "CannedAccessControlList") in
      let accessControlList =
        (Option.map ~f:S3AccessControlList.of_xml)
          (Xml.child xml_arg0 "AccessControlList") in
      make ?cannedAccessControlList ?accessControlList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cannedAccessControlList =
        field_map json__ "CannedAccessControlList"
          S3CannedAccessControlList.of_json in
      let accessControlList =
        field_map json__ "AccessControlList" S3AccessControlList.of_json in
      make ?cannedAccessControlList ?accessControlList ()
    let to_json v = composed_to_json to_value v
  end
module S3ObjectLockLegalHold =
  struct
    type nonrec t =
      {
      status: S3ObjectLockLegalHoldStatus.t
        [@ocaml.doc
          "The Object Lock legal hold status to be applied to all objects in the Batch Operations job."]}
    let context_ = "S3ObjectLockLegalHold"
    let make ~status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("Status", (Some (S3ObjectLockLegalHoldStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        S3ObjectLockLegalHoldStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "Status" S3ObjectLockLegalHoldStatus.of_json in
      make ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Whether S3 Object Lock legal hold will be applied to objects in an S3 Batch Operations job."]
module S3Retention =
  struct
    type nonrec t =
      {
      retainUntilDate: TimeStamp.t option
        [@ocaml.doc
          "The date when the applied Object Lock retention will expire on all objects set by the Batch Operations job."];
      mode: S3ObjectLockRetentionMode.t option
        [@ocaml.doc
          "The Object Lock retention mode to be applied to all objects in the Batch Operations job."]}
    let make ?retainUntilDate =
      fun ?mode -> fun () -> { retainUntilDate; mode }
    let to_value x =
      structure_to_value
        [("RetainUntilDate",
           (Option.map x.retainUntilDate ~f:TimeStamp.to_value));
        ("Mode", (Option.map x.mode ~f:S3ObjectLockRetentionMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        (Option.map ~f:S3ObjectLockRetentionMode.of_xml)
          (Xml.child xml_arg0 "Mode") in
      let retainUntilDate =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "RetainUntilDate") in
      make ?mode ?retainUntilDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "Mode" S3ObjectLockRetentionMode.of_json in
      let retainUntilDate =
        field_map json__ "RetainUntilDate" TimeStamp.of_json in
      make ?mode ?retainUntilDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the S3 Object Lock retention mode to be applied to all objects in the S3 Batch Operations job. If you don't provide Mode and RetainUntilDate data types in your operation, you will remove the retention from your objects. For more information, see Using S3 Object Lock retention with S3 Batch Operations in the Amazon S3 User Guide."]
module ObjectEncryption =
  struct
    type nonrec t =
      {
      sSEKMS: S3UpdateObjectEncryptionSSEKMS.t option
        [@ocaml.doc
          "Specifies to update the object encryption type to server-side encryption with Key Management Service (KMS) keys (SSE-KMS)."]}
    let make ?sSEKMS = fun () -> { sSEKMS }
    let to_value x =
      structure_to_value
        [("SSE-KMS",
           (Option.map x.sSEKMS ~f:S3UpdateObjectEncryptionSSEKMS.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sSEKMS =
        (Option.map ~f:S3UpdateObjectEncryptionSSEKMS.of_xml)
          (Xml.child xml_arg0 "SSE-KMS") in
      make ?sSEKMS ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sSEKMS =
        field_map json__ "SSEKMS" S3UpdateObjectEncryptionSSEKMS.of_json in
      make ?sSEKMS ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The updated server-side encryption type for this object. The UpdateObjectEncryption operation supports the SSE-KMS encryption type. Valid Values: SSEKMS"]
module StorageLensGroupAndOperator =
  struct
    type nonrec t =
      {
      matchAnyPrefix: MatchAnyPrefix.t option
        [@ocaml.doc
          "Contains a list of prefixes. At least one prefix must be specified. Up to 10 prefixes are allowed."];
      matchAnySuffix: MatchAnySuffix.t option
        [@ocaml.doc
          "Contains a list of suffixes. At least one suffix must be specified. Up to 10 suffixes are allowed."];
      matchAnyTag: MatchAnyTag.t option
        [@ocaml.doc
          "Contains the list of object tags. At least one object tag must be specified. Up to 10 object tags are allowed."];
      matchObjectAge: MatchObjectAge.t option
        [@ocaml.doc
          "Contains DaysGreaterThan and DaysLessThan to define the object age range (minimum and maximum number of days)."];
      matchObjectSize: MatchObjectSize.t option
        [@ocaml.doc
          "Contains BytesGreaterThan and BytesLessThan to define the object size range (minimum and maximum number of Bytes)."]}
    let make ?matchAnyPrefix =
      fun ?matchAnySuffix ->
        fun ?matchAnyTag ->
          fun ?matchObjectAge ->
            fun ?matchObjectSize ->
              fun () ->
                {
                  matchAnyPrefix;
                  matchAnySuffix;
                  matchAnyTag;
                  matchObjectAge;
                  matchObjectSize
                }
    let to_value x =
      structure_to_value
        [("MatchAnyPrefix",
           (Option.map x.matchAnyPrefix ~f:MatchAnyPrefix.to_value));
        ("MatchAnySuffix",
          (Option.map x.matchAnySuffix ~f:MatchAnySuffix.to_value));
        ("MatchAnyTag", (Option.map x.matchAnyTag ~f:MatchAnyTag.to_value));
        ("MatchObjectAge",
          (Option.map x.matchObjectAge ~f:MatchObjectAge.to_value));
        ("MatchObjectSize",
          (Option.map x.matchObjectSize ~f:MatchObjectSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchObjectSize =
        (Option.map ~f:MatchObjectSize.of_xml)
          (Xml.child xml_arg0 "MatchObjectSize") in
      let matchObjectAge =
        (Option.map ~f:MatchObjectAge.of_xml)
          (Xml.child xml_arg0 "MatchObjectAge") in
      let matchAnyTag =
        (Option.map ~f:MatchAnyTag.of_xml) (Xml.child xml_arg0 "MatchAnyTag") in
      let matchAnySuffix =
        (Option.map ~f:MatchAnySuffix.of_xml)
          (Xml.child xml_arg0 "MatchAnySuffix") in
      let matchAnyPrefix =
        (Option.map ~f:MatchAnyPrefix.of_xml)
          (Xml.child xml_arg0 "MatchAnyPrefix") in
      make ?matchObjectSize ?matchObjectAge ?matchAnyTag ?matchAnySuffix
        ?matchAnyPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchObjectSize =
        field_map json__ "MatchObjectSize" MatchObjectSize.of_json in
      let matchObjectAge =
        field_map json__ "MatchObjectAge" MatchObjectAge.of_json in
      let matchAnyTag = field_map json__ "MatchAnyTag" MatchAnyTag.of_json in
      let matchAnySuffix =
        field_map json__ "MatchAnySuffix" MatchAnySuffix.of_json in
      let matchAnyPrefix =
        field_map json__ "MatchAnyPrefix" MatchAnyPrefix.of_json in
      make ?matchObjectSize ?matchObjectAge ?matchAnyTag ?matchAnySuffix
        ?matchAnyPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A logical operator that allows multiple filter conditions to be joined for more complex comparisons of Storage Lens group data."]
module StorageLensGroupOrOperator =
  struct
    type nonrec t =
      {
      matchAnyPrefix: MatchAnyPrefix.t option
        [@ocaml.doc
          "Filters objects that match any of the specified prefixes."];
      matchAnySuffix: MatchAnySuffix.t option
        [@ocaml.doc
          "Filters objects that match any of the specified suffixes."];
      matchAnyTag: MatchAnyTag.t option
        [@ocaml.doc
          "Filters objects that match any of the specified S3 object tags."];
      matchObjectAge: MatchObjectAge.t option
        [@ocaml.doc
          "Filters objects that match the specified object age range."];
      matchObjectSize: MatchObjectSize.t option
        [@ocaml.doc
          "Filters objects that match the specified object size range."]}
    let make ?matchAnyPrefix =
      fun ?matchAnySuffix ->
        fun ?matchAnyTag ->
          fun ?matchObjectAge ->
            fun ?matchObjectSize ->
              fun () ->
                {
                  matchAnyPrefix;
                  matchAnySuffix;
                  matchAnyTag;
                  matchObjectAge;
                  matchObjectSize
                }
    let to_value x =
      structure_to_value
        [("MatchAnyPrefix",
           (Option.map x.matchAnyPrefix ~f:MatchAnyPrefix.to_value));
        ("MatchAnySuffix",
          (Option.map x.matchAnySuffix ~f:MatchAnySuffix.to_value));
        ("MatchAnyTag", (Option.map x.matchAnyTag ~f:MatchAnyTag.to_value));
        ("MatchObjectAge",
          (Option.map x.matchObjectAge ~f:MatchObjectAge.to_value));
        ("MatchObjectSize",
          (Option.map x.matchObjectSize ~f:MatchObjectSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchObjectSize =
        (Option.map ~f:MatchObjectSize.of_xml)
          (Xml.child xml_arg0 "MatchObjectSize") in
      let matchObjectAge =
        (Option.map ~f:MatchObjectAge.of_xml)
          (Xml.child xml_arg0 "MatchObjectAge") in
      let matchAnyTag =
        (Option.map ~f:MatchAnyTag.of_xml) (Xml.child xml_arg0 "MatchAnyTag") in
      let matchAnySuffix =
        (Option.map ~f:MatchAnySuffix.of_xml)
          (Xml.child xml_arg0 "MatchAnySuffix") in
      let matchAnyPrefix =
        (Option.map ~f:MatchAnyPrefix.of_xml)
          (Xml.child xml_arg0 "MatchAnyPrefix") in
      make ?matchObjectSize ?matchObjectAge ?matchAnyTag ?matchAnySuffix
        ?matchAnyPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchObjectSize =
        field_map json__ "MatchObjectSize" MatchObjectSize.of_json in
      let matchObjectAge =
        field_map json__ "MatchObjectAge" MatchObjectAge.of_json in
      let matchAnyTag = field_map json__ "MatchAnyTag" MatchAnyTag.of_json in
      let matchAnySuffix =
        field_map json__ "MatchAnySuffix" MatchAnySuffix.of_json in
      let matchAnyPrefix =
        field_map json__ "MatchAnyPrefix" MatchAnyPrefix.of_json in
      make ?matchObjectSize ?matchObjectAge ?matchAnyTag ?matchAnySuffix
        ?matchAnyPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container element for specifying Or rule conditions. The rule conditions determine the subset of objects to which the Or rule applies. Objects can match any of the listed filter conditions, which are joined by the Or logical operator. Only one of each filter condition is allowed."]
module TrafficDialPercentage =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:0));
        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 TrafficDialPercentage" 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 BucketLevel =
  struct
    type nonrec t =
      {
      activityMetrics: ActivityMetrics.t option
        [@ocaml.doc
          "A container for the bucket-level activity metrics for S3 Storage Lens."];
      prefixLevel: PrefixLevel.t option
        [@ocaml.doc
          "A container for the prefix-level metrics for S3 Storage Lens."];
      advancedCostOptimizationMetrics:
        AdvancedCostOptimizationMetrics.t option
        [@ocaml.doc
          "A container for bucket-level advanced cost-optimization metrics for S3 Storage Lens."];
      advancedDataProtectionMetrics: AdvancedDataProtectionMetrics.t option
        [@ocaml.doc
          "A container for bucket-level advanced data-protection metrics for S3 Storage Lens."];
      detailedStatusCodesMetrics: DetailedStatusCodesMetrics.t option
        [@ocaml.doc
          "A container for bucket-level detailed status code metrics for S3 Storage Lens."];
      advancedPerformanceMetrics: AdvancedPerformanceMetrics.t option
        [@ocaml.doc
          "A container for bucket-level advanced performance metrics for S3 Storage Lens."]}
    let make ?activityMetrics =
      fun ?prefixLevel ->
        fun ?advancedCostOptimizationMetrics ->
          fun ?advancedDataProtectionMetrics ->
            fun ?detailedStatusCodesMetrics ->
              fun ?advancedPerformanceMetrics ->
                fun () ->
                  {
                    activityMetrics;
                    prefixLevel;
                    advancedCostOptimizationMetrics;
                    advancedDataProtectionMetrics;
                    detailedStatusCodesMetrics;
                    advancedPerformanceMetrics
                  }
    let to_value x =
      structure_to_value
        [("ActivityMetrics",
           (Option.map x.activityMetrics ~f:ActivityMetrics.to_value));
        ("PrefixLevel", (Option.map x.prefixLevel ~f:PrefixLevel.to_value));
        ("AdvancedCostOptimizationMetrics",
          (Option.map x.advancedCostOptimizationMetrics
             ~f:AdvancedCostOptimizationMetrics.to_value));
        ("AdvancedDataProtectionMetrics",
          (Option.map x.advancedDataProtectionMetrics
             ~f:AdvancedDataProtectionMetrics.to_value));
        ("DetailedStatusCodesMetrics",
          (Option.map x.detailedStatusCodesMetrics
             ~f:DetailedStatusCodesMetrics.to_value));
        ("AdvancedPerformanceMetrics",
          (Option.map x.advancedPerformanceMetrics
             ~f:AdvancedPerformanceMetrics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let advancedPerformanceMetrics =
        (Option.map ~f:AdvancedPerformanceMetrics.of_xml)
          (Xml.child xml_arg0 "AdvancedPerformanceMetrics") in
      let detailedStatusCodesMetrics =
        (Option.map ~f:DetailedStatusCodesMetrics.of_xml)
          (Xml.child xml_arg0 "DetailedStatusCodesMetrics") in
      let advancedDataProtectionMetrics =
        (Option.map ~f:AdvancedDataProtectionMetrics.of_xml)
          (Xml.child xml_arg0 "AdvancedDataProtectionMetrics") in
      let advancedCostOptimizationMetrics =
        (Option.map ~f:AdvancedCostOptimizationMetrics.of_xml)
          (Xml.child xml_arg0 "AdvancedCostOptimizationMetrics") in
      let prefixLevel =
        (Option.map ~f:PrefixLevel.of_xml) (Xml.child xml_arg0 "PrefixLevel") in
      let activityMetrics =
        (Option.map ~f:ActivityMetrics.of_xml)
          (Xml.child xml_arg0 "ActivityMetrics") in
      make ?advancedPerformanceMetrics ?detailedStatusCodesMetrics
        ?advancedDataProtectionMetrics ?advancedCostOptimizationMetrics
        ?prefixLevel ?activityMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let advancedPerformanceMetrics =
        field_map json__ "AdvancedPerformanceMetrics"
          AdvancedPerformanceMetrics.of_json in
      let detailedStatusCodesMetrics =
        field_map json__ "DetailedStatusCodesMetrics"
          DetailedStatusCodesMetrics.of_json in
      let advancedDataProtectionMetrics =
        field_map json__ "AdvancedDataProtectionMetrics"
          AdvancedDataProtectionMetrics.of_json in
      let advancedCostOptimizationMetrics =
        field_map json__ "AdvancedCostOptimizationMetrics"
          AdvancedCostOptimizationMetrics.of_json in
      let prefixLevel = field_map json__ "PrefixLevel" PrefixLevel.of_json in
      let activityMetrics =
        field_map json__ "ActivityMetrics" ActivityMetrics.of_json in
      make ?advancedPerformanceMetrics ?detailedStatusCodesMetrics
        ?advancedDataProtectionMetrics ?advancedCostOptimizationMetrics
        ?prefixLevel ?activityMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the bucket-level configuration for Amazon S3 Storage Lens. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide."]
module StorageLensGroupLevel =
  struct
    type nonrec t =
      {
      selectionCriteria: StorageLensGroupLevelSelectionCriteria.t option
        [@ocaml.doc
          "Indicates which Storage Lens group ARNs to include or exclude in the Storage Lens group aggregation. If this value is left null, then all Storage Lens groups are selected."]}
    let make ?selectionCriteria = fun () -> { selectionCriteria }
    let to_value x =
      structure_to_value
        [("SelectionCriteria",
           (Option.map x.selectionCriteria
              ~f:StorageLensGroupLevelSelectionCriteria.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selectionCriteria =
        (Option.map ~f:StorageLensGroupLevelSelectionCriteria.of_xml)
          (Xml.child xml_arg0 "SelectionCriteria") in
      make ?selectionCriteria ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selectionCriteria =
        field_map json__ "SelectionCriteria"
          StorageLensGroupLevelSelectionCriteria.of_json in
      make ?selectionCriteria ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the Storage Lens groups to include in the Storage Lens group aggregation."]
module Buckets =
  struct
    type nonrec t = S3BucketArnString.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:S3BucketArnString.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:S3BucketArnString.of_xml)
    let of_json j =
      list_of_json ~kind:"Buckets" ~of_json:S3BucketArnString.of_json j
    let to_json v = composed_to_json to_value v
  end
module Regions =
  struct
    type nonrec t = S3AWSRegion.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:S3AWSRegion.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:S3AWSRegion.of_xml)
    let of_json j =
      list_of_json ~kind:"Regions" ~of_json:S3AWSRegion.of_json j
    let to_json v = composed_to_json to_value v
  end
module AwsOrgArn =
  struct
    type nonrec t = string
    let context_ = "AwsOrgArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\-]+:organizations::\\d{12}:organization\\/o-[a-z0-9]{10,32}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AwsOrgArn" j
    let to_json = simple_to_json to_value
  end
module CloudWatchMetrics =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t
        [@ocaml.doc
          "A container that indicates whether CloudWatch publishing for S3 Storage Lens metrics is enabled. A value of true indicates that CloudWatch publishing for S3 Storage Lens metrics is enabled."]}
    let context_ = "CloudWatchMetrics"
    let make ~isEnabled = fun () -> { isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Some (IsEnabled.to_value x.isEnabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        IsEnabled.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsEnabled") in
      make ~isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map_exn json__ "IsEnabled" IsEnabled.of_json in
      make ~isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for enabling Amazon CloudWatch publishing for S3 Storage Lens metrics. For more information about publishing S3 Storage Lens metrics to CloudWatch, see Monitor S3 Storage Lens metrics in CloudWatch in the Amazon S3 User Guide."]
module S3BucketDestination =
  struct
    type nonrec t =
      {
      format: Format_.t ;
      outputSchemaVersion: OutputSchemaVersion.t
        [@ocaml.doc "The schema version of the export file."];
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID of the owner of the S3 Storage Lens metrics export bucket."];
      arn: S3BucketArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the bucket. This property is read-only and follows the following format: arn:aws:s3:us-east-1:example-account-id:bucket/your-destination-bucket-name"];
      prefix: Prefix.t option
        [@ocaml.doc
          "The prefix of the destination bucket where the metrics export will be delivered."];
      encryption: StorageLensDataExportEncryption.t option
        [@ocaml.doc
          "The container for the type encryption of the metrics exports in this bucket."]}
    let context_ = "S3BucketDestination"
    let make ?prefix =
      fun ?encryption ->
        fun ~format ->
          fun ~outputSchemaVersion ->
            fun ~accountId ->
              fun ~arn ->
                fun () ->
                  {
                    prefix;
                    encryption;
                    format;
                    outputSchemaVersion;
                    accountId;
                    arn
                  }
    let to_value x =
      structure_to_value
        [("Format", (Some (Format_.to_value x.format)));
        ("OutputSchemaVersion",
          (Some (OutputSchemaVersion.to_value x.outputSchemaVersion)));
        ("AccountId", (Some (AccountId.to_value x.accountId)));
        ("Arn", (Some (S3BucketArnString.to_value x.arn)));
        ("Prefix", (Option.map x.prefix ~f:Prefix.to_value));
        ("Encryption",
          (Option.map x.encryption
             ~f:StorageLensDataExportEncryption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryption =
        (Option.map ~f:StorageLensDataExportEncryption.of_xml)
          (Xml.child xml_arg0 "Encryption") in
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "Prefix") in
      let arn =
        S3BucketArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountId") in
      let outputSchemaVersion =
        OutputSchemaVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutputSchemaVersion") in
      let format =
        Format_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Format") in
      make ?encryption ?prefix ~arn ~accountId ~outputSchemaVersion ~format
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryption =
        field_map json__ "Encryption" StorageLensDataExportEncryption.of_json in
      let prefix = field_map json__ "Prefix" Prefix.of_json in
      let arn = field_map_exn json__ "Arn" S3BucketArnString.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let outputSchemaVersion =
        field_map_exn json__ "OutputSchemaVersion"
          OutputSchemaVersion.of_json in
      let format = field_map_exn json__ "Format" Format_.of_json in
      make ?encryption ?prefix ~arn ~accountId ~outputSchemaVersion ~format
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the bucket where the Amazon S3 Storage Lens metrics export files are located."]
module StorageLensTableDestination =
  struct
    type nonrec t =
      {
      isEnabled: IsEnabled.t
        [@ocaml.doc
          "A container that indicates whether the export to read-only S3 table buckets is enabled for your S3 Storage Lens configuration. When set to true, Storage Lens reports are automatically exported to tables in addition to other configured destinations."];
      encryption: StorageLensDataExportEncryption.t option }
    let context_ = "StorageLensTableDestination"
    let make ?encryption =
      fun ~isEnabled -> fun () -> { encryption; isEnabled }
    let to_value x =
      structure_to_value
        [("IsEnabled", (Some (IsEnabled.to_value x.isEnabled)));
        ("Encryption",
          (Option.map x.encryption
             ~f:StorageLensDataExportEncryption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryption =
        (Option.map ~f:StorageLensDataExportEncryption.of_xml)
          (Xml.child xml_arg0 "Encryption") in
      let isEnabled =
        IsEnabled.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsEnabled") in
      make ?encryption ~isEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryption =
        field_map json__ "Encryption" StorageLensDataExportEncryption.of_json in
      let isEnabled = field_map_exn json__ "IsEnabled" IsEnabled.of_json in
      make ?encryption ~isEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for configuring your S3 Storage Lens reports to export to read-only S3 table buckets. This parameter enables you to store your Storage Lens metrics in a structured, queryable table format in Apache Iceberg. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide."]
module ReplicationRule =
  struct
    type nonrec t =
      {
      iD: ID.t option
        [@ocaml.doc
          "A unique identifier for the rule. The maximum value is 255 characters."];
      priority: Priority.t option
        [@ocaml.doc
          "The priority indicates which rule has precedence whenever two or more replication rules conflict. S3 on Outposts attempts to replicate objects according to all replication rules. However, if there are two or more rules with the same destination Outposts bucket, then objects will be replicated according to the rule with the highest priority. The higher the number, the higher the priority. For more information, see Creating replication rules on Outposts in the Amazon S3 User Guide."];
      prefix: Prefix.t option
        [@ocaml.doc
          "An object key name prefix that identifies the object or objects to which the rule applies. The maximum prefix length is 1,024 characters. To include all objects in an Outposts bucket, specify an empty string. When you're using XML requests, you must replace special characters (such as carriage returns) in object keys with their equivalent XML entity codes. For more information, see XML-related object key constraints in the Amazon S3 User Guide."];
      filter: ReplicationRuleFilter.t option
        [@ocaml.doc
          "A filter that identifies the subset of objects to which the replication rule applies. A Filter element must specify exactly one Prefix, Tag, or And child element."];
      status: ReplicationRuleStatus.t
        [@ocaml.doc "Specifies whether the rule is enabled."];
      sourceSelectionCriteria: SourceSelectionCriteria.t option
        [@ocaml.doc
          "A container that describes additional filters for identifying the source Outposts objects that you want to replicate. You can choose to enable or disable the replication of these objects."];
      existingObjectReplication: ExistingObjectReplication.t option
        [@ocaml.doc
          "An optional configuration to replicate existing source bucket objects. This is not supported by Amazon S3 on Outposts buckets."];
      destination: Destination.t
        [@ocaml.doc
          "A container for information about the replication destination and its configurations."];
      deleteMarkerReplication: DeleteMarkerReplication.t option
        [@ocaml.doc
          "Specifies whether S3 on Outposts replicates delete markers. If you specify a Filter element in your replication configuration, you must also include a DeleteMarkerReplication element. If your Filter includes a Tag element, the DeleteMarkerReplication element's Status child element must be set to Disabled, because S3 on Outposts doesn't support replicating delete markers for tag-based rules. For more information about delete marker replication, see How delete operations affect replication in the Amazon S3 User Guide."];
      bucket: BucketIdentifierString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the access point for the source Outposts bucket that you want S3 on Outposts to replicate the objects from."]}
    let context_ = "ReplicationRule"
    let make ?iD =
      fun ?priority ->
        fun ?prefix ->
          fun ?filter ->
            fun ?sourceSelectionCriteria ->
              fun ?existingObjectReplication ->
                fun ?deleteMarkerReplication ->
                  fun ~status ->
                    fun ~destination ->
                      fun ~bucket ->
                        fun () ->
                          {
                            iD;
                            priority;
                            prefix;
                            filter;
                            sourceSelectionCriteria;
                            existingObjectReplication;
                            deleteMarkerReplication;
                            status;
                            destination;
                            bucket
                          }
    let to_value x =
      structure_to_value
        [("ID", (Option.map x.iD ~f:ID.to_value));
        ("Priority", (Option.map x.priority ~f:Priority.to_value));
        ("Prefix", (Option.map x.prefix ~f:Prefix.to_value));
        ("Filter", (Option.map x.filter ~f:ReplicationRuleFilter.to_value));
        ("Status", (Some (ReplicationRuleStatus.to_value x.status)));
        ("SourceSelectionCriteria",
          (Option.map x.sourceSelectionCriteria
             ~f:SourceSelectionCriteria.to_value));
        ("ExistingObjectReplication",
          (Option.map x.existingObjectReplication
             ~f:ExistingObjectReplication.to_value));
        ("Destination", (Some (Destination.to_value x.destination)));
        ("DeleteMarkerReplication",
          (Option.map x.deleteMarkerReplication
             ~f:DeleteMarkerReplication.to_value));
        ("Bucket", (Some (BucketIdentifierString.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketIdentifierString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Bucket") in
      let deleteMarkerReplication =
        (Option.map ~f:DeleteMarkerReplication.of_xml)
          (Xml.child xml_arg0 "DeleteMarkerReplication") in
      let destination =
        Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      let existingObjectReplication =
        (Option.map ~f:ExistingObjectReplication.of_xml)
          (Xml.child xml_arg0 "ExistingObjectReplication") in
      let sourceSelectionCriteria =
        (Option.map ~f:SourceSelectionCriteria.of_xml)
          (Xml.child xml_arg0 "SourceSelectionCriteria") in
      let status =
        ReplicationRuleStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let filter =
        (Option.map ~f:ReplicationRuleFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "Prefix") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "Priority") in
      let iD = (Option.map ~f:ID.of_xml) (Xml.child xml_arg0 "ID") in
      make ~bucket ?deleteMarkerReplication ~destination
        ?existingObjectReplication ?sourceSelectionCriteria ~status ?filter
        ?prefix ?priority ?iD ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket =
        field_map_exn json__ "Bucket" BucketIdentifierString.of_json in
      let deleteMarkerReplication =
        field_map json__ "DeleteMarkerReplication"
          DeleteMarkerReplication.of_json in
      let destination =
        field_map_exn json__ "Destination" Destination.of_json in
      let existingObjectReplication =
        field_map json__ "ExistingObjectReplication"
          ExistingObjectReplication.of_json in
      let sourceSelectionCriteria =
        field_map json__ "SourceSelectionCriteria"
          SourceSelectionCriteria.of_json in
      let status =
        field_map_exn json__ "Status" ReplicationRuleStatus.of_json in
      let filter = field_map json__ "Filter" ReplicationRuleFilter.of_json in
      let prefix = field_map json__ "Prefix" Prefix.of_json in
      let priority = field_map json__ "Priority" Priority.of_json in
      let iD = field_map json__ "ID" ID.of_json in
      make ~bucket ?deleteMarkerReplication ~destination
        ?existingObjectReplication ?sourceSelectionCriteria ~status ?filter
        ?prefix ?priority ?iD ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies which S3 on Outposts objects to replicate and where to store the replicas."]
module LifecycleRule =
  struct
    type nonrec t =
      {
      expiration: LifecycleExpiration.t option
        [@ocaml.doc
          "Specifies the expiration for the lifecycle of the object in the form of date, days and, whether the object has a delete marker."];
      iD: ID.t option
        [@ocaml.doc
          "Unique identifier for the rule. The value cannot be longer than 255 characters."];
      filter: LifecycleRuleFilter.t option
        [@ocaml.doc "The container for the filter of lifecycle rule."];
      status: ExpirationStatus.t
        [@ocaml.doc
          "If 'Enabled', the rule is currently being applied. If 'Disabled', the rule is not currently being applied."];
      transitions: TransitionList.t option
        [@ocaml.doc
          "Specifies when an Amazon S3 object transitions to a specified storage class. This is not supported by Amazon S3 on Outposts buckets."];
      noncurrentVersionTransitions: NoncurrentVersionTransitionList.t option
        [@ocaml.doc
          "Specifies the transition rule for the lifecycle rule that describes when noncurrent objects transition to a specific storage class. If your bucket is versioning-enabled (or versioning is suspended), you can set this action to request that Amazon S3 transition noncurrent object versions to a specific storage class at a set period in the object's lifetime. This is not supported by Amazon S3 on Outposts buckets."];
      noncurrentVersionExpiration: NoncurrentVersionExpiration.t option
        [@ocaml.doc
          "The noncurrent version expiration of the lifecycle rule."];
      abortIncompleteMultipartUpload: AbortIncompleteMultipartUpload.t option
        [@ocaml.doc
          "Specifies the days since the initiation of an incomplete multipart upload that Amazon S3 waits before permanently removing all parts of the upload. For more information, see Aborting Incomplete Multipart Uploads Using a Bucket Lifecycle Configuration in the Amazon S3 User Guide."]}
    let context_ = "LifecycleRule"
    let make ?expiration =
      fun ?iD ->
        fun ?filter ->
          fun ?transitions ->
            fun ?noncurrentVersionTransitions ->
              fun ?noncurrentVersionExpiration ->
                fun ?abortIncompleteMultipartUpload ->
                  fun ~status ->
                    fun () ->
                      {
                        expiration;
                        iD;
                        filter;
                        transitions;
                        noncurrentVersionTransitions;
                        noncurrentVersionExpiration;
                        abortIncompleteMultipartUpload;
                        status
                      }
    let to_value x =
      structure_to_value
        [("Expiration",
           (Option.map x.expiration ~f:LifecycleExpiration.to_value));
        ("ID", (Option.map x.iD ~f:ID.to_value));
        ("Filter", (Option.map x.filter ~f:LifecycleRuleFilter.to_value));
        ("Status", (Some (ExpirationStatus.to_value x.status)));
        ("Transitions",
          (Option.map x.transitions ~f:TransitionList.to_value));
        ("NoncurrentVersionTransitions",
          (Option.map x.noncurrentVersionTransitions
             ~f:NoncurrentVersionTransitionList.to_value));
        ("NoncurrentVersionExpiration",
          (Option.map x.noncurrentVersionExpiration
             ~f:NoncurrentVersionExpiration.to_value));
        ("AbortIncompleteMultipartUpload",
          (Option.map x.abortIncompleteMultipartUpload
             ~f:AbortIncompleteMultipartUpload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let abortIncompleteMultipartUpload =
        (Option.map ~f:AbortIncompleteMultipartUpload.of_xml)
          (Xml.child xml_arg0 "AbortIncompleteMultipartUpload") in
      let noncurrentVersionExpiration =
        (Option.map ~f:NoncurrentVersionExpiration.of_xml)
          (Xml.child xml_arg0 "NoncurrentVersionExpiration") in
      let noncurrentVersionTransitions =
        (Option.map ~f:NoncurrentVersionTransitionList.of_xml)
          (Xml.child xml_arg0 "NoncurrentVersionTransitions") in
      let transitions =
        (Option.map ~f:TransitionList.of_xml)
          (Xml.child xml_arg0 "Transitions") in
      let status =
        ExpirationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let filter =
        (Option.map ~f:LifecycleRuleFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      let iD = (Option.map ~f:ID.of_xml) (Xml.child xml_arg0 "ID") in
      let expiration =
        (Option.map ~f:LifecycleExpiration.of_xml)
          (Xml.child xml_arg0 "Expiration") in
      make ?abortIncompleteMultipartUpload ?noncurrentVersionExpiration
        ?noncurrentVersionTransitions ?transitions ~status ?filter ?iD
        ?expiration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let abortIncompleteMultipartUpload =
        field_map json__ "AbortIncompleteMultipartUpload"
          AbortIncompleteMultipartUpload.of_json in
      let noncurrentVersionExpiration =
        field_map json__ "NoncurrentVersionExpiration"
          NoncurrentVersionExpiration.of_json in
      let noncurrentVersionTransitions =
        field_map json__ "NoncurrentVersionTransitions"
          NoncurrentVersionTransitionList.of_json in
      let transitions = field_map json__ "Transitions" TransitionList.of_json in
      let status = field_map_exn json__ "Status" ExpirationStatus.of_json in
      let filter = field_map json__ "Filter" LifecycleRuleFilter.of_json in
      let iD = field_map json__ "ID" ID.of_json in
      let expiration =
        field_map json__ "Expiration" LifecycleExpiration.of_json in
      make ?abortIncompleteMultipartUpload ?noncurrentVersionExpiration
        ?noncurrentVersionTransitions ?transitions ~status ?filter ?iD
        ?expiration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container for the Outposts bucket lifecycle rule."]
module ScopePermission =
  struct
    type nonrec t =
      | GetObject 
      | GetObjectAttributes 
      | ListMultipartUploadParts 
      | ListBucket 
      | ListBucketMultipartUploads 
      | PutObject 
      | DeleteObject 
      | AbortMultipartUpload 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GetObject -> "GetObject"
      | GetObjectAttributes -> "GetObjectAttributes"
      | ListMultipartUploadParts -> "ListMultipartUploadParts"
      | ListBucket -> "ListBucket"
      | ListBucketMultipartUploads -> "ListBucketMultipartUploads"
      | PutObject -> "PutObject"
      | DeleteObject -> "DeleteObject"
      | AbortMultipartUpload -> "AbortMultipartUpload"
      | Non_static_id s -> s
    let of_string =
      function
      | "GetObject" -> GetObject
      | "GetObjectAttributes" -> GetObjectAttributes
      | "ListMultipartUploadParts" -> ListMultipartUploadParts
      | "ListBucket" -> ListBucket
      | "ListBucketMultipartUploads" -> ListBucketMultipartUploads
      | "PutObject" -> PutObject
      | "DeleteObject" -> DeleteObject
      | "AbortMultipartUpload" -> AbortMultipartUpload
      | 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 ScopePermission" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ScopePermission" j)
    let to_json = simple_to_json to_value
  end
module ObjectLambdaAllowedFeature =
  struct
    type nonrec t =
      | GetObject_Range 
      | GetObject_PartNumber 
      | HeadObject_Range 
      | HeadObject_PartNumber 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GetObject_Range -> "GetObject-Range"
      | GetObject_PartNumber -> "GetObject-PartNumber"
      | HeadObject_Range -> "HeadObject-Range"
      | HeadObject_PartNumber -> "HeadObject-PartNumber"
      | Non_static_id s -> s
    let of_string =
      function
      | "GetObject-Range" -> GetObject_Range
      | "GetObject-PartNumber" -> GetObject_PartNumber
      | "HeadObject-Range" -> HeadObject_Range
      | "HeadObject-PartNumber" -> HeadObject_PartNumber
      | 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 ObjectLambdaAllowedFeature"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ObjectLambdaAllowedFeature" j)
    let to_json = simple_to_json to_value
  end
module ObjectLambdaTransformationConfiguration =
  struct
    type nonrec t =
      {
      actions: ObjectLambdaTransformationConfigurationActionsList.t
        [@ocaml.doc
          "A container for the action of an Object Lambda Access Point configuration. Valid inputs are GetObject, ListObjects, HeadObject, and ListObjectsV2."];
      contentTransformation: ObjectLambdaContentTransformation.t
        [@ocaml.doc
          "A container for the content transformation of an Object Lambda Access Point configuration."]}
    let context_ = "ObjectLambdaTransformationConfiguration"
    let make ~actions =
      fun ~contentTransformation ->
        fun () -> { actions; contentTransformation }
    let to_value x =
      structure_to_value
        [("Actions",
           (Some
              (ObjectLambdaTransformationConfigurationActionsList.to_value
                 x.actions)));
        ("ContentTransformation",
          (Some
             (ObjectLambdaContentTransformation.to_value
                x.contentTransformation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentTransformation =
        ObjectLambdaContentTransformation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContentTransformation") in
      let actions =
        ObjectLambdaTransformationConfigurationActionsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Actions") in
      make ~contentTransformation ~actions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentTransformation =
        field_map_exn json__ "ContentTransformation"
          ObjectLambdaContentTransformation.of_json in
      let actions =
        field_map_exn json__ "Actions"
          ObjectLambdaTransformationConfigurationActionsList.of_json in
      make ~contentTransformation ~actions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A configuration used when creating an Object Lambda Access Point transformation."]
module StorageLensGroupName =
  struct
    type nonrec t = string
    let context_ = "StorageLensGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-\\_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StorageLensGroupName" j
    let to_json = simple_to_json to_value
  end
module ConfigId =
  struct
    type nonrec t = string
    let context_ = "ConfigId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-\\_\\.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConfigId" j
    let to_json = simple_to_json to_value
  end
module StorageLensArn =
  struct
    type nonrec t = string
    let context_ = "StorageLensArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\-]+:s3:[a-z0-9\\-]+:\\d{12}:storage\\-lens\\/.*")));
        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:"StorageLensArn" j
    let to_json = simple_to_json to_value
  end
module CreationDate =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module PublicAccessBlockEnabled =
  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 S3RegionalBucketArn =
  struct
    type nonrec t = string
    let context_ = "S3RegionalBucketArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:4));
        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:"S3RegionalBucketArn" j
    let to_json = simple_to_json to_value
  end
module CreationTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module MultiRegionAccessPointAlias =
  struct
    type nonrec t = string
    let context_ = "MultiRegionAccessPointAlias"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_pattern i ~pattern:"^[a-z][a-z0-9]*[.]mrap$"));
        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:"MultiRegionAccessPointAlias" j
    let to_json = simple_to_json to_value
  end
module MultiRegionAccessPointStatus =
  struct
    type nonrec t =
      | READY 
      | INCONSISTENT_ACROSS_REGIONS 
      | CREATING 
      | PARTIALLY_CREATED 
      | PARTIALLY_DELETED 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READY -> "READY"
      | INCONSISTENT_ACROSS_REGIONS -> "INCONSISTENT_ACROSS_REGIONS"
      | CREATING -> "CREATING"
      | PARTIALLY_CREATED -> "PARTIALLY_CREATED"
      | PARTIALLY_DELETED -> "PARTIALLY_DELETED"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "READY" -> READY
      | "INCONSISTENT_ACROSS_REGIONS" -> INCONSISTENT_ACROSS_REGIONS
      | "CREATING" -> CREATING
      | "PARTIALLY_CREATED" -> PARTIALLY_CREATED
      | "PARTIALLY_DELETED" -> PARTIALLY_DELETED
      | "DELETING" -> DELETING
      | 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 MultiRegionAccessPointStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MultiRegionAccessPointStatus" j)
    let to_json = simple_to_json to_value
  end
module RegionReportList =
  struct
    type nonrec t = RegionReport.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:RegionReport.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:RegionReport.of_xml)
    let of_json j =
      list_of_json ~kind:"RegionReportList" ~of_json:RegionReport.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobCreationTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module JobId =
  struct
    type nonrec t = string
    let context_ = "JobId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-\\_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobId" j
    let to_json = simple_to_json to_value
  end
module JobPriority =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2147483647) >>=
             (fun () -> check_int_min i ~min:0));
        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 JobPriority" 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 JobProgressSummary =
  struct
    type nonrec t =
      {
      totalNumberOfTasks: JobTotalNumberOfTasks.t option ;
      numberOfTasksSucceeded: JobNumberOfTasksSucceeded.t option ;
      numberOfTasksFailed: JobNumberOfTasksFailed.t option ;
      timers: JobTimers.t option
        [@ocaml.doc "The JobTimers attribute of a job's progress summary."]}
    let make ?totalNumberOfTasks =
      fun ?numberOfTasksSucceeded ->
        fun ?numberOfTasksFailed ->
          fun ?timers ->
            fun () ->
              {
                totalNumberOfTasks;
                numberOfTasksSucceeded;
                numberOfTasksFailed;
                timers
              }
    let to_value x =
      structure_to_value
        [("TotalNumberOfTasks",
           (Option.map x.totalNumberOfTasks ~f:JobTotalNumberOfTasks.to_value));
        ("NumberOfTasksSucceeded",
          (Option.map x.numberOfTasksSucceeded
             ~f:JobNumberOfTasksSucceeded.to_value));
        ("NumberOfTasksFailed",
          (Option.map x.numberOfTasksFailed
             ~f:JobNumberOfTasksFailed.to_value));
        ("Timers", (Option.map x.timers ~f:JobTimers.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timers =
        (Option.map ~f:JobTimers.of_xml) (Xml.child xml_arg0 "Timers") in
      let numberOfTasksFailed =
        (Option.map ~f:JobNumberOfTasksFailed.of_xml)
          (Xml.child xml_arg0 "NumberOfTasksFailed") in
      let numberOfTasksSucceeded =
        (Option.map ~f:JobNumberOfTasksSucceeded.of_xml)
          (Xml.child xml_arg0 "NumberOfTasksSucceeded") in
      let totalNumberOfTasks =
        (Option.map ~f:JobTotalNumberOfTasks.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfTasks") in
      make ?timers ?numberOfTasksFailed ?numberOfTasksSucceeded
        ?totalNumberOfTasks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timers = field_map json__ "Timers" JobTimers.of_json in
      let numberOfTasksFailed =
        field_map json__ "NumberOfTasksFailed" JobNumberOfTasksFailed.of_json in
      let numberOfTasksSucceeded =
        field_map json__ "NumberOfTasksSucceeded"
          JobNumberOfTasksSucceeded.of_json in
      let totalNumberOfTasks =
        field_map json__ "TotalNumberOfTasks" JobTotalNumberOfTasks.of_json in
      make ?timers ?numberOfTasksFailed ?numberOfTasksSucceeded
        ?totalNumberOfTasks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the total number of tasks that the specified job has started, the number of tasks that succeeded, and the number of tasks that failed."]
module JobStatus =
  struct
    type nonrec t =
      | Active 
      | Cancelled 
      | Cancelling 
      | Complete 
      | Completing 
      | Failed 
      | Failing 
      | New 
      | Paused 
      | Pausing 
      | Preparing 
      | Ready 
      | Suspended 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Cancelled -> "Cancelled"
      | Cancelling -> "Cancelling"
      | Complete -> "Complete"
      | Completing -> "Completing"
      | Failed -> "Failed"
      | Failing -> "Failing"
      | New -> "New"
      | Paused -> "Paused"
      | Pausing -> "Pausing"
      | Preparing -> "Preparing"
      | Ready -> "Ready"
      | Suspended -> "Suspended"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Cancelled" -> Cancelled
      | "Cancelling" -> Cancelling
      | "Complete" -> Complete
      | "Completing" -> Completing
      | "Failed" -> Failed
      | "Failing" -> Failing
      | "New" -> New
      | "Paused" -> Paused
      | "Pausing" -> Pausing
      | "Preparing" -> Preparing
      | "Ready" -> Ready
      | "Suspended" -> Suspended
      | 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 JobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobStatus" j)
    let to_json = simple_to_json to_value
  end
module JobTerminationDate =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module NonEmptyMaxLength256String =
  struct
    type nonrec t = string
    let context_ = "NonEmptyMaxLength256String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyMaxLength256String" j
    let to_json = simple_to_json to_value
  end
module OperationName =
  struct
    type nonrec t =
      | LambdaInvoke 
      | S3PutObjectCopy 
      | S3PutObjectAcl 
      | S3PutObjectTagging 
      | S3DeleteObjectTagging 
      | S3InitiateRestoreObject 
      | S3PutObjectLegalHold 
      | S3PutObjectRetention 
      | S3ReplicateObject 
      | S3ComputeObjectChecksum 
      | S3UpdateObjectEncryption 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LambdaInvoke -> "LambdaInvoke"
      | S3PutObjectCopy -> "S3PutObjectCopy"
      | S3PutObjectAcl -> "S3PutObjectAcl"
      | S3PutObjectTagging -> "S3PutObjectTagging"
      | S3DeleteObjectTagging -> "S3DeleteObjectTagging"
      | S3InitiateRestoreObject -> "S3InitiateRestoreObject"
      | S3PutObjectLegalHold -> "S3PutObjectLegalHold"
      | S3PutObjectRetention -> "S3PutObjectRetention"
      | S3ReplicateObject -> "S3ReplicateObject"
      | S3ComputeObjectChecksum -> "S3ComputeObjectChecksum"
      | S3UpdateObjectEncryption -> "S3UpdateObjectEncryption"
      | Non_static_id s -> s
    let of_string =
      function
      | "LambdaInvoke" -> LambdaInvoke
      | "S3PutObjectCopy" -> S3PutObjectCopy
      | "S3PutObjectAcl" -> S3PutObjectAcl
      | "S3PutObjectTagging" -> S3PutObjectTagging
      | "S3DeleteObjectTagging" -> S3DeleteObjectTagging
      | "S3InitiateRestoreObject" -> S3InitiateRestoreObject
      | "S3PutObjectLegalHold" -> S3PutObjectLegalHold
      | "S3PutObjectRetention" -> S3PutObjectRetention
      | "S3ReplicateObject" -> S3ReplicateObject
      | "S3ComputeObjectChecksum" -> S3ComputeObjectChecksum
      | "S3UpdateObjectEncryption" -> S3UpdateObjectEncryption
      | 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 OperationName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationName" j)
    let to_json = simple_to_json to_value
  end
module IdentityCenterApplicationArn =
  struct
    type nonrec t = string
    let context_ = "IdentityCenterApplicationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[^:]+:sso::\\d{12}:application/.*$")));
        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:"IdentityCenterApplicationArn" j
    let to_json = simple_to_json to_value
  end
module Permission =
  struct
    type nonrec t =
      | READ 
      | WRITE 
      | READWRITE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READ -> "READ"
      | WRITE -> "WRITE"
      | READWRITE -> "READWRITE"
      | Non_static_id s -> s
    let of_string =
      function
      | "READ" -> READ
      | "WRITE" -> WRITE
      | "READWRITE" -> READWRITE
      | 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 AccessPointBucketName =
  struct
    type nonrec t = string
    let context_ = "AccessPointBucketName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"AccessPointBucketName" j
    let to_json = simple_to_json to_value
  end
module AccessPointName =
  struct
    type nonrec t = string
    let context_ = "AccessPointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessPointName" j
    let to_json = simple_to_json to_value
  end
module Alias =
  struct
    type nonrec t = string
    let context_ = "Alias"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_pattern i ~pattern:"^[0-9a-z\\\\-]{63}"));
        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:"Alias" j
    let to_json = simple_to_json to_value
  end
module DataSourceId =
  struct
    type nonrec t = string
    let context_ = "DataSourceId"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:191); 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:"DataSourceId" j
    let to_json = simple_to_json to_value
  end
module DataSourceType =
  struct
    type nonrec t = string
    let context_ = "DataSourceType"
    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:"DataSourceType" j
    let to_json = simple_to_json to_value
  end
module NetworkOrigin =
  struct
    type nonrec t =
      | Internet 
      | VPC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Internet -> "Internet" | VPC -> "VPC" | Non_static_id s -> s
    let of_string =
      function | "Internet" -> Internet | "VPC" -> VPC | 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 NetworkOrigin" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NetworkOrigin" j)
    let to_json = simple_to_json to_value
  end
module S3AccessPointArn =
  struct
    type nonrec t = string
    let context_ = "S3AccessPointArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:4));
        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:"S3AccessPointArn" j
    let to_json = simple_to_json to_value
  end
module VpcConfiguration =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t
        [@ocaml.doc
          "If this field is specified, this access point will only allow connections from the specified VPC ID."]}
    let context_ = "VpcConfiguration"
    let make ~vpcId = fun () -> { vpcId }
    let to_value x =
      structure_to_value [("VpcId", (Some (VpcId.to_value x.vpcId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VpcId") in
      make ~vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcId = field_map_exn json__ "VpcId" VpcId.of_json in
      make ~vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The virtual private cloud (VPC) configuration for an access point."]
module ObjectLambdaAccessPointAlias =
  struct
    type nonrec t =
      {
      value: ObjectLambdaAccessPointAliasValue.t option
        [@ocaml.doc "The alias value of the Object Lambda Access Point."];
      status: ObjectLambdaAccessPointAliasStatus.t option
        [@ocaml.doc
          "The status of the Object Lambda Access Point alias. If the status is PROVISIONING, the Object Lambda Access Point is provisioning the alias and the alias is not ready for use yet. If the status is READY, the Object Lambda Access Point alias is successfully provisioned and ready for use."]}
    let make ?value = fun ?status -> fun () -> { value; status }
    let to_value x =
      structure_to_value
        [("Value",
           (Option.map x.value ~f:ObjectLambdaAccessPointAliasValue.to_value));
        ("Status",
          (Option.map x.status ~f:ObjectLambdaAccessPointAliasStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ObjectLambdaAccessPointAliasStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let value =
        (Option.map ~f:ObjectLambdaAccessPointAliasValue.of_xml)
          (Xml.child xml_arg0 "Value") in
      make ?status ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "Status" ObjectLambdaAccessPointAliasStatus.of_json in
      let value =
        field_map json__ "Value" ObjectLambdaAccessPointAliasValue.of_json in
      make ?status ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The alias of an Object Lambda Access Point. For more information, see How to use a bucket-style alias for your S3 bucket Object Lambda Access Point."]
module ObjectLambdaAccessPointArn =
  struct
    type nonrec t = string
    let context_ = "ObjectLambdaAccessPointArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[^:]+:s3-object-lambda:[^:]*:\\d{12}:accesspoint/.*")));
        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:"ObjectLambdaAccessPointArn" j
    let to_json = simple_to_json to_value
  end
module ObjectLambdaAccessPointName =
  struct
    type nonrec t = string
    let context_ = "ObjectLambdaAccessPointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:45) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-z0-9]([a-z0-9\\-]*[a-z0-9])?$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ObjectLambdaAccessPointName" j
    let to_json = simple_to_json to_value
  end
module AccessGrantArn =
  struct
    type nonrec t = string
    let context_ = "AccessGrantArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\-]+:s3:[a-z0-9\\-]+:\\d{12}:access\\-grants\\/grant/[a-zA-Z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessGrantArn" j
    let to_json = simple_to_json to_value
  end
module AccessGrantId =
  struct
    type nonrec t = string
    let context_ = "AccessGrantId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessGrantId" j
    let to_json = simple_to_json to_value
  end
module AccessGrantsLocationConfiguration =
  struct
    type nonrec t =
      {
      s3SubPrefix: S3Prefix.t option
        [@ocaml.doc
          "The S3SubPrefix is appended to the location scope creating the grant scope. Use this field to narrow the scope of the grant to a subset of the location scope. This field is required if the location scope is the default location s3:// because you cannot create a grant for all of your S3 data in the Region and must narrow the scope. For example, if the location scope is the default location s3://, the S3SubPrefx can be a <bucket-name>/*, so the full grant scope path would be s3://<bucket-name>/*. Or the S3SubPrefx can be <bucket-name>/<prefix-name>*, so the full grant scope path would be or s3://<bucket-name>/<prefix-name>*. If the S3SubPrefix includes a prefix, append the wildcard character * after the prefix to indicate that you want to include all object key names in the bucket that start with that prefix."]}
    let make ?s3SubPrefix = fun () -> { s3SubPrefix }
    let to_value x =
      structure_to_value
        [("S3SubPrefix", (Option.map x.s3SubPrefix ~f:S3Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3SubPrefix =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "S3SubPrefix") in
      make ?s3SubPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3SubPrefix = field_map json__ "S3SubPrefix" S3Prefix.of_json in
      make ?s3SubPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration options of the S3 Access Grants location. It contains the S3SubPrefix field. The grant scope, the data to which you are granting access, is the result of appending the Subprefix field to the scope of the registered location."]
module AccessGrantsLocationId =
  struct
    type nonrec t = string
    let context_ = "AccessGrantsLocationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessGrantsLocationId" j
    let to_json = simple_to_json to_value
  end
module Grantee =
  struct
    type nonrec t =
      {
      granteeType: GranteeType.t option
        [@ocaml.doc
          "The type of the grantee to which access has been granted. It can be one of the following values: IAM - An IAM user or role. DIRECTORY_USER - Your corporate directory user. You can use this option if you have added your corporate identity directory to IAM Identity Center and associated the IAM Identity Center instance with your S3 Access Grants instance. DIRECTORY_GROUP - Your corporate directory group. You can use this option if you have added your corporate identity directory to IAM Identity Center and associated the IAM Identity Center instance with your S3 Access Grants instance."];
      granteeIdentifier: GranteeIdentifier.t option
        [@ocaml.doc
          "The unique identifier of the Grantee. If the grantee type is IAM, the identifier is the IAM Amazon Resource Name (ARN) of the user or role. If the grantee type is a directory user or group, the identifier is 128-bit universally unique identifier (UUID) in the format a1b2c3d4-5678-90ab-cdef-EXAMPLE11111. You can obtain this UUID from your Amazon Web Services IAM Identity Center instance."]}
    let make ?granteeType =
      fun ?granteeIdentifier -> fun () -> { granteeType; granteeIdentifier }
    let to_value x =
      structure_to_value
        [("GranteeType", (Option.map x.granteeType ~f:GranteeType.to_value));
        ("GranteeIdentifier",
          (Option.map x.granteeIdentifier ~f:GranteeIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let granteeIdentifier =
        (Option.map ~f:GranteeIdentifier.of_xml)
          (Xml.child xml_arg0 "GranteeIdentifier") in
      let granteeType =
        (Option.map ~f:GranteeType.of_xml) (Xml.child xml_arg0 "GranteeType") in
      make ?granteeIdentifier ?granteeType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let granteeIdentifier =
        field_map json__ "GranteeIdentifier" GranteeIdentifier.of_json in
      let granteeType = field_map json__ "GranteeType" GranteeType.of_json in
      make ?granteeIdentifier ?granteeType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user, group, or role to which you are granting access. You can grant access to an IAM user or role. If you have added your corporate directory to Amazon Web Services IAM Identity Center and associated your Identity Center instance with your S3 Access Grants instance, the grantee can also be a corporate directory user or group."]
module AccessGrantsLocationArn =
  struct
    type nonrec t = string
    let context_ = "AccessGrantsLocationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\-]+:s3:[a-z0-9\\-]+:\\d{12}:access\\-grants\\/location/[a-zA-Z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessGrantsLocationArn" j
    let to_json = simple_to_json to_value
  end
module IAMRoleArn =
  struct
    type nonrec t = string
    let context_ = "IAMRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[^:]+:iam::\\d{12}:role/.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IAMRoleArn" j
    let to_json = simple_to_json to_value
  end
module AccessGrantsInstanceArn =
  struct
    type nonrec t = string
    let context_ = "AccessGrantsInstanceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z\\-]+:s3:[a-z0-9\\-]+:\\d{12}:access\\-grants\\/[a-zA-Z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessGrantsInstanceArn" j
    let to_json = simple_to_json to_value
  end
module AccessGrantsInstanceId =
  struct
    type nonrec t = string
    let context_ = "AccessGrantsInstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessGrantsInstanceId" j
    let to_json = simple_to_json to_value
  end
module IdentityCenterArn =
  struct
    type nonrec t = string
    let context_ = "IdentityCenterArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[^:]+:sso::(\\d{12}){0,1}:instance/.*$")));
        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:"IdentityCenterArn" j
    let to_json = simple_to_json to_value
  end
module CreateMultiRegionAccessPointInput =
  struct
    type nonrec t =
      {
      name: MultiRegionAccessPointName.t
        [@ocaml.doc
          "The name of the Multi-Region Access Point associated with this request."];
      publicAccessBlock: PublicAccessBlockConfiguration.t option ;
      regions: RegionCreationList.t
        [@ocaml.doc
          "The buckets in different Regions that are associated with the Multi-Region Access Point."]}
    let context_ = "CreateMultiRegionAccessPointInput"
    let make ?publicAccessBlock =
      fun ~name ->
        fun ~regions -> fun () -> { publicAccessBlock; name; regions }
    let to_value x =
      structure_to_value
        [("Name", (Some (MultiRegionAccessPointName.to_value x.name)));
        ("PublicAccessBlock",
          (Option.map x.publicAccessBlock
             ~f:PublicAccessBlockConfiguration.to_value));
        ("Regions", (Some (RegionCreationList.to_value x.regions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        RegionCreationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Regions") in
      let publicAccessBlock =
        (Option.map ~f:PublicAccessBlockConfiguration.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlock") in
      let name =
        MultiRegionAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~regions ?publicAccessBlock ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map_exn json__ "Regions" RegionCreationList.of_json in
      let publicAccessBlock =
        field_map json__ "PublicAccessBlock"
          PublicAccessBlockConfiguration.of_json in
      let name =
        field_map_exn json__ "Name" MultiRegionAccessPointName.of_json in
      make ~regions ?publicAccessBlock ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the information associated with a CreateMultiRegionAccessPoint request."]
module DeleteMultiRegionAccessPointInput =
  struct
    type nonrec t =
      {
      name: MultiRegionAccessPointName.t
        [@ocaml.doc
          "The name of the Multi-Region Access Point associated with this request."]}
    let context_ = "DeleteMultiRegionAccessPointInput"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Some (MultiRegionAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        MultiRegionAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" MultiRegionAccessPointName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the information associated with a DeleteMultiRegionAccessPoint request."]
module PutMultiRegionAccessPointPolicyInput =
  struct
    type nonrec t =
      {
      name: MultiRegionAccessPointName.t
        [@ocaml.doc
          "The name of the Multi-Region Access Point associated with the request."];
      policy: Policy.t
        [@ocaml.doc
          "The policy details for the PutMultiRegionAccessPoint request."]}
    let context_ = "PutMultiRegionAccessPointPolicyInput"
    let make ~name = fun ~policy -> fun () -> { name; policy }
    let to_value x =
      structure_to_value
        [("Name", (Some (MultiRegionAccessPointName.to_value x.name)));
        ("Policy", (Some (Policy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let name =
        MultiRegionAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~policy ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let name =
        field_map_exn json__ "Name" MultiRegionAccessPointName.of_json in
      make ~policy ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the information associated with a PutMultiRegionAccessPoint request."]
module AsyncErrorDetails =
  struct
    type nonrec t =
      {
      code: MaxLength1024String.t option
        [@ocaml.doc "A string that uniquely identifies the error condition."];
      message: MaxLength1024String.t option
        [@ocaml.doc
          "A generic description of the error condition in English."];
      resource: MaxLength1024String.t option
        [@ocaml.doc
          "The identifier of the resource associated with the error."];
      requestId: MaxLength1024String.t option
        [@ocaml.doc "The ID of the request associated with the error."]}
    let make ?code =
      fun ?message ->
        fun ?resource ->
          fun ?requestId -> fun () -> { code; message; resource; requestId }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:MaxLength1024String.to_value));
        ("Message", (Option.map x.message ~f:MaxLength1024String.to_value));
        ("Resource", (Option.map x.resource ~f:MaxLength1024String.to_value));
        ("RequestId",
          (Option.map x.requestId ~f:MaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:MaxLength1024String.of_xml)
          (Xml.child xml_arg0 "RequestId") in
      let resource =
        (Option.map ~f:MaxLength1024String.of_xml)
          (Xml.child xml_arg0 "Resource") in
      let message =
        (Option.map ~f:MaxLength1024String.of_xml)
          (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:MaxLength1024String.of_xml)
          (Xml.child xml_arg0 "Code") in
      make ?requestId ?resource ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId =
        field_map json__ "RequestId" MaxLength1024String.of_json in
      let resource = field_map json__ "Resource" MaxLength1024String.of_json in
      let message = field_map json__ "Message" MaxLength1024String.of_json in
      let code = field_map json__ "Code" MaxLength1024String.of_json in
      make ?requestId ?resource ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error details for the failed asynchronous operation."]
module MultiRegionAccessPointsAsyncResponse =
  struct
    type nonrec t =
      {
      regions: MultiRegionAccessPointRegionalResponseList.t option
        [@ocaml.doc
          "A collection of status information for the different Regions that a Multi-Region Access Point supports."]}
    let make ?regions = fun () -> { regions }
    let to_value x =
      structure_to_value
        [("Regions",
           (Option.map x.regions
              ~f:MultiRegionAccessPointRegionalResponseList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:MultiRegionAccessPointRegionalResponseList.of_xml)
          (Xml.child xml_arg0 "Regions") in
      make ?regions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions =
        field_map json__ "Regions"
          MultiRegionAccessPointRegionalResponseList.of_json in
      make ?regions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Multi-Region Access Point details that are returned when querying about an asynchronous request."]
module JobFailure =
  struct
    type nonrec t =
      {
      failureCode: JobFailureCode.t option
        [@ocaml.doc "The failure code, if any, for the specified job."];
      failureReason: JobFailureReason.t option
        [@ocaml.doc "The failure reason, if any, for the specified job."]}
    let make ?failureCode =
      fun ?failureReason -> fun () -> { failureCode; failureReason }
    let to_value x =
      structure_to_value
        [("FailureCode",
           (Option.map x.failureCode ~f:JobFailureCode.to_value));
        ("FailureReason",
          (Option.map x.failureReason ~f:JobFailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureReason =
        (Option.map ~f:JobFailureReason.of_xml)
          (Xml.child xml_arg0 "FailureReason") in
      let failureCode =
        (Option.map ~f:JobFailureCode.of_xml)
          (Xml.child xml_arg0 "FailureCode") in
      make ?failureReason ?failureCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureReason =
        field_map json__ "FailureReason" JobFailureReason.of_json in
      let failureCode = field_map json__ "FailureCode" JobFailureCode.of_json in
      make ?failureReason ?failureCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If this job failed, this element indicates why the job failed."]
module JobManifestLocation =
  struct
    type nonrec t =
      {
      objectArn: S3KeyArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a manifest object. When you're using XML requests, you must replace special characters (such as carriage returns) in object keys with their equivalent XML entity codes. For more information, see XML-related object key constraints in the Amazon S3 User Guide."];
      objectVersionId: S3ObjectVersionId.t option
        [@ocaml.doc
          "The optional version ID to identify a specific version of the manifest object."];
      eTag: NonEmptyMaxLength1024String.t
        [@ocaml.doc "The ETag for the specified manifest object."]}
    let context_ = "JobManifestLocation"
    let make ?objectVersionId =
      fun ~objectArn ->
        fun ~eTag -> fun () -> { objectVersionId; objectArn; eTag }
    let to_value x =
      structure_to_value
        [("ObjectArn", (Some (S3KeyArnString.to_value x.objectArn)));
        ("ObjectVersionId",
          (Option.map x.objectVersionId ~f:S3ObjectVersionId.to_value));
        ("ETag", (Some (NonEmptyMaxLength1024String.to_value x.eTag)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eTag =
        NonEmptyMaxLength1024String.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ETag") in
      let objectVersionId =
        (Option.map ~f:S3ObjectVersionId.of_xml)
          (Xml.child xml_arg0 "ObjectVersionId") in
      let objectArn =
        S3KeyArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectArn") in
      make ~eTag ?objectVersionId ~objectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eTag =
        field_map_exn json__ "ETag" NonEmptyMaxLength1024String.of_json in
      let objectVersionId =
        field_map json__ "ObjectVersionId" S3ObjectVersionId.of_json in
      let objectArn = field_map_exn json__ "ObjectArn" S3KeyArnString.of_json in
      make ~eTag ?objectVersionId ~objectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the information required to locate a manifest object. Manifests can't be imported from directory buckets. For more information, see Directory buckets."]
module JobManifestSpec =
  struct
    type nonrec t =
      {
      format: JobManifestFormat.t
        [@ocaml.doc
          "Indicates which of the available formats the specified manifest uses."];
      fields: JobManifestFieldList.t option
        [@ocaml.doc
          "If the specified manifest object is in the S3BatchOperations_CSV_20180820 format, this element describes which columns contain the required data."]}
    let context_ = "JobManifestSpec"
    let make ?fields = fun ~format -> fun () -> { fields; format }
    let to_value x =
      structure_to_value
        [("Format", (Some (JobManifestFormat.to_value x.format)));
        ("Fields", (Option.map x.fields ~f:JobManifestFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:JobManifestFieldList.of_xml)
          (Xml.child xml_arg0 "Fields") in
      let format =
        JobManifestFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Format") in
      make ?fields ~format ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map json__ "Fields" JobManifestFieldList.of_json in
      let format = field_map_exn json__ "Format" JobManifestFormat.of_json in
      make ?fields ~format ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the format of a manifest. If the manifest is in CSV format, also describes the columns contained within the manifest."]
module S3JobManifestGenerator =
  struct
    type nonrec t =
      {
      expectedBucketOwner: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the bucket the generated manifest is written to. If provided the generated manifest bucket's owner Amazon Web Services account ID must match this value, else the job fails."];
      sourceBucket: S3BucketArnString.t
        [@ocaml.doc
          "The ARN of the source bucket used by the ManifestGenerator. Directory buckets - Directory buckets aren't supported as the source buckets used by S3JobManifestGenerator to generate the job manifest."];
      manifestOutputLocation: S3ManifestOutputLocation.t option
        [@ocaml.doc
          "Specifies the location the generated manifest will be written to. Manifests can't be written to directory buckets. For more information, see Directory buckets."];
      filter: JobManifestGeneratorFilter.t option
        [@ocaml.doc
          "Specifies rules the S3JobManifestGenerator should use to decide whether an object in the source bucket should or should not be included in the generated job manifest."];
      enableManifestOutput: Boolean.t
        [@ocaml.doc
          "Determines whether or not to write the job's generated manifest to a bucket."]}
    let context_ = "S3JobManifestGenerator"
    let make ?expectedBucketOwner =
      fun ?manifestOutputLocation ->
        fun ?filter ->
          fun ~sourceBucket ->
            fun ~enableManifestOutput ->
              fun () ->
                {
                  expectedBucketOwner;
                  manifestOutputLocation;
                  filter;
                  sourceBucket;
                  enableManifestOutput
                }
    let to_value x =
      structure_to_value
        [("ExpectedBucketOwner",
           (Option.map x.expectedBucketOwner ~f:AccountId.to_value));
        ("SourceBucket", (Some (S3BucketArnString.to_value x.sourceBucket)));
        ("ManifestOutputLocation",
          (Option.map x.manifestOutputLocation
             ~f:S3ManifestOutputLocation.to_value));
        ("Filter",
          (Option.map x.filter ~f:JobManifestGeneratorFilter.to_value));
        ("EnableManifestOutput",
          (Some (Boolean.to_value x.enableManifestOutput)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableManifestOutput =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EnableManifestOutput") in
      let filter =
        (Option.map ~f:JobManifestGeneratorFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      let manifestOutputLocation =
        (Option.map ~f:S3ManifestOutputLocation.of_xml)
          (Xml.child xml_arg0 "ManifestOutputLocation") in
      let sourceBucket =
        S3BucketArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceBucket") in
      let expectedBucketOwner =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ExpectedBucketOwner") in
      make ~enableManifestOutput ?filter ?manifestOutputLocation
        ~sourceBucket ?expectedBucketOwner ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableManifestOutput =
        field_map_exn json__ "EnableManifestOutput" Boolean.of_json in
      let filter =
        field_map json__ "Filter" JobManifestGeneratorFilter.of_json in
      let manifestOutputLocation =
        field_map json__ "ManifestOutputLocation"
          S3ManifestOutputLocation.of_json in
      let sourceBucket =
        field_map_exn json__ "SourceBucket" S3BucketArnString.of_json in
      let expectedBucketOwner =
        field_map json__ "ExpectedBucketOwner" AccountId.of_json in
      make ~enableManifestOutput ?filter ?manifestOutputLocation
        ~sourceBucket ?expectedBucketOwner ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container for the service that will create the S3 manifest."]
module LambdaInvokeOperation =
  struct
    type nonrec t =
      {
      functionArn: FunctionArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the Lambda function that the specified job will invoke on every object in the manifest."];
      invocationSchemaVersion: NonEmptyMaxLength64String.t option
        [@ocaml.doc
          "Specifies the schema version for the payload that Batch Operations sends when invoking an Lambda function. Version 1.0 is the default. Version 2.0 is required when you use Batch Operations to invoke Lambda functions that act on directory buckets, or if you need to specify UserArguments. For more information, see Automate object processing in Amazon S3 directory buckets with S3 Batch Operations and Lambda in the Amazon Web Services Storage Blog. Ensure that your Lambda function code expects InvocationSchemaVersion 2.0 and uses bucket name rather than bucket ARN. If the InvocationSchemaVersion does not match what your Lambda function expects, your function might not work as expected. Directory buckets - To initiate Amazon Web Services Lambda function to perform custom actions on objects in directory buckets, you must specify 2.0."];
      userArguments: UserArguments.t option
        [@ocaml.doc
          "Key-value pairs that are passed in the payload that Batch Operations sends when invoking an Lambda function. You must specify InvocationSchemaVersion 2.0 for LambdaInvoke operations that include UserArguments. For more information, see Automate object processing in Amazon S3 directory buckets with S3 Batch Operations and Lambda in the Amazon Web Services Storage Blog."]}
    let make ?functionArn =
      fun ?invocationSchemaVersion ->
        fun ?userArguments ->
          fun () -> { functionArn; invocationSchemaVersion; userArguments }
    let to_value x =
      structure_to_value
        [("FunctionArn",
           (Option.map x.functionArn ~f:FunctionArnString.to_value));
        ("InvocationSchemaVersion",
          (Option.map x.invocationSchemaVersion
             ~f:NonEmptyMaxLength64String.to_value));
        ("UserArguments",
          (Option.map x.userArguments ~f:UserArguments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userArguments =
        (Option.map ~f:UserArguments.of_xml)
          (Xml.child xml_arg0 "UserArguments") in
      let invocationSchemaVersion =
        (Option.map ~f:NonEmptyMaxLength64String.of_xml)
          (Xml.child xml_arg0 "InvocationSchemaVersion") in
      let functionArn =
        (Option.map ~f:FunctionArnString.of_xml)
          (Xml.child xml_arg0 "FunctionArn") in
      make ?userArguments ?invocationSchemaVersion ?functionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userArguments =
        field_map json__ "UserArguments" UserArguments.of_json in
      let invocationSchemaVersion =
        field_map json__ "InvocationSchemaVersion"
          NonEmptyMaxLength64String.of_json in
      let functionArn =
        field_map json__ "FunctionArn" FunctionArnString.of_json in
      make ?userArguments ?invocationSchemaVersion ?functionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for a Lambda Invoke operation."]
module S3ComputeObjectChecksumOperation =
  struct
    type nonrec t =
      {
      checksumAlgorithm: ComputeObjectChecksumAlgorithm.t option
        [@ocaml.doc
          "Indicates the algorithm that you want Amazon S3 to use to create the checksum. For more information, see Checking object integrity in the Amazon S3 User Guide."];
      checksumType: ComputeObjectChecksumType.t option
        [@ocaml.doc
          "Indicates the checksum type that you want Amazon S3 to use to calculate the object's checksum value. For more information, see Checking object integrity in the Amazon S3 User Guide."]}
    let make ?checksumAlgorithm =
      fun ?checksumType -> fun () -> { checksumAlgorithm; checksumType }
    let to_value x =
      structure_to_value
        [("ChecksumAlgorithm",
           (Option.map x.checksumAlgorithm
              ~f:ComputeObjectChecksumAlgorithm.to_value));
        ("ChecksumType",
          (Option.map x.checksumType ~f:ComputeObjectChecksumType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checksumType =
        (Option.map ~f:ComputeObjectChecksumType.of_xml)
          (Xml.child xml_arg0 "ChecksumType") in
      let checksumAlgorithm =
        (Option.map ~f:ComputeObjectChecksumAlgorithm.of_xml)
          (Xml.child xml_arg0 "ChecksumAlgorithm") in
      make ?checksumType ?checksumAlgorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checksumType =
        field_map json__ "ChecksumType" ComputeObjectChecksumType.of_json in
      let checksumAlgorithm =
        field_map json__ "ChecksumAlgorithm"
          ComputeObjectChecksumAlgorithm.of_json in
      make ?checksumType ?checksumAlgorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Directs the specified job to invoke the ComputeObjectChecksum operation on every object listed in the job's manifest."]
module S3CopyObjectOperation =
  struct
    type nonrec t =
      {
      targetResource: S3RegionalOrS3ExpressBucketArnString.t option
        [@ocaml.doc
          "Specifies the destination bucket Amazon Resource Name (ARN) for the batch copy operation. General purpose buckets - For example, to copy objects to a general purpose bucket named destinationBucket, set the TargetResource property to arn:aws:s3:::destinationBucket. Directory buckets - For example, to copy objects to a directory bucket named destinationBucket in the Availability Zone identified by the AZ ID usw2-az1, set the TargetResource property to arn:aws:s3express:region:account_id:/bucket/destination_bucket_base_name--usw2-az1--x-s3. A directory bucket as a destination bucket can be in Availability Zone or Local Zone. Copying objects across different Amazon Web Services Regions isn't supported when the source or destination bucket is in Amazon Web Services Local Zones. The source and destination buckets must have the same parent Amazon Web Services Region. Otherwise, you get an HTTP 400 Bad Request error with the error code InvalidRequest."];
      cannedAccessControlList: S3CannedAccessControlList.t option
        [@ocaml.doc
          "This functionality is not supported by directory buckets."];
      accessControlGrants: S3GrantList.t option
        [@ocaml.doc
          "This functionality is not supported by directory buckets."];
      metadataDirective: S3MetadataDirective.t option ;
      modifiedSinceConstraint: TimeStamp.t option ;
      newObjectMetadata: S3ObjectMetadata.t option
        [@ocaml.doc
          "If you don't provide this parameter, Amazon S3 copies all the metadata from the original objects. If you specify an empty set, the new objects will have no tags. Otherwise, Amazon S3 assigns the supplied tags to the new objects."];
      newObjectTagging: S3TagSet.t option
        [@ocaml.doc
          "Specifies a list of tags to add to the destination objects after they are copied. If NewObjectTagging is not specified, the tags of the source objects are copied to destination objects by default. Directory buckets - Tags aren't supported by directory buckets. If your source objects have tags and your destination bucket is a directory bucket, specify an empty tag set in the NewObjectTagging field to prevent copying the source object tags to the directory bucket."];
      redirectLocation: NonEmptyMaxLength2048String.t option
        [@ocaml.doc
          "If the destination bucket is configured as a website, specifies an optional metadata property for website redirects, x-amz-website-redirect-location. Allows webpage redirects if the object copy is accessed through a website endpoint. This functionality is not supported by directory buckets."];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "This functionality is not supported by directory buckets."];
      storageClass: S3StorageClass.t option
        [@ocaml.doc
          "Specify the storage class for the destination objects in a Copy operation. Directory buckets - This functionality is not supported by directory buckets."];
      unModifiedSinceConstraint: TimeStamp.t option ;
      sSEAwsKmsKeyId: KmsKeyArnString.t option
        [@ocaml.doc
          "Specifies the KMS key ID (Key ID, Key ARN, or Key Alias) to use for object encryption. If the KMS key doesn't exist in the same account that's issuing the command, you must use the full Key ARN not the Key ID. Directory buckets - If you specify SSEAlgorithm with KMS, you must specify the SSEAwsKmsKeyId parameter with the ID (Key ID or Key ARN) of the KMS symmetric encryption customer managed key to use. Otherwise, you get an HTTP 400 Bad Request error. The key alias format of the KMS key isn't supported. To encrypt new object copies in a directory bucket with SSE-KMS, you must specify SSE-KMS as the directory bucket's default encryption configuration with a KMS key (specifically, a customer managed key). The Amazon Web Services managed key (aws/s3) isn't supported. Your SSE-KMS configuration can only support 1 customer managed key per directory bucket for the lifetime of the bucket. After you specify a customer managed key for SSE-KMS as the bucket default encryption, you can't override the customer managed key for the bucket's SSE-KMS configuration. Then, when you specify server-side encryption settings for new object copies with SSE-KMS, you must make sure the encryption key is the same customer managed key that you specified for the directory bucket's default encryption configuration."];
      targetKeyPrefix: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "Specifies the folder prefix that you want the objects to be copied into. For example, to copy objects into a folder named Folder1 in the destination bucket, set the TargetKeyPrefix property to Folder1."];
      objectLockLegalHoldStatus: S3ObjectLockLegalHoldStatus.t option
        [@ocaml.doc
          "The legal hold status to be applied to all objects in the Batch Operations job. This functionality is not supported by directory buckets."];
      objectLockMode: S3ObjectLockMode.t option
        [@ocaml.doc
          "The retention mode to be applied to all objects in the Batch Operations job. This functionality is not supported by directory buckets."];
      objectLockRetainUntilDate: TimeStamp.t option
        [@ocaml.doc
          "The date when the applied object retention configuration expires on all objects in the Batch Operations job. This functionality is not supported by directory buckets."];
      bucketKeyEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether Amazon S3 should use an S3 Bucket Key for object encryption with server-side encryption using Amazon Web Services KMS (SSE-KMS). Setting this header to true causes Amazon S3 to use an S3 Bucket Key for object encryption with SSE-KMS. Specifying this header with an Copy action doesn\226\128\153t affect bucket-level settings for S3 Bucket Key. Directory buckets - S3 Bucket Keys aren't supported, when you copy SSE-KMS encrypted objects from general purpose buckets to directory buckets, from directory buckets to general purpose buckets, or between directory buckets, through the Copy operation in Batch Operations. In this case, Amazon S3 makes a call to KMS every time a copy request is made for a KMS-encrypted object."];
      checksumAlgorithm: S3ChecksumAlgorithm.t option
        [@ocaml.doc
          "Indicates the algorithm that you want Amazon S3 to use to create the checksum. For more information, see Checking object integrity in the Amazon S3 User Guide."]}
    let make ?targetResource =
      fun ?cannedAccessControlList ->
        fun ?accessControlGrants ->
          fun ?metadataDirective ->
            fun ?modifiedSinceConstraint ->
              fun ?newObjectMetadata ->
                fun ?newObjectTagging ->
                  fun ?redirectLocation ->
                    fun ?requesterPays ->
                      fun ?storageClass ->
                        fun ?unModifiedSinceConstraint ->
                          fun ?sSEAwsKmsKeyId ->
                            fun ?targetKeyPrefix ->
                              fun ?objectLockLegalHoldStatus ->
                                fun ?objectLockMode ->
                                  fun ?objectLockRetainUntilDate ->
                                    fun ?bucketKeyEnabled ->
                                      fun ?checksumAlgorithm ->
                                        fun () ->
                                          {
                                            targetResource;
                                            cannedAccessControlList;
                                            accessControlGrants;
                                            metadataDirective;
                                            modifiedSinceConstraint;
                                            newObjectMetadata;
                                            newObjectTagging;
                                            redirectLocation;
                                            requesterPays;
                                            storageClass;
                                            unModifiedSinceConstraint;
                                            sSEAwsKmsKeyId;
                                            targetKeyPrefix;
                                            objectLockLegalHoldStatus;
                                            objectLockMode;
                                            objectLockRetainUntilDate;
                                            bucketKeyEnabled;
                                            checksumAlgorithm
                                          }
    let to_value x =
      structure_to_value
        [("TargetResource",
           (Option.map x.targetResource
              ~f:S3RegionalOrS3ExpressBucketArnString.to_value));
        ("CannedAccessControlList",
          (Option.map x.cannedAccessControlList
             ~f:S3CannedAccessControlList.to_value));
        ("AccessControlGrants",
          (Option.map x.accessControlGrants ~f:S3GrantList.to_value));
        ("MetadataDirective",
          (Option.map x.metadataDirective ~f:S3MetadataDirective.to_value));
        ("ModifiedSinceConstraint",
          (Option.map x.modifiedSinceConstraint ~f:TimeStamp.to_value));
        ("NewObjectMetadata",
          (Option.map x.newObjectMetadata ~f:S3ObjectMetadata.to_value));
        ("NewObjectTagging",
          (Option.map x.newObjectTagging ~f:S3TagSet.to_value));
        ("RedirectLocation",
          (Option.map x.redirectLocation
             ~f:NonEmptyMaxLength2048String.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("StorageClass",
          (Option.map x.storageClass ~f:S3StorageClass.to_value));
        ("UnModifiedSinceConstraint",
          (Option.map x.unModifiedSinceConstraint ~f:TimeStamp.to_value));
        ("SSEAwsKmsKeyId",
          (Option.map x.sSEAwsKmsKeyId ~f:KmsKeyArnString.to_value));
        ("TargetKeyPrefix",
          (Option.map x.targetKeyPrefix
             ~f:NonEmptyMaxLength1024String.to_value));
        ("ObjectLockLegalHoldStatus",
          (Option.map x.objectLockLegalHoldStatus
             ~f:S3ObjectLockLegalHoldStatus.to_value));
        ("ObjectLockMode",
          (Option.map x.objectLockMode ~f:S3ObjectLockMode.to_value));
        ("ObjectLockRetainUntilDate",
          (Option.map x.objectLockRetainUntilDate ~f:TimeStamp.to_value));
        ("BucketKeyEnabled",
          (Option.map x.bucketKeyEnabled ~f:Boolean.to_value));
        ("ChecksumAlgorithm",
          (Option.map x.checksumAlgorithm ~f:S3ChecksumAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checksumAlgorithm =
        (Option.map ~f:S3ChecksumAlgorithm.of_xml)
          (Xml.child xml_arg0 "ChecksumAlgorithm") in
      let bucketKeyEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "BucketKeyEnabled") in
      let objectLockRetainUntilDate =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "ObjectLockRetainUntilDate") in
      let objectLockMode =
        (Option.map ~f:S3ObjectLockMode.of_xml)
          (Xml.child xml_arg0 "ObjectLockMode") in
      let objectLockLegalHoldStatus =
        (Option.map ~f:S3ObjectLockLegalHoldStatus.of_xml)
          (Xml.child xml_arg0 "ObjectLockLegalHoldStatus") in
      let targetKeyPrefix =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "TargetKeyPrefix") in
      let sSEAwsKmsKeyId =
        (Option.map ~f:KmsKeyArnString.of_xml)
          (Xml.child xml_arg0 "SSEAwsKmsKeyId") in
      let unModifiedSinceConstraint =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "UnModifiedSinceConstraint") in
      let storageClass =
        (Option.map ~f:S3StorageClass.of_xml)
          (Xml.child xml_arg0 "StorageClass") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let redirectLocation =
        (Option.map ~f:NonEmptyMaxLength2048String.of_xml)
          (Xml.child xml_arg0 "RedirectLocation") in
      let newObjectTagging =
        (Option.map ~f:S3TagSet.of_xml)
          (Xml.child xml_arg0 "NewObjectTagging") in
      let newObjectMetadata =
        (Option.map ~f:S3ObjectMetadata.of_xml)
          (Xml.child xml_arg0 "NewObjectMetadata") in
      let modifiedSinceConstraint =
        (Option.map ~f:TimeStamp.of_xml)
          (Xml.child xml_arg0 "ModifiedSinceConstraint") in
      let metadataDirective =
        (Option.map ~f:S3MetadataDirective.of_xml)
          (Xml.child xml_arg0 "MetadataDirective") in
      let accessControlGrants =
        (Option.map ~f:S3GrantList.of_xml)
          (Xml.child xml_arg0 "AccessControlGrants") in
      let cannedAccessControlList =
        (Option.map ~f:S3CannedAccessControlList.of_xml)
          (Xml.child xml_arg0 "CannedAccessControlList") in
      let targetResource =
        (Option.map ~f:S3RegionalOrS3ExpressBucketArnString.of_xml)
          (Xml.child xml_arg0 "TargetResource") in
      make ?checksumAlgorithm ?bucketKeyEnabled ?objectLockRetainUntilDate
        ?objectLockMode ?objectLockLegalHoldStatus ?targetKeyPrefix
        ?sSEAwsKmsKeyId ?unModifiedSinceConstraint ?storageClass
        ?requesterPays ?redirectLocation ?newObjectTagging ?newObjectMetadata
        ?modifiedSinceConstraint ?metadataDirective ?accessControlGrants
        ?cannedAccessControlList ?targetResource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checksumAlgorithm =
        field_map json__ "ChecksumAlgorithm" S3ChecksumAlgorithm.of_json in
      let bucketKeyEnabled =
        field_map json__ "BucketKeyEnabled" Boolean.of_json in
      let objectLockRetainUntilDate =
        field_map json__ "ObjectLockRetainUntilDate" TimeStamp.of_json in
      let objectLockMode =
        field_map json__ "ObjectLockMode" S3ObjectLockMode.of_json in
      let objectLockLegalHoldStatus =
        field_map json__ "ObjectLockLegalHoldStatus"
          S3ObjectLockLegalHoldStatus.of_json in
      let targetKeyPrefix =
        field_map json__ "TargetKeyPrefix"
          NonEmptyMaxLength1024String.of_json in
      let sSEAwsKmsKeyId =
        field_map json__ "SSEAwsKmsKeyId" KmsKeyArnString.of_json in
      let unModifiedSinceConstraint =
        field_map json__ "UnModifiedSinceConstraint" TimeStamp.of_json in
      let storageClass =
        field_map json__ "StorageClass" S3StorageClass.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let redirectLocation =
        field_map json__ "RedirectLocation"
          NonEmptyMaxLength2048String.of_json in
      let newObjectTagging =
        field_map json__ "NewObjectTagging" S3TagSet.of_json in
      let newObjectMetadata =
        field_map json__ "NewObjectMetadata" S3ObjectMetadata.of_json in
      let modifiedSinceConstraint =
        field_map json__ "ModifiedSinceConstraint" TimeStamp.of_json in
      let metadataDirective =
        field_map json__ "MetadataDirective" S3MetadataDirective.of_json in
      let accessControlGrants =
        field_map json__ "AccessControlGrants" S3GrantList.of_json in
      let cannedAccessControlList =
        field_map json__ "CannedAccessControlList"
          S3CannedAccessControlList.of_json in
      let targetResource =
        field_map json__ "TargetResource"
          S3RegionalOrS3ExpressBucketArnString.of_json in
      make ?checksumAlgorithm ?bucketKeyEnabled ?objectLockRetainUntilDate
        ?objectLockMode ?objectLockLegalHoldStatus ?targetKeyPrefix
        ?sSEAwsKmsKeyId ?unModifiedSinceConstraint ?storageClass
        ?requesterPays ?redirectLocation ?newObjectTagging ?newObjectMetadata
        ?modifiedSinceConstraint ?metadataDirective ?accessControlGrants
        ?cannedAccessControlList ?targetResource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for a PUT Copy object operation. S3 Batch Operations passes every object to the underlying CopyObject API operation. For more information about the parameters for this operation, see CopyObject."]
module S3DeleteObjectTaggingOperation =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains no configuration parameters because the DELETE Object tagging (DeleteObjectTagging) API operation accepts only the bucket name and key name as parameters, which are defined in the job's manifest."]
module S3InitiateRestoreObjectOperation =
  struct
    type nonrec t =
      {
      expirationInDays: S3ExpirationInDays.t option
        [@ocaml.doc
          "This argument specifies how long the S3 Glacier or S3 Glacier Deep Archive object remains available in Amazon S3. S3 Initiate Restore Object jobs that target S3 Glacier and S3 Glacier Deep Archive objects require ExpirationInDays set to 1 or greater. Conversely, do not set ExpirationInDays when creating S3 Initiate Restore Object jobs that target S3 Intelligent-Tiering Archive Access and Deep Archive Access tier objects. Objects in S3 Intelligent-Tiering archive access tiers are not subject to restore expiry, so specifying ExpirationInDays results in restore request failure. S3 Batch Operations jobs can operate either on S3 Glacier and S3 Glacier Deep Archive storage class objects or on S3 Intelligent-Tiering Archive Access and Deep Archive Access storage tier objects, but not both types in the same job. If you need to restore objects of both types you must create separate Batch Operations jobs."];
      glacierJobTier: S3GlacierJobTier.t option
        [@ocaml.doc
          "S3 Batch Operations supports STANDARD and BULK retrieval tiers, but not the EXPEDITED retrieval tier."]}
    let make ?expirationInDays =
      fun ?glacierJobTier -> fun () -> { expirationInDays; glacierJobTier }
    let to_value x =
      structure_to_value
        [("ExpirationInDays",
           (Option.map x.expirationInDays ~f:S3ExpirationInDays.to_value));
        ("GlacierJobTier",
          (Option.map x.glacierJobTier ~f:S3GlacierJobTier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let glacierJobTier =
        (Option.map ~f:S3GlacierJobTier.of_xml)
          (Xml.child xml_arg0 "GlacierJobTier") in
      let expirationInDays =
        (Option.map ~f:S3ExpirationInDays.of_xml)
          (Xml.child xml_arg0 "ExpirationInDays") in
      make ?glacierJobTier ?expirationInDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let glacierJobTier =
        field_map json__ "GlacierJobTier" S3GlacierJobTier.of_json in
      let expirationInDays =
        field_map json__ "ExpirationInDays" S3ExpirationInDays.of_json in
      make ?glacierJobTier ?expirationInDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for a POST Object restore job. S3 Batch Operations passes every object to the underlying RestoreObject API operation. For more information about the parameters for this operation, see RestoreObject."]
module S3ReplicateObjectOperation =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Directs the specified job to invoke ReplicateObject on every object in the job's manifest."]
module S3SetObjectAclOperation =
  struct
    type nonrec t = {
      accessControlPolicy: S3AccessControlPolicy.t option }
    let make ?accessControlPolicy = fun () -> { accessControlPolicy }
    let to_value x =
      structure_to_value
        [("AccessControlPolicy",
           (Option.map x.accessControlPolicy
              ~f:S3AccessControlPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessControlPolicy =
        (Option.map ~f:S3AccessControlPolicy.of_xml)
          (Xml.child xml_arg0 "AccessControlPolicy") in
      make ?accessControlPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessControlPolicy =
        field_map json__ "AccessControlPolicy" S3AccessControlPolicy.of_json in
      make ?accessControlPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for a PUT Object ACL operation. S3 Batch Operations passes every object to the underlying PutObjectAcl API operation. For more information about the parameters for this operation, see PutObjectAcl."]
module S3SetObjectLegalHoldOperation =
  struct
    type nonrec t =
      {
      legalHold: S3ObjectLockLegalHold.t
        [@ocaml.doc
          "Contains the Object Lock legal hold status to be applied to all objects in the Batch Operations job."]}
    let context_ = "S3SetObjectLegalHoldOperation"
    let make ~legalHold = fun () -> { legalHold }
    let to_value x =
      structure_to_value
        [("LegalHold", (Some (S3ObjectLockLegalHold.to_value x.legalHold)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let legalHold =
        S3ObjectLockLegalHold.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LegalHold") in
      make ~legalHold ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let legalHold =
        field_map_exn json__ "LegalHold" S3ObjectLockLegalHold.of_json in
      make ~legalHold ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration for an S3 Object Lock legal hold operation that an S3 Batch Operations job passes to every object to the underlying PutObjectLegalHold API operation. For more information, see Using S3 Object Lock legal hold with S3 Batch Operations in the Amazon S3 User Guide. This functionality is not supported by directory buckets."]
module S3SetObjectRetentionOperation =
  struct
    type nonrec t =
      {
      bypassGovernanceRetention: Boolean.t option
        [@ocaml.doc
          "Indicates if the action should be applied to objects in the Batch Operations job even if they have Object Lock GOVERNANCE type in place."];
      retention: S3Retention.t
        [@ocaml.doc
          "Contains the Object Lock retention mode to be applied to all objects in the Batch Operations job. For more information, see Using S3 Object Lock retention with S3 Batch Operations in the Amazon S3 User Guide."]}
    let context_ = "S3SetObjectRetentionOperation"
    let make ?bypassGovernanceRetention =
      fun ~retention -> fun () -> { bypassGovernanceRetention; retention }
    let to_value x =
      structure_to_value
        [("BypassGovernanceRetention",
           (Option.map x.bypassGovernanceRetention ~f:Boolean.to_value));
        ("Retention", (Some (S3Retention.to_value x.retention)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retention =
        S3Retention.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Retention") in
      let bypassGovernanceRetention =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "BypassGovernanceRetention") in
      make ~retention ?bypassGovernanceRetention ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retention = field_map_exn json__ "Retention" S3Retention.of_json in
      let bypassGovernanceRetention =
        field_map json__ "BypassGovernanceRetention" Boolean.of_json in
      make ~retention ?bypassGovernanceRetention ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for the Object Lock retention action for an S3 Batch Operations job. Batch Operations passes every object to the underlying PutObjectRetention API operation. For more information, see Using S3 Object Lock retention with S3 Batch Operations in the Amazon S3 User Guide. This functionality is not supported by directory buckets."]
module S3SetObjectTaggingOperation =
  struct
    type nonrec t = {
      tagSet: S3TagSet.t option }
    let make ?tagSet = fun () -> { tagSet }
    let to_value x =
      structure_to_value
        [("TagSet", (Option.map x.tagSet ~f:S3TagSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagSet =
        (Option.map ~f:S3TagSet.of_xml) (Xml.child xml_arg0 "TagSet") in
      make ?tagSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagSet = field_map json__ "TagSet" S3TagSet.of_json in
      make ?tagSet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for a PUT Object Tagging operation. S3 Batch Operations passes every object to the underlying PutObjectTagging API operation. For more information about the parameters for this operation, see PutObjectTagging."]
module S3UpdateObjectEncryptionOperation =
  struct
    type nonrec t =
      {
      objectEncryption: ObjectEncryption.t option
        [@ocaml.doc
          "The updated server-side encryption type for this S3 object. The UpdateObjectEncryption operation supports the SSE-KMS encryption type."]}
    let make ?objectEncryption = fun () -> { objectEncryption }
    let to_value x =
      structure_to_value
        [("ObjectEncryption",
           (Option.map x.objectEncryption ~f:ObjectEncryption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectEncryption =
        (Option.map ~f:ObjectEncryption.of_xml)
          (Xml.child xml_arg0 "ObjectEncryption") in
      make ?objectEncryption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectEncryption =
        field_map json__ "ObjectEncryption" ObjectEncryption.of_json in
      make ?objectEncryption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "With the UpdateObjectEncryption operation, you can atomically update the server-side encryption type of an existing object in a general purpose bucket without any data movement."]
module JobReportFormat =
  struct
    type nonrec t =
      | Report_CSV_20180820 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Report_CSV_20180820 -> "Report_CSV_20180820"
      | Non_static_id s -> s
    let of_string =
      function
      | "Report_CSV_20180820" -> Report_CSV_20180820
      | 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 JobReportFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobReportFormat" j)
    let to_json = simple_to_json to_value
  end
module JobReportScope =
  struct
    type nonrec t =
      | AllTasks 
      | FailedTasksOnly 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AllTasks -> "AllTasks"
      | FailedTasksOnly -> "FailedTasksOnly"
      | Non_static_id s -> s
    let of_string =
      function
      | "AllTasks" -> AllTasks
      | "FailedTasksOnly" -> FailedTasksOnly
      | 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 JobReportScope" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobReportScope" j)
    let to_json = simple_to_json to_value
  end
module ReportPrefixString =
  struct
    type nonrec t = string
    let context_ = "ReportPrefixString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReportPrefixString" j
    let to_json = simple_to_json to_value
  end
module StorageLensGroupFilter =
  struct
    type nonrec t =
      {
      matchAnyPrefix: MatchAnyPrefix.t option
        [@ocaml.doc
          "Contains a list of prefixes. At least one prefix must be specified. Up to 10 prefixes are allowed."];
      matchAnySuffix: MatchAnySuffix.t option
        [@ocaml.doc
          "Contains a list of suffixes. At least one suffix must be specified. Up to 10 suffixes are allowed."];
      matchAnyTag: MatchAnyTag.t option
        [@ocaml.doc
          "Contains the list of S3 object tags. At least one object tag must be specified. Up to 10 object tags are allowed."];
      matchObjectAge: MatchObjectAge.t option
        [@ocaml.doc
          "Contains DaysGreaterThan and DaysLessThan to define the object age range (minimum and maximum number of days)."];
      matchObjectSize: MatchObjectSize.t option
        [@ocaml.doc
          "Contains BytesGreaterThan and BytesLessThan to define the object size range (minimum and maximum number of Bytes)."];
      and_: StorageLensGroupAndOperator.t option
        [@ocaml.doc
          "A logical operator that allows multiple filter conditions to be joined for more complex comparisons of Storage Lens group data. Objects must match all of the listed filter conditions that are joined by the And logical operator. Only one of each filter condition is allowed."];
      or_: StorageLensGroupOrOperator.t option
        [@ocaml.doc
          "A single logical operator that allows multiple filter conditions to be joined. Objects can match any of the listed filter conditions, which are joined by the Or logical operator. Only one of each filter condition is allowed."]}
    let make ?matchAnyPrefix =
      fun ?matchAnySuffix ->
        fun ?matchAnyTag ->
          fun ?matchObjectAge ->
            fun ?matchObjectSize ->
              fun ?and_ ->
                fun ?or_ ->
                  fun () ->
                    {
                      matchAnyPrefix;
                      matchAnySuffix;
                      matchAnyTag;
                      matchObjectAge;
                      matchObjectSize;
                      and_;
                      or_
                    }
    let to_value x =
      structure_to_value
        [("MatchAnyPrefix",
           (Option.map x.matchAnyPrefix ~f:MatchAnyPrefix.to_value));
        ("MatchAnySuffix",
          (Option.map x.matchAnySuffix ~f:MatchAnySuffix.to_value));
        ("MatchAnyTag", (Option.map x.matchAnyTag ~f:MatchAnyTag.to_value));
        ("MatchObjectAge",
          (Option.map x.matchObjectAge ~f:MatchObjectAge.to_value));
        ("MatchObjectSize",
          (Option.map x.matchObjectSize ~f:MatchObjectSize.to_value));
        ("And", (Option.map x.and_ ~f:StorageLensGroupAndOperator.to_value));
        ("Or", (Option.map x.or_ ~f:StorageLensGroupOrOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let or_ =
        (Option.map ~f:StorageLensGroupOrOperator.of_xml)
          (Xml.child xml_arg0 "Or") in
      let and_ =
        (Option.map ~f:StorageLensGroupAndOperator.of_xml)
          (Xml.child xml_arg0 "And") in
      let matchObjectSize =
        (Option.map ~f:MatchObjectSize.of_xml)
          (Xml.child xml_arg0 "MatchObjectSize") in
      let matchObjectAge =
        (Option.map ~f:MatchObjectAge.of_xml)
          (Xml.child xml_arg0 "MatchObjectAge") in
      let matchAnyTag =
        (Option.map ~f:MatchAnyTag.of_xml) (Xml.child xml_arg0 "MatchAnyTag") in
      let matchAnySuffix =
        (Option.map ~f:MatchAnySuffix.of_xml)
          (Xml.child xml_arg0 "MatchAnySuffix") in
      let matchAnyPrefix =
        (Option.map ~f:MatchAnyPrefix.of_xml)
          (Xml.child xml_arg0 "MatchAnyPrefix") in
      make ?or_ ?and_ ?matchObjectSize ?matchObjectAge ?matchAnyTag
        ?matchAnySuffix ?matchAnyPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let or_ = field_map json__ "Or" StorageLensGroupOrOperator.of_json in
      let and_ = field_map json__ "And" StorageLensGroupAndOperator.of_json in
      let matchObjectSize =
        field_map json__ "MatchObjectSize" MatchObjectSize.of_json in
      let matchObjectAge =
        field_map json__ "MatchObjectAge" MatchObjectAge.of_json in
      let matchAnyTag = field_map json__ "MatchAnyTag" MatchAnyTag.of_json in
      let matchAnySuffix =
        field_map json__ "MatchAnySuffix" MatchAnySuffix.of_json in
      let matchAnyPrefix =
        field_map json__ "MatchAnyPrefix" MatchAnyPrefix.of_json in
      make ?or_ ?and_ ?matchObjectSize ?matchObjectAge ?matchAnyTag
        ?matchAnySuffix ?matchAnyPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter element sets the criteria for the Storage Lens group data that is displayed. For multiple filter conditions, the AND or OR logical operator is used."]
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKeyString.t
        [@ocaml.doc
          "The key of the key-value pair of a tag added to your Amazon Web Services resource. A tag key can be up to 128 Unicode characters in length and is case-sensitive. System created tags that begin with aws: aren\226\128\153t supported."];
      value: TagValueString.t
        [@ocaml.doc
          "The value of the key-value pair of a tag added to your Amazon Web Services resource. A tag value can be up to 256 Unicode characters in length and is case-sensitive."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKeyString.to_value x.key)));
        ("Value", (Some (TagValueString.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKeyString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValueString.of_json in
      let key = field_map_exn json__ "Key" TagKeyString.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair that you use to label your resources. You can add tags to new resources when you create them, or you can add tags to existing resources. Tags can help you organize, track costs for, and control access to resources."]
module MultiRegionAccessPointRoute =
  struct
    type nonrec t =
      {
      bucket: BucketName.t option
        [@ocaml.doc
          "The name of the Amazon S3 bucket for which you'll submit a routing configuration change. Either the Bucket or the Region value must be provided. If both are provided, the bucket must be in the specified Region."];
      region: RegionName.t option
        [@ocaml.doc
          "The Amazon Web Services Region to which you'll be submitting a routing configuration change. Either the Bucket or the Region value must be provided. If both are provided, the bucket must be in the specified Region."];
      trafficDialPercentage: TrafficDialPercentage.t
        [@ocaml.doc
          "The traffic state for the specified bucket or Amazon Web Services Region. A value of 0 indicates a passive state, which means that no new traffic will be routed to the Region. A value of 100 indicates an active state, which means that traffic will be routed to the specified Region. When the routing configuration for a Region is changed from active to passive, any in-progress operations (uploads, copies, deletes, and so on) to the formerly active Region will continue to run to until a final success or failure status is reached. If all Regions in the routing configuration are designated as passive, you'll receive an InvalidRequest error."]}
    let context_ = "MultiRegionAccessPointRoute"
    let make ?bucket =
      fun ?region ->
        fun ~trafficDialPercentage ->
          fun () -> { bucket; region; trafficDialPercentage }
    let to_value x =
      structure_to_value
        [("Bucket", (Option.map x.bucket ~f:BucketName.to_value));
        ("Region", (Option.map x.region ~f:RegionName.to_value));
        ("TrafficDialPercentage",
          (Some (TrafficDialPercentage.to_value x.trafficDialPercentage)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trafficDialPercentage =
        TrafficDialPercentage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TrafficDialPercentage") in
      let region =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "Region") in
      let bucket =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "Bucket") in
      make ~trafficDialPercentage ?region ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trafficDialPercentage =
        field_map_exn json__ "TrafficDialPercentage"
          TrafficDialPercentage.of_json in
      let region = field_map json__ "Region" RegionName.of_json in
      let bucket = field_map json__ "Bucket" BucketName.of_json in
      make ~trafficDialPercentage ?region ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure for a Multi-Region Access Point that indicates where Amazon S3 traffic can be routed. Routes can be either active or passive. Active routes can process Amazon S3 requests through the Multi-Region Access Point, but passive routes are not eligible to process Amazon S3 requests. Each route contains the Amazon S3 bucket name and the Amazon Web Services Region that the bucket is located in. The route also includes the TrafficDialPercentage value, which shows whether the bucket and Region are active (indicated by a value of 100) or passive (indicated by a value of 0)."]
module StorageLensTag =
  struct
    type nonrec t = {
      key: TagKeyString.t ;
      value: TagValueString.t }
    let context_ = "StorageLensTag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKeyString.to_value x.key)));
        ("Value", (Some (TagValueString.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKeyString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValueString.of_json in
      let key = field_map_exn json__ "Key" TagKeyString.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end
module AccountLevel =
  struct
    type nonrec t =
      {
      activityMetrics: ActivityMetrics.t option
        [@ocaml.doc
          "A container element for S3 Storage Lens activity metrics."];
      bucketLevel: BucketLevel.t
        [@ocaml.doc
          "A container element for the S3 Storage Lens bucket-level configuration."];
      advancedCostOptimizationMetrics:
        AdvancedCostOptimizationMetrics.t option
        [@ocaml.doc
          "A container element for S3 Storage Lens advanced cost-optimization metrics."];
      advancedDataProtectionMetrics: AdvancedDataProtectionMetrics.t option
        [@ocaml.doc
          "A container element for S3 Storage Lens advanced data-protection metrics."];
      detailedStatusCodesMetrics: DetailedStatusCodesMetrics.t option
        [@ocaml.doc "A container element for detailed status code metrics."];
      advancedPerformanceMetrics: AdvancedPerformanceMetrics.t option
        [@ocaml.doc
          "A container element for S3 Storage Lens advanced performance metrics."];
      storageLensGroupLevel: StorageLensGroupLevel.t option
        [@ocaml.doc
          "A container element for S3 Storage Lens groups metrics."]}
    let context_ = "AccountLevel"
    let make ?activityMetrics =
      fun ?advancedCostOptimizationMetrics ->
        fun ?advancedDataProtectionMetrics ->
          fun ?detailedStatusCodesMetrics ->
            fun ?advancedPerformanceMetrics ->
              fun ?storageLensGroupLevel ->
                fun ~bucketLevel ->
                  fun () ->
                    {
                      activityMetrics;
                      advancedCostOptimizationMetrics;
                      advancedDataProtectionMetrics;
                      detailedStatusCodesMetrics;
                      advancedPerformanceMetrics;
                      storageLensGroupLevel;
                      bucketLevel
                    }
    let to_value x =
      structure_to_value
        [("ActivityMetrics",
           (Option.map x.activityMetrics ~f:ActivityMetrics.to_value));
        ("BucketLevel", (Some (BucketLevel.to_value x.bucketLevel)));
        ("AdvancedCostOptimizationMetrics",
          (Option.map x.advancedCostOptimizationMetrics
             ~f:AdvancedCostOptimizationMetrics.to_value));
        ("AdvancedDataProtectionMetrics",
          (Option.map x.advancedDataProtectionMetrics
             ~f:AdvancedDataProtectionMetrics.to_value));
        ("DetailedStatusCodesMetrics",
          (Option.map x.detailedStatusCodesMetrics
             ~f:DetailedStatusCodesMetrics.to_value));
        ("AdvancedPerformanceMetrics",
          (Option.map x.advancedPerformanceMetrics
             ~f:AdvancedPerformanceMetrics.to_value));
        ("StorageLensGroupLevel",
          (Option.map x.storageLensGroupLevel
             ~f:StorageLensGroupLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensGroupLevel =
        (Option.map ~f:StorageLensGroupLevel.of_xml)
          (Xml.child xml_arg0 "StorageLensGroupLevel") in
      let advancedPerformanceMetrics =
        (Option.map ~f:AdvancedPerformanceMetrics.of_xml)
          (Xml.child xml_arg0 "AdvancedPerformanceMetrics") in
      let detailedStatusCodesMetrics =
        (Option.map ~f:DetailedStatusCodesMetrics.of_xml)
          (Xml.child xml_arg0 "DetailedStatusCodesMetrics") in
      let advancedDataProtectionMetrics =
        (Option.map ~f:AdvancedDataProtectionMetrics.of_xml)
          (Xml.child xml_arg0 "AdvancedDataProtectionMetrics") in
      let advancedCostOptimizationMetrics =
        (Option.map ~f:AdvancedCostOptimizationMetrics.of_xml)
          (Xml.child xml_arg0 "AdvancedCostOptimizationMetrics") in
      let bucketLevel =
        BucketLevel.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BucketLevel") in
      let activityMetrics =
        (Option.map ~f:ActivityMetrics.of_xml)
          (Xml.child xml_arg0 "ActivityMetrics") in
      make ?storageLensGroupLevel ?advancedPerformanceMetrics
        ?detailedStatusCodesMetrics ?advancedDataProtectionMetrics
        ?advancedCostOptimizationMetrics ~bucketLevel ?activityMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensGroupLevel =
        field_map json__ "StorageLensGroupLevel"
          StorageLensGroupLevel.of_json in
      let advancedPerformanceMetrics =
        field_map json__ "AdvancedPerformanceMetrics"
          AdvancedPerformanceMetrics.of_json in
      let detailedStatusCodesMetrics =
        field_map json__ "DetailedStatusCodesMetrics"
          DetailedStatusCodesMetrics.of_json in
      let advancedDataProtectionMetrics =
        field_map json__ "AdvancedDataProtectionMetrics"
          AdvancedDataProtectionMetrics.of_json in
      let advancedCostOptimizationMetrics =
        field_map json__ "AdvancedCostOptimizationMetrics"
          AdvancedCostOptimizationMetrics.of_json in
      let bucketLevel =
        field_map_exn json__ "BucketLevel" BucketLevel.of_json in
      let activityMetrics =
        field_map json__ "ActivityMetrics" ActivityMetrics.of_json in
      make ?storageLensGroupLevel ?advancedPerformanceMetrics
        ?detailedStatusCodesMetrics ?advancedDataProtectionMetrics
        ?advancedCostOptimizationMetrics ~bucketLevel ?activityMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container element for the account-level Amazon S3 Storage Lens configuration. You must enable Storage Lens metrics consistently at both the account level and bucket level, or your request will fail. For more information about S3 Storage Lens, see Assessing your storage activity and usage with S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide."]
module Exclude =
  struct
    type nonrec t =
      {
      buckets: Buckets.t option
        [@ocaml.doc "A container for the S3 Storage Lens bucket excludes."];
      regions: Regions.t option
        [@ocaml.doc "A container for the S3 Storage Lens Region excludes."]}
    let make ?buckets = fun ?regions -> fun () -> { buckets; regions }
    let to_value x =
      structure_to_value
        [("Buckets", (Option.map x.buckets ~f:Buckets.to_value));
        ("Regions", (Option.map x.regions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:Regions.of_xml) (Xml.child xml_arg0 "Regions") in
      let buckets =
        (Option.map ~f:Buckets.of_xml) (Xml.child xml_arg0 "Buckets") in
      make ?regions ?buckets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map json__ "Regions" Regions.of_json in
      let buckets = field_map json__ "Buckets" Buckets.of_json in
      make ?regions ?buckets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for what Amazon S3 Storage Lens will exclude."]
module Include =
  struct
    type nonrec t =
      {
      buckets: Buckets.t option
        [@ocaml.doc "A container for the S3 Storage Lens bucket includes."];
      regions: Regions.t option
        [@ocaml.doc "A container for the S3 Storage Lens Region includes."]}
    let make ?buckets = fun ?regions -> fun () -> { buckets; regions }
    let to_value x =
      structure_to_value
        [("Buckets", (Option.map x.buckets ~f:Buckets.to_value));
        ("Regions", (Option.map x.regions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:Regions.of_xml) (Xml.child xml_arg0 "Regions") in
      let buckets =
        (Option.map ~f:Buckets.of_xml) (Xml.child xml_arg0 "Buckets") in
      make ?regions ?buckets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map json__ "Regions" Regions.of_json in
      let buckets = field_map json__ "Buckets" Buckets.of_json in
      make ?regions ?buckets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for what Amazon S3 Storage Lens configuration includes."]
module StorageLensAwsOrg =
  struct
    type nonrec t =
      {
      arn: AwsOrgArn.t
        [@ocaml.doc
          "A container for the Amazon Resource Name (ARN) of the Amazon Web Services organization. This property is read-only and follows the following format: arn:aws:organizations:us-east-1:example-account-id:organization/o-ex2l495dck"]}
    let context_ = "StorageLensAwsOrg"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (AwsOrgArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        AwsOrgArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" AwsOrgArn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services organization for your S3 Storage Lens."]
module StorageLensDataExport =
  struct
    type nonrec t =
      {
      s3BucketDestination: S3BucketDestination.t option
        [@ocaml.doc
          "A container for the bucket where the S3 Storage Lens metrics export will be located. This bucket must be located in the same Region as the storage lens configuration."];
      cloudWatchMetrics: CloudWatchMetrics.t option
        [@ocaml.doc
          "A container for enabling Amazon CloudWatch publishing for S3 Storage Lens metrics."];
      storageLensTableDestination: StorageLensTableDestination.t option
        [@ocaml.doc
          "A container for configuring S3 Storage Lens data exports to read-only S3 table buckets."]}
    let make ?s3BucketDestination =
      fun ?cloudWatchMetrics ->
        fun ?storageLensTableDestination ->
          fun () ->
            {
              s3BucketDestination;
              cloudWatchMetrics;
              storageLensTableDestination
            }
    let to_value x =
      structure_to_value
        [("S3BucketDestination",
           (Option.map x.s3BucketDestination ~f:S3BucketDestination.to_value));
        ("CloudWatchMetrics",
          (Option.map x.cloudWatchMetrics ~f:CloudWatchMetrics.to_value));
        ("StorageLensTableDestination",
          (Option.map x.storageLensTableDestination
             ~f:StorageLensTableDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensTableDestination =
        (Option.map ~f:StorageLensTableDestination.of_xml)
          (Xml.child xml_arg0 "StorageLensTableDestination") in
      let cloudWatchMetrics =
        (Option.map ~f:CloudWatchMetrics.of_xml)
          (Xml.child xml_arg0 "CloudWatchMetrics") in
      let s3BucketDestination =
        (Option.map ~f:S3BucketDestination.of_xml)
          (Xml.child xml_arg0 "S3BucketDestination") in
      make ?storageLensTableDestination ?cloudWatchMetrics
        ?s3BucketDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensTableDestination =
        field_map json__ "StorageLensTableDestination"
          StorageLensTableDestination.of_json in
      let cloudWatchMetrics =
        field_map json__ "CloudWatchMetrics" CloudWatchMetrics.of_json in
      let s3BucketDestination =
        field_map json__ "S3BucketDestination" S3BucketDestination.of_json in
      make ?storageLensTableDestination ?cloudWatchMetrics
        ?s3BucketDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container to specify the properties of your S3 Storage Lens metrics export, including the destination, schema, and format."]
module StorageLensExpandedPrefixesDataExport =
  struct
    type nonrec t =
      {
      s3BucketDestination: S3BucketDestination.t option ;
      storageLensTableDestination: StorageLensTableDestination.t option
        [@ocaml.doc
          "A container for the bucket where the S3 Storage Lens metric export files are located. At least one export destination must be specified."]}
    let make ?s3BucketDestination =
      fun ?storageLensTableDestination ->
        fun () -> { s3BucketDestination; storageLensTableDestination }
    let to_value x =
      structure_to_value
        [("S3BucketDestination",
           (Option.map x.s3BucketDestination ~f:S3BucketDestination.to_value));
        ("StorageLensTableDestination",
          (Option.map x.storageLensTableDestination
             ~f:StorageLensTableDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensTableDestination =
        (Option.map ~f:StorageLensTableDestination.of_xml)
          (Xml.child xml_arg0 "StorageLensTableDestination") in
      let s3BucketDestination =
        (Option.map ~f:S3BucketDestination.of_xml)
          (Xml.child xml_arg0 "S3BucketDestination") in
      make ?storageLensTableDestination ?s3BucketDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensTableDestination =
        field_map json__ "StorageLensTableDestination"
          StorageLensTableDestination.of_json in
      let s3BucketDestination =
        field_map json__ "S3BucketDestination" S3BucketDestination.of_json in
      make ?storageLensTableDestination ?s3BucketDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for your S3 Storage Lens expanded prefix metrics report configuration. Unlike the default Storage Lens metrics report, the enhanced prefix metrics report includes all S3 Storage Lens storage and activity data related to the full list of prefixes in your Storage Lens configuration."]
module BucketVersioningStatus =
  struct
    type nonrec t =
      | Enabled 
      | Suspended 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Suspended -> "Suspended"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Suspended" -> Suspended
      | 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 BucketVersioningStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BucketVersioningStatus" j)
    let to_json = simple_to_json to_value
  end
module MFADelete =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 MFADelete" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MFADelete" j)
    let to_json = simple_to_json to_value
  end
module ReplicationRules =
  struct
    type nonrec t = ReplicationRule.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:ReplicationRule.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:ReplicationRule.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplicationRules" ~of_json:ReplicationRule.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Role =
  struct
    type nonrec t = string
    let context_ = "Role"
    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:"Role" j
    let to_json = simple_to_json to_value
  end
module LifecycleRules =
  struct
    type nonrec t = LifecycleRule.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:LifecycleRule.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:LifecycleRule.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecycleRules" ~of_json:LifecycleRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrefixesList =
  struct
    type nonrec t = Prefix.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:Prefix.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:Prefix.of_xml)
    let of_json j =
      list_of_json ~kind:"PrefixesList" ~of_json:Prefix.of_json j
    let to_json v = composed_to_json to_value v
  end
module ScopePermissionList =
  struct
    type nonrec t = ScopePermission.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:ScopePermission.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:ScopePermission.of_xml)
    let of_json j =
      list_of_json ~kind:"ScopePermissionList"
        ~of_json:ScopePermission.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectLambdaAllowedFeaturesList =
  struct
    type nonrec t = ObjectLambdaAllowedFeature.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:ObjectLambdaAllowedFeature.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:ObjectLambdaAllowedFeature.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectLambdaAllowedFeaturesList"
        ~of_json:ObjectLambdaAllowedFeature.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectLambdaSupportingAccessPointArn =
  struct
    type nonrec t = string
    let context_ = "ObjectLambdaSupportingAccessPointArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[^:]+:s3:[^:]*:\\d{12}:accesspoint/.*")));
        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:"ObjectLambdaSupportingAccessPointArn" j
    let to_json = simple_to_json to_value
  end
module ObjectLambdaTransformationConfigurationsList =
  struct
    type nonrec t = ObjectLambdaTransformationConfiguration.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:ObjectLambdaTransformationConfiguration.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:ObjectLambdaTransformationConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectLambdaTransformationConfigurationsList"
        ~of_json:ObjectLambdaTransformationConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListStorageLensGroupEntry =
  struct
    type nonrec t =
      {
      name: StorageLensGroupName.t option
        [@ocaml.doc
          "Contains the name of the Storage Lens group that exists in the specified home Region."];
      storageLensGroupArn: StorageLensGroupArn.t option
        [@ocaml.doc
          "Contains the Amazon Resource Name (ARN) of the Storage Lens group. This property is read-only."];
      homeRegion: S3AWSRegion.t option
        [@ocaml.doc
          "Contains the Amazon Web Services Region where the Storage Lens group was created."]}
    let make ?name =
      fun ?storageLensGroupArn ->
        fun ?homeRegion ->
          fun () -> { name; storageLensGroupArn; homeRegion }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:StorageLensGroupName.to_value));
        ("StorageLensGroupArn",
          (Option.map x.storageLensGroupArn ~f:StorageLensGroupArn.to_value));
        ("HomeRegion", (Option.map x.homeRegion ~f:S3AWSRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let homeRegion =
        (Option.map ~f:S3AWSRegion.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let storageLensGroupArn =
        (Option.map ~f:StorageLensGroupArn.of_xml)
          (Xml.child xml_arg0 "StorageLensGroupArn") in
      let name =
        (Option.map ~f:StorageLensGroupName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?homeRegion ?storageLensGroupArn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let homeRegion = field_map json__ "HomeRegion" S3AWSRegion.of_json in
      let storageLensGroupArn =
        field_map json__ "StorageLensGroupArn" StorageLensGroupArn.of_json in
      let name = field_map json__ "Name" StorageLensGroupName.of_json in
      make ?homeRegion ?storageLensGroupArn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Each entry contains a Storage Lens group that exists in the specified home Region."]
module ListStorageLensConfigurationEntry =
  struct
    type nonrec t =
      {
      id: ConfigId.t option
        [@ocaml.doc "A container for the S3 Storage Lens configuration ID."];
      storageLensArn: StorageLensArn.t option
        [@ocaml.doc
          "The ARN of the S3 Storage Lens configuration. This property is read-only."];
      homeRegion: S3AWSRegion.t option
        [@ocaml.doc
          "A container for the S3 Storage Lens home Region. Your metrics data is stored and retained in your designated S3 Storage Lens home Region."];
      isEnabled: IsEnabled.t option
        [@ocaml.doc
          "A container for whether the S3 Storage Lens configuration is enabled. This property is required."]}
    let make ?id =
      fun ?storageLensArn ->
        fun ?homeRegion ->
          fun ?isEnabled ->
            fun () -> { id; storageLensArn; homeRegion; isEnabled }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ConfigId.to_value));
        ("StorageLensArn",
          (Option.map x.storageLensArn ~f:StorageLensArn.to_value));
        ("HomeRegion", (Option.map x.homeRegion ~f:S3AWSRegion.to_value));
        ("IsEnabled", (Option.map x.isEnabled ~f:IsEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        (Option.map ~f:IsEnabled.of_xml) (Xml.child xml_arg0 "IsEnabled") in
      let homeRegion =
        (Option.map ~f:S3AWSRegion.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let storageLensArn =
        (Option.map ~f:StorageLensArn.of_xml)
          (Xml.child xml_arg0 "StorageLensArn") in
      let id = (Option.map ~f:ConfigId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?isEnabled ?homeRegion ?storageLensArn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map json__ "IsEnabled" IsEnabled.of_json in
      let homeRegion = field_map json__ "HomeRegion" S3AWSRegion.of_json in
      let storageLensArn =
        field_map json__ "StorageLensArn" StorageLensArn.of_json in
      let id = field_map json__ "Id" ConfigId.of_json in
      make ?isEnabled ?homeRegion ?storageLensArn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Part of ListStorageLensConfigurationResult. Each entry includes the description of the S3 Storage Lens configuration, its home Region, whether it is enabled, its Amazon Resource Name (ARN), and config ID."]
module RegionalBucket =
  struct
    type nonrec t =
      {
      bucket: BucketName.t option ;
      bucketArn: S3RegionalBucketArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the regional bucket."];
      publicAccessBlockEnabled: PublicAccessBlockEnabled.t option ;
      creationDate: CreationDate.t option
        [@ocaml.doc "The creation date of the regional bucket"];
      outpostId: NonEmptyMaxLength64String.t option
        [@ocaml.doc "The Outposts ID of the regional bucket."]}
    let make ?bucket =
      fun ?bucketArn ->
        fun ?publicAccessBlockEnabled ->
          fun ?creationDate ->
            fun ?outpostId ->
              fun () ->
                {
                  bucket;
                  bucketArn;
                  publicAccessBlockEnabled;
                  creationDate;
                  outpostId
                }
    let to_value x =
      structure_to_value
        [("Bucket", (Option.map x.bucket ~f:BucketName.to_value));
        ("BucketArn",
          (Option.map x.bucketArn ~f:S3RegionalBucketArn.to_value));
        ("PublicAccessBlockEnabled",
          (Option.map x.publicAccessBlockEnabled
             ~f:PublicAccessBlockEnabled.to_value));
        ("CreationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("OutpostId",
          (Option.map x.outpostId ~f:NonEmptyMaxLength64String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostId =
        (Option.map ~f:NonEmptyMaxLength64String.of_xml)
          (Xml.child xml_arg0 "OutpostId") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      let publicAccessBlockEnabled =
        (Option.map ~f:PublicAccessBlockEnabled.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlockEnabled") in
      let bucketArn =
        (Option.map ~f:S3RegionalBucketArn.of_xml)
          (Xml.child xml_arg0 "BucketArn") in
      let bucket =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "Bucket") in
      make ?outpostId ?creationDate ?publicAccessBlockEnabled ?bucketArn
        ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostId =
        field_map json__ "OutpostId" NonEmptyMaxLength64String.of_json in
      let creationDate = field_map json__ "CreationDate" CreationDate.of_json in
      let publicAccessBlockEnabled =
        field_map json__ "PublicAccessBlockEnabled"
          PublicAccessBlockEnabled.of_json in
      let bucketArn =
        field_map json__ "BucketArn" S3RegionalBucketArn.of_json in
      let bucket = field_map json__ "Bucket" BucketName.of_json in
      make ?outpostId ?creationDate ?publicAccessBlockEnabled ?bucketArn
        ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container for the regional bucket."]
module MultiRegionAccessPointReport =
  struct
    type nonrec t =
      {
      name: MultiRegionAccessPointName.t option
        [@ocaml.doc "The name of the Multi-Region Access Point."];
      alias: MultiRegionAccessPointAlias.t option
        [@ocaml.doc
          "The alias for the Multi-Region Access Point. For more information about the distinction between the name and the alias of an Multi-Region Access Point, see Rules for naming Amazon S3 Multi-Region Access Points."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "When the Multi-Region Access Point create request was received."];
      publicAccessBlock: PublicAccessBlockConfiguration.t option ;
      status: MultiRegionAccessPointStatus.t option
        [@ocaml.doc
          "The current status of the Multi-Region Access Point. CREATING and DELETING are temporary states that exist while the request is propagating and being completed. If a Multi-Region Access Point has a status of PARTIALLY_CREATED, you can retry creation or send a request to delete the Multi-Region Access Point. If a Multi-Region Access Point has a status of PARTIALLY_DELETED, you can retry a delete request to finish the deletion of the Multi-Region Access Point."];
      regions: RegionReportList.t option
        [@ocaml.doc
          "A collection of the Regions and buckets associated with the Multi-Region Access Point."]}
    let make ?name =
      fun ?alias ->
        fun ?createdAt ->
          fun ?publicAccessBlock ->
            fun ?status ->
              fun ?regions ->
                fun () ->
                  {
                    name;
                    alias;
                    createdAt;
                    publicAccessBlock;
                    status;
                    regions
                  }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:MultiRegionAccessPointName.to_value));
        ("Alias",
          (Option.map x.alias ~f:MultiRegionAccessPointAlias.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("PublicAccessBlock",
          (Option.map x.publicAccessBlock
             ~f:PublicAccessBlockConfiguration.to_value));
        ("Status",
          (Option.map x.status ~f:MultiRegionAccessPointStatus.to_value));
        ("Regions", (Option.map x.regions ~f:RegionReportList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:RegionReportList.of_xml)
          (Xml.child xml_arg0 "Regions") in
      let status =
        (Option.map ~f:MultiRegionAccessPointStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let publicAccessBlock =
        (Option.map ~f:PublicAccessBlockConfiguration.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlock") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let alias =
        (Option.map ~f:MultiRegionAccessPointAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let name =
        (Option.map ~f:MultiRegionAccessPointName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?regions ?status ?publicAccessBlock ?createdAt ?alias ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map json__ "Regions" RegionReportList.of_json in
      let status =
        field_map json__ "Status" MultiRegionAccessPointStatus.of_json in
      let publicAccessBlock =
        field_map json__ "PublicAccessBlock"
          PublicAccessBlockConfiguration.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      let alias =
        field_map json__ "Alias" MultiRegionAccessPointAlias.of_json in
      let name = field_map json__ "Name" MultiRegionAccessPointName.of_json in
      make ?regions ?status ?publicAccessBlock ?createdAt ?alias ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of statuses for a Multi-Region Access Point in the various Regions it supports."]
module JobListDescriptor =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The ID for the specified job."];
      description: NonEmptyMaxLength256String.t option
        [@ocaml.doc
          "The user-specified description that was included in the specified job's Create Job request."];
      operation: OperationName.t option
        [@ocaml.doc
          "The operation that the specified job is configured to run on every object listed in the manifest."];
      priority: JobPriority.t option
        [@ocaml.doc "The current priority for the specified job."];
      status: JobStatus.t option
        [@ocaml.doc "The specified job's current status."];
      creationTime: JobCreationTime.t option
        [@ocaml.doc
          "A timestamp indicating when the specified job was created."];
      terminationDate: JobTerminationDate.t option
        [@ocaml.doc
          "A timestamp indicating when the specified job terminated. A job's termination date is the date and time when it succeeded, failed, or was canceled."];
      progressSummary: JobProgressSummary.t option
        [@ocaml.doc
          "Describes the total number of tasks that the specified job has run, the number of tasks that succeeded, and the number of tasks that failed."]}
    let make ?jobId =
      fun ?description ->
        fun ?operation ->
          fun ?priority ->
            fun ?status ->
              fun ?creationTime ->
                fun ?terminationDate ->
                  fun ?progressSummary ->
                    fun () ->
                      {
                        jobId;
                        description;
                        operation;
                        priority;
                        status;
                        creationTime;
                        terminationDate;
                        progressSummary
                      }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("Description",
          (Option.map x.description ~f:NonEmptyMaxLength256String.to_value));
        ("Operation", (Option.map x.operation ~f:OperationName.to_value));
        ("Priority", (Option.map x.priority ~f:JobPriority.to_value));
        ("Status", (Option.map x.status ~f:JobStatus.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:JobCreationTime.to_value));
        ("TerminationDate",
          (Option.map x.terminationDate ~f:JobTerminationDate.to_value));
        ("ProgressSummary",
          (Option.map x.progressSummary ~f:JobProgressSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let progressSummary =
        (Option.map ~f:JobProgressSummary.of_xml)
          (Xml.child xml_arg0 "ProgressSummary") in
      let terminationDate =
        (Option.map ~f:JobTerminationDate.of_xml)
          (Xml.child xml_arg0 "TerminationDate") in
      let creationTime =
        (Option.map ~f:JobCreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let priority =
        (Option.map ~f:JobPriority.of_xml) (Xml.child xml_arg0 "Priority") in
      let operation =
        (Option.map ~f:OperationName.of_xml) (Xml.child xml_arg0 "Operation") in
      let description =
        (Option.map ~f:NonEmptyMaxLength256String.of_xml)
          (Xml.child xml_arg0 "Description") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?progressSummary ?terminationDate ?creationTime ?status ?priority
        ?operation ?description ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let progressSummary =
        field_map json__ "ProgressSummary" JobProgressSummary.of_json in
      let terminationDate =
        field_map json__ "TerminationDate" JobTerminationDate.of_json in
      let creationTime =
        field_map json__ "CreationTime" JobCreationTime.of_json in
      let status = field_map json__ "Status" JobStatus.of_json in
      let priority = field_map json__ "Priority" JobPriority.of_json in
      let operation = field_map json__ "Operation" OperationName.of_json in
      let description =
        field_map json__ "Description" NonEmptyMaxLength256String.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?progressSummary ?terminationDate ?creationTime ?status ?priority
        ?operation ?description ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration and status information for a single job retrieved as part of a job list."]
module ListCallerAccessGrantsEntry =
  struct
    type nonrec t =
      {
      permission: Permission.t option
        [@ocaml.doc
          "The type of permission granted, which can be one of the following values: READ - Grants read-only access to the S3 data. WRITE - Grants write-only access to the S3 data. READWRITE - Grants both read and write access to the S3 data."];
      grantScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path of the data to which you have been granted access."];
      applicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Web Services IAM Identity Center application associated with your Identity Center instance. If the grant includes an application ARN, the grantee can only access the S3 data through this application."]}
    let make ?permission =
      fun ?grantScope ->
        fun ?applicationArn ->
          fun () -> { permission; grantScope; applicationArn }
    let to_value x =
      structure_to_value
        [("Permission", (Option.map x.permission ~f:Permission.to_value));
        ("GrantScope", (Option.map x.grantScope ~f:S3Prefix.to_value));
        ("ApplicationArn",
          (Option.map x.applicationArn
             ~f:IdentityCenterApplicationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "ApplicationArn") in
      let grantScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "GrantScope") in
      let permission =
        (Option.map ~f:Permission.of_xml) (Xml.child xml_arg0 "Permission") in
      make ?applicationArn ?grantScope ?permission ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationArn =
        field_map json__ "ApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let grantScope = field_map json__ "GrantScope" S3Prefix.of_json in
      let permission = field_map json__ "Permission" Permission.of_json in
      make ?applicationArn ?grantScope ?permission ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Part of ListCallerAccessGrantsResult. Each entry includes the permission level (READ, WRITE, or READWRITE) and the grant scope of the access grant. If the grant also includes an application ARN, the grantee can only access the S3 data through this application."]
module AccessPoint =
  struct
    type nonrec t =
      {
      name: AccessPointName.t option
        [@ocaml.doc "The name of this access point."];
      networkOrigin: NetworkOrigin.t option
        [@ocaml.doc
          "Indicates whether this access point allows access from the public internet. If VpcConfiguration is specified for this access point, then NetworkOrigin is VPC, and the access point doesn't allow access from the public internet. Otherwise, NetworkOrigin is Internet, and the access point allows access from the public internet, subject to the access point and bucket access policies."];
      vpcConfiguration: VpcConfiguration.t option
        [@ocaml.doc
          "The virtual private cloud (VPC) configuration for this access point, if one exists. This element is empty if this access point is an Amazon S3 on Outposts access point that is used by other Amazon Web Services services."];
      bucket: AccessPointBucketName.t option
        [@ocaml.doc
          "The name of the bucket associated with this access point."];
      accessPointArn: S3AccessPointArn.t option
        [@ocaml.doc "The ARN for the access point."];
      alias: Alias.t option
        [@ocaml.doc "The name or alias of the access point."];
      bucketAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 bucket associated with this access point."];
      dataSourceId: DataSourceId.t option
        [@ocaml.doc
          "A unique identifier for the data source of the access point."];
      dataSourceType: DataSourceType.t option
        [@ocaml.doc
          "The type of the data source that the access point is attached to."]}
    let make ?name =
      fun ?networkOrigin ->
        fun ?vpcConfiguration ->
          fun ?bucket ->
            fun ?accessPointArn ->
              fun ?alias ->
                fun ?bucketAccountId ->
                  fun ?dataSourceId ->
                    fun ?dataSourceType ->
                      fun () ->
                        {
                          name;
                          networkOrigin;
                          vpcConfiguration;
                          bucket;
                          accessPointArn;
                          alias;
                          bucketAccountId;
                          dataSourceId;
                          dataSourceType
                        }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:AccessPointName.to_value));
        ("NetworkOrigin",
          (Option.map x.networkOrigin ~f:NetworkOrigin.to_value));
        ("VpcConfiguration",
          (Option.map x.vpcConfiguration ~f:VpcConfiguration.to_value));
        ("Bucket", (Option.map x.bucket ~f:AccessPointBucketName.to_value));
        ("AccessPointArn",
          (Option.map x.accessPointArn ~f:S3AccessPointArn.to_value));
        ("Alias", (Option.map x.alias ~f:Alias.to_value));
        ("BucketAccountId",
          (Option.map x.bucketAccountId ~f:AccountId.to_value));
        ("DataSourceId",
          (Option.map x.dataSourceId ~f:DataSourceId.to_value));
        ("DataSourceType",
          (Option.map x.dataSourceType ~f:DataSourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataSourceType =
        (Option.map ~f:DataSourceType.of_xml)
          (Xml.child xml_arg0 "DataSourceType") in
      let dataSourceId =
        (Option.map ~f:DataSourceId.of_xml)
          (Xml.child xml_arg0 "DataSourceId") in
      let bucketAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "BucketAccountId") in
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      let accessPointArn =
        (Option.map ~f:S3AccessPointArn.of_xml)
          (Xml.child xml_arg0 "AccessPointArn") in
      let bucket =
        (Option.map ~f:AccessPointBucketName.of_xml)
          (Xml.child xml_arg0 "Bucket") in
      let vpcConfiguration =
        (Option.map ~f:VpcConfiguration.of_xml)
          (Xml.child xml_arg0 "VpcConfiguration") in
      let networkOrigin =
        (Option.map ~f:NetworkOrigin.of_xml)
          (Xml.child xml_arg0 "NetworkOrigin") in
      let name =
        (Option.map ~f:AccessPointName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?dataSourceType ?dataSourceId ?bucketAccountId ?alias
        ?accessPointArn ?bucket ?vpcConfiguration ?networkOrigin ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataSourceType =
        field_map json__ "DataSourceType" DataSourceType.of_json in
      let dataSourceId = field_map json__ "DataSourceId" DataSourceId.of_json in
      let bucketAccountId =
        field_map json__ "BucketAccountId" AccountId.of_json in
      let alias = field_map json__ "Alias" Alias.of_json in
      let accessPointArn =
        field_map json__ "AccessPointArn" S3AccessPointArn.of_json in
      let bucket = field_map json__ "Bucket" AccessPointBucketName.of_json in
      let vpcConfiguration =
        field_map json__ "VpcConfiguration" VpcConfiguration.of_json in
      let networkOrigin =
        field_map json__ "NetworkOrigin" NetworkOrigin.of_json in
      let name = field_map json__ "Name" AccessPointName.of_json in
      make ?dataSourceType ?dataSourceId ?bucketAccountId ?alias
        ?accessPointArn ?bucket ?vpcConfiguration ?networkOrigin ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An access point used to access a bucket."]
module ObjectLambdaAccessPoint =
  struct
    type nonrec t =
      {
      name: ObjectLambdaAccessPointName.t option
        [@ocaml.doc "The name of the Object Lambda Access Point."];
      objectLambdaAccessPointArn: ObjectLambdaAccessPointArn.t option
        [@ocaml.doc "Specifies the ARN for the Object Lambda Access Point."];
      alias: ObjectLambdaAccessPointAlias.t option
        [@ocaml.doc "The alias of the Object Lambda Access Point."]}
    let make ?name =
      fun ?objectLambdaAccessPointArn ->
        fun ?alias -> fun () -> { name; objectLambdaAccessPointArn; alias }
    let to_value x =
      structure_to_value
        [("Name",
           (Option.map x.name ~f:ObjectLambdaAccessPointName.to_value));
        ("ObjectLambdaAccessPointArn",
          (Option.map x.objectLambdaAccessPointArn
             ~f:ObjectLambdaAccessPointArn.to_value));
        ("Alias",
          (Option.map x.alias ~f:ObjectLambdaAccessPointAlias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        (Option.map ~f:ObjectLambdaAccessPointAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let objectLambdaAccessPointArn =
        (Option.map ~f:ObjectLambdaAccessPointArn.of_xml)
          (Xml.child xml_arg0 "ObjectLambdaAccessPointArn") in
      let name =
        (Option.map ~f:ObjectLambdaAccessPointName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?alias ?objectLambdaAccessPointArn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias =
        field_map json__ "Alias" ObjectLambdaAccessPointAlias.of_json in
      let objectLambdaAccessPointArn =
        field_map json__ "ObjectLambdaAccessPointArn"
          ObjectLambdaAccessPointArn.of_json in
      let name = field_map json__ "Name" ObjectLambdaAccessPointName.of_json in
      make ?alias ?objectLambdaAccessPointArn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An access point with an attached Lambda function used to access transformed data from an Amazon S3 bucket."]
module ListAccessGrantEntry =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time when you created the S3 Access Grants instance."];
      accessGrantId: AccessGrantId.t option
        [@ocaml.doc
          "The ID of the access grant. S3 Access Grants auto-generates this ID when you create the access grant."];
      accessGrantArn: AccessGrantArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the access grant."];
      grantee: Grantee.t option
        [@ocaml.doc
          "The user, group, or role to which you are granting access. You can grant access to an IAM user or role. If you have added your corporate directory to Amazon Web Services IAM Identity Center and associated your Identity Center instance with your S3 Access Grants instance, the grantee can also be a corporate directory user or group."];
      permission: Permission.t option
        [@ocaml.doc
          "The type of access granted to your S3 data, which can be set to one of the following values: READ \226\128\147 Grant read-only access to the S3 data. WRITE \226\128\147 Grant write-only access to the S3 data. READWRITE \226\128\147 Grant both read and write access to the S3 data."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationConfiguration:
        AccessGrantsLocationConfiguration.t option
        [@ocaml.doc
          "The configuration options of the grant location. The grant location is the S3 path to the data to which you are granting access."];
      grantScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path of the data to which you are granting access. It is the result of appending the Subprefix to the location scope."];
      applicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Web Services IAM Identity Center application associated with your Identity Center instance. If the grant includes an application ARN, the grantee can only access the S3 data through this application."]}
    let make ?createdAt =
      fun ?accessGrantId ->
        fun ?accessGrantArn ->
          fun ?grantee ->
            fun ?permission ->
              fun ?accessGrantsLocationId ->
                fun ?accessGrantsLocationConfiguration ->
                  fun ?grantScope ->
                    fun ?applicationArn ->
                      fun () ->
                        {
                          createdAt;
                          accessGrantId;
                          accessGrantArn;
                          grantee;
                          permission;
                          accessGrantsLocationId;
                          accessGrantsLocationConfiguration;
                          grantScope;
                          applicationArn
                        }
    let to_value x =
      structure_to_value
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantId",
          (Option.map x.accessGrantId ~f:AccessGrantId.to_value));
        ("AccessGrantArn",
          (Option.map x.accessGrantArn ~f:AccessGrantArn.to_value));
        ("Grantee", (Option.map x.grantee ~f:Grantee.to_value));
        ("Permission", (Option.map x.permission ~f:Permission.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationConfiguration",
          (Option.map x.accessGrantsLocationConfiguration
             ~f:AccessGrantsLocationConfiguration.to_value));
        ("GrantScope", (Option.map x.grantScope ~f:S3Prefix.to_value));
        ("ApplicationArn",
          (Option.map x.applicationArn
             ~f:IdentityCenterApplicationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "ApplicationArn") in
      let grantScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "GrantScope") in
      let accessGrantsLocationConfiguration =
        (Option.map ~f:AccessGrantsLocationConfiguration.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationConfiguration") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      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
      let accessGrantArn =
        (Option.map ~f:AccessGrantArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantArn") in
      let accessGrantId =
        (Option.map ~f:AccessGrantId.of_xml)
          (Xml.child xml_arg0 "AccessGrantId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?applicationArn ?grantScope ?accessGrantsLocationConfiguration
        ?accessGrantsLocationId ?permission ?grantee ?accessGrantArn
        ?accessGrantId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationArn =
        field_map json__ "ApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let grantScope = field_map json__ "GrantScope" S3Prefix.of_json in
      let accessGrantsLocationConfiguration =
        field_map json__ "AccessGrantsLocationConfiguration"
          AccessGrantsLocationConfiguration.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let permission = field_map json__ "Permission" Permission.of_json in
      let grantee = field_map json__ "Grantee" Grantee.of_json in
      let accessGrantArn =
        field_map json__ "AccessGrantArn" AccessGrantArn.of_json in
      let accessGrantId =
        field_map json__ "AccessGrantId" AccessGrantId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?applicationArn ?grantScope ?accessGrantsLocationConfiguration
        ?accessGrantsLocationId ?permission ?grantee ?accessGrantArn
        ?accessGrantId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the access grant."]
module ListAccessGrantsLocationsEntry =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc "The date and time when you registered the location."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationArn: AccessGrantsLocationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the registered location."];
      locationScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path to the location that you are registering. The location scope can be the default S3 location s3://, the S3 path to a bucket s3://<bucket>, or the S3 path to a bucket and prefix s3://<bucket>/<prefix>. A prefix in S3 is a string of characters at the beginning of an object key name used to organize the objects that you store in your S3 buckets. For example, object key names that start with the engineering/ prefix or object key names that start with the marketing/campaigns/ prefix."];
      iAMRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for the registered location. S3 Access Grants assumes this role to manage access to the registered location."]}
    let make ?createdAt =
      fun ?accessGrantsLocationId ->
        fun ?accessGrantsLocationArn ->
          fun ?locationScope ->
            fun ?iAMRoleArn ->
              fun () ->
                {
                  createdAt;
                  accessGrantsLocationId;
                  accessGrantsLocationArn;
                  locationScope;
                  iAMRoleArn
                }
    let to_value x =
      structure_to_value
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationArn",
          (Option.map x.accessGrantsLocationArn
             ~f:AccessGrantsLocationArn.to_value));
        ("LocationScope", (Option.map x.locationScope ~f:S3Prefix.to_value));
        ("IAMRoleArn", (Option.map x.iAMRoleArn ~f:IAMRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iAMRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml) (Xml.child xml_arg0 "IAMRoleArn") in
      let locationScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "LocationScope") in
      let accessGrantsLocationArn =
        (Option.map ~f:AccessGrantsLocationArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationArn") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iAMRoleArn = field_map json__ "IAMRoleArn" IAMRoleArn.of_json in
      let locationScope = field_map json__ "LocationScope" S3Prefix.of_json in
      let accessGrantsLocationArn =
        field_map json__ "AccessGrantsLocationArn"
          AccessGrantsLocationArn.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for information about the registered location."]
module ListAccessGrantsInstanceEntry =
  struct
    type nonrec t =
      {
      accessGrantsInstanceId: AccessGrantsInstanceId.t option
        [@ocaml.doc
          "The ID of the S3 Access Grants instance. The ID is default. You can have one S3 Access Grants instance per Region per account."];
      accessGrantsInstanceArn: AccessGrantsInstanceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 Access Grants instance."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time when you created the S3 Access Grants instance."];
      identityCenterArn: IdentityCenterArn.t option
        [@ocaml.doc
          "If you associated your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, this field returns the Amazon Resource Name (ARN) of the IAM Identity Center instance application; a subresource of the original Identity Center instance. S3 Access Grants creates this Identity Center application for the specific S3 Access Grants instance."];
      identityCenterInstanceArn: IdentityCenterArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services IAM Identity Center instance that you are associating with your S3 Access Grants instance. An IAM Identity Center instance is your corporate identity directory that you added to the IAM Identity Center. You can use the ListInstances API operation to retrieve a list of your Identity Center instances and their ARNs."];
      identityCenterApplicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "If you associated your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, this field returns the Amazon Resource Name (ARN) of the IAM Identity Center instance application; a subresource of the original Identity Center instance. S3 Access Grants creates this Identity Center application for the specific S3 Access Grants instance."]}
    let make ?accessGrantsInstanceId =
      fun ?accessGrantsInstanceArn ->
        fun ?createdAt ->
          fun ?identityCenterArn ->
            fun ?identityCenterInstanceArn ->
              fun ?identityCenterApplicationArn ->
                fun () ->
                  {
                    accessGrantsInstanceId;
                    accessGrantsInstanceArn;
                    createdAt;
                    identityCenterArn;
                    identityCenterInstanceArn;
                    identityCenterApplicationArn
                  }
    let to_value x =
      structure_to_value
        [("AccessGrantsInstanceId",
           (Option.map x.accessGrantsInstanceId
              ~f:AccessGrantsInstanceId.to_value));
        ("AccessGrantsInstanceArn",
          (Option.map x.accessGrantsInstanceArn
             ~f:AccessGrantsInstanceArn.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("IdentityCenterArn",
          (Option.map x.identityCenterArn ~f:IdentityCenterArn.to_value));
        ("IdentityCenterInstanceArn",
          (Option.map x.identityCenterInstanceArn
             ~f:IdentityCenterArn.to_value));
        ("IdentityCenterApplicationArn",
          (Option.map x.identityCenterApplicationArn
             ~f:IdentityCenterApplicationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityCenterApplicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterApplicationArn") in
      let identityCenterInstanceArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterInstanceArn") in
      let identityCenterArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterArn") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let accessGrantsInstanceArn =
        (Option.map ~f:AccessGrantsInstanceArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceArn") in
      let accessGrantsInstanceId =
        (Option.map ~f:AccessGrantsInstanceId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceId") in
      make ?identityCenterApplicationArn ?identityCenterInstanceArn
        ?identityCenterArn ?createdAt ?accessGrantsInstanceArn
        ?accessGrantsInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityCenterApplicationArn =
        field_map json__ "IdentityCenterApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let identityCenterInstanceArn =
        field_map json__ "IdentityCenterInstanceArn"
          IdentityCenterArn.of_json in
      let identityCenterArn =
        field_map json__ "IdentityCenterArn" IdentityCenterArn.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      let accessGrantsInstanceArn =
        field_map json__ "AccessGrantsInstanceArn"
          AccessGrantsInstanceArn.of_json in
      let accessGrantsInstanceId =
        field_map json__ "AccessGrantsInstanceId"
          AccessGrantsInstanceId.of_json in
      make ?identityCenterApplicationArn ?identityCenterInstanceArn
        ?identityCenterArn ?createdAt ?accessGrantsInstanceArn
        ?accessGrantsInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the S3 Access Grants instance."]
module NoSuchPublicAccessBlockConfigurationMessage =
  struct
    type nonrec t = string
    let context_ = "NoSuchPublicAccessBlockConfigurationMessage"
    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:"NoSuchPublicAccessBlockConfigurationMessage" j
    let to_json = simple_to_json to_value
  end
module IsPublic =
  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 EstablishedMultiRegionAccessPointPolicy =
  struct
    type nonrec t =
      {
      policy: Policy.t option
        [@ocaml.doc "The details of the last established policy."]}
    let make ?policy = fun () -> { policy }
    let to_value x =
      structure_to_value
        [("Policy", (Option.map x.policy ~f:Policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Policy.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" Policy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The last established access control policy for a Multi-Region Access Point. When you update the policy, the update is first listed as the proposed policy. After the update is finished and all Regions have been updated, the proposed policy is listed as the established policy. If both policies have the same version number, the proposed policy is the established policy."]
module ProposedMultiRegionAccessPointPolicy =
  struct
    type nonrec t =
      {
      policy: Policy.t option
        [@ocaml.doc "The details of the proposed policy."]}
    let make ?policy = fun () -> { policy }
    let to_value x =
      structure_to_value
        [("Policy", (Option.map x.policy ~f:Policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Policy.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" Policy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The proposed access control policy for the Multi-Region Access Point. When you update the policy, the update is first listed as the proposed policy. After the update is finished and all Regions have been updated, the proposed policy is listed as the established policy. If both policies have the same version number, the proposed policy is the established policy."]
module AccessKeyId =
  struct
    type nonrec t = string
    let context_ = "AccessKeyId"
    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:"AccessKeyId" j
    let to_json = simple_to_json to_value
  end
module Expiration =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module SecretAccessKey =
  struct
    type nonrec t = string
    let context_ = "SecretAccessKey"
    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:"SecretAccessKey" j
    let to_json = simple_to_json to_value
  end
module SessionToken =
  struct
    type nonrec t = string
    let context_ = "SessionToken"
    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:"SessionToken" j
    let to_json = simple_to_json to_value
  end
module AsyncCreationTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module AsyncOperationName =
  struct
    type nonrec t =
      | CreateMultiRegionAccessPoint 
      | DeleteMultiRegionAccessPoint 
      | PutMultiRegionAccessPointPolicy 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CreateMultiRegionAccessPoint -> "CreateMultiRegionAccessPoint"
      | DeleteMultiRegionAccessPoint -> "DeleteMultiRegionAccessPoint"
      | PutMultiRegionAccessPointPolicy -> "PutMultiRegionAccessPointPolicy"
      | Non_static_id s -> s
    let of_string =
      function
      | "CreateMultiRegionAccessPoint" -> CreateMultiRegionAccessPoint
      | "DeleteMultiRegionAccessPoint" -> DeleteMultiRegionAccessPoint
      | "PutMultiRegionAccessPointPolicy" -> PutMultiRegionAccessPointPolicy
      | 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 AsyncOperationName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AsyncOperationName" j)
    let to_json = simple_to_json to_value
  end
module AsyncRequestParameters =
  struct
    type nonrec t =
      {
      createMultiRegionAccessPointRequest:
        CreateMultiRegionAccessPointInput.t option
        [@ocaml.doc
          "A container of the parameters for a CreateMultiRegionAccessPoint request."];
      deleteMultiRegionAccessPointRequest:
        DeleteMultiRegionAccessPointInput.t option
        [@ocaml.doc
          "A container of the parameters for a DeleteMultiRegionAccessPoint request."];
      putMultiRegionAccessPointPolicyRequest:
        PutMultiRegionAccessPointPolicyInput.t option
        [@ocaml.doc
          "A container of the parameters for a PutMultiRegionAccessPoint request."]}
    let make ?createMultiRegionAccessPointRequest =
      fun ?deleteMultiRegionAccessPointRequest ->
        fun ?putMultiRegionAccessPointPolicyRequest ->
          fun () ->
            {
              createMultiRegionAccessPointRequest;
              deleteMultiRegionAccessPointRequest;
              putMultiRegionAccessPointPolicyRequest
            }
    let to_value x =
      structure_to_value
        [("CreateMultiRegionAccessPointRequest",
           (Option.map x.createMultiRegionAccessPointRequest
              ~f:CreateMultiRegionAccessPointInput.to_value));
        ("DeleteMultiRegionAccessPointRequest",
          (Option.map x.deleteMultiRegionAccessPointRequest
             ~f:DeleteMultiRegionAccessPointInput.to_value));
        ("PutMultiRegionAccessPointPolicyRequest",
          (Option.map x.putMultiRegionAccessPointPolicyRequest
             ~f:PutMultiRegionAccessPointPolicyInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let putMultiRegionAccessPointPolicyRequest =
        (Option.map ~f:PutMultiRegionAccessPointPolicyInput.of_xml)
          (Xml.child xml_arg0 "PutMultiRegionAccessPointPolicyRequest") in
      let deleteMultiRegionAccessPointRequest =
        (Option.map ~f:DeleteMultiRegionAccessPointInput.of_xml)
          (Xml.child xml_arg0 "DeleteMultiRegionAccessPointRequest") in
      let createMultiRegionAccessPointRequest =
        (Option.map ~f:CreateMultiRegionAccessPointInput.of_xml)
          (Xml.child xml_arg0 "CreateMultiRegionAccessPointRequest") in
      make ?putMultiRegionAccessPointPolicyRequest
        ?deleteMultiRegionAccessPointRequest
        ?createMultiRegionAccessPointRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let putMultiRegionAccessPointPolicyRequest =
        field_map json__ "PutMultiRegionAccessPointPolicyRequest"
          PutMultiRegionAccessPointPolicyInput.of_json in
      let deleteMultiRegionAccessPointRequest =
        field_map json__ "DeleteMultiRegionAccessPointRequest"
          DeleteMultiRegionAccessPointInput.of_json in
      let createMultiRegionAccessPointRequest =
        field_map json__ "CreateMultiRegionAccessPointRequest"
          CreateMultiRegionAccessPointInput.of_json in
      make ?putMultiRegionAccessPointPolicyRequest
        ?deleteMultiRegionAccessPointRequest
        ?createMultiRegionAccessPointRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the request parameters associated with an asynchronous request."]
module AsyncRequestTokenARN =
  struct
    type nonrec t = string
    let context_ = "AsyncRequestTokenARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.+")));
        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:"AsyncRequestTokenARN" j
    let to_json = simple_to_json to_value
  end
module AsyncResponseDetails =
  struct
    type nonrec t =
      {
      multiRegionAccessPointDetails:
        MultiRegionAccessPointsAsyncResponse.t option
        [@ocaml.doc "The details for the Multi-Region Access Point."];
      errorDetails: AsyncErrorDetails.t option
        [@ocaml.doc "Error details for an asynchronous request."]}
    let make ?multiRegionAccessPointDetails =
      fun ?errorDetails ->
        fun () -> { multiRegionAccessPointDetails; errorDetails }
    let to_value x =
      structure_to_value
        [("MultiRegionAccessPointDetails",
           (Option.map x.multiRegionAccessPointDetails
              ~f:MultiRegionAccessPointsAsyncResponse.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:AsyncErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:AsyncErrorDetails.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let multiRegionAccessPointDetails =
        (Option.map ~f:MultiRegionAccessPointsAsyncResponse.of_xml)
          (Xml.child xml_arg0 "MultiRegionAccessPointDetails") in
      make ?errorDetails ?multiRegionAccessPointDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails =
        field_map json__ "ErrorDetails" AsyncErrorDetails.of_json in
      let multiRegionAccessPointDetails =
        field_map json__ "MultiRegionAccessPointDetails"
          MultiRegionAccessPointsAsyncResponse.of_json in
      make ?errorDetails ?multiRegionAccessPointDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the response details that are returned when querying about an asynchronous request."]
module ConfirmationRequired =
  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 JobArn =
  struct
    type nonrec t = string
    let context_ = "JobArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[^:]+:s3:[a-zA-Z0-9\\-]+:\\d{12}:job\\/.*")));
        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:"JobArn" j
    let to_json = simple_to_json to_value
  end
module JobFailureList =
  struct
    type nonrec t = JobFailure.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:JobFailure.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:JobFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"JobFailureList" ~of_json:JobFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobManifest =
  struct
    type nonrec t =
      {
      spec: JobManifestSpec.t
        [@ocaml.doc
          "Describes the format of the specified job's manifest. If the manifest is in CSV format, also describes the columns contained within the manifest."];
      location: JobManifestLocation.t
        [@ocaml.doc
          "Contains the information required to locate the specified job's manifest. Manifests can't be imported from directory buckets. For more information, see Directory buckets."]}
    let context_ = "JobManifest"
    let make ~spec = fun ~location -> fun () -> { spec; location }
    let to_value x =
      structure_to_value
        [("Spec", (Some (JobManifestSpec.to_value x.spec)));
        ("Location", (Some (JobManifestLocation.to_value x.location)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let location =
        JobManifestLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Location") in
      let spec =
        JobManifestSpec.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Spec") in
      make ~location ~spec ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let location =
        field_map_exn json__ "Location" JobManifestLocation.of_json in
      let spec = field_map_exn json__ "Spec" JobManifestSpec.of_json in
      make ~location ~spec ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration information for a job's manifest."]
module JobManifestGenerator =
  struct
    type nonrec t =
      {
      s3JobManifestGenerator: S3JobManifestGenerator.t option
        [@ocaml.doc "The S3 job ManifestGenerator's configuration details."]}
    let make ?s3JobManifestGenerator = fun () -> { s3JobManifestGenerator }
    let to_value x =
      structure_to_value
        [("S3JobManifestGenerator",
           (Option.map x.s3JobManifestGenerator
              ~f:S3JobManifestGenerator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3JobManifestGenerator =
        (Option.map ~f:S3JobManifestGenerator.of_xml)
          (Xml.child xml_arg0 "S3JobManifestGenerator") in
      make ?s3JobManifestGenerator ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3JobManifestGenerator =
        field_map json__ "S3JobManifestGenerator"
          S3JobManifestGenerator.of_json in
      make ?s3JobManifestGenerator ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configures the type of the job's ManifestGenerator."]
module JobOperation =
  struct
    type nonrec t =
      {
      lambdaInvoke: LambdaInvokeOperation.t option
        [@ocaml.doc
          "Directs the specified job to invoke an Lambda function on every object in the manifest."];
      s3PutObjectCopy: S3CopyObjectOperation.t option
        [@ocaml.doc
          "Directs the specified job to run a PUT Copy object call on every object in the manifest."];
      s3PutObjectAcl: S3SetObjectAclOperation.t option
        [@ocaml.doc
          "Directs the specified job to run a PutObjectAcl call on every object in the manifest. This functionality is not supported by directory buckets."];
      s3PutObjectTagging: S3SetObjectTaggingOperation.t option
        [@ocaml.doc
          "Directs the specified job to run a PUT Object tagging call on every object in the manifest. This functionality is not supported by directory buckets."];
      s3DeleteObjectTagging: S3DeleteObjectTaggingOperation.t option
        [@ocaml.doc
          "Directs the specified job to execute a DELETE Object tagging call on every object in the manifest. This functionality is not supported by directory buckets."];
      s3InitiateRestoreObject: S3InitiateRestoreObjectOperation.t option
        [@ocaml.doc
          "Directs the specified job to initiate restore requests for every archived object in the manifest. This functionality is not supported by directory buckets."];
      s3PutObjectLegalHold: S3SetObjectLegalHoldOperation.t option ;
      s3PutObjectRetention: S3SetObjectRetentionOperation.t option ;
      s3ReplicateObject: S3ReplicateObjectOperation.t option
        [@ocaml.doc
          "Directs the specified job to invoke ReplicateObject on every object in the job's manifest. This functionality is not supported by directory buckets."];
      s3ComputeObjectChecksum: S3ComputeObjectChecksumOperation.t option
        [@ocaml.doc
          "Directs the specified job to compute checksum values for every object in the manifest."];
      s3UpdateObjectEncryption: S3UpdateObjectEncryptionOperation.t option
        [@ocaml.doc
          "Updates the server-side encryption type of an existing encrypted object in a general purpose bucket. You can use the UpdateObjectEncryption operation to change encrypted objects from server-side encryption with Amazon S3 managed keys (SSE-S3) to server-side encryption with Key Management Service (KMS) keys (SSE-KMS), or to apply S3 Bucket Keys. You can also use the UpdateObjectEncryption operation to change the customer-managed KMS key used to encrypt your data so that you can comply with custom key-rotation standards."]}
    let make ?lambdaInvoke =
      fun ?s3PutObjectCopy ->
        fun ?s3PutObjectAcl ->
          fun ?s3PutObjectTagging ->
            fun ?s3DeleteObjectTagging ->
              fun ?s3InitiateRestoreObject ->
                fun ?s3PutObjectLegalHold ->
                  fun ?s3PutObjectRetention ->
                    fun ?s3ReplicateObject ->
                      fun ?s3ComputeObjectChecksum ->
                        fun ?s3UpdateObjectEncryption ->
                          fun () ->
                            {
                              lambdaInvoke;
                              s3PutObjectCopy;
                              s3PutObjectAcl;
                              s3PutObjectTagging;
                              s3DeleteObjectTagging;
                              s3InitiateRestoreObject;
                              s3PutObjectLegalHold;
                              s3PutObjectRetention;
                              s3ReplicateObject;
                              s3ComputeObjectChecksum;
                              s3UpdateObjectEncryption
                            }
    let to_value x =
      structure_to_value
        [("LambdaInvoke",
           (Option.map x.lambdaInvoke ~f:LambdaInvokeOperation.to_value));
        ("S3PutObjectCopy",
          (Option.map x.s3PutObjectCopy ~f:S3CopyObjectOperation.to_value));
        ("S3PutObjectAcl",
          (Option.map x.s3PutObjectAcl ~f:S3SetObjectAclOperation.to_value));
        ("S3PutObjectTagging",
          (Option.map x.s3PutObjectTagging
             ~f:S3SetObjectTaggingOperation.to_value));
        ("S3DeleteObjectTagging",
          (Option.map x.s3DeleteObjectTagging
             ~f:S3DeleteObjectTaggingOperation.to_value));
        ("S3InitiateRestoreObject",
          (Option.map x.s3InitiateRestoreObject
             ~f:S3InitiateRestoreObjectOperation.to_value));
        ("S3PutObjectLegalHold",
          (Option.map x.s3PutObjectLegalHold
             ~f:S3SetObjectLegalHoldOperation.to_value));
        ("S3PutObjectRetention",
          (Option.map x.s3PutObjectRetention
             ~f:S3SetObjectRetentionOperation.to_value));
        ("S3ReplicateObject",
          (Option.map x.s3ReplicateObject
             ~f:S3ReplicateObjectOperation.to_value));
        ("S3ComputeObjectChecksum",
          (Option.map x.s3ComputeObjectChecksum
             ~f:S3ComputeObjectChecksumOperation.to_value));
        ("S3UpdateObjectEncryption",
          (Option.map x.s3UpdateObjectEncryption
             ~f:S3UpdateObjectEncryptionOperation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3UpdateObjectEncryption =
        (Option.map ~f:S3UpdateObjectEncryptionOperation.of_xml)
          (Xml.child xml_arg0 "S3UpdateObjectEncryption") in
      let s3ComputeObjectChecksum =
        (Option.map ~f:S3ComputeObjectChecksumOperation.of_xml)
          (Xml.child xml_arg0 "S3ComputeObjectChecksum") in
      let s3ReplicateObject =
        (Option.map ~f:S3ReplicateObjectOperation.of_xml)
          (Xml.child xml_arg0 "S3ReplicateObject") in
      let s3PutObjectRetention =
        (Option.map ~f:S3SetObjectRetentionOperation.of_xml)
          (Xml.child xml_arg0 "S3PutObjectRetention") in
      let s3PutObjectLegalHold =
        (Option.map ~f:S3SetObjectLegalHoldOperation.of_xml)
          (Xml.child xml_arg0 "S3PutObjectLegalHold") in
      let s3InitiateRestoreObject =
        (Option.map ~f:S3InitiateRestoreObjectOperation.of_xml)
          (Xml.child xml_arg0 "S3InitiateRestoreObject") in
      let s3DeleteObjectTagging =
        (Option.map ~f:S3DeleteObjectTaggingOperation.of_xml)
          (Xml.child xml_arg0 "S3DeleteObjectTagging") in
      let s3PutObjectTagging =
        (Option.map ~f:S3SetObjectTaggingOperation.of_xml)
          (Xml.child xml_arg0 "S3PutObjectTagging") in
      let s3PutObjectAcl =
        (Option.map ~f:S3SetObjectAclOperation.of_xml)
          (Xml.child xml_arg0 "S3PutObjectAcl") in
      let s3PutObjectCopy =
        (Option.map ~f:S3CopyObjectOperation.of_xml)
          (Xml.child xml_arg0 "S3PutObjectCopy") in
      let lambdaInvoke =
        (Option.map ~f:LambdaInvokeOperation.of_xml)
          (Xml.child xml_arg0 "LambdaInvoke") in
      make ?s3UpdateObjectEncryption ?s3ComputeObjectChecksum
        ?s3ReplicateObject ?s3PutObjectRetention ?s3PutObjectLegalHold
        ?s3InitiateRestoreObject ?s3DeleteObjectTagging ?s3PutObjectTagging
        ?s3PutObjectAcl ?s3PutObjectCopy ?lambdaInvoke ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3UpdateObjectEncryption =
        field_map json__ "S3UpdateObjectEncryption"
          S3UpdateObjectEncryptionOperation.of_json in
      let s3ComputeObjectChecksum =
        field_map json__ "S3ComputeObjectChecksum"
          S3ComputeObjectChecksumOperation.of_json in
      let s3ReplicateObject =
        field_map json__ "S3ReplicateObject"
          S3ReplicateObjectOperation.of_json in
      let s3PutObjectRetention =
        field_map json__ "S3PutObjectRetention"
          S3SetObjectRetentionOperation.of_json in
      let s3PutObjectLegalHold =
        field_map json__ "S3PutObjectLegalHold"
          S3SetObjectLegalHoldOperation.of_json in
      let s3InitiateRestoreObject =
        field_map json__ "S3InitiateRestoreObject"
          S3InitiateRestoreObjectOperation.of_json in
      let s3DeleteObjectTagging =
        field_map json__ "S3DeleteObjectTagging"
          S3DeleteObjectTaggingOperation.of_json in
      let s3PutObjectTagging =
        field_map json__ "S3PutObjectTagging"
          S3SetObjectTaggingOperation.of_json in
      let s3PutObjectAcl =
        field_map json__ "S3PutObjectAcl" S3SetObjectAclOperation.of_json in
      let s3PutObjectCopy =
        field_map json__ "S3PutObjectCopy" S3CopyObjectOperation.of_json in
      let lambdaInvoke =
        field_map json__ "LambdaInvoke" LambdaInvokeOperation.of_json in
      make ?s3UpdateObjectEncryption ?s3ComputeObjectChecksum
        ?s3ReplicateObject ?s3PutObjectRetention ?s3PutObjectLegalHold
        ?s3InitiateRestoreObject ?s3DeleteObjectTagging ?s3PutObjectTagging
        ?s3PutObjectAcl ?s3PutObjectCopy ?lambdaInvoke ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The operation that you want this job to perform on every object listed in the manifest. For more information about the available operations, see Operations in the Amazon S3 User Guide."]
module JobReport =
  struct
    type nonrec t =
      {
      bucket: S3BucketArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the bucket where specified job-completion report will be stored. Directory buckets - Directory buckets aren't supported as a location for Batch Operations to store job completion reports."];
      format: JobReportFormat.t option
        [@ocaml.doc "The format of the specified job-completion report."];
      enabled: Boolean.t
        [@ocaml.doc
          "Indicates whether the specified job will generate a job-completion report."];
      prefix: ReportPrefixString.t option
        [@ocaml.doc
          "An optional prefix to describe where in the specified bucket the job-completion report will be stored. Amazon S3 stores the job-completion report at <prefix>/job-<job-id>/report.json."];
      reportScope: JobReportScope.t option
        [@ocaml.doc
          "Indicates whether the job-completion report will include details of all tasks or only failed tasks."];
      expectedBucketOwner: AccountId.t option
        [@ocaml.doc
          "Lists the Amazon Web Services account ID that owns the target bucket, where the completion report is received."]}
    let context_ = "JobReport"
    let make ?bucket =
      fun ?format ->
        fun ?prefix ->
          fun ?reportScope ->
            fun ?expectedBucketOwner ->
              fun ~enabled ->
                fun () ->
                  {
                    bucket;
                    format;
                    prefix;
                    reportScope;
                    expectedBucketOwner;
                    enabled
                  }
    let to_value x =
      structure_to_value
        [("Bucket", (Option.map x.bucket ~f:S3BucketArnString.to_value));
        ("Format", (Option.map x.format ~f:JobReportFormat.to_value));
        ("Enabled", (Some (Boolean.to_value x.enabled)));
        ("Prefix", (Option.map x.prefix ~f:ReportPrefixString.to_value));
        ("ReportScope",
          (Option.map x.reportScope ~f:JobReportScope.to_value));
        ("ExpectedBucketOwner",
          (Option.map x.expectedBucketOwner ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expectedBucketOwner =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ExpectedBucketOwner") in
      let reportScope =
        (Option.map ~f:JobReportScope.of_xml)
          (Xml.child xml_arg0 "ReportScope") in
      let prefix =
        (Option.map ~f:ReportPrefixString.of_xml)
          (Xml.child xml_arg0 "Prefix") in
      let enabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Enabled") in
      let format =
        (Option.map ~f:JobReportFormat.of_xml) (Xml.child xml_arg0 "Format") in
      let bucket =
        (Option.map ~f:S3BucketArnString.of_xml)
          (Xml.child xml_arg0 "Bucket") in
      make ?expectedBucketOwner ?reportScope ?prefix ~enabled ?format ?bucket
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expectedBucketOwner =
        field_map json__ "ExpectedBucketOwner" AccountId.of_json in
      let reportScope = field_map json__ "ReportScope" JobReportScope.of_json in
      let prefix = field_map json__ "Prefix" ReportPrefixString.of_json in
      let enabled = field_map_exn json__ "Enabled" Boolean.of_json in
      let format = field_map json__ "Format" JobReportFormat.of_json in
      let bucket = field_map json__ "Bucket" S3BucketArnString.of_json in
      make ?expectedBucketOwner ?reportScope ?prefix ~enabled ?format ?bucket
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration parameters for a job-completion report."]
module JobStatusUpdateReason =
  struct
    type nonrec t = string
    let context_ = "JobStatusUpdateReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobStatusUpdateReason" j
    let to_json = simple_to_json to_value
  end
module S3GeneratedManifestDescriptor =
  struct
    type nonrec t =
      {
      format: GeneratedManifestFormat.t option
        [@ocaml.doc "The format of the generated manifest."];
      location: JobManifestLocation.t option }
    let make ?format = fun ?location -> fun () -> { format; location }
    let to_value x =
      structure_to_value
        [("Format",
           (Option.map x.format ~f:GeneratedManifestFormat.to_value));
        ("Location", (Option.map x.location ~f:JobManifestLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let location =
        (Option.map ~f:JobManifestLocation.of_xml)
          (Xml.child xml_arg0 "Location") in
      let format =
        (Option.map ~f:GeneratedManifestFormat.of_xml)
          (Xml.child xml_arg0 "Format") in
      make ?location ?format ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let location = field_map json__ "Location" JobManifestLocation.of_json in
      let format = field_map json__ "Format" GeneratedManifestFormat.of_json in
      make ?location ?format ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified job's generated manifest. Batch Operations jobs created with a ManifestGenerator populate details of this descriptor after execution of the ManifestGenerator."]
module SuspendedCause =
  struct
    type nonrec t = string
    let context_ = "SuspendedCause"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SuspendedCause" j
    let to_json = simple_to_json to_value
  end
module SuspendedDate =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module BucketLocationConstraint =
  struct
    type nonrec t =
      | EU 
      | Eu_west_1 
      | Us_west_1 
      | Us_west_2 
      | Ap_south_1 
      | Ap_southeast_1 
      | Ap_southeast_2 
      | Ap_northeast_1 
      | Sa_east_1 
      | Cn_north_1 
      | Eu_central_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EU -> "EU"
      | Eu_west_1 -> "eu-west-1"
      | Us_west_1 -> "us-west-1"
      | Us_west_2 -> "us-west-2"
      | Ap_south_1 -> "ap-south-1"
      | Ap_southeast_1 -> "ap-southeast-1"
      | Ap_southeast_2 -> "ap-southeast-2"
      | Ap_northeast_1 -> "ap-northeast-1"
      | Sa_east_1 -> "sa-east-1"
      | Cn_north_1 -> "cn-north-1"
      | Eu_central_1 -> "eu-central-1"
      | Non_static_id s -> s
    let of_string =
      function
      | "EU" -> EU
      | "eu-west-1" -> Eu_west_1
      | "us-west-1" -> Us_west_1
      | "us-west-2" -> Us_west_2
      | "ap-south-1" -> Ap_south_1
      | "ap-southeast-1" -> Ap_southeast_1
      | "ap-southeast-2" -> Ap_southeast_2
      | "ap-northeast-1" -> Ap_northeast_1
      | "sa-east-1" -> Sa_east_1
      | "cn-north-1" -> Cn_north_1
      | "eu-central-1" -> Eu_central_1
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BucketLocationConstraint" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BucketLocationConstraint" j)
    let to_json = simple_to_json to_value
  end
module StorageLensGroup =
  struct
    type nonrec t =
      {
      name: StorageLensGroupName.t
        [@ocaml.doc "Contains the name of the Storage Lens group."];
      filter: StorageLensGroupFilter.t
        [@ocaml.doc
          "Sets the criteria for the Storage Lens group data that is displayed. For multiple filter conditions, the AND or OR logical operator is used."];
      storageLensGroupArn: StorageLensGroupArn.t option
        [@ocaml.doc
          "Contains the Amazon Resource Name (ARN) of the Storage Lens group. This property is read-only."]}
    let context_ = "StorageLensGroup"
    let make ?storageLensGroupArn =
      fun ~name ->
        fun ~filter -> fun () -> { storageLensGroupArn; name; filter }
    let to_value x =
      structure_to_value
        [("Name", (Some (StorageLensGroupName.to_value x.name)));
        ("Filter", (Some (StorageLensGroupFilter.to_value x.filter)));
        ("StorageLensGroupArn",
          (Option.map x.storageLensGroupArn ~f:StorageLensGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensGroupArn =
        (Option.map ~f:StorageLensGroupArn.of_xml)
          (Xml.child xml_arg0 "StorageLensGroupArn") in
      let filter =
        StorageLensGroupFilter.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Filter") in
      let name =
        StorageLensGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?storageLensGroupArn ~filter ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensGroupArn =
        field_map json__ "StorageLensGroupArn" StorageLensGroupArn.of_json in
      let filter =
        field_map_exn json__ "Filter" StorageLensGroupFilter.of_json in
      let name = field_map_exn json__ "Name" StorageLensGroupName.of_json in
      make ?storageLensGroupArn ~filter ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A custom grouping of objects that include filters for prefixes, suffixes, object tags, object size, or object age. You can create an S3 Storage Lens group that includes a single filter or multiple filter conditions. To specify multiple filter conditions, you use AND or OR logical operators."]
module BadRequestException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module InternalServiceException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module JobStatusException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module NotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module TooManyRequestsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module RequestedJobStatus =
  struct
    type nonrec t =
      | Cancelled 
      | Ready 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Cancelled -> "Cancelled"
      | Ready -> "Ready"
      | Non_static_id s -> s
    let of_string =
      function
      | "Cancelled" -> Cancelled
      | "Ready" -> Ready
      | 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 RequestedJobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RequestedJobStatus" j)
    let to_json = simple_to_json to_value
  end
module S3ResourceArn =
  struct
    type nonrec t = string
    let context_ = "S3ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (fun () ->
                check_pattern i ~pattern:"arn:[^:]+:s3(express)?:[^:].*"));
        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:"S3ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKeyString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKeyString.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:TagKeyString.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeyList" ~of_json:TagKeyString.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module MultiRegionAccessPointId =
  struct
    type nonrec t = string
    let context_ = "MultiRegionAccessPointId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9\\:.-]{3,200}$"));
        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:"MultiRegionAccessPointId" j
    let to_json = simple_to_json to_value
  end
module RouteList =
  struct
    type nonrec t = MultiRegionAccessPointRoute.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:MultiRegionAccessPointRoute.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:MultiRegionAccessPointRoute.of_xml)
    let of_json j =
      list_of_json ~kind:"RouteList"
        ~of_json:MultiRegionAccessPointRoute.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageLensTags =
  struct
    type nonrec t = StorageLensTag.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:StorageLensTag.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:StorageLensTag.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageLensTags" ~of_json:StorageLensTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageLensConfiguration =
  struct
    type nonrec t =
      {
      id: ConfigId.t
        [@ocaml.doc
          "A container for the Amazon S3 Storage Lens configuration ID."];
      accountLevel: AccountLevel.t
        [@ocaml.doc
          "A container for all the account-level configurations of your S3 Storage Lens configuration."];
      include_: Include.t option
        [@ocaml.doc
          "A container for what is included in this configuration. This container can only be valid if there is no Exclude container submitted, and it's not empty."];
      exclude: Exclude.t option
        [@ocaml.doc
          "A container for what is excluded in this configuration. This container can only be valid if there is no Include container submitted, and it's not empty."];
      dataExport: StorageLensDataExport.t option
        [@ocaml.doc
          "A container to specify the properties of your S3 Storage Lens metrics export including, the destination, schema and format."];
      expandedPrefixesDataExport:
        StorageLensExpandedPrefixesDataExport.t option
        [@ocaml.doc
          "A container that configures your S3 Storage Lens expanded prefixes metrics report."];
      isEnabled: IsEnabled.t
        [@ocaml.doc
          "A container for whether the S3 Storage Lens configuration is enabled."];
      awsOrg: StorageLensAwsOrg.t option
        [@ocaml.doc
          "A container for the Amazon Web Services organization for this S3 Storage Lens configuration."];
      storageLensArn: StorageLensArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 Storage Lens configuration. This property is read-only and follows the following format: arn:aws:s3:us-east-1:example-account-id:storage-lens/your-dashboard-name"];
      prefixDelimiter: StorageLensPrefixLevelDelimiter.t option
        [@ocaml.doc
          "A container for all prefix delimiters that are used for object keys in this S3 Storage Lens configuration. The prefix delimiters determine how S3 Storage Lens counts prefix depth, by separating the hierarchical levels in object keys. If either a prefix delimiter or existing delimiter is undefined, Amazon S3 uses the delimiter that\226\128\153s defined. If both the prefix delimiter and existing delimiter are undefined, S3 uses / as the default delimiter. When custom delimiters are used, both the prefix delimiter and existing delimiter must specify the same special character. Otherwise, your request results in an error."]}
    let context_ = "StorageLensConfiguration"
    let make ?include_ =
      fun ?exclude ->
        fun ?dataExport ->
          fun ?expandedPrefixesDataExport ->
            fun ?awsOrg ->
              fun ?storageLensArn ->
                fun ?prefixDelimiter ->
                  fun ~id ->
                    fun ~accountLevel ->
                      fun ~isEnabled ->
                        fun () ->
                          {
                            include_;
                            exclude;
                            dataExport;
                            expandedPrefixesDataExport;
                            awsOrg;
                            storageLensArn;
                            prefixDelimiter;
                            id;
                            accountLevel;
                            isEnabled
                          }
    let to_value x =
      structure_to_value
        [("Id", (Some (ConfigId.to_value x.id)));
        ("AccountLevel", (Some (AccountLevel.to_value x.accountLevel)));
        ("Include", (Option.map x.include_ ~f:Include.to_value));
        ("Exclude", (Option.map x.exclude ~f:Exclude.to_value));
        ("DataExport",
          (Option.map x.dataExport ~f:StorageLensDataExport.to_value));
        ("ExpandedPrefixesDataExport",
          (Option.map x.expandedPrefixesDataExport
             ~f:StorageLensExpandedPrefixesDataExport.to_value));
        ("IsEnabled", (Some (IsEnabled.to_value x.isEnabled)));
        ("AwsOrg", (Option.map x.awsOrg ~f:StorageLensAwsOrg.to_value));
        ("StorageLensArn",
          (Option.map x.storageLensArn ~f:StorageLensArn.to_value));
        ("PrefixDelimiter",
          (Option.map x.prefixDelimiter
             ~f:StorageLensPrefixLevelDelimiter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixDelimiter =
        (Option.map ~f:StorageLensPrefixLevelDelimiter.of_xml)
          (Xml.child xml_arg0 "PrefixDelimiter") in
      let storageLensArn =
        (Option.map ~f:StorageLensArn.of_xml)
          (Xml.child xml_arg0 "StorageLensArn") in
      let awsOrg =
        (Option.map ~f:StorageLensAwsOrg.of_xml)
          (Xml.child xml_arg0 "AwsOrg") in
      let isEnabled =
        IsEnabled.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsEnabled") in
      let expandedPrefixesDataExport =
        (Option.map ~f:StorageLensExpandedPrefixesDataExport.of_xml)
          (Xml.child xml_arg0 "ExpandedPrefixesDataExport") in
      let dataExport =
        (Option.map ~f:StorageLensDataExport.of_xml)
          (Xml.child xml_arg0 "DataExport") in
      let exclude =
        (Option.map ~f:Exclude.of_xml) (Xml.child xml_arg0 "Exclude") in
      let include_ =
        (Option.map ~f:Include.of_xml) (Xml.child xml_arg0 "Include") in
      let accountLevel =
        AccountLevel.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountLevel") in
      let id =
        ConfigId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?prefixDelimiter ?storageLensArn ?awsOrg ~isEnabled
        ?expandedPrefixesDataExport ?dataExport ?exclude ?include_
        ~accountLevel ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixDelimiter =
        field_map json__ "PrefixDelimiter"
          StorageLensPrefixLevelDelimiter.of_json in
      let storageLensArn =
        field_map json__ "StorageLensArn" StorageLensArn.of_json in
      let awsOrg = field_map json__ "AwsOrg" StorageLensAwsOrg.of_json in
      let isEnabled = field_map_exn json__ "IsEnabled" IsEnabled.of_json in
      let expandedPrefixesDataExport =
        field_map json__ "ExpandedPrefixesDataExport"
          StorageLensExpandedPrefixesDataExport.of_json in
      let dataExport =
        field_map json__ "DataExport" StorageLensDataExport.of_json in
      let exclude = field_map json__ "Exclude" Exclude.of_json in
      let include_ = field_map json__ "Include" Include.of_json in
      let accountLevel =
        field_map_exn json__ "AccountLevel" AccountLevel.of_json in
      let id = field_map_exn json__ "Id" ConfigId.of_json in
      make ?prefixDelimiter ?storageLensArn ?awsOrg ~isEnabled
        ?expandedPrefixesDataExport ?dataExport ?exclude ?include_
        ~accountLevel ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the Amazon S3 Storage Lens configuration."]
module MultiRegionAccessPointClientToken =
  struct
    type nonrec t = string
    let context_ = "MultiRegionAccessPointClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_pattern i ~pattern:"\\S+"));
        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:"MultiRegionAccessPointClientToken" j
    let to_json = simple_to_json to_value
  end
module TooManyTagsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon S3 throws this exception if you have too many tags in your tag set."]
module MFA =
  struct
    type nonrec t = string
    let context_ = "MFA"
    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:"MFA" j
    let to_json = simple_to_json to_value
  end
module VersioningConfiguration =
  struct
    type nonrec t =
      {
      mFADelete: MFADelete.t option
        [@ocaml.doc
          "Specifies whether MFA delete is enabled or disabled in the bucket versioning configuration for the S3 on Outposts bucket."];
      status: BucketVersioningStatus.t option
        [@ocaml.doc
          "Sets the versioning state of the S3 on Outposts bucket."]}
    let make ?mFADelete = fun ?status -> fun () -> { mFADelete; status }
    let to_value x =
      structure_to_value
        [("MfaDelete", (Option.map x.mFADelete ~f:MFADelete.to_value));
        ("Status", (Option.map x.status ~f:BucketVersioningStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:BucketVersioningStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let mFADelete =
        (Option.map ~f:MFADelete.of_xml) (Xml.child xml_arg0 "MfaDelete") in
      make ?status ?mFADelete ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" BucketVersioningStatus.of_json in
      let mFADelete = field_map json__ "MFADelete" MFADelete.of_json in
      make ?status ?mFADelete ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the versioning state of an Amazon S3 on Outposts bucket. For more information, see PutBucketVersioning."]
module Tagging =
  struct
    type nonrec t =
      {
      tagSet: S3TagSet.t [@ocaml.doc "A collection for a set of tags."]}
    let context_ = "Tagging"
    let make ~tagSet = fun () -> { tagSet }
    let to_value x =
      structure_to_value [("TagSet", (Some (S3TagSet.to_value x.tagSet)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagSet =
        S3TagSet.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagSet") in
      make ~tagSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagSet = field_map_exn json__ "TagSet" S3TagSet.of_json in
      make ~tagSet ()
    let to_json v = composed_to_json to_value v
  end
module ReplicationConfiguration =
  struct
    type nonrec t =
      {
      role: Role.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Identity and Access Management (IAM) role that S3 on Outposts assumes when replicating objects. For information about S3 replication on Outposts configuration, see Setting up replication in the Amazon S3 User Guide."];
      rules: ReplicationRules.t
        [@ocaml.doc
          "A container for one or more replication rules. A replication configuration must have at least one rule and can contain an array of 100 rules at the most."]}
    let context_ = "ReplicationConfiguration"
    let make ~role = fun ~rules -> fun () -> { role; rules }
    let to_value x =
      structure_to_value
        [("Role", (Some (Role.to_value x.role)));
        ("Rules", (Some (ReplicationRules.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        ReplicationRules.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      let role =
        Role.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Role") in
      make ~rules ~role ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map_exn json__ "Rules" ReplicationRules.of_json in
      let role = field_map_exn json__ "Role" Role.of_json in
      make ~rules ~role ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for one or more replication rules. A replication configuration must have at least one rule and you can add up to 100 rules. The maximum size of a replication configuration is 128 KB."]
module ConfirmRemoveSelfBucketAccess =
  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 LifecycleConfiguration =
  struct
    type nonrec t =
      {
      rules: LifecycleRules.t option
        [@ocaml.doc
          "A lifecycle rule for individual objects in an Outposts bucket."]}
    let make ?rules = fun () -> { rules }
    let to_value x =
      structure_to_value
        [("Rules", (Option.map x.rules ~f:LifecycleRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        (Option.map ~f:LifecycleRules.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" LifecycleRules.of_json in
      make ?rules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container for the Outposts bucket lifecycle configuration."]
module Scope =
  struct
    type nonrec t =
      {
      prefixes: PrefixesList.t option
        [@ocaml.doc
          "You can specify any amount of prefixes, but the total length of characters of all prefixes must be less than 256 bytes in size."];
      permissions: ScopePermissionList.t option
        [@ocaml.doc
          "You can include one or more API operations as permissions."]}
    let make ?prefixes =
      fun ?permissions -> fun () -> { prefixes; permissions }
    let to_value x =
      structure_to_value
        [("Prefixes", (Option.map x.prefixes ~f:PrefixesList.to_value));
        ("Permissions",
          (Option.map x.permissions ~f:ScopePermissionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissions =
        (Option.map ~f:ScopePermissionList.of_xml)
          (Xml.child xml_arg0 "Permissions") in
      let prefixes =
        (Option.map ~f:PrefixesList.of_xml) (Xml.child xml_arg0 "Prefixes") in
      make ?permissions ?prefixes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissions =
        field_map json__ "Permissions" ScopePermissionList.of_json in
      let prefixes = field_map json__ "Prefixes" PrefixesList.of_json in
      make ?permissions ?prefixes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use the access point scope to restrict access to specific prefixes, API operations, or a combination of both. For more information, see Manage the scope of your access points for directory buckets."]
module ObjectLambdaPolicy =
  struct
    type nonrec t = string
    let context_ = "ObjectLambdaPolicy"
    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:"ObjectLambdaPolicy" j
    let to_json = simple_to_json to_value
  end
module ObjectLambdaConfiguration =
  struct
    type nonrec t =
      {
      supportingAccessPoint: ObjectLambdaSupportingAccessPointArn.t
        [@ocaml.doc
          "Standard access point associated with the Object Lambda Access Point."];
      cloudWatchMetricsEnabled: Boolean.t option
        [@ocaml.doc
          "A container for whether the CloudWatch metrics configuration is enabled."];
      allowedFeatures: ObjectLambdaAllowedFeaturesList.t option
        [@ocaml.doc
          "A container for allowed features. Valid inputs are GetObject-Range, GetObject-PartNumber, HeadObject-Range, and HeadObject-PartNumber."];
      transformationConfigurations:
        ObjectLambdaTransformationConfigurationsList.t
        [@ocaml.doc
          "A container for transformation configurations for an Object Lambda Access Point."]}
    let context_ = "ObjectLambdaConfiguration"
    let make ?cloudWatchMetricsEnabled =
      fun ?allowedFeatures ->
        fun ~supportingAccessPoint ->
          fun ~transformationConfigurations ->
            fun () ->
              {
                cloudWatchMetricsEnabled;
                allowedFeatures;
                supportingAccessPoint;
                transformationConfigurations
              }
    let to_value x =
      structure_to_value
        [("SupportingAccessPoint",
           (Some
              (ObjectLambdaSupportingAccessPointArn.to_value
                 x.supportingAccessPoint)));
        ("CloudWatchMetricsEnabled",
          (Option.map x.cloudWatchMetricsEnabled ~f:Boolean.to_value));
        ("AllowedFeatures",
          (Option.map x.allowedFeatures
             ~f:ObjectLambdaAllowedFeaturesList.to_value));
        ("TransformationConfigurations",
          (Some
             (ObjectLambdaTransformationConfigurationsList.to_value
                x.transformationConfigurations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformationConfigurations =
        ObjectLambdaTransformationConfigurationsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TransformationConfigurations") in
      let allowedFeatures =
        (Option.map ~f:ObjectLambdaAllowedFeaturesList.of_xml)
          (Xml.child xml_arg0 "AllowedFeatures") in
      let cloudWatchMetricsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "CloudWatchMetricsEnabled") in
      let supportingAccessPoint =
        ObjectLambdaSupportingAccessPointArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SupportingAccessPoint") in
      make ~transformationConfigurations ?allowedFeatures
        ?cloudWatchMetricsEnabled ~supportingAccessPoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformationConfigurations =
        field_map_exn json__ "TransformationConfigurations"
          ObjectLambdaTransformationConfigurationsList.of_json in
      let allowedFeatures =
        field_map json__ "AllowedFeatures"
          ObjectLambdaAllowedFeaturesList.of_json in
      let cloudWatchMetricsEnabled =
        field_map json__ "CloudWatchMetricsEnabled" Boolean.of_json in
      let supportingAccessPoint =
        field_map_exn json__ "SupportingAccessPoint"
          ObjectLambdaSupportingAccessPointArn.of_json in
      make ~transformationConfigurations ?allowedFeatures
        ?cloudWatchMetricsEnabled ~supportingAccessPoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A configuration used when creating an Object Lambda Access Point."]
module Organization =
  struct
    type nonrec t = string
    let context_ = "Organization"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:34) >>=
                  (fun () -> check_pattern i ~pattern:"^o-[a-z0-9]{10,32}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Organization" j
    let to_json = simple_to_json to_value
  end
module PolicyDocument =
  struct
    type nonrec t = string
    let context_ = "PolicyDocument"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:350000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PolicyDocument" j
    let to_json = simple_to_json to_value
  end
module ContinuationToken =
  struct
    type nonrec t = string
    let context_ = "ContinuationToken"
    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:"ContinuationToken" j
    let to_json = simple_to_json to_value
  end
module StorageLensGroupList =
  struct
    type nonrec t = ListStorageLensGroupEntry.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:ListStorageLensGroupEntry.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x = make (List.map x ~f:ListStorageLensGroupEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageLensGroupList"
        ~of_json:ListStorageLensGroupEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageLensConfigurationList =
  struct
    type nonrec t = ListStorageLensConfigurationEntry.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:ListStorageLensConfigurationEntry.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make (List.map x ~f:ListStorageLensConfigurationEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageLensConfigurationList"
        ~of_json:ListStorageLensConfigurationEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegionalBucketList =
  struct
    type nonrec t = RegionalBucket.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:RegionalBucket.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:RegionalBucket.of_xml)
    let of_json j =
      list_of_json ~kind:"RegionalBucketList" ~of_json:RegionalBucket.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MultiRegionAccessPointReportList =
  struct
    type nonrec t = MultiRegionAccessPointReport.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:MultiRegionAccessPointReport.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:MultiRegionAccessPointReport.of_xml)
    let of_json j =
      list_of_json ~kind:"MultiRegionAccessPointReportList"
        ~of_json:MultiRegionAccessPointReport.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidNextTokenException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module InvalidRequestException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module JobListDescriptorList =
  struct
    type nonrec t = JobListDescriptor.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:JobListDescriptor.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:JobListDescriptor.of_xml)
    let of_json j =
      list_of_json ~kind:"JobListDescriptorList"
        ~of_json:JobListDescriptor.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringForNextToken =
  struct
    type nonrec t = string
    let context_ = "StringForNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[A-Za-z0-9\\+\\:\\/\\=\\?\\#-_]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StringForNextToken" j
    let to_json = simple_to_json to_value
  end
module JobStatusList =
  struct
    type nonrec t = JobStatus.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:JobStatus.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:JobStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"JobStatusList" ~of_json:JobStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module CallerAccessGrantsList =
  struct
    type nonrec t = ListCallerAccessGrantsEntry.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:ListCallerAccessGrantsEntry.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:ListCallerAccessGrantsEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"CallerAccessGrantsList"
        ~of_json:ListCallerAccessGrantsEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessPointList =
  struct
    type nonrec t = AccessPoint.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:AccessPoint.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:AccessPoint.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessPointList" ~of_json:AccessPoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectLambdaAccessPointList =
  struct
    type nonrec t = ObjectLambdaAccessPoint.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:ObjectLambdaAccessPoint.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:ObjectLambdaAccessPoint.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectLambdaAccessPointList"
        ~of_json:ObjectLambdaAccessPoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessGrantsList =
  struct
    type nonrec t = ListAccessGrantEntry.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:ListAccessGrantEntry.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:ListAccessGrantEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessGrantsList"
        ~of_json:ListAccessGrantEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessGrantsLocationsList =
  struct
    type nonrec t = ListAccessGrantsLocationsEntry.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:ListAccessGrantsLocationsEntry.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:ListAccessGrantsLocationsEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessGrantsLocationsList"
        ~of_json:ListAccessGrantsLocationsEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessGrantsInstancesList =
  struct
    type nonrec t = ListAccessGrantsInstanceEntry.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:ListAccessGrantsInstanceEntry.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:ListAccessGrantsInstanceEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessGrantsInstancesList"
        ~of_json:ListAccessGrantsInstanceEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module NoSuchPublicAccessBlockConfiguration =
  struct
    type nonrec t =
      {
      message: NoSuchPublicAccessBlockConfigurationMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message",
           (Option.map x.message
              ~f:NoSuchPublicAccessBlockConfigurationMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NoSuchPublicAccessBlockConfigurationMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message =
        field_map json__ "Message"
          NoSuchPublicAccessBlockConfigurationMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon S3 throws this exception if you make a GetPublicAccessBlock request against an account that doesn't have a PublicAccessBlockConfiguration set."]
module PolicyStatus =
  struct
    type nonrec t = {
      isPublic: IsPublic.t option }
    let make ?isPublic = fun () -> { isPublic }
    let to_value x =
      structure_to_value
        [("IsPublic", (Option.map x.isPublic ~f:IsPublic.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isPublic =
        (Option.map ~f:IsPublic.of_xml) (Xml.child xml_arg0 "IsPublic") in
      make ?isPublic ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isPublic = field_map json__ "IsPublic" IsPublic.of_json in
      make ?isPublic ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates whether this access point policy is public. For more information about how Amazon S3 evaluates policies to determine whether they are public, see The Meaning of \"Public\" in the Amazon S3 User Guide."]
module MultiRegionAccessPointPolicyDocument =
  struct
    type nonrec t =
      {
      established: EstablishedMultiRegionAccessPointPolicy.t option
        [@ocaml.doc
          "The last established policy for the Multi-Region Access Point."];
      proposed: ProposedMultiRegionAccessPointPolicy.t option
        [@ocaml.doc "The proposed policy for the Multi-Region Access Point."]}
    let make ?established =
      fun ?proposed -> fun () -> { established; proposed }
    let to_value x =
      structure_to_value
        [("Established",
           (Option.map x.established
              ~f:EstablishedMultiRegionAccessPointPolicy.to_value));
        ("Proposed",
          (Option.map x.proposed
             ~f:ProposedMultiRegionAccessPointPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proposed =
        (Option.map ~f:ProposedMultiRegionAccessPointPolicy.of_xml)
          (Xml.child xml_arg0 "Proposed") in
      let established =
        (Option.map ~f:EstablishedMultiRegionAccessPointPolicy.of_xml)
          (Xml.child xml_arg0 "Established") in
      make ?proposed ?established ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proposed =
        field_map json__ "Proposed"
          ProposedMultiRegionAccessPointPolicy.of_json in
      let established =
        field_map json__ "Established"
          EstablishedMultiRegionAccessPointPolicy.of_json in
      make ?proposed ?established ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Multi-Region Access Point access control policy. When you update the policy, the update is first listed as the proposed policy. After the update is finished and all Regions have been updated, the proposed policy is listed as the established policy. If both policies have the same version number, the proposed policy is the established policy."]
module Credentials =
  struct
    type nonrec t =
      {
      accessKeyId: AccessKeyId.t option
        [@ocaml.doc
          "The unique access key ID of the Amazon Web Services STS temporary credential that S3 Access Grants vends to grantees and client applications."];
      secretAccessKey: SecretAccessKey.t option
        [@ocaml.doc
          "The secret access key of the Amazon Web Services STS temporary credential that S3 Access Grants vends to grantees and client applications."];
      sessionToken: SessionToken.t option
        [@ocaml.doc
          "The Amazon Web Services STS temporary credential that S3 Access Grants vends to grantees and client applications."];
      expiration: Expiration.t option
        [@ocaml.doc
          "The expiration date and time of the temporary credential that S3 Access Grants vends to grantees and client applications."]}
    let make ?accessKeyId =
      fun ?secretAccessKey ->
        fun ?sessionToken ->
          fun ?expiration ->
            fun () ->
              { accessKeyId; secretAccessKey; sessionToken; expiration }
    let to_value x =
      structure_to_value
        [("AccessKeyId", (Option.map x.accessKeyId ~f:AccessKeyId.to_value));
        ("SecretAccessKey",
          (Option.map x.secretAccessKey ~f:SecretAccessKey.to_value));
        ("SessionToken",
          (Option.map x.sessionToken ~f:SessionToken.to_value));
        ("Expiration", (Option.map x.expiration ~f:Expiration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiration =
        (Option.map ~f:Expiration.of_xml) (Xml.child xml_arg0 "Expiration") in
      let sessionToken =
        (Option.map ~f:SessionToken.of_xml)
          (Xml.child xml_arg0 "SessionToken") in
      let secretAccessKey =
        (Option.map ~f:SecretAccessKey.of_xml)
          (Xml.child xml_arg0 "SecretAccessKey") in
      let accessKeyId =
        (Option.map ~f:AccessKeyId.of_xml) (Xml.child xml_arg0 "AccessKeyId") in
      make ?expiration ?sessionToken ?secretAccessKey ?accessKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiration = field_map json__ "Expiration" Expiration.of_json in
      let sessionToken = field_map json__ "SessionToken" SessionToken.of_json in
      let secretAccessKey =
        field_map json__ "SecretAccessKey" SecretAccessKey.of_json in
      let accessKeyId = field_map json__ "AccessKeyId" AccessKeyId.of_json in
      make ?expiration ?sessionToken ?secretAccessKey ?accessKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services Security Token Service temporary credential that S3 Access Grants vends to grantees and client applications."]
module AuditContext =
  struct
    type nonrec t = string
    let context_ = "AuditContext"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\uD7FF\\uE000-\\uFFFD\\uD800\\uDC00-\\uDBFF\\uDFFF\\t]*")));
        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:"AuditContext" j
    let to_json = simple_to_json to_value
  end
module DurationSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:43200) >>=
             (fun () -> check_int_min i ~min:900));
        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 DurationSeconds" 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 Privilege =
  struct
    type nonrec t =
      | Minimal 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Minimal -> "Minimal"
      | Default -> "Default"
      | Non_static_id s -> s
    let of_string =
      function
      | "Minimal" -> Minimal
      | "Default" -> Default
      | 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 Privilege" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Privilege" j)
    let to_json = simple_to_json to_value
  end
module S3PrefixType =
  struct
    type nonrec t =
      | Object 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Object -> "Object" | Non_static_id s -> s
    let of_string = function | "Object" -> Object | 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 S3PrefixType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3PrefixType" j)
    let to_json = simple_to_json to_value
  end
module MFADeleteStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | 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 MFADeleteStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MFADeleteStatus" j)
    let to_json = simple_to_json to_value
  end
module Endpoints =
  struct
    type nonrec t =
      (NonEmptyMaxLength64String.t * NonEmptyMaxLength1024String.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 ->
                            ((NonEmptyMaxLength64String.of_string chopped),
                              (NonEmptyMaxLength1024String.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (NonEmptyMaxLength64String.to_value x) |>
                    (fun x ->
                       (NonEmptyMaxLength1024String.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:NonEmptyMaxLength64String.of_string
        ~of_json:NonEmptyMaxLength1024String.of_json j
    let to_json v = composed_to_json to_value v
  end
module AsyncOperation =
  struct
    type nonrec t =
      {
      creationTime: AsyncCreationTimestamp.t option
        [@ocaml.doc "The time that the request was sent to the service."];
      operation: AsyncOperationName.t option
        [@ocaml.doc "The specific operation for the asynchronous request."];
      requestTokenARN: AsyncRequestTokenARN.t option
        [@ocaml.doc "The request token associated with the request."];
      requestParameters: AsyncRequestParameters.t option
        [@ocaml.doc "The parameters associated with the request."];
      requestStatus: AsyncRequestStatus.t option
        [@ocaml.doc "The current status of the request."];
      responseDetails: AsyncResponseDetails.t option
        [@ocaml.doc "The details of the response."]}
    let make ?creationTime =
      fun ?operation ->
        fun ?requestTokenARN ->
          fun ?requestParameters ->
            fun ?requestStatus ->
              fun ?responseDetails ->
                fun () ->
                  {
                    creationTime;
                    operation;
                    requestTokenARN;
                    requestParameters;
                    requestStatus;
                    responseDetails
                  }
    let to_value x =
      structure_to_value
        [("CreationTime",
           (Option.map x.creationTime ~f:AsyncCreationTimestamp.to_value));
        ("Operation",
          (Option.map x.operation ~f:AsyncOperationName.to_value));
        ("RequestTokenARN",
          (Option.map x.requestTokenARN ~f:AsyncRequestTokenARN.to_value));
        ("RequestParameters",
          (Option.map x.requestParameters ~f:AsyncRequestParameters.to_value));
        ("RequestStatus",
          (Option.map x.requestStatus ~f:AsyncRequestStatus.to_value));
        ("ResponseDetails",
          (Option.map x.responseDetails ~f:AsyncResponseDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responseDetails =
        (Option.map ~f:AsyncResponseDetails.of_xml)
          (Xml.child xml_arg0 "ResponseDetails") in
      let requestStatus =
        (Option.map ~f:AsyncRequestStatus.of_xml)
          (Xml.child xml_arg0 "RequestStatus") in
      let requestParameters =
        (Option.map ~f:AsyncRequestParameters.of_xml)
          (Xml.child xml_arg0 "RequestParameters") in
      let requestTokenARN =
        (Option.map ~f:AsyncRequestTokenARN.of_xml)
          (Xml.child xml_arg0 "RequestTokenARN") in
      let operation =
        (Option.map ~f:AsyncOperationName.of_xml)
          (Xml.child xml_arg0 "Operation") in
      let creationTime =
        (Option.map ~f:AsyncCreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      make ?responseDetails ?requestStatus ?requestParameters
        ?requestTokenARN ?operation ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responseDetails =
        field_map json__ "ResponseDetails" AsyncResponseDetails.of_json in
      let requestStatus =
        field_map json__ "RequestStatus" AsyncRequestStatus.of_json in
      let requestParameters =
        field_map json__ "RequestParameters" AsyncRequestParameters.of_json in
      let requestTokenARN =
        field_map json__ "RequestTokenARN" AsyncRequestTokenARN.of_json in
      let operation = field_map json__ "Operation" AsyncOperationName.of_json in
      let creationTime =
        field_map json__ "CreationTime" AsyncCreationTimestamp.of_json in
      make ?responseDetails ?requestStatus ?requestParameters
        ?requestTokenARN ?operation ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container for the information about an asynchronous operation."]
module JobDescriptor =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The ID for the specified job."];
      confirmationRequired: ConfirmationRequired.t option
        [@ocaml.doc
          "Indicates whether confirmation is required before Amazon S3 begins running the specified job. Confirmation is required only for jobs created through the Amazon S3 console."];
      description: NonEmptyMaxLength256String.t option
        [@ocaml.doc
          "The description for this job, if one was provided in this job's Create Job request."];
      jobArn: JobArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for this job."];
      status: JobStatus.t option
        [@ocaml.doc "The current status of the specified job."];
      manifest: JobManifest.t option
        [@ocaml.doc
          "The configuration information for the specified job's manifest object."];
      operation: JobOperation.t option
        [@ocaml.doc
          "The operation that the specified job is configured to run on the objects listed in the manifest."];
      priority: JobPriority.t option
        [@ocaml.doc "The priority of the specified job."];
      progressSummary: JobProgressSummary.t option
        [@ocaml.doc
          "Describes the total number of tasks that the specified job has run, the number of tasks that succeeded, and the number of tasks that failed."];
      statusUpdateReason: JobStatusUpdateReason.t option
        [@ocaml.doc "The reason for updating the job."];
      failureReasons: JobFailureList.t option
        [@ocaml.doc
          "If the specified job failed, this field contains information describing the failure."];
      report: JobReport.t option
        [@ocaml.doc
          "Contains the configuration information for the job-completion report if you requested one in the Create Job request."];
      creationTime: JobCreationTime.t option
        [@ocaml.doc "A timestamp indicating when this job was created."];
      terminationDate: JobTerminationDate.t option
        [@ocaml.doc
          "A timestamp indicating when this job terminated. A job's termination date is the date and time when it succeeded, failed, or was canceled."];
      roleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the Identity and Access Management (IAM) role assigned to run the tasks for this job."];
      suspendedDate: SuspendedDate.t option
        [@ocaml.doc
          "The timestamp when this job was suspended, if it has been suspended."];
      suspendedCause: SuspendedCause.t option
        [@ocaml.doc
          "The reason why the specified job was suspended. A job is only suspended if you create it through the Amazon S3 console. When you create the job, it enters the Suspended state to await confirmation before running. After you confirm the job, it automatically exits the Suspended state."];
      manifestGenerator: JobManifestGenerator.t option
        [@ocaml.doc
          "The manifest generator that was used to generate a job manifest for this job."];
      generatedManifestDescriptor: S3GeneratedManifestDescriptor.t option
        [@ocaml.doc
          "The attribute of the JobDescriptor containing details about the job's generated manifest."]}
    let make ?jobId =
      fun ?confirmationRequired ->
        fun ?description ->
          fun ?jobArn ->
            fun ?status ->
              fun ?manifest ->
                fun ?operation ->
                  fun ?priority ->
                    fun ?progressSummary ->
                      fun ?statusUpdateReason ->
                        fun ?failureReasons ->
                          fun ?report ->
                            fun ?creationTime ->
                              fun ?terminationDate ->
                                fun ?roleArn ->
                                  fun ?suspendedDate ->
                                    fun ?suspendedCause ->
                                      fun ?manifestGenerator ->
                                        fun ?generatedManifestDescriptor ->
                                          fun () ->
                                            {
                                              jobId;
                                              confirmationRequired;
                                              description;
                                              jobArn;
                                              status;
                                              manifest;
                                              operation;
                                              priority;
                                              progressSummary;
                                              statusUpdateReason;
                                              failureReasons;
                                              report;
                                              creationTime;
                                              terminationDate;
                                              roleArn;
                                              suspendedDate;
                                              suspendedCause;
                                              manifestGenerator;
                                              generatedManifestDescriptor
                                            }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("ConfirmationRequired",
          (Option.map x.confirmationRequired ~f:ConfirmationRequired.to_value));
        ("Description",
          (Option.map x.description ~f:NonEmptyMaxLength256String.to_value));
        ("JobArn", (Option.map x.jobArn ~f:JobArn.to_value));
        ("Status", (Option.map x.status ~f:JobStatus.to_value));
        ("Manifest", (Option.map x.manifest ~f:JobManifest.to_value));
        ("Operation", (Option.map x.operation ~f:JobOperation.to_value));
        ("Priority", (Option.map x.priority ~f:JobPriority.to_value));
        ("ProgressSummary",
          (Option.map x.progressSummary ~f:JobProgressSummary.to_value));
        ("StatusUpdateReason",
          (Option.map x.statusUpdateReason ~f:JobStatusUpdateReason.to_value));
        ("FailureReasons",
          (Option.map x.failureReasons ~f:JobFailureList.to_value));
        ("Report", (Option.map x.report ~f:JobReport.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:JobCreationTime.to_value));
        ("TerminationDate",
          (Option.map x.terminationDate ~f:JobTerminationDate.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:IAMRoleArn.to_value));
        ("SuspendedDate",
          (Option.map x.suspendedDate ~f:SuspendedDate.to_value));
        ("SuspendedCause",
          (Option.map x.suspendedCause ~f:SuspendedCause.to_value));
        ("ManifestGenerator",
          (Option.map x.manifestGenerator ~f:JobManifestGenerator.to_value));
        ("GeneratedManifestDescriptor",
          (Option.map x.generatedManifestDescriptor
             ~f:S3GeneratedManifestDescriptor.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generatedManifestDescriptor =
        (Option.map ~f:S3GeneratedManifestDescriptor.of_xml)
          (Xml.child xml_arg0 "GeneratedManifestDescriptor") in
      let manifestGenerator =
        (Option.map ~f:JobManifestGenerator.of_xml)
          (Xml.child xml_arg0 "ManifestGenerator") in
      let suspendedCause =
        (Option.map ~f:SuspendedCause.of_xml)
          (Xml.child xml_arg0 "SuspendedCause") in
      let suspendedDate =
        (Option.map ~f:SuspendedDate.of_xml)
          (Xml.child xml_arg0 "SuspendedDate") in
      let roleArn =
        (Option.map ~f:IAMRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let terminationDate =
        (Option.map ~f:JobTerminationDate.of_xml)
          (Xml.child xml_arg0 "TerminationDate") in
      let creationTime =
        (Option.map ~f:JobCreationTime.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let report =
        (Option.map ~f:JobReport.of_xml) (Xml.child xml_arg0 "Report") in
      let failureReasons =
        (Option.map ~f:JobFailureList.of_xml)
          (Xml.child xml_arg0 "FailureReasons") in
      let statusUpdateReason =
        (Option.map ~f:JobStatusUpdateReason.of_xml)
          (Xml.child xml_arg0 "StatusUpdateReason") in
      let progressSummary =
        (Option.map ~f:JobProgressSummary.of_xml)
          (Xml.child xml_arg0 "ProgressSummary") in
      let priority =
        (Option.map ~f:JobPriority.of_xml) (Xml.child xml_arg0 "Priority") in
      let operation =
        (Option.map ~f:JobOperation.of_xml) (Xml.child xml_arg0 "Operation") in
      let manifest =
        (Option.map ~f:JobManifest.of_xml) (Xml.child xml_arg0 "Manifest") in
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let jobArn =
        (Option.map ~f:JobArn.of_xml) (Xml.child xml_arg0 "JobArn") in
      let description =
        (Option.map ~f:NonEmptyMaxLength256String.of_xml)
          (Xml.child xml_arg0 "Description") in
      let confirmationRequired =
        (Option.map ~f:ConfirmationRequired.of_xml)
          (Xml.child xml_arg0 "ConfirmationRequired") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?generatedManifestDescriptor ?manifestGenerator ?suspendedCause
        ?suspendedDate ?roleArn ?terminationDate ?creationTime ?report
        ?failureReasons ?statusUpdateReason ?progressSummary ?priority
        ?operation ?manifest ?status ?jobArn ?description
        ?confirmationRequired ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generatedManifestDescriptor =
        field_map json__ "GeneratedManifestDescriptor"
          S3GeneratedManifestDescriptor.of_json in
      let manifestGenerator =
        field_map json__ "ManifestGenerator" JobManifestGenerator.of_json in
      let suspendedCause =
        field_map json__ "SuspendedCause" SuspendedCause.of_json in
      let suspendedDate =
        field_map json__ "SuspendedDate" SuspendedDate.of_json in
      let roleArn = field_map json__ "RoleArn" IAMRoleArn.of_json in
      let terminationDate =
        field_map json__ "TerminationDate" JobTerminationDate.of_json in
      let creationTime =
        field_map json__ "CreationTime" JobCreationTime.of_json in
      let report = field_map json__ "Report" JobReport.of_json in
      let failureReasons =
        field_map json__ "FailureReasons" JobFailureList.of_json in
      let statusUpdateReason =
        field_map json__ "StatusUpdateReason" JobStatusUpdateReason.of_json in
      let progressSummary =
        field_map json__ "ProgressSummary" JobProgressSummary.of_json in
      let priority = field_map json__ "Priority" JobPriority.of_json in
      let operation = field_map json__ "Operation" JobOperation.of_json in
      let manifest = field_map json__ "Manifest" JobManifest.of_json in
      let status = field_map json__ "Status" JobStatus.of_json in
      let jobArn = field_map json__ "JobArn" JobArn.of_json in
      let description =
        field_map json__ "Description" NonEmptyMaxLength256String.of_json in
      let confirmationRequired =
        field_map json__ "ConfirmationRequired" ConfirmationRequired.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?generatedManifestDescriptor ?manifestGenerator ?suspendedCause
        ?suspendedDate ?roleArn ?terminationDate ?creationTime ?report
        ?failureReasons ?statusUpdateReason ?progressSummary ?priority
        ?operation ?manifest ?status ?jobArn ?description
        ?confirmationRequired ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A container element for the job configuration and status information returned by a Describe Job request."]
module IdempotencyException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module BucketAlreadyExists =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested Outposts bucket name is not available. The bucket namespace is shared by all users of the Outposts in this Region. Select a different name and try again."]
module BucketAlreadyOwnedByYou =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Outposts bucket you tried to create already exists, and you own it."]
module Location =
  struct
    type nonrec t = string
    let context_ = "Location"
    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:"Location" j
    let to_json = simple_to_json to_value
  end
module BucketCannedACL =
  struct
    type nonrec t =
      | Private 
      | Public_read 
      | Public_read_write 
      | Authenticated_read 
      | 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"
      | Authenticated_read -> "authenticated-read"
      | Non_static_id s -> s
    let of_string =
      function
      | "private" -> Private
      | "public-read" -> Public_read
      | "public-read-write" -> Public_read_write
      | "authenticated-read" -> Authenticated_read
      | 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 BucketCannedACL" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BucketCannedACL" j)
    let to_json = simple_to_json to_value
  end
module CreateBucketConfiguration =
  struct
    type nonrec t =
      {
      locationConstraint: BucketLocationConstraint.t option
        [@ocaml.doc
          "Specifies the Region where the bucket will be created. If you are creating a bucket on the US East (N. Virginia) Region (us-east-1), you do not need to specify the location. This is not supported by Amazon S3 on Outposts buckets."]}
    let make ?locationConstraint = fun () -> { locationConstraint }
    let to_value x =
      structure_to_value
        [("LocationConstraint",
           (Option.map x.locationConstraint
              ~f:BucketLocationConstraint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locationConstraint =
        (Option.map ~f:BucketLocationConstraint.of_xml)
          (Xml.child xml_arg0 "LocationConstraint") in
      make ?locationConstraint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locationConstraint =
        field_map json__ "LocationConstraint"
          BucketLocationConstraint.of_json in
      make ?locationConstraint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container for the bucket configuration. This is not supported by Amazon S3 on Outposts buckets."]
module GrantFullControl =
  struct
    type nonrec t = string
    let context_ = "GrantFullControl"
    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:"GrantFullControl" j
    let to_json = simple_to_json to_value
  end
module GrantRead =
  struct
    type nonrec t = string
    let context_ = "GrantRead"
    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:"GrantRead" j
    let to_json = simple_to_json to_value
  end
module GrantReadACP =
  struct
    type nonrec t = string
    let context_ = "GrantReadACP"
    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:"GrantReadACP" j
    let to_json = simple_to_json to_value
  end
module GrantWrite =
  struct
    type nonrec t = string
    let context_ = "GrantWrite"
    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:"GrantWrite" j
    let to_json = simple_to_json to_value
  end
module GrantWriteACP =
  struct
    type nonrec t = string
    let context_ = "GrantWriteACP"
    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:"GrantWriteACP" j
    let to_json = simple_to_json to_value
  end
module ObjectLockEnabledForBucket =
  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 UpdateStorageLensGroupRequest =
  struct
    type nonrec t =
      {
      name: StorageLensGroupName.t
        [@ocaml.doc
          "The name of the Storage Lens group that you want to update."];
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Storage Lens group owner."];
      storageLensGroup: StorageLensGroup.t
        [@ocaml.doc
          "The JSON file that contains the Storage Lens group configuration."]}
    let context_ = "UpdateStorageLensGroupRequest"
    let make ~name =
      fun ~accountId ->
        fun ~storageLensGroup ->
          fun () -> { name; accountId; storageLensGroup }
    let to_value x =
      structure_to_value
        [("name", (Some (StorageLensGroupName.to_value x.name)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("StorageLensGroup",
          (Some (StorageLensGroup.to_value x.storageLensGroup)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensGroup =
        StorageLensGroup.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StorageLensGroup") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let name =
        StorageLensGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~storageLensGroup ~accountId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensGroup =
        field_map_exn json__ "StorageLensGroup" StorageLensGroup.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let name = field_map_exn json__ "Name" StorageLensGroupName.of_json in
      make ~storageLensGroup ~accountId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the existing Storage Lens group. To use this operation, you must have the permission to perform the s3:UpdateStorageLensGroup action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module UpdateJobStatusResult =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "The ID for the job whose status was updated."];
      status: JobStatus.t option
        [@ocaml.doc "The current status for the specified job."];
      statusUpdateReason: JobStatusUpdateReason.t option
        [@ocaml.doc
          "The reason that the specified job's status was updated."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `JobStatusException of JobStatusException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?status ->
        fun ?statusUpdateReason ->
          fun () -> { jobId; status; statusUpdateReason }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "JobStatusException" ->
          `JobStatusException (JobStatusException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "JobStatusException" ->
          `JobStatusException (JobStatusException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `JobStatusException e ->
          `Assoc
            [("error", (`String "JobStatusException"));
            ("details", (JobStatusException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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:JobId.to_value));
        ("Status", (Option.map x.status ~f:JobStatus.to_value));
        ("StatusUpdateReason",
          (Option.map x.statusUpdateReason ~f:JobStatusUpdateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusUpdateReason =
        (Option.map ~f:JobStatusUpdateReason.of_xml)
          (Xml.child xml_arg0 "StatusUpdateReason") in
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?statusUpdateReason ?status ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusUpdateReason =
        field_map json__ "StatusUpdateReason" JobStatusUpdateReason.of_json in
      let status = field_map json__ "Status" JobStatus.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?statusUpdateReason ?status ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status for the specified job. Use this operation to confirm that you want to run a job or to cancel an existing job. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the UpdateJobStatus operation, you must have permission to perform the s3:UpdateJobStatus action. Related actions include: CreateJob ListJobs DescribeJob UpdateJobStatus"]
module UpdateJobStatusRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobId: JobId.t
        [@ocaml.doc "The ID of the job whose status you want to update."];
      requestedJobStatus: RequestedJobStatus.t
        [@ocaml.doc "The status that you want to move the specified job to."];
      statusUpdateReason: JobStatusUpdateReason.t option
        [@ocaml.doc
          "A description of the reason why you want to change the specified job's status. This field can be any string up to the maximum length."]}
    let context_ = "UpdateJobStatusRequest"
    let make ?statusUpdateReason =
      fun ~accountId ->
        fun ~jobId ->
          fun ~requestedJobStatus ->
            fun () ->
              { statusUpdateReason; accountId; jobId; requestedJobStatus }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (JobId.to_value x.jobId)));
        ("requestedJobStatus",
          (Some (RequestedJobStatus.to_value x.requestedJobStatus)));
        ("statusUpdateReason",
          (Option.map x.statusUpdateReason ~f:JobStatusUpdateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusUpdateReason =
        (Option.map ~f:JobStatusUpdateReason.of_xml)
          (Xml.child xml_arg0 "statusUpdateReason") in
      let requestedJobStatus =
        RequestedJobStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "requestedJobStatus") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?statusUpdateReason ~requestedJobStatus ~jobId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusUpdateReason =
        field_map json__ "StatusUpdateReason" JobStatusUpdateReason.of_json in
      let requestedJobStatus =
        field_map_exn json__ "RequestedJobStatus" RequestedJobStatus.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?statusUpdateReason ~requestedJobStatus ~jobId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status for the specified job. Use this operation to confirm that you want to run a job or to cancel an existing job. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the UpdateJobStatus operation, you must have permission to perform the s3:UpdateJobStatus action. Related actions include: CreateJob ListJobs DescribeJob UpdateJobStatus"]
module UpdateJobPriorityResult =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "The ID for the job whose priority Amazon S3 updated."];
      priority: JobPriority.t option
        [@ocaml.doc "The new priority assigned to the specified job."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun ?priority -> fun () -> { jobId; priority }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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:JobId.to_value));
        ("Priority", (Option.map x.priority ~f:JobPriority.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        (Option.map ~f:JobPriority.of_xml) (Xml.child xml_arg0 "Priority") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?priority ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority = field_map json__ "Priority" JobPriority.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?priority ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing S3 Batch Operations job's priority. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the UpdateJobPriority operation, you must have permission to perform the s3:UpdateJobPriority action. Related actions include: CreateJob ListJobs DescribeJob UpdateJobStatus"]
module UpdateJobPriorityRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobId: JobId.t
        [@ocaml.doc "The ID for the job whose priority you want to update."];
      priority: JobPriority.t
        [@ocaml.doc "The priority you want to assign to this job."]}
    let context_ = "UpdateJobPriorityRequest"
    let make ~accountId =
      fun ~jobId -> fun ~priority -> fun () -> { accountId; jobId; priority }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (JobId.to_value x.jobId)));
        ("priority", (Some (JobPriority.to_value x.priority)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        JobPriority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "priority") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~priority ~jobId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority = field_map_exn json__ "Priority" JobPriority.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~priority ~jobId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing S3 Batch Operations job's priority. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the UpdateJobPriority operation, you must have permission to perform the s3:UpdateJobPriority action. Related actions include: CreateJob ListJobs DescribeJob UpdateJobStatus"]
module UpdateAccessGrantsLocationResult =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc "The date and time when you registered the location."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigned this ID when you registered the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationArn: AccessGrantsLocationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the registered location that you are updating."];
      locationScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 URI path of the location that you are updating. You cannot update the scope of the registered location. The location scope can be the default S3 location s3://, the S3 path to a bucket s3://<bucket>, or the S3 path to a bucket and prefix s3://<bucket>/<prefix>."];
      iAMRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role of the registered location. S3 Access Grants assumes this role to manage access to the registered location."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?createdAt =
      fun ?accessGrantsLocationId ->
        fun ?accessGrantsLocationArn ->
          fun ?locationScope ->
            fun ?iAMRoleArn ->
              fun () ->
                {
                  createdAt;
                  accessGrantsLocationId;
                  accessGrantsLocationArn;
                  locationScope;
                  iAMRoleArn
                }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationArn",
          (Option.map x.accessGrantsLocationArn
             ~f:AccessGrantsLocationArn.to_value));
        ("LocationScope", (Option.map x.locationScope ~f:S3Prefix.to_value));
        ("IAMRoleArn", (Option.map x.iAMRoleArn ~f:IAMRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iAMRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml) (Xml.child xml_arg0 "IAMRoleArn") in
      let locationScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "LocationScope") in
      let accessGrantsLocationArn =
        (Option.map ~f:AccessGrantsLocationArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationArn") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iAMRoleArn = field_map json__ "IAMRoleArn" IAMRoleArn.of_json in
      let locationScope = field_map json__ "LocationScope" S3Prefix.of_json in
      let accessGrantsLocationArn =
        field_map json__ "AccessGrantsLocationArn"
          AccessGrantsLocationArn.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the IAM role of a registered location in your S3 Access Grants instance. Permissions You must have the s3:UpdateAccessGrantsLocation permission to use this operation. Additional Permissions You must also have the following permission: iam:PassRole"]
module UpdateAccessGrantsLocationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      accessGrantsLocationId: AccessGrantsLocationId.t
        [@ocaml.doc
          "The ID of the registered location that you are updating. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register. The ID of the registered location to which you are granting access. S3 Access Grants assigned this ID when you registered the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register. If you are passing the default location, you cannot create an access grant for the entire default location. You must also specify a bucket or a bucket and prefix in the Subprefix field."];
      iAMRoleArn: IAMRoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for the registered location. S3 Access Grants assumes this role to manage access to the registered location."]}
    let context_ = "UpdateAccessGrantsLocationRequest"
    let make ~accountId =
      fun ~accessGrantsLocationId ->
        fun ~iAMRoleArn ->
          fun () -> { accountId; accessGrantsLocationId; iAMRoleArn }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id",
          (Some (AccessGrantsLocationId.to_value x.accessGrantsLocationId)));
        ("IAMRoleArn", (Some (IAMRoleArn.to_value x.iAMRoleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iAMRoleArn =
        IAMRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IAMRoleArn") in
      let accessGrantsLocationId =
        AccessGrantsLocationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~iAMRoleArn ~accessGrantsLocationId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iAMRoleArn = field_map_exn json__ "IAMRoleArn" IAMRoleArn.of_json in
      let accessGrantsLocationId =
        field_map_exn json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~iAMRoleArn ~accessGrantsLocationId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the IAM role of a registered location in your S3 Access Grants instance. Permissions You must have the s3:UpdateAccessGrantsLocation permission to use this operation. Additional Permissions You must also have the following permission: iam:PassRole"]
module UntagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation removes the specified user-defined tags from an S3 resource. You can pass one or more tag keys. This operation is only supported for the following Amazon S3 resources: General purpose buckets Access Points for directory buckets Access Points for general purpose buckets Directory buckets S3 Storage Lens groups S3 Access Grants instances, registered locations, and grants. Permissions For general purpose buckets, access points for general purpose buckets, Storage Lens groups, and S3 Access Grants, you must have the s3:UntagResource permission to use this operation. Directory bucket permissions For directory buckets, you must have the s3express:UntagResource permission to use this operation. For more information about directory buckets policies and permissions, see Identity and Access Management (IAM) for S3 Express One Zone in the Amazon S3 User Guide. HTTP Host header syntax Directory buckets - The HTTP Host header syntax is s3express-control.region.amazonaws.com. For information about S3 Tagging errors, see List of Amazon S3 Tagging error codes."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the resource that you're trying to remove the tags from."];
      resourceArn: S3ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 resource that you're removing tags from. The tagged resource can be a directory bucket, S3 Storage Lens group or S3 Access Grants instance, registered location, or grant."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The array of tag key-value pairs that you're trying to remove from of the S3 resource."]}
    let context_ = "UntagResourceRequest"
    let make ~accountId =
      fun ~resourceArn ->
        fun ~tagKeys -> fun () -> { accountId; resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("resourceArn", (Some (S3ResourceArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        S3ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~tagKeys ~resourceArn ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" S3ResourceArn.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~tagKeys ~resourceArn ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation removes the specified user-defined tags from an S3 resource. You can pass one or more tag keys. This operation is only supported for the following Amazon S3 resources: General purpose buckets Access Points for directory buckets Access Points for general purpose buckets Directory buckets S3 Storage Lens groups S3 Access Grants instances, registered locations, and grants. Permissions For general purpose buckets, access points for general purpose buckets, Storage Lens groups, and S3 Access Grants, you must have the s3:UntagResource permission to use this operation. Directory bucket permissions For directory buckets, you must have the s3express:UntagResource permission to use this operation. For more information about directory buckets policies and permissions, see Identity and Access Management (IAM) for S3 Express One Zone in the Amazon S3 User Guide. HTTP Host header syntax Directory buckets - The HTTP Host header syntax is s3express-control.region.amazonaws.com. For information about S3 Tagging errors, see List of Amazon S3 Tagging error codes."]
module TagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new user-defined tag or updates an existing tag. Each tag is a label consisting of a key and value that is applied to your resource. Tags can help you organize, track costs for, and control access to your resources. You can add up to 50 Amazon Web Services resource tags for each S3 resource. This operation is only supported for the following Amazon S3 resource: General purpose buckets Access Points for directory buckets Access Points for general purpose buckets Directory buckets S3 Storage Lens groups S3 Access Grants instances, registered locations, or grants. Permissions For general purpose buckets, access points for general purpose buckets, Storage Lens groups, and S3 Access Grants, you must have the s3:TagResource permission to use this operation. Directory bucket permissions For directory buckets, you must have the s3express:TagResource permission to use this operation. For more information about directory buckets policies and permissions, see Identity and Access Management (IAM) for S3 Express One Zone in the Amazon S3 User Guide. HTTP Host header syntax Directory buckets - The HTTP Host header syntax is s3express-control.region.amazonaws.com. For information about S3 Tagging errors, see List of Amazon S3 Tagging error codes."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that created the S3 resource that you're trying to add tags to or the requester's account ID."];
      resourceArn: S3ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 resource that you're applying tags to. The tagged resource can be a directory bucket, S3 Storage Lens group or S3 Access Grants instance, registered location, or grant."];
      tags: TagList.t
        [@ocaml.doc
          "The Amazon Web Services resource tags that you want to add to the specified S3 resource."]}
    let context_ = "TagResourceRequest"
    let make ~accountId =
      fun ~resourceArn ->
        fun ~tags -> fun () -> { accountId; resourceArn; tags }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("resourceArn", (Some (S3ResourceArn.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        S3ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~tags ~resourceArn ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" S3ResourceArn.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~tags ~resourceArn ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new user-defined tag or updates an existing tag. Each tag is a label consisting of a key and value that is applied to your resource. Tags can help you organize, track costs for, and control access to your resources. You can add up to 50 Amazon Web Services resource tags for each S3 resource. This operation is only supported for the following Amazon S3 resource: General purpose buckets Access Points for directory buckets Access Points for general purpose buckets Directory buckets S3 Storage Lens groups S3 Access Grants instances, registered locations, or grants. Permissions For general purpose buckets, access points for general purpose buckets, Storage Lens groups, and S3 Access Grants, you must have the s3:TagResource permission to use this operation. Directory bucket permissions For directory buckets, you must have the s3express:TagResource permission to use this operation. For more information about directory buckets policies and permissions, see Identity and Access Management (IAM) for S3 Express One Zone in the Amazon S3 User Guide. HTTP Host header syntax Directory buckets - The HTTP Host header syntax is s3express-control.region.amazonaws.com. For information about S3 Tagging errors, see List of Amazon S3 Tagging error codes."]
module SubmitMultiRegionAccessPointRoutesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Submits an updated route configuration for a Multi-Region Access Point. This API operation updates the routing status for the specified Regions from active to passive, or from passive to active. A value of 0 indicates a passive status, which means that traffic won't be routed to the specified Region. A value of 100 indicates an active status, which means that traffic will be routed to the specified Region. At least one Region must be active at all times. When the routing configuration is changed, any in-progress operations (uploads, copies, deletes, and so on) to formerly active Regions will continue to run to their final completion state (success or failure). The routing configurations of any Regions that aren\226\128\153t specified remain unchanged. Updated routing configurations might not be immediately applied. It can take up to 2 minutes for your changes to take effect. To submit routing control changes and failover requests, use the Amazon S3 failover control infrastructure endpoints in these five Amazon Web Services Regions: us-east-1 us-west-2 ap-southeast-2 ap-northeast-1 eu-west-1"]
module SubmitMultiRegionAccessPointRoutesRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      mrap: MultiRegionAccessPointId.t
        [@ocaml.doc "The Multi-Region Access Point ARN."];
      routeUpdates: RouteList.t
        [@ocaml.doc
          "The different routes that make up the new route configuration. Active routes return a value of 100, and passive routes return a value of 0."]}
    let context_ = "SubmitMultiRegionAccessPointRoutesRequest"
    let make ~accountId =
      fun ~mrap ->
        fun ~routeUpdates -> fun () -> { accountId; mrap; routeUpdates }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("mrap", (Some (MultiRegionAccessPointId.to_value x.mrap)));
        ("RouteUpdates", (Some (RouteList.to_value x.routeUpdates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routeUpdates =
        RouteList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RouteUpdates") in
      let mrap =
        MultiRegionAccessPointId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mrap") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~routeUpdates ~mrap ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routeUpdates =
        field_map_exn json__ "RouteUpdates" RouteList.of_json in
      let mrap = field_map_exn json__ "Mrap" MultiRegionAccessPointId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~routeUpdates ~mrap ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Submits an updated route configuration for a Multi-Region Access Point. This API operation updates the routing status for the specified Regions from active to passive, or from passive to active. A value of 0 indicates a passive status, which means that traffic won't be routed to the specified Region. A value of 100 indicates an active status, which means that traffic will be routed to the specified Region. At least one Region must be active at all times. When the routing configuration is changed, any in-progress operations (uploads, copies, deletes, and so on) to formerly active Regions will continue to run to their final completion state (success or failure). The routing configurations of any Regions that aren\226\128\153t specified remain unchanged. Updated routing configurations might not be immediately applied. It can take up to 2 minutes for your changes to take effect. To submit routing control changes and failover requests, use the Amazon S3 failover control infrastructure endpoints in these five Amazon Web Services Regions: us-east-1 us-west-2 ap-southeast-2 ap-northeast-1 eu-west-1"]
module PutStorageLensConfigurationTaggingResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Put or replace tags on an existing Amazon S3 Storage Lens configuration. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:PutStorageLensConfigurationTagging action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module PutStorageLensConfigurationTaggingRequest =
  struct
    type nonrec t =
      {
      configId: ConfigId.t
        [@ocaml.doc "The ID of the S3 Storage Lens configuration."];
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."];
      tags: StorageLensTags.t
        [@ocaml.doc
          "The tag set of the S3 Storage Lens configuration. You can set up to a maximum of 50 tags."]}
    let context_ = "PutStorageLensConfigurationTaggingRequest"
    let make ~configId =
      fun ~accountId -> fun ~tags -> fun () -> { configId; accountId; tags }
    let to_value x =
      structure_to_value
        [("storagelensid", (Some (ConfigId.to_value x.configId)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("Tags", (Some (StorageLensTags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        StorageLensTags.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let configId =
        ConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storagelensid") in
      make ~tags ~accountId ~configId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" StorageLensTags.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let configId = field_map_exn json__ "ConfigId" ConfigId.of_json in
      make ~tags ~accountId ~configId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Put or replace tags on an existing Amazon S3 Storage Lens configuration. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:PutStorageLensConfigurationTagging action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module PutStorageLensConfigurationRequest =
  struct
    type nonrec t =
      {
      configId: ConfigId.t
        [@ocaml.doc "The ID of the S3 Storage Lens configuration."];
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."];
      storageLensConfiguration: StorageLensConfiguration.t
        [@ocaml.doc "The S3 Storage Lens configuration."];
      tags: StorageLensTags.t option
        [@ocaml.doc
          "The tag set of the S3 Storage Lens configuration. You can set up to a maximum of 50 tags."]}
    let context_ = "PutStorageLensConfigurationRequest"
    let make ?tags =
      fun ~configId ->
        fun ~accountId ->
          fun ~storageLensConfiguration ->
            fun () -> { tags; configId; accountId; storageLensConfiguration }
    let to_value x =
      structure_to_value
        [("storagelensid", (Some (ConfigId.to_value x.configId)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("StorageLensConfiguration",
          (Some
             (StorageLensConfiguration.to_value x.storageLensConfiguration)));
        ("Tags", (Option.map x.tags ~f:StorageLensTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:StorageLensTags.of_xml) (Xml.child xml_arg0 "Tags") in
      let storageLensConfiguration =
        StorageLensConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "StorageLensConfiguration") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let configId =
        ConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storagelensid") in
      make ?tags ~storageLensConfiguration ~accountId ~configId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" StorageLensTags.of_json in
      let storageLensConfiguration =
        field_map_exn json__ "StorageLensConfiguration"
          StorageLensConfiguration.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let configId = field_map_exn json__ "ConfigId" ConfigId.of_json in
      make ?tags ~storageLensConfiguration ~accountId ~configId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Puts an Amazon S3 Storage Lens configuration. For more information about S3 Storage Lens, see Working with Amazon S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:PutStorageLensConfiguration action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module PutPublicAccessBlockRequest =
  struct
    type nonrec t =
      {
      publicAccessBlockConfiguration: PublicAccessBlockConfiguration.t
        [@ocaml.doc
          "The PublicAccessBlock configuration that you want to apply to the specified Amazon Web Services account."];
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the Amazon Web Services account whose PublicAccessBlock configuration you want to set."]}
    let context_ = "PutPublicAccessBlockRequest"
    let make ~publicAccessBlockConfiguration =
      fun ~accountId ->
        fun () -> { publicAccessBlockConfiguration; accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make ~publicAccessBlockConfiguration:pipe
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("PublicAccessBlockConfiguration",
           (Some
              (PublicAccessBlockConfiguration.to_value
                 x.publicAccessBlockConfiguration)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let publicAccessBlockConfiguration =
        PublicAccessBlockConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PublicAccessBlockConfiguration") in
      make ~accountId ~publicAccessBlockConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let publicAccessBlockConfiguration =
        field_map_exn json__ "PublicAccessBlockConfiguration"
          PublicAccessBlockConfiguration.of_json in
      make ~accountId ~publicAccessBlockConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Creates or modifies the PublicAccessBlock configuration for an Amazon Web Services account. This operation may be restricted when the account is managed by organization-level Block Public Access policies. You might get an Access Denied (403) error when the account is managed by organization-level Block Public Access policies. Organization-level policies override account-level settings, preventing direct account-level modifications. For this operation, users must have the s3:PutAccountPublicAccessBlock permission. For more information, see Using Amazon S3 block public access. Related actions include: GetPublicAccessBlock DeletePublicAccessBlock"]
module PutMultiRegionAccessPointPolicyResult =
  struct
    type nonrec t =
      {
      requestTokenARN: AsyncRequestTokenARN.t option
        [@ocaml.doc
          "The request token associated with the request. You can use this token with DescribeMultiRegionAccessPointOperation to determine the status of asynchronous requests."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?requestTokenARN = fun () -> { requestTokenARN }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("RequestTokenARN",
           (Option.map x.requestTokenARN ~f:AsyncRequestTokenARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestTokenARN =
        (Option.map ~f:AsyncRequestTokenARN.of_xml)
          (Xml.child xml_arg0 "RequestTokenARN") in
      make ?requestTokenARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestTokenARN =
        field_map json__ "RequestTokenARN" AsyncRequestTokenARN.of_json in
      make ?requestTokenARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Associates an access control policy with the specified Multi-Region Access Point. Each Multi-Region Access Point can have only one policy, so a request made to this action replaces any existing policy that is associated with the specified Multi-Region Access Point. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to PutMultiRegionAccessPointPolicy: GetMultiRegionAccessPointPolicy GetMultiRegionAccessPointPolicyStatus"]
module PutMultiRegionAccessPointPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      clientToken: MultiRegionAccessPointClientToken.t
        [@ocaml.doc
          "An idempotency token used to identify the request and guarantee that requests are unique."];
      details: PutMultiRegionAccessPointPolicyInput.t
        [@ocaml.doc
          "A container element containing the details of the policy for the Multi-Region Access Point."]}
    let context_ = "PutMultiRegionAccessPointPolicyRequest"
    let make ~accountId =
      fun ~clientToken ->
        fun ~details -> fun () -> { accountId; clientToken; details }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("ClientToken",
          (Some (MultiRegionAccessPointClientToken.to_value x.clientToken)));
        ("Details",
          (Some (PutMultiRegionAccessPointPolicyInput.to_value x.details)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let details =
        PutMultiRegionAccessPointPolicyInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Details") in
      let clientToken =
        MultiRegionAccessPointClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~details ~clientToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let details =
        field_map_exn json__ "Details"
          PutMultiRegionAccessPointPolicyInput.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken"
          MultiRegionAccessPointClientToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~details ~clientToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Associates an access control policy with the specified Multi-Region Access Point. Each Multi-Region Access Point can have only one policy, so a request made to this action replaces any existing policy that is associated with the specified Multi-Region Access Point. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to PutMultiRegionAccessPointPolicy: GetMultiRegionAccessPointPolicy GetMultiRegionAccessPointPolicyStatus"]
module PutJobTaggingResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceException of InternalServiceException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the supplied tag-set on an S3 Batch Operations job. A tag is a key-value pair. You can associate S3 Batch Operations tags with any job by sending a PUT request against the tagging subresource that is associated with the job. To modify the existing tag set, you can either replace the existing tag set entirely, or make changes within the existing tag set by retrieving the existing tag set using GetJobTagging, modify that tag set, and use this operation to replace the tag set with the one you modified. For more information, see Controlling access and labeling jobs using tags in the Amazon S3 User Guide. If you send this request with an empty tag set, Amazon S3 deletes the existing tag set on the Batch Operations job. If you use this method, you are charged for a Tier 1 Request (PUT). For more information, see Amazon S3 pricing. For deleting existing tags for your Batch Operations job, a DeleteJobTagging request is preferred because it achieves the same result without incurring charges. A few things to consider about using tags: Amazon S3 limits the maximum number of tags to 50 tags per job. You can associate up to 50 tags with a job as long as they have unique tag keys. A tag key can be up to 128 Unicode characters in length, and tag values can be up to 256 Unicode characters in length. The key and values are case sensitive. For tagging-related restrictions related to characters and encodings, see User-Defined Tag Restrictions in the Billing and Cost Management User Guide. Permissions To use the PutJobTagging operation, you must have permission to perform the s3:PutJobTagging action. Related actions include: CreateJob GetJobTagging DeleteJobTagging"]
module PutJobTaggingRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobId: JobId.t
        [@ocaml.doc
          "The ID for the S3 Batch Operations job whose tags you want to replace."];
      tags: S3TagSet.t
        [@ocaml.doc
          "The set of tags to associate with the S3 Batch Operations job."]}
    let context_ = "PutJobTaggingRequest"
    let make ~accountId =
      fun ~jobId -> fun ~tags -> fun () -> { accountId; jobId; tags }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (JobId.to_value x.jobId)));
        ("Tags", (Some (S3TagSet.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        S3TagSet.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~tags ~jobId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" S3TagSet.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~tags ~jobId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the supplied tag-set on an S3 Batch Operations job. A tag is a key-value pair. You can associate S3 Batch Operations tags with any job by sending a PUT request against the tagging subresource that is associated with the job. To modify the existing tag set, you can either replace the existing tag set entirely, or make changes within the existing tag set by retrieving the existing tag set using GetJobTagging, modify that tag set, and use this operation to replace the tag set with the one you modified. For more information, see Controlling access and labeling jobs using tags in the Amazon S3 User Guide. If you send this request with an empty tag set, Amazon S3 deletes the existing tag set on the Batch Operations job. If you use this method, you are charged for a Tier 1 Request (PUT). For more information, see Amazon S3 pricing. For deleting existing tags for your Batch Operations job, a DeleteJobTagging request is preferred because it achieves the same result without incurring charges. A few things to consider about using tags: Amazon S3 limits the maximum number of tags to 50 tags per job. You can associate up to 50 tags with a job as long as they have unique tag keys. A tag key can be up to 128 Unicode characters in length, and tag values can be up to 256 Unicode characters in length. The key and values are case sensitive. For tagging-related restrictions related to characters and encodings, see User-Defined Tag Restrictions in the Billing and Cost Management User Guide. Permissions To use the PutJobTagging operation, you must have permission to perform the s3:PutJobTagging action. Related actions include: CreateJob GetJobTagging DeleteJobTagging"]
module PutBucketVersioningRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 on Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "The S3 on Outposts bucket to set the versioning state for."];
      mFA: MFA.t option
        [@ocaml.doc
          "The concatenation of the authentication device's serial number, a space, and the value that is displayed on your authentication device."];
      versioningConfiguration: VersioningConfiguration.t
        [@ocaml.doc
          "The root-level tag for the VersioningConfiguration parameters."]}
    let context_ = "PutBucketVersioningRequest"
    let make ?mFA =
      fun ~accountId ->
        fun ~bucket ->
          fun ~versioningConfiguration ->
            fun () -> { mFA; accountId; bucket; versioningConfiguration }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id"))
            ~bucket:(BucketName.of_string
                       ((List.Assoc.find_exn ~equal:String.Caseless.equal) xs
                          "name"))
            ?mFA:(Option.map
                    ((List.Assoc.find ~equal:String.Caseless.equal) xs
                       "x-amz-mfa") ~f:MFA.of_string)
            ~versioningConfiguration:pipe ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)));
        ("x-amz-mfa", (Option.map x.mFA ~f:MFA.to_value));
        ("VersioningConfiguration",
          (Some (VersioningConfiguration.to_value x.versioningConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versioningConfiguration =
        VersioningConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersioningConfiguration") in
      let mFA = (Option.map ~f:MFA.of_xml) (Xml.child xml_arg0 "x-amz-mfa") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~versioningConfiguration ?mFA ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versioningConfiguration =
        field_map_exn json__ "VersioningConfiguration"
          VersioningConfiguration.of_json in
      let mFA = field_map json__ "MFA" MFA.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~versioningConfiguration ?mFA ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation sets the versioning state for S3 on Outposts buckets only. To set the versioning state for an S3 bucket, see PutBucketVersioning in the Amazon S3 API Reference. Sets the versioning state for an S3 on Outposts bucket. With S3 Versioning, you can save multiple distinct copies of your objects and recover from unintended user actions and application failures. You can set the versioning state to one of the following: Enabled - Enables versioning for the objects in the bucket. All objects added to the bucket receive a unique version ID. Suspended - Suspends versioning for the objects in the bucket. All objects added to the bucket receive the version ID null. If you've never set versioning on your bucket, it has no versioning state. In that case, a GetBucketVersioning request does not return a versioning state value. When you enable S3 Versioning, for each object in your bucket, you have a current version and zero or more noncurrent versions. You can configure your bucket S3 Lifecycle rules to expire noncurrent versions after a specified time period. For more information, see Creating and managing a lifecycle configuration for your S3 on Outposts bucket in the Amazon S3 User Guide. If you have an object expiration lifecycle configuration in your non-versioned bucket and you want to maintain the same permanent delete behavior when you enable versioning, you must add a noncurrent expiration policy. The noncurrent expiration lifecycle configuration will manage the deletes of the noncurrent object versions in the version-enabled bucket. For more information, see Versioning in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following operations are related to PutBucketVersioning for S3 on Outposts. GetBucketVersioning PutBucketLifecycleConfiguration GetBucketLifecycleConfiguration"]
module PutBucketTaggingRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."];
      tagging: Tagging.t }
    let context_ = "PutBucketTaggingRequest"
    let make ~accountId =
      fun ~bucket -> fun ~tagging -> fun () -> { accountId; bucket; tagging }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id"))
            ~bucket:(BucketName.of_string
                       ((List.Assoc.find_exn ~equal:String.Caseless.equal) xs
                          "name")) ~tagging:pipe ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)));
        ("Tagging", (Some (Tagging.to_value x.tagging)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagging =
        Tagging.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tagging") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~tagging ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagging = field_map_exn json__ "Tagging" Tagging.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~tagging ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action puts tags on an Amazon S3 on Outposts bucket. To put tags on an S3 bucket, see PutBucketTagging in the Amazon S3 API Reference. Sets the tags for an S3 on Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. Use tags to organize your Amazon Web Services bill to reflect your own cost structure. To do this, sign up to get your Amazon Web Services account bill with tag key values included. Then, to see the cost of combined resources, organize your billing information according to resources with the same tag key values. For example, you can tag several resources with a specific application name, and then organize your billing information to see the total cost of that application across several services. For more information, see Cost allocation and tagging. Within a bucket, if you add a tag that has the same key as an existing tag, the new value overwrites the old value. For more information, see Using cost allocation in Amazon S3 bucket tags. To use this action, you must have permissions to perform the s3-outposts:PutBucketTagging action. The Outposts bucket owner has this permission by default and can grant this permission to others. For more information about permissions, see Permissions Related to Bucket Subresource Operations and Managing access permissions to your Amazon S3 resources. PutBucketTagging has the following special errors: Error code: InvalidTagError Description: The tag provided was not a valid tag. This error can occur if the tag did not pass input validation. For information about tag restrictions, see User-Defined Tag Restrictions and Amazon Web Services-Generated Cost Allocation Tag Restrictions. Error code: MalformedXMLError Description: The XML provided does not match the schema. Error code: OperationAbortedError Description: A conflicting conditional action is currently in progress against this resource. Try again. Error code: InternalError Description: The service was unable to apply the provided tag to the bucket. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to PutBucketTagging: GetBucketTagging DeleteBucketTagging"]
module PutBucketReplicationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the S3 on Outposts bucket to set the configuration for. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."];
      replicationConfiguration: ReplicationConfiguration.t }
    let context_ = "PutBucketReplicationRequest"
    let make ~accountId =
      fun ~bucket ->
        fun ~replicationConfiguration ->
          fun () -> { accountId; bucket; replicationConfiguration }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id"))
            ~bucket:(BucketName.of_string
                       ((List.Assoc.find_exn ~equal:String.Caseless.equal) xs
                          "name")) ~replicationConfiguration:pipe ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)));
        ("ReplicationConfiguration",
          (Some
             (ReplicationConfiguration.to_value x.replicationConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationConfiguration =
        ReplicationConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ReplicationConfiguration") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~replicationConfiguration ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationConfiguration =
        field_map_exn json__ "ReplicationConfiguration"
          ReplicationConfiguration.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~replicationConfiguration ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action creates an Amazon S3 on Outposts bucket's replication configuration. To create an S3 bucket's replication configuration, see PutBucketReplication in the Amazon S3 API Reference. Creates a replication configuration or replaces an existing one. For information about S3 replication on Outposts configuration, see Replicating objects for S3 on Outposts in the Amazon S3 User Guide. It can take a while to propagate PUT or DELETE requests for a replication configuration to all S3 on Outposts systems. Therefore, the replication configuration that's returned by a GET request soon after a PUT or DELETE request might return a more recent result than what's on the Outpost. If an Outpost is offline, the delay in updating the replication configuration on that Outpost can be significant. Specify the replication configuration in the request body. In the replication configuration, you provide the following information: The name of the destination bucket or buckets where you want S3 on Outposts to replicate objects The Identity and Access Management (IAM) role that S3 on Outposts can assume to replicate objects on your behalf Other relevant information, such as replication rules A replication configuration must include at least one rule and can contain a maximum of 100. Each rule identifies a subset of objects to replicate by filtering the objects in the source Outposts bucket. To choose additional subsets of objects to replicate, add a rule for each subset. To specify a subset of the objects in the source Outposts bucket to apply a replication rule to, add the Filter element as a child of the Rule element. You can filter objects based on an object key prefix, one or more object tags, or both. When you add the Filter element in the configuration, you must also add the following elements: DeleteMarkerReplication, Status, and Priority. Using PutBucketReplication on Outposts requires that both the source and destination buckets must have versioning enabled. For information about enabling versioning on a bucket, see Managing S3 Versioning for your S3 on Outposts bucket. For information about S3 on Outposts replication failure reasons, see Replication failure reasons in the Amazon S3 User Guide. Handling Replication of Encrypted Objects Outposts buckets are encrypted at all times. All the objects in the source Outposts bucket are encrypted and can be replicated. Also, all the replicas in the destination Outposts bucket are encrypted with the same encryption key as the objects in the source Outposts bucket. Permissions To create a PutBucketReplication request, you must have s3-outposts:PutReplicationConfiguration permissions for the bucket. The Outposts bucket owner has this permission by default and can grant it to others. For more information about permissions, see Setting up IAM with S3 on Outposts and Managing access to S3 on Outposts buckets. To perform this operation, the user or role must also have the iam:CreateRole and iam:PassRole permissions. For more information, see Granting a user permissions to pass a role to an Amazon Web Services service. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following operations are related to PutBucketReplication: GetBucketReplication DeleteBucketReplication"]
module PutBucketPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."];
      confirmRemoveSelfBucketAccess: ConfirmRemoveSelfBucketAccess.t option
        [@ocaml.doc
          "Set this parameter to true to confirm that you want to remove your permissions to change this bucket policy in the future. This is not supported by Amazon S3 on Outposts buckets."];
      policy: Policy.t [@ocaml.doc "The bucket policy as a JSON document."]}
    let context_ = "PutBucketPolicyRequest"
    let make ?confirmRemoveSelfBucketAccess =
      fun ~accountId ->
        fun ~bucket ->
          fun ~policy ->
            fun () ->
              { confirmRemoveSelfBucketAccess; accountId; bucket; policy }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)));
        ("x-amz-confirm-remove-self-bucket-access",
          (Option.map x.confirmRemoveSelfBucketAccess
             ~f:ConfirmRemoveSelfBucketAccess.to_value));
        ("Policy", (Some (Policy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let confirmRemoveSelfBucketAccess =
        (Option.map ~f:ConfirmRemoveSelfBucketAccess.of_xml)
          (Xml.child xml_arg0 "x-amz-confirm-remove-self-bucket-access") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~policy ?confirmRemoveSelfBucketAccess ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let confirmRemoveSelfBucketAccess =
        field_map json__ "ConfirmRemoveSelfBucketAccess"
          ConfirmRemoveSelfBucketAccess.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~policy ?confirmRemoveSelfBucketAccess ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action puts a bucket policy to an Amazon S3 on Outposts bucket. To put a policy on an S3 bucket, see PutBucketPolicy in the Amazon S3 API Reference. Applies an Amazon S3 bucket policy to an Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. If you are using an identity other than the root user of the Amazon Web Services account that owns the Outposts bucket, the calling identity must have the PutBucketPolicy permissions on the specified Outposts bucket and belong to the bucket owner's account in order to use this action. If you don't have PutBucketPolicy permissions, Amazon S3 returns a 403 Access Denied error. If you have the correct permissions, but you're not using an identity that belongs to the bucket owner's account, Amazon S3 returns a 405 Method Not Allowed error. As a security precaution, the root user of the Amazon Web Services account that owns a bucket can always use this action, even if the policy explicitly denies the root user the ability to perform this action. For more information about bucket policies, see Using Bucket Policies and User Policies. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to PutBucketPolicy: GetBucketPolicy DeleteBucketPolicy"]
module PutBucketLifecycleConfigurationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "The name of the bucket for which to set the configuration."];
      lifecycleConfiguration: LifecycleConfiguration.t option
        [@ocaml.doc
          "Container for lifecycle rules. You can add as many as 1,000 rules."]}
    let context_ = "PutBucketLifecycleConfigurationRequest"
    let make ?lifecycleConfiguration =
      fun ~accountId ->
        fun ~bucket ->
          fun () -> { lifecycleConfiguration; accountId; bucket }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id"))
            ~bucket:(BucketName.of_string
                       ((List.Assoc.find_exn ~equal:String.Caseless.equal) xs
                          "name")) ?lifecycleConfiguration:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)));
        ("LifecycleConfiguration",
          (Option.map x.lifecycleConfiguration
             ~f:LifecycleConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecycleConfiguration =
        (Option.map ~f:LifecycleConfiguration.of_xml)
          (Xml.child xml_arg0 "LifecycleConfiguration") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?lifecycleConfiguration ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecycleConfiguration =
        field_map json__ "LifecycleConfiguration"
          LifecycleConfiguration.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?lifecycleConfiguration ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action puts a lifecycle configuration to an Amazon S3 on Outposts bucket. To put a lifecycle configuration to an S3 bucket, see PutBucketLifecycleConfiguration in the Amazon S3 API Reference. Creates a new lifecycle configuration for the S3 on Outposts bucket or replaces an existing lifecycle configuration. Outposts buckets only support lifecycle configurations that delete/expire objects after a certain period of time and abort incomplete multipart uploads. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to PutBucketLifecycleConfiguration: GetBucketLifecycleConfiguration DeleteBucketLifecycleConfiguration"]
module PutAccessPointScopeRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the access point with scope that you want to create or replace."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point with the scope that you want to create or replace."];
      scope: Scope.t
        [@ocaml.doc
          "Object prefixes, API operations, or a combination of both."]}
    let context_ = "PutAccessPointScopeRequest"
    let make ~accountId =
      fun ~name -> fun ~scope -> fun () -> { accountId; name; scope }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)));
        ("Scope", (Some (Scope.to_value x.scope)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scope =
        Scope.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Scope") in
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~scope ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scope = field_map_exn json__ "Scope" Scope.of_json in
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~scope ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or replaces the access point scope for a directory bucket. You can use the access point scope to restrict access to specific prefixes, API operations, or a combination of both. You can specify any amount of prefixes, but the total length of characters of all prefixes must be less than 256 bytes in size. To use this operation, you must have the permission to perform the s3express:PutAccessPointScope action. For information about REST API errors, see REST error responses."]
module PutAccessPointPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for owner of the bucket associated with the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point that you want to associate with the specified policy. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the access point accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/accesspoint/<my-accesspoint-name>. For example, to access the access point reports-ap through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/accesspoint/reports-ap. The value must be URL encoded."];
      policy: Policy.t
        [@ocaml.doc
          "The policy that you want to apply to the specified access point. For more information about access point policies, see Managing data access with Amazon S3 access points or Managing access to shared datasets in directory buckets with access points in the Amazon S3 User Guide."]}
    let context_ = "PutAccessPointPolicyRequest"
    let make ~accountId =
      fun ~name -> fun ~policy -> fun () -> { accountId; name; policy }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)));
        ("Policy", (Some (Policy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~policy ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~policy ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an access policy with the specified access point. Each access point can have only one policy, so a request made to this API replaces any existing policy associated with the specified access point. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to PutAccessPointPolicy: GetAccessPointPolicy DeleteAccessPointPolicy"]
module PutAccessPointPolicyForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc "The name of the Object Lambda Access Point."];
      policy: ObjectLambdaPolicy.t
        [@ocaml.doc "Object Lambda Access Point resource policy document."]}
    let context_ = "PutAccessPointPolicyForObjectLambdaRequest"
    let make ~accountId =
      fun ~name -> fun ~policy -> fun () -> { accountId; name; policy }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)));
        ("Policy", (Some (ObjectLambdaPolicy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        ObjectLambdaPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~policy ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" ObjectLambdaPolicy.of_json in
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~policy ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Creates or replaces resource policy for an Object Lambda Access Point. For an example policy, see Creating Object Lambda Access Points in the Amazon S3 User Guide. The following actions are related to PutAccessPointPolicyForObjectLambda: DeleteAccessPointPolicyForObjectLambda GetAccessPointPolicyForObjectLambda"]
module PutAccessPointConfigurationForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc "The name of the Object Lambda Access Point."];
      configuration: ObjectLambdaConfiguration.t
        [@ocaml.doc "Object Lambda Access Point configuration document."]}
    let context_ = "PutAccessPointConfigurationForObjectLambdaRequest"
    let make ~accountId =
      fun ~name ->
        fun ~configuration -> fun () -> { accountId; name; configuration }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)));
        ("Configuration",
          (Some (ObjectLambdaConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        ObjectLambdaConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Configuration") in
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~configuration ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "Configuration"
          ObjectLambdaConfiguration.of_json in
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~configuration ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Replaces configuration for an Object Lambda Access Point. The following actions are related to PutAccessPointConfigurationForObjectLambda: GetAccessPointConfigurationForObjectLambda"]
module PutAccessGrantsInstanceResourcePolicyResult =
  struct
    type nonrec t =
      {
      policy: PolicyDocument.t option
        [@ocaml.doc
          "The updated resource policy of the S3 Access Grants instance."];
      organization: Organization.t option
        [@ocaml.doc
          "The Organization of the resource policy of the S3 Access Grants instance."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time when you created the S3 Access Grants instance resource policy."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policy =
      fun ?organization ->
        fun ?createdAt -> fun () -> { policy; organization; createdAt }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:PolicyDocument.to_value));
        ("Organization",
          (Option.map x.organization ~f:Organization.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let organization =
        (Option.map ~f:Organization.of_xml)
          (Xml.child xml_arg0 "Organization") in
      let policy =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?createdAt ?organization ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      let organization = field_map json__ "Organization" Organization.of_json in
      let policy = field_map json__ "Policy" PolicyDocument.of_json in
      make ?createdAt ?organization ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the resource policy of the S3 Access Grants instance. Permissions You must have the s3:PutAccessGrantsInstanceResourcePolicy permission to use this operation."]
module PutAccessGrantsInstanceResourcePolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      policy: PolicyDocument.t
        [@ocaml.doc
          "The resource policy of the S3 Access Grants instance that you are updating."];
      organization: Organization.t option
        [@ocaml.doc
          "The Organization of the resource policy of the S3 Access Grants instance."]}
    let context_ = "PutAccessGrantsInstanceResourcePolicyRequest"
    let make ?organization =
      fun ~accountId ->
        fun ~policy -> fun () -> { organization; accountId; policy }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("Policy", (Some (PolicyDocument.to_value x.policy)));
        ("Organization",
          (Option.map x.organization ~f:Organization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organization =
        (Option.map ~f:Organization.of_xml)
          (Xml.child xml_arg0 "Organization") in
      let policy =
        PolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?organization ~policy ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organization = field_map json__ "Organization" Organization.of_json in
      let policy = field_map_exn json__ "Policy" PolicyDocument.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?organization ~policy ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the resource policy of the S3 Access Grants instance. Permissions You must have the s3:PutAccessGrantsInstanceResourcePolicy permission to use this operation."]
module ListTagsForResourceResult =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The Amazon Web Services resource tags that are associated with the resource."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.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" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation allows you to list all of the tags for a specified resource. Each tag is a label consisting of a key and value. Tags can help you organize, track costs for, and control access to resources. This operation is only supported for the following Amazon S3 resources: General purpose buckets Access Points for directory buckets Access Points for general purpose buckets Directory buckets S3 Storage Lens groups S3 Access Grants instances, registered locations, and grants. Permissions For general purpose buckets, access points for general purpose buckets, Storage Lens groups, and S3 Access Grants, you must have the s3:ListTagsForResource permission to use this operation. Directory bucket permissions For directory buckets, you must have the s3express:ListTagsForResource permission to use this operation. For more information about directory buckets policies and permissions, see Identity and Access Management (IAM) for S3 Express One Zone in the Amazon S3 User Guide. HTTP Host header syntax Directory buckets - The HTTP Host header syntax is s3express-control.region.amazonaws.com. For information about S3 Tagging errors, see List of Amazon S3 Tagging error codes."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the resource owner."];
      resourceArn: S3ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 resource that you want to list tags for. The tagged resource can be a directory bucket, S3 Storage Lens group or S3 Access Grants instance, registered location, or grant."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~accountId =
      fun ~resourceArn -> fun () -> { accountId; resourceArn }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("resourceArn", (Some (S3ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        S3ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~resourceArn ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" S3ResourceArn.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~resourceArn ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation allows you to list all of the tags for a specified resource. Each tag is a label consisting of a key and value. Tags can help you organize, track costs for, and control access to resources. This operation is only supported for the following Amazon S3 resources: General purpose buckets Access Points for directory buckets Access Points for general purpose buckets Directory buckets S3 Storage Lens groups S3 Access Grants instances, registered locations, and grants. Permissions For general purpose buckets, access points for general purpose buckets, Storage Lens groups, and S3 Access Grants, you must have the s3:ListTagsForResource permission to use this operation. Directory bucket permissions For directory buckets, you must have the s3express:ListTagsForResource permission to use this operation. For more information about directory buckets policies and permissions, see Identity and Access Management (IAM) for S3 Express One Zone in the Amazon S3 User Guide. HTTP Host header syntax Directory buckets - The HTTP Host header syntax is s3express-control.region.amazonaws.com. For information about S3 Tagging errors, see List of Amazon S3 Tagging error codes."]
module ListStorageLensGroupsResult =
  struct
    type nonrec t =
      {
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "If NextToken is returned, there are more Storage Lens groups results available. The value of NextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours."];
      storageLensGroupList: StorageLensGroupList.t option
        [@ocaml.doc
          "The list of Storage Lens groups that exist in the specified home Region."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?storageLensGroupList ->
        fun () -> { nextToken; storageLensGroupList }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("StorageLensGroup",
          (Option.map x.storageLensGroupList ~f:StorageLensGroupList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensGroupList =
        (Option.map ~f:StorageLensGroupList.of_xml)
          (Some (Xml.children xml_arg0 "StorageLensGroup")) in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?storageLensGroupList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensGroupList =
        field_map json__ "StorageLensGroupList" StorageLensGroupList.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      make ?storageLensGroupList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Storage Lens groups in the specified home Region. To use this operation, you must have the permission to perform the s3:ListStorageLensGroups action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module ListStorageLensGroupsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the Storage Lens groups."];
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "The token for the next set of results, or null if there are no more results."]}
    let context_ = "ListStorageLensGroupsRequest"
    let make ?nextToken =
      fun ~accountId -> fun () -> { nextToken; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken", (Option.map x.nextToken ~f:ContinuationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the Storage Lens groups in the specified home Region. To use this operation, you must have the permission to perform the s3:ListStorageLensGroups action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module ListStorageLensConfigurationsResult =
  struct
    type nonrec t =
      {
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "If the request produced more than the maximum number of S3 Storage Lens configuration results, you can pass this value into a subsequent request to retrieve the next page of results."];
      storageLensConfigurationList: StorageLensConfigurationList.t option
        [@ocaml.doc "A list of S3 Storage Lens configurations."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?storageLensConfigurationList ->
        fun () -> { nextToken; storageLensConfigurationList }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("StorageLensConfiguration",
          (Option.map x.storageLensConfigurationList
             ~f:StorageLensConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensConfigurationList =
        (Option.map ~f:StorageLensConfigurationList.of_xml)
          (Some (Xml.children xml_arg0 "StorageLensConfiguration")) in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?storageLensConfigurationList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensConfigurationList =
        field_map json__ "StorageLensConfigurationList"
          StorageLensConfigurationList.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      make ?storageLensConfigurationList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Gets a list of Amazon S3 Storage Lens configurations. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:ListStorageLensConfigurations action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module ListStorageLensConfigurationsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."];
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results."]}
    let context_ = "ListStorageLensConfigurationsRequest"
    let make ?nextToken =
      fun ~accountId -> fun () -> { nextToken; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken", (Option.map x.nextToken ~f:ContinuationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Gets a list of Amazon S3 Storage Lens configurations. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:ListStorageLensConfigurations action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module ListRegionalBucketsResult =
  struct
    type nonrec t =
      {
      regionalBucketList: RegionalBucketList.t option ;
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "NextToken is sent when isTruncated is true, which means there are more buckets that can be listed. The next list requests to Amazon S3 can be continued with this NextToken. NextToken is obfuscated and is not a real key."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?regionalBucketList =
      fun ?nextToken -> fun () -> { regionalBucketList; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("RegionalBucketList",
           (Option.map x.regionalBucketList ~f:RegionalBucketList.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let regionalBucketList =
        (Option.map ~f:RegionalBucketList.of_xml)
          (Xml.child xml_arg0 "RegionalBucketList") in
      make ?nextToken ?regionalBucketList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let regionalBucketList =
        field_map json__ "RegionalBucketList" RegionalBucketList.of_json in
      make ?nextToken ?regionalBucketList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns a list of all Outposts buckets in an Outpost that are owned by the authenticated sender of the request. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and x-amz-outpost-id in your request, see the Examples section."]
module ListRegionalBucketsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      nextToken: NonEmptyMaxLength1024String.t option ;
      maxResults: MaxResults.t option ;
      outpostId: NonEmptyMaxLength64String.t option
        [@ocaml.doc
          "The ID of the Outposts resource. This ID is required by Amazon S3 on Outposts buckets."]}
    let context_ = "ListRegionalBucketsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?outpostId ->
          fun ~accountId ->
            fun () -> { nextToken; maxResults; outpostId; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("x-amz-outpost-id",
          (Option.map x.outpostId ~f:NonEmptyMaxLength64String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostId =
        (Option.map ~f:NonEmptyMaxLength64String.of_xml)
          (Xml.child xml_arg0 "x-amz-outpost-id") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?outpostId ?maxResults ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostId =
        field_map json__ "OutpostId" NonEmptyMaxLength64String.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?outpostId ?maxResults ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns a list of all Outposts buckets in an Outpost that are owned by the authenticated sender of the request. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and x-amz-outpost-id in your request, see the Examples section."]
module ListMultiRegionAccessPointsResult =
  struct
    type nonrec t =
      {
      accessPoints: MultiRegionAccessPointReportList.t option
        [@ocaml.doc
          "The list of Multi-Region Access Points associated with the user."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "If the specified bucket has more Multi-Region Access Points than can be returned in one call to this action, this field contains a continuation token. You can use this token tin subsequent calls to this action to retrieve additional Multi-Region Access Points."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessPoints =
      fun ?nextToken -> fun () -> { accessPoints; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessPoints",
           (Option.map x.accessPoints
              ~f:MultiRegionAccessPointReportList.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let accessPoints =
        (Option.map ~f:MultiRegionAccessPointReportList.of_xml)
          (Xml.child xml_arg0 "AccessPoints") in
      make ?nextToken ?accessPoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let accessPoints =
        field_map json__ "AccessPoints"
          MultiRegionAccessPointReportList.of_json in
      make ?nextToken ?accessPoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns a list of the Multi-Region Access Points currently associated with the specified Amazon Web Services account. Each call can return up to 100 Multi-Region Access Points, the maximum number of Multi-Region Access Points that can be associated with a single account. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to ListMultiRegionAccessPoint: CreateMultiRegionAccessPoint DeleteMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation GetMultiRegionAccessPoint"]
module ListMultiRegionAccessPointsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc "Not currently used. Do not use this parameter."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Not currently used. Do not use this parameter."]}
    let context_ = "ListMultiRegionAccessPointsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~accountId -> fun () -> { nextToken; maxResults; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?maxResults ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?maxResults ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns a list of the Multi-Region Access Points currently associated with the specified Amazon Web Services account. Each call can return up to 100 Multi-Region Access Points, the maximum number of Multi-Region Access Points that can be associated with a single account. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to ListMultiRegionAccessPoint: CreateMultiRegionAccessPoint DeleteMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation GetMultiRegionAccessPoint"]
module ListJobsResult =
  struct
    type nonrec t =
      {
      nextToken: StringForNextToken.t option
        [@ocaml.doc
          "If the List Jobs request produced more than the maximum number of results, you can pass this value into a subsequent List Jobs request in order to retrieve the next page of results."];
      jobs: JobListDescriptorList.t option
        [@ocaml.doc
          "The list of current jobs and jobs that have ended within the last 30 days."]}
    type nonrec error =
      [ `InternalServiceException of InternalServiceException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?jobs -> fun () -> { nextToken; jobs }
    let error_of_json name json =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:StringForNextToken.to_value));
        ("Jobs", (Option.map x.jobs ~f:JobListDescriptorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobs =
        (Option.map ~f:JobListDescriptorList.of_xml)
          (Xml.child xml_arg0 "Jobs") in
      let nextToken =
        (Option.map ~f:StringForNextToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?jobs ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobs = field_map json__ "Jobs" JobListDescriptorList.of_json in
      let nextToken = field_map json__ "NextToken" StringForNextToken.of_json in
      make ?jobs ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists current S3 Batch Operations jobs as well as the jobs that have ended within the last 90 days for the Amazon Web Services account making the request. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the ListJobs operation, you must have permission to perform the s3:ListJobs action. Related actions include: CreateJob DescribeJob UpdateJobPriority UpdateJobStatus"]
module ListJobsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobStatuses: JobStatusList.t option
        [@ocaml.doc
          "The List Jobs request returns jobs that match the statuses listed in this element."];
      nextToken: StringForNextToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Use the token that Amazon S3 returned in the NextToken element of the ListJobsResult from the previous List Jobs request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of jobs that Amazon S3 will include in the List Jobs response. If there are more jobs than this number, the response will include a pagination token in the NextToken field to enable you to retrieve the next page of results."]}
    let context_ = "ListJobsRequest"
    let make ?jobStatuses =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~accountId ->
            fun () -> { jobStatuses; nextToken; maxResults; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("jobStatuses", (Option.map x.jobStatuses ~f:JobStatusList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:StringForNextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:StringForNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let jobStatuses =
        (Option.map ~f:JobStatusList.of_xml)
          (Xml.child xml_arg0 "jobStatuses") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?maxResults ?nextToken ?jobStatuses ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" StringForNextToken.of_json in
      let jobStatuses = field_map json__ "JobStatuses" JobStatusList.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?maxResults ?nextToken ?jobStatuses ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists current S3 Batch Operations jobs as well as the jobs that have ended within the last 90 days for the Amazon Web Services account making the request. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the ListJobs operation, you must have permission to perform the s3:ListJobs action. Related actions include: CreateJob DescribeJob UpdateJobPriority UpdateJobStatus"]
module ListCallerAccessGrantsResult =
  struct
    type nonrec t =
      {
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token that you can use to request the next page of results. Pass this value into a subsequent List Caller Access Grants request in order to retrieve the next page of results."];
      callerAccessGrantsList: CallerAccessGrantsList.t option
        [@ocaml.doc
          "A list of the caller's access grants that were created using S3 Access Grants and that grant the caller access to the S3 data of the Amazon Web Services account ID that was specified in the request."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?callerAccessGrantsList ->
        fun () -> { nextToken; callerAccessGrantsList }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("CallerAccessGrantsList",
          (Option.map x.callerAccessGrantsList
             ~f:CallerAccessGrantsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callerAccessGrantsList =
        (Option.map ~f:CallerAccessGrantsList.of_xml)
          (Xml.child xml_arg0 "CallerAccessGrantsList") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?callerAccessGrantsList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callerAccessGrantsList =
        field_map json__ "CallerAccessGrantsList"
          CallerAccessGrantsList.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      make ?callerAccessGrantsList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this API to list the access grants that grant the caller access to Amazon S3 data through S3 Access Grants. The caller (grantee) can be an Identity and Access Management (IAM) identity or Amazon Web Services Identity Center corporate directory identity. You must pass the Amazon Web Services account of the S3 data owner (grantor) in the request. You can, optionally, narrow the results by GrantScope, using a fragment of the data's S3 path, and S3 Access Grants will return only the grants with a path that contains the path fragment. You can also pass the AllowedByApplication filter in the request, which returns only the grants authorized for applications, whether the application is the caller's Identity Center application or any other application (ALL). For more information, see List the caller's access grants in the Amazon S3 User Guide. Permissions You must have the s3:ListCallerAccessGrants permission to use this operation."]
module ListCallerAccessGrantsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      grantScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path of the data that you would like to access. Must start with s3://. You can optionally pass only the beginning characters of a path, and S3 Access Grants will search for all applicable grants for the path fragment."];
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Caller Access Grants request in order to retrieve the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access grants that you would like returned in the List Caller Access Grants response. If the results include the pagination token NextToken, make another call using the NextToken to determine if there are more results."];
      allowedByApplication: Boolean.t option
        [@ocaml.doc
          "If this optional parameter is passed in the request, a filter is applied to the results. The results will include only the access grants for the caller's Identity Center application or for any other applications (ALL)."]}
    let context_ = "ListCallerAccessGrantsRequest"
    let make ?grantScope =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?allowedByApplication ->
            fun ~accountId ->
              fun () ->
                {
                  grantScope;
                  nextToken;
                  maxResults;
                  allowedByApplication;
                  accountId
                }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("grantscope", (Option.map x.grantScope ~f:S3Prefix.to_value));
        ("nextToken", (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("allowedByApplication",
          (Option.map x.allowedByApplication ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedByApplication =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowedByApplication") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let grantScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "grantscope") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?allowedByApplication ?maxResults ?nextToken ?grantScope
        ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedByApplication =
        field_map json__ "AllowedByApplication" Boolean.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      let grantScope = field_map json__ "GrantScope" S3Prefix.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?allowedByApplication ?maxResults ?nextToken ?grantScope
        ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this API to list the access grants that grant the caller access to Amazon S3 data through S3 Access Grants. The caller (grantee) can be an Identity and Access Management (IAM) identity or Amazon Web Services Identity Center corporate directory identity. You must pass the Amazon Web Services account of the S3 data owner (grantor) in the request. You can, optionally, narrow the results by GrantScope, using a fragment of the data's S3 path, and S3 Access Grants will return only the grants with a path that contains the path fragment. You can also pass the AllowedByApplication filter in the request, which returns only the grants authorized for applications, whether the application is the caller's Identity Center application or any other application (ALL). For more information, see List the caller's access grants in the Amazon S3 User Guide. Permissions You must have the s3:ListCallerAccessGrants permission to use this operation."]
module ListAccessPointsResult =
  struct
    type nonrec t =
      {
      accessPointList: AccessPointList.t option
        [@ocaml.doc
          "Contains identification and configuration information for one or more access points associated with the specified bucket."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "If the specified bucket has more access points than can be returned in one call to this API, this field contains a continuation token that you can provide in subsequent calls to this API to retrieve additional access points."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessPointList =
      fun ?nextToken -> fun () -> { accessPointList; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessPointList",
           (Option.map x.accessPointList ~f:AccessPointList.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let accessPointList =
        (Option.map ~f:AccessPointList.of_xml)
          (Xml.child xml_arg0 "AccessPointList") in
      make ?nextToken ?accessPointList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let accessPointList =
        field_map json__ "AccessPointList" AccessPointList.of_json in
      make ?nextToken ?accessPointList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns a list of the access points. You can retrieve up to 1,000 access points per call. If the call returns more than 1,000 access points (or the number specified in maxResults, whichever is less), the response will include a continuation token that you can use to list the additional access points. Returns only access points attached to S3 buckets by default. To return all access points specify DataSourceType as ALL. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to ListAccessPoints: CreateAccessPoint DeleteAccessPoint GetAccessPoint"]
module ListAccessPointsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that owns the specified access points."];
      bucket: BucketName.t option
        [@ocaml.doc
          "The name of the bucket whose associated access points you want to list. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "A continuation token. If a previous call to ListAccessPoints returned a continuation token in the NextToken field, then providing that value here causes Amazon S3 to retrieve the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access points that you want to include in the list. If the specified bucket has more than this number of access points, then the response will include a continuation token in the NextToken field that you can use to retrieve the next page of access points."];
      dataSourceId: DataSourceId.t option
        [@ocaml.doc
          "The unique identifier for the data source of the access point."];
      dataSourceType: DataSourceType.t option
        [@ocaml.doc
          "The type of the data source that the access point is attached to. Returns only access points attached to S3 buckets by default. To return all access points specify DataSourceType as ALL."]}
    let context_ = "ListAccessPointsRequest"
    let make ?bucket =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?dataSourceId ->
            fun ?dataSourceType ->
              fun ~accountId ->
                fun () ->
                  {
                    bucket;
                    nextToken;
                    maxResults;
                    dataSourceId;
                    dataSourceType;
                    accountId
                  }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("bucket", (Option.map x.bucket ~f:BucketName.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("dataSourceId",
          (Option.map x.dataSourceId ~f:DataSourceId.to_value));
        ("dataSourceType",
          (Option.map x.dataSourceType ~f:DataSourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataSourceType =
        (Option.map ~f:DataSourceType.of_xml)
          (Xml.child xml_arg0 "dataSourceType") in
      let dataSourceId =
        (Option.map ~f:DataSourceId.of_xml)
          (Xml.child xml_arg0 "dataSourceId") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let bucket =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "bucket") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?dataSourceType ?dataSourceId ?maxResults ?nextToken ?bucket
        ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataSourceType =
        field_map json__ "DataSourceType" DataSourceType.of_json in
      let dataSourceId = field_map json__ "DataSourceId" DataSourceId.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let bucket = field_map json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?dataSourceType ?dataSourceId ?maxResults ?nextToken ?bucket
        ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns a list of the access points. You can retrieve up to 1,000 access points per call. If the call returns more than 1,000 access points (or the number specified in maxResults, whichever is less), the response will include a continuation token that you can use to list the additional access points. Returns only access points attached to S3 buckets by default. To return all access points specify DataSourceType as ALL. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to ListAccessPoints: CreateAccessPoint DeleteAccessPoint GetAccessPoint"]
module ListAccessPointsForObjectLambdaResult =
  struct
    type nonrec t =
      {
      objectLambdaAccessPointList: ObjectLambdaAccessPointList.t option
        [@ocaml.doc "Returns list of Object Lambda Access Points."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "If the list has more access points than can be returned in one call to this API, this field contains a continuation token that you can provide in subsequent calls to this API to retrieve additional access points."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?objectLambdaAccessPointList =
      fun ?nextToken -> fun () -> { objectLambdaAccessPointList; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("ObjectLambdaAccessPointList",
           (Option.map x.objectLambdaAccessPointList
              ~f:ObjectLambdaAccessPointList.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let objectLambdaAccessPointList =
        (Option.map ~f:ObjectLambdaAccessPointList.of_xml)
          (Xml.child xml_arg0 "ObjectLambdaAccessPointList") in
      make ?nextToken ?objectLambdaAccessPointList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let objectLambdaAccessPointList =
        field_map json__ "ObjectLambdaAccessPointList"
          ObjectLambdaAccessPointList.of_json in
      make ?nextToken ?objectLambdaAccessPointList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns some or all (up to 1,000) access points associated with the Object Lambda Access Point per call. If there are more access points than what can be returned in one call, the response will include a continuation token that you can use to list the additional access points. The following actions are related to ListAccessPointsForObjectLambda: CreateAccessPointForObjectLambda DeleteAccessPointForObjectLambda GetAccessPointForObjectLambda"]
module ListAccessPointsForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "If the list has more access points than can be returned in one call to this API, this field contains a continuation token that you can provide in subsequent calls to this API to retrieve additional access points."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access points that you want to include in the list. The response may contain fewer access points but will never contain more. If there are more than this number of access points, then the response will include a continuation token in the NextToken field that you can use to retrieve the next page of access points."]}
    let context_ = "ListAccessPointsForObjectLambdaRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~accountId -> fun () -> { nextToken; maxResults; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?maxResults ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?maxResults ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns some or all (up to 1,000) access points associated with the Object Lambda Access Point per call. If there are more access points than what can be returned in one call, the response will include a continuation token that you can use to list the additional access points. The following actions are related to ListAccessPointsForObjectLambda: CreateAccessPointForObjectLambda DeleteAccessPointForObjectLambda GetAccessPointForObjectLambda"]
module ListAccessPointsForDirectoryBucketsResult =
  struct
    type nonrec t =
      {
      accessPointList: AccessPointList.t option
        [@ocaml.doc
          "Contains identification and configuration information for one or more access points associated with the directory bucket."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "If NextToken is returned, there are more access points available than requested in the maxResults value. The value of NextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessPointList =
      fun ?nextToken -> fun () -> { accessPointList; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessPointList",
           (Option.map x.accessPointList ~f:AccessPointList.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let accessPointList =
        (Option.map ~f:AccessPointList.of_xml)
          (Xml.child xml_arg0 "AccessPointList") in
      make ?nextToken ?accessPointList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let accessPointList =
        field_map json__ "AccessPointList" AccessPointList.of_json in
      make ?nextToken ?accessPointList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the access points that are owned by the Amazon Web Services account and that are associated with the specified directory bucket. To list access points for general purpose buckets, see ListAccesspoints. To use this operation, you must have the permission to perform the s3express:ListAccessPointsForDirectoryBuckets action. For information about REST API errors, see REST error responses."]
module ListAccessPointsForDirectoryBucketsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the access points."];
      directoryBucket: BucketName.t option
        [@ocaml.doc
          "The name of the directory bucket associated with the access points you want to list."];
      nextToken: NonEmptyMaxLength1024String.t option
        [@ocaml.doc
          "If NextToken is returned, there are more access points available than requested in the maxResults value. The value of NextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access points that you would like returned in the ListAccessPointsForDirectoryBuckets response. If the directory bucket is associated with more than this number of access points, the results include the pagination token NextToken. Make another call using the NextToken to retrieve more results."]}
    let context_ = "ListAccessPointsForDirectoryBucketsRequest"
    let make ?directoryBucket =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~accountId ->
            fun () -> { directoryBucket; nextToken; maxResults; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("directoryBucket",
          (Option.map x.directoryBucket ~f:BucketName.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NonEmptyMaxLength1024String.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NonEmptyMaxLength1024String.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let directoryBucket =
        (Option.map ~f:BucketName.of_xml)
          (Xml.child xml_arg0 "directoryBucket") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?maxResults ?nextToken ?directoryBucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken =
        field_map json__ "NextToken" NonEmptyMaxLength1024String.of_json in
      let directoryBucket =
        field_map json__ "DirectoryBucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?maxResults ?nextToken ?directoryBucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the access points that are owned by the Amazon Web Services account and that are associated with the specified directory bucket. To list access points for general purpose buckets, see ListAccesspoints. To use this operation, you must have the permission to perform the s3express:ListAccessPointsForDirectoryBuckets action. For information about REST API errors, see REST error responses."]
module ListAccessGrantsResult =
  struct
    type nonrec t =
      {
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Access Grants request in order to retrieve the next page of results."];
      accessGrantsList: AccessGrantsList.t option
        [@ocaml.doc
          "A container for a list of grants in an S3 Access Grants instance."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?accessGrantsList -> fun () -> { nextToken; accessGrantsList }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("AccessGrantsList",
          (Option.map x.accessGrantsList ~f:AccessGrantsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantsList =
        (Option.map ~f:AccessGrantsList.of_xml)
          (Xml.child xml_arg0 "AccessGrantsList") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?accessGrantsList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantsList =
        field_map json__ "AccessGrantsList" AccessGrantsList.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      make ?accessGrantsList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of access grants in your S3 Access Grants instance. Permissions You must have the s3:ListAccessGrants permission to use this operation."]
module ListAccessGrantsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Access Grants request in order to retrieve the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access grants that you would like returned in the List Access Grants response. If the results include the pagination token NextToken, make another call using the NextToken to determine if there are more results."];
      granteeType: GranteeType.t option
        [@ocaml.doc
          "The type of the grantee to which access has been granted. It can be one of the following values: IAM - An IAM user or role. DIRECTORY_USER - Your corporate directory user. You can use this option if you have added your corporate identity directory to IAM Identity Center and associated the IAM Identity Center instance with your S3 Access Grants instance. DIRECTORY_GROUP - Your corporate directory group. You can use this option if you have added your corporate identity directory to IAM Identity Center and associated the IAM Identity Center instance with your S3 Access Grants instance."];
      granteeIdentifier: GranteeIdentifier.t option
        [@ocaml.doc
          "The unique identifer of the Grantee. If the grantee type is IAM, the identifier is the IAM Amazon Resource Name (ARN) of the user or role. If the grantee type is a directory user or group, the identifier is 128-bit universally unique identifier (UUID) in the format a1b2c3d4-5678-90ab-cdef-EXAMPLE11111. You can obtain this UUID from your Amazon Web Services IAM Identity Center instance."];
      permission: Permission.t option
        [@ocaml.doc
          "The type of permission granted to your S3 data, which can be set to one of the following values: READ \226\128\147 Grant read-only access to the S3 data. WRITE \226\128\147 Grant write-only access to the S3 data. READWRITE \226\128\147 Grant both read and write access to the S3 data."];
      grantScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path of the data to which you are granting access. It is the result of appending the Subprefix to the location scope."];
      applicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Web Services IAM Identity Center application associated with your Identity Center instance. If the grant includes an application ARN, the grantee can only access the S3 data through this application."]}
    let context_ = "ListAccessGrantsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?granteeType ->
          fun ?granteeIdentifier ->
            fun ?permission ->
              fun ?grantScope ->
                fun ?applicationArn ->
                  fun ~accountId ->
                    fun () ->
                      {
                        nextToken;
                        maxResults;
                        granteeType;
                        granteeIdentifier;
                        permission;
                        grantScope;
                        applicationArn;
                        accountId
                      }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken", (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("granteetype", (Option.map x.granteeType ~f:GranteeType.to_value));
        ("granteeidentifier",
          (Option.map x.granteeIdentifier ~f:GranteeIdentifier.to_value));
        ("permission", (Option.map x.permission ~f:Permission.to_value));
        ("grantscope", (Option.map x.grantScope ~f:S3Prefix.to_value));
        ("application_arn",
          (Option.map x.applicationArn
             ~f:IdentityCenterApplicationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "application_arn") in
      let grantScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "grantscope") in
      let permission =
        (Option.map ~f:Permission.of_xml) (Xml.child xml_arg0 "permission") in
      let granteeIdentifier =
        (Option.map ~f:GranteeIdentifier.of_xml)
          (Xml.child xml_arg0 "granteeidentifier") in
      let granteeType =
        (Option.map ~f:GranteeType.of_xml) (Xml.child xml_arg0 "granteetype") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?applicationArn ?grantScope ?permission ?granteeIdentifier
        ?granteeType ?maxResults ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationArn =
        field_map json__ "ApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let grantScope = field_map json__ "GrantScope" S3Prefix.of_json in
      let permission = field_map json__ "Permission" Permission.of_json in
      let granteeIdentifier =
        field_map json__ "GranteeIdentifier" GranteeIdentifier.of_json in
      let granteeType = field_map json__ "GranteeType" GranteeType.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?applicationArn ?grantScope ?permission ?granteeIdentifier
        ?granteeType ?maxResults ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of access grants in your S3 Access Grants instance. Permissions You must have the s3:ListAccessGrants permission to use this operation."]
module ListAccessGrantsLocationsResult =
  struct
    type nonrec t =
      {
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Access Grants Locations request in order to retrieve the next page of results."];
      accessGrantsLocationsList: AccessGrantsLocationsList.t option
        [@ocaml.doc
          "A container for a list of registered locations in an S3 Access Grants instance."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?accessGrantsLocationsList ->
        fun () -> { nextToken; accessGrantsLocationsList }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("AccessGrantsLocationsList",
          (Option.map x.accessGrantsLocationsList
             ~f:AccessGrantsLocationsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantsLocationsList =
        (Option.map ~f:AccessGrantsLocationsList.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationsList") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?accessGrantsLocationsList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantsLocationsList =
        field_map json__ "AccessGrantsLocationsList"
          AccessGrantsLocationsList.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      make ?accessGrantsLocationsList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the locations registered in your S3 Access Grants instance. Permissions You must have the s3:ListAccessGrantsLocations permission to use this operation."]
module ListAccessGrantsLocationsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Access Grants Locations request in order to retrieve the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access grants that you would like returned in the List Access Grants response. If the results include the pagination token NextToken, make another call using the NextToken to determine if there are more results."];
      locationScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path to the location that you are registering. The location scope can be the default S3 location s3://, the S3 path to a bucket s3://<bucket>, or the S3 path to a bucket and prefix s3://<bucket>/<prefix>. A prefix in S3 is a string of characters at the beginning of an object key name used to organize the objects that you store in your S3 buckets. For example, object key names that start with the engineering/ prefix or object key names that start with the marketing/campaigns/ prefix."]}
    let context_ = "ListAccessGrantsLocationsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?locationScope ->
          fun ~accountId ->
            fun () -> { nextToken; maxResults; locationScope; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken", (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("locationscope", (Option.map x.locationScope ~f:S3Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locationScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "locationscope") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?locationScope ?maxResults ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locationScope = field_map json__ "LocationScope" S3Prefix.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?locationScope ?maxResults ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the locations registered in your S3 Access Grants instance. Permissions You must have the s3:ListAccessGrantsLocations permission to use this operation."]
module ListAccessGrantsInstancesResult =
  struct
    type nonrec t =
      {
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Access Grants Instances request in order to retrieve the next page of results."];
      accessGrantsInstancesList: AccessGrantsInstancesList.t option
        [@ocaml.doc "A container for a list of S3 Access Grants instances."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?accessGrantsInstancesList ->
        fun () -> { nextToken; accessGrantsInstancesList }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken",
           (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("AccessGrantsInstancesList",
          (Option.map x.accessGrantsInstancesList
             ~f:AccessGrantsInstancesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantsInstancesList =
        (Option.map ~f:AccessGrantsInstancesList.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstancesList") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?accessGrantsInstancesList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantsInstancesList =
        field_map json__ "AccessGrantsInstancesList"
          AccessGrantsInstancesList.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      make ?accessGrantsInstancesList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of S3 Access Grants instances. An S3 Access Grants instance serves as a logical grouping for your individual access grants. You can only have one S3 Access Grants instance per Region per account. Permissions You must have the s3:ListAccessGrantsInstances permission to use this operation."]
module ListAccessGrantsInstancesRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      nextToken: ContinuationToken.t option
        [@ocaml.doc
          "A pagination token to request the next page of results. Pass this value into a subsequent List Access Grants Instances request in order to retrieve the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of access grants that you would like returned in the List Access Grants response. If the results include the pagination token NextToken, make another call using the NextToken to determine if there are more results."]}
    let context_ = "ListAccessGrantsInstancesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~accountId -> fun () -> { nextToken; maxResults; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("nextToken", (Option.map x.nextToken ~f:ContinuationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?maxResults ?nextToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" ContinuationToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?maxResults ?nextToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of S3 Access Grants instances. An S3 Access Grants instance serves as a logical grouping for your individual access grants. You can only have one S3 Access Grants instance per Region per account. Permissions You must have the s3:ListAccessGrantsInstances permission to use this operation."]
module GetStorageLensGroupResult =
  struct
    type nonrec t =
      {
      storageLensGroup: StorageLensGroup.t option
        [@ocaml.doc
          "The name of the Storage Lens group that you're trying to retrieve the configuration details for."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?storageLensGroup = fun () -> { storageLensGroup }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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 ?storageLensGroup:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("StorageLensGroup",
           (Option.map x.storageLensGroup ~f:StorageLensGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensGroup =
        (Option.map ~f:StorageLensGroup.of_xml)
          (Xml.child xml_arg0 "StorageLensGroup") in
      make ?storageLensGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensGroup =
        field_map json__ "StorageLensGroup" StorageLensGroup.of_json in
      make ?storageLensGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the Storage Lens group configuration details. To use this operation, you must have the permission to perform the s3:GetStorageLensGroup action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module GetStorageLensGroupRequest =
  struct
    type nonrec t =
      {
      name: StorageLensGroupName.t
        [@ocaml.doc
          "The name of the Storage Lens group that you're trying to retrieve the configuration details for."];
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the Storage Lens group that you're trying to retrieve the details for."]}
    let context_ = "GetStorageLensGroupRequest"
    let make ~name = fun ~accountId -> fun () -> { name; accountId }
    let to_value x =
      structure_to_value
        [("name", (Some (StorageLensGroupName.to_value x.name)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let name =
        StorageLensGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~accountId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let name = field_map_exn json__ "Name" StorageLensGroupName.of_json in
      make ~accountId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the Storage Lens group configuration details. To use this operation, you must have the permission to perform the s3:GetStorageLensGroup action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module GetStorageLensConfigurationTaggingResult =
  struct
    type nonrec t =
      {
      tags: StorageLensTags.t option
        [@ocaml.doc "The tags of S3 Storage Lens configuration requested."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:StorageLensTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:StorageLensTags.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" StorageLensTags.of_json in
      make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Gets the tags of Amazon S3 Storage Lens configuration. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:GetStorageLensConfigurationTagging action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module GetStorageLensConfigurationTaggingRequest =
  struct
    type nonrec t =
      {
      configId: ConfigId.t
        [@ocaml.doc "The ID of the Amazon S3 Storage Lens configuration."];
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."]}
    let context_ = "GetStorageLensConfigurationTaggingRequest"
    let make ~configId = fun ~accountId -> fun () -> { configId; accountId }
    let to_value x =
      structure_to_value
        [("storagelensid", (Some (ConfigId.to_value x.configId)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let configId =
        ConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storagelensid") in
      make ~accountId ~configId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let configId = field_map_exn json__ "ConfigId" ConfigId.of_json in
      make ~accountId ~configId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Gets the tags of Amazon S3 Storage Lens configuration. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:GetStorageLensConfigurationTagging action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module GetStorageLensConfigurationResult =
  struct
    type nonrec t =
      {
      storageLensConfiguration: StorageLensConfiguration.t option
        [@ocaml.doc "The S3 Storage Lens configuration requested."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?storageLensConfiguration =
      fun () -> { storageLensConfiguration }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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 ?storageLensConfiguration:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("StorageLensConfiguration",
           (Option.map x.storageLensConfiguration
              ~f:StorageLensConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageLensConfiguration =
        (Option.map ~f:StorageLensConfiguration.of_xml)
          (Xml.child xml_arg0 "StorageLensConfiguration") in
      make ?storageLensConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageLensConfiguration =
        field_map json__ "StorageLensConfiguration"
          StorageLensConfiguration.of_json in
      make ?storageLensConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Gets the Amazon S3 Storage Lens configuration. For more information, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:GetStorageLensConfiguration action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module GetStorageLensConfigurationRequest =
  struct
    type nonrec t =
      {
      configId: ConfigId.t
        [@ocaml.doc "The ID of the Amazon S3 Storage Lens configuration."];
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."]}
    let context_ = "GetStorageLensConfigurationRequest"
    let make ~configId = fun ~accountId -> fun () -> { configId; accountId }
    let to_value x =
      structure_to_value
        [("storagelensid", (Some (ConfigId.to_value x.configId)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let configId =
        ConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storagelensid") in
      make ~accountId ~configId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let configId = field_map_exn json__ "ConfigId" ConfigId.of_json in
      make ~accountId ~configId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Gets the Amazon S3 Storage Lens configuration. For more information, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. For a complete list of S3 Storage Lens metrics, see S3 Storage Lens metrics glossary in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:GetStorageLensConfiguration action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module GetPublicAccessBlockRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the Amazon Web Services account whose PublicAccessBlock configuration you want to retrieve."]}
    let context_ = "GetPublicAccessBlockRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Retrieves the PublicAccessBlock configuration for an Amazon Web Services account. This operation returns the effective account-level configuration, which may inherit from organization-level policies. For more information, see Using Amazon S3 block public access. Related actions include: DeletePublicAccessBlock PutPublicAccessBlock"]
module GetPublicAccessBlockOutput =
  struct
    type nonrec t =
      {
      publicAccessBlockConfiguration: PublicAccessBlockConfiguration.t option
        [@ocaml.doc
          "The PublicAccessBlock configuration currently in effect for this Amazon Web Services account."]}
    type nonrec error =
      [
        `NoSuchPublicAccessBlockConfiguration of
          NoSuchPublicAccessBlockConfiguration.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?publicAccessBlockConfiguration =
      fun () -> { publicAccessBlockConfiguration }
    let error_of_json name json =
      match name with
      | "NoSuchPublicAccessBlockConfiguration" ->
          `NoSuchPublicAccessBlockConfiguration
            (NoSuchPublicAccessBlockConfiguration.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "NoSuchPublicAccessBlockConfiguration" ->
          `NoSuchPublicAccessBlockConfiguration
            (NoSuchPublicAccessBlockConfiguration.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `NoSuchPublicAccessBlockConfiguration e ->
          `Assoc
            [("error", (`String "NoSuchPublicAccessBlockConfiguration"));
            ("details", (NoSuchPublicAccessBlockConfiguration.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 ?publicAccessBlockConfiguration:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("PublicAccessBlockConfiguration",
           (Option.map x.publicAccessBlockConfiguration
              ~f:PublicAccessBlockConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicAccessBlockConfiguration =
        (Option.map ~f:PublicAccessBlockConfiguration.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlockConfiguration") in
      make ?publicAccessBlockConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicAccessBlockConfiguration =
        field_map json__ "PublicAccessBlockConfiguration"
          PublicAccessBlockConfiguration.of_json in
      make ?publicAccessBlockConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Retrieves the PublicAccessBlock configuration for an Amazon Web Services account. This operation returns the effective account-level configuration, which may inherit from organization-level policies. For more information, see Using Amazon S3 block public access. Related actions include: DeletePublicAccessBlock PutPublicAccessBlock"]
module GetMultiRegionAccessPointRoutesResult =
  struct
    type nonrec t =
      {
      mrap: MultiRegionAccessPointId.t option
        [@ocaml.doc "The Multi-Region Access Point ARN."];
      routes: RouteList.t option
        [@ocaml.doc
          "The different routes that make up the route configuration. Active routes return a value of 100, and passive routes return a value of 0."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?mrap = fun ?routes -> fun () -> { mrap; routes }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Mrap", (Option.map x.mrap ~f:MultiRegionAccessPointId.to_value));
        ("Routes", (Option.map x.routes ~f:RouteList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routes =
        (Option.map ~f:RouteList.of_xml) (Xml.child xml_arg0 "Routes") in
      let mrap =
        (Option.map ~f:MultiRegionAccessPointId.of_xml)
          (Xml.child xml_arg0 "Mrap") in
      make ?routes ?mrap ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routes = field_map json__ "Routes" RouteList.of_json in
      let mrap = field_map json__ "Mrap" MultiRegionAccessPointId.of_json in
      make ?routes ?mrap ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the routing configuration for a Multi-Region Access Point, indicating which Regions are active or passive. To obtain routing control changes and failover requests, use the Amazon S3 failover control infrastructure endpoints in these five Amazon Web Services Regions: us-east-1 us-west-2 ap-southeast-2 ap-northeast-1 eu-west-1"]
module GetMultiRegionAccessPointRoutesRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      mrap: MultiRegionAccessPointId.t
        [@ocaml.doc "The Multi-Region Access Point ARN."]}
    let context_ = "GetMultiRegionAccessPointRoutesRequest"
    let make ~accountId = fun ~mrap -> fun () -> { accountId; mrap }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("mrap", (Some (MultiRegionAccessPointId.to_value x.mrap)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mrap =
        MultiRegionAccessPointId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mrap") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~mrap ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mrap = field_map_exn json__ "Mrap" MultiRegionAccessPointId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~mrap ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the routing configuration for a Multi-Region Access Point, indicating which Regions are active or passive. To obtain routing control changes and failover requests, use the Amazon S3 failover control infrastructure endpoints in these five Amazon Web Services Regions: us-east-1 us-west-2 ap-southeast-2 ap-northeast-1 eu-west-1"]
module GetMultiRegionAccessPointResult =
  struct
    type nonrec t =
      {
      accessPoint: MultiRegionAccessPointReport.t option
        [@ocaml.doc
          "A container element containing the details of the requested Multi-Region Access Point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessPoint = fun () -> { accessPoint }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessPoint",
           (Option.map x.accessPoint ~f:MultiRegionAccessPointReport.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPoint =
        (Option.map ~f:MultiRegionAccessPointReport.of_xml)
          (Xml.child xml_arg0 "AccessPoint") in
      make ?accessPoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPoint =
        field_map json__ "AccessPoint" MultiRegionAccessPointReport.of_json in
      make ?accessPoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns configuration information about the specified Multi-Region Access Point. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPoint: CreateMultiRegionAccessPoint DeleteMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation ListMultiRegionAccessPoints"]
module GetMultiRegionAccessPointRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      name: MultiRegionAccessPointName.t
        [@ocaml.doc
          "The name of the Multi-Region Access Point whose configuration information you want to receive. The name of the Multi-Region Access Point is different from the alias. For more information about the distinction between the name and the alias of an Multi-Region Access Point, see Rules for naming Amazon S3 Multi-Region Access Points in the Amazon S3 User Guide."]}
    let context_ = "GetMultiRegionAccessPointRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (MultiRegionAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        MultiRegionAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" MultiRegionAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns configuration information about the specified Multi-Region Access Point. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPoint: CreateMultiRegionAccessPoint DeleteMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation ListMultiRegionAccessPoints"]
module GetMultiRegionAccessPointPolicyStatusResult =
  struct
    type nonrec t = {
      established: PolicyStatus.t option }
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?established = fun () -> { established }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Established", (Option.map x.established ~f:PolicyStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let established =
        (Option.map ~f:PolicyStatus.of_xml)
          (Xml.child xml_arg0 "Established") in
      make ?established ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let established = field_map json__ "Established" PolicyStatus.of_json in
      make ?established ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Indicates whether the specified Multi-Region Access Point has an access control policy that allows public access. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPointPolicyStatus: GetMultiRegionAccessPointPolicy PutMultiRegionAccessPointPolicy"]
module GetMultiRegionAccessPointPolicyStatusRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      name: MultiRegionAccessPointName.t
        [@ocaml.doc
          "Specifies the Multi-Region Access Point. The name of the Multi-Region Access Point is different from the alias. For more information about the distinction between the name and the alias of an Multi-Region Access Point, see Rules for naming Amazon S3 Multi-Region Access Points in the Amazon S3 User Guide."]}
    let context_ = "GetMultiRegionAccessPointPolicyStatusRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (MultiRegionAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        MultiRegionAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" MultiRegionAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Indicates whether the specified Multi-Region Access Point has an access control policy that allows public access. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPointPolicyStatus: GetMultiRegionAccessPointPolicy PutMultiRegionAccessPointPolicy"]
module GetMultiRegionAccessPointPolicyResult =
  struct
    type nonrec t =
      {
      policy: MultiRegionAccessPointPolicyDocument.t option
        [@ocaml.doc
          "The policy associated with the specified Multi-Region Access Point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:MultiRegionAccessPointPolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:MultiRegionAccessPointPolicyDocument.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"
          MultiRegionAccessPointPolicyDocument.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the access control policy of the specified Multi-Region Access Point. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPointPolicy: GetMultiRegionAccessPointPolicyStatus PutMultiRegionAccessPointPolicy"]
module GetMultiRegionAccessPointPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      name: MultiRegionAccessPointName.t
        [@ocaml.doc
          "Specifies the Multi-Region Access Point. The name of the Multi-Region Access Point is different from the alias. For more information about the distinction between the name and the alias of an Multi-Region Access Point, see Rules for naming Amazon S3 Multi-Region Access Points in the Amazon S3 User Guide."]}
    let context_ = "GetMultiRegionAccessPointPolicyRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (MultiRegionAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        MultiRegionAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" MultiRegionAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the access control policy of the specified Multi-Region Access Point. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPointPolicy: GetMultiRegionAccessPointPolicyStatus PutMultiRegionAccessPointPolicy"]
module GetJobTaggingResult =
  struct
    type nonrec t =
      {
      tags: S3TagSet.t option
        [@ocaml.doc
          "The set of tags associated with the S3 Batch Operations job."]}
    type nonrec error =
      [ `InternalServiceException of InternalServiceException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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:S3TagSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:S3TagSet.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" S3TagSet.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the tags on an S3 Batch Operations job. Permissions To use the GetJobTagging operation, you must have permission to perform the s3:GetJobTagging action. For more information, see Controlling access and labeling jobs using tags in the Amazon S3 User Guide. Related actions include: CreateJob PutJobTagging DeleteJobTagging"]
module GetJobTaggingRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobId: JobId.t
        [@ocaml.doc
          "The ID for the S3 Batch Operations job whose tags you want to retrieve."]}
    let context_ = "GetJobTaggingRequest"
    let make ~accountId = fun ~jobId -> fun () -> { accountId; jobId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~jobId ~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" JobId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~jobId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the tags on an S3 Batch Operations job. Permissions To use the GetJobTagging operation, you must have permission to perform the s3:GetJobTagging action. For more information, see Controlling access and labeling jobs using tags in the Amazon S3 User Guide. Related actions include: CreateJob PutJobTagging DeleteJobTagging"]
module GetDataAccessResult =
  struct
    type nonrec t =
      {
      credentials: Credentials.t option
        [@ocaml.doc
          "The temporary credential token that S3 Access Grants vends."];
      matchedGrantTarget: S3Prefix.t option
        [@ocaml.doc
          "The S3 URI path of the data to which you are being granted temporary access credentials."];
      grantee: Grantee.t option
        [@ocaml.doc
          "The user, group, or role that was granted access to the S3 location scope. For directory identities, this API also returns the grants of the IAM role used for the identity-aware request. For more information on identity-aware sessions, see Granting permissions to use identity-aware console sessions."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?credentials =
      fun ?matchedGrantTarget ->
        fun ?grantee ->
          fun () -> { credentials; matchedGrantTarget; grantee }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Credentials", (Option.map x.credentials ~f:Credentials.to_value));
        ("MatchedGrantTarget",
          (Option.map x.matchedGrantTarget ~f:S3Prefix.to_value));
        ("Grantee", (Option.map x.grantee ~f:Grantee.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grantee =
        (Option.map ~f:Grantee.of_xml) (Xml.child xml_arg0 "Grantee") in
      let matchedGrantTarget =
        (Option.map ~f:S3Prefix.of_xml)
          (Xml.child xml_arg0 "MatchedGrantTarget") in
      let credentials =
        (Option.map ~f:Credentials.of_xml) (Xml.child xml_arg0 "Credentials") in
      make ?grantee ?matchedGrantTarget ?credentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grantee = field_map json__ "Grantee" Grantee.of_json in
      let matchedGrantTarget =
        field_map json__ "MatchedGrantTarget" S3Prefix.of_json in
      let credentials = field_map json__ "Credentials" Credentials.of_json in
      make ?grantee ?matchedGrantTarget ?credentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a temporary access credential from S3 Access Grants to the grantee or client application. The temporary credential is an Amazon Web Services STS token that grants them access to the S3 data. Permissions You must have the s3:GetDataAccess permission to use this operation. Additional Permissions The IAM role that S3 Access Grants assumes must have the following permissions specified in the trust policy when registering the location: sts:AssumeRole, for directory users or groups sts:SetContext, and for IAM users or roles sts:SetSourceIdentity."]
module GetDataAccessRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      target: S3Prefix.t
        [@ocaml.doc
          "The S3 URI path of the data to which you are requesting temporary access credentials. If the requesting account has an access grant for this data, S3 Access Grants vends temporary access credentials in the response."];
      permission: Permission.t
        [@ocaml.doc
          "The type of permission granted to your S3 data, which can be set to one of the following values: READ \226\128\147 Grant read-only access to the S3 data. WRITE \226\128\147 Grant write-only access to the S3 data. READWRITE \226\128\147 Grant both read and write access to the S3 data."];
      durationSeconds: DurationSeconds.t option
        [@ocaml.doc
          "The session duration, in seconds, of the temporary access credential that S3 Access Grants vends to the grantee or client application. The default value is 1 hour, but the grantee can specify a range from 900 seconds (15 minutes) up to 43200 seconds (12 hours). If the grantee requests a value higher than this maximum, the operation fails."];
      privilege: Privilege.t option
        [@ocaml.doc
          "The scope of the temporary access credential that S3 Access Grants vends to the grantee or client application. Default \226\128\147 The scope of the returned temporary access token is the scope of the grant that is closest to the target scope. Minimal \226\128\147 The scope of the returned temporary access token is the same as the requested target scope as long as the requested scope is the same as or a subset of the grant scope."];
      targetType: S3PrefixType.t option
        [@ocaml.doc
          "The type of Target. The only possible value is Object. Pass this value if the target data that you would like to access is a path to an object. Do not pass this value if the target data is a bucket or a bucket and a prefix."];
      auditContext: AuditContext.t option
        [@ocaml.doc
          "The context to identify the job or query associated with the credential request. This information will be displayed in CloudTrail log in your account."]}
    let context_ = "GetDataAccessRequest"
    let make ?durationSeconds =
      fun ?privilege ->
        fun ?targetType ->
          fun ?auditContext ->
            fun ~accountId ->
              fun ~target ->
                fun ~permission ->
                  fun () ->
                    {
                      durationSeconds;
                      privilege;
                      targetType;
                      auditContext;
                      accountId;
                      target;
                      permission
                    }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("target", (Some (S3Prefix.to_value x.target)));
        ("permission", (Some (Permission.to_value x.permission)));
        ("durationSeconds",
          (Option.map x.durationSeconds ~f:DurationSeconds.to_value));
        ("privilege", (Option.map x.privilege ~f:Privilege.to_value));
        ("targetType", (Option.map x.targetType ~f:S3PrefixType.to_value));
        ("auditContext",
          (Option.map x.auditContext ~f:AuditContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditContext =
        (Option.map ~f:AuditContext.of_xml)
          (Xml.child xml_arg0 "auditContext") in
      let targetType =
        (Option.map ~f:S3PrefixType.of_xml) (Xml.child xml_arg0 "targetType") in
      let privilege =
        (Option.map ~f:Privilege.of_xml) (Xml.child xml_arg0 "privilege") in
      let durationSeconds =
        (Option.map ~f:DurationSeconds.of_xml)
          (Xml.child xml_arg0 "durationSeconds") in
      let permission =
        Permission.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permission") in
      let target =
        S3Prefix.of_xml (Xml.child_exn ~context:context_ xml_arg0 "target") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?auditContext ?targetType ?privilege ?durationSeconds ~permission
        ~target ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditContext = field_map json__ "AuditContext" AuditContext.of_json in
      let targetType = field_map json__ "TargetType" S3PrefixType.of_json in
      let privilege = field_map json__ "Privilege" Privilege.of_json in
      let durationSeconds =
        field_map json__ "DurationSeconds" DurationSeconds.of_json in
      let permission = field_map_exn json__ "Permission" Permission.of_json in
      let target = field_map_exn json__ "Target" S3Prefix.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?auditContext ?targetType ?privilege ?durationSeconds ~permission
        ~target ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a temporary access credential from S3 Access Grants to the grantee or client application. The temporary credential is an Amazon Web Services STS token that grants them access to the S3 data. Permissions You must have the s3:GetDataAccess permission to use this operation. Additional Permissions The IAM role that S3 Access Grants assumes must have the following permissions specified in the trust policy when registering the location: sts:AssumeRole, for directory users or groups sts:SetContext, and for IAM users or roles sts:SetSourceIdentity."]
module GetBucketVersioningResult =
  struct
    type nonrec t =
      {
      status: BucketVersioningStatus.t option
        [@ocaml.doc "The versioning state of the S3 on Outposts bucket."];
      mFADelete: MFADeleteStatus.t option
        [@ocaml.doc
          "Specifies whether MFA delete is enabled in the bucket versioning configuration. This element is returned only if the bucket has been configured with MFA delete. If MFA delete has never been configured for the bucket, this element is not returned."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?status = fun ?mFADelete -> fun () -> { status; mFADelete }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:BucketVersioningStatus.to_value));
        ("MfaDelete", (Option.map x.mFADelete ~f:MFADeleteStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mFADelete =
        (Option.map ~f:MFADeleteStatus.of_xml)
          (Xml.child xml_arg0 "MfaDelete") in
      let status =
        (Option.map ~f:BucketVersioningStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?mFADelete ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mFADelete = field_map json__ "MFADelete" MFADeleteStatus.of_json in
      let status = field_map json__ "Status" BucketVersioningStatus.of_json in
      make ?mFADelete ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation returns the versioning state for S3 on Outposts buckets only. To return the versioning state for an S3 bucket, see GetBucketVersioning in the Amazon S3 API Reference. Returns the versioning state for an S3 on Outposts bucket. With S3 Versioning, you can save multiple distinct copies of your objects and recover from unintended user actions and application failures. If you've never set versioning on your bucket, it has no versioning state. In that case, the GetBucketVersioning request does not return a versioning state value. For more information about versioning, see Versioning in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following operations are related to GetBucketVersioning for S3 on Outposts. PutBucketVersioning PutBucketLifecycleConfiguration GetBucketLifecycleConfiguration"]
module GetBucketVersioningRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 on Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "The S3 on Outposts bucket to return the versioning state for."]}
    let context_ = "GetBucketVersioningRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation returns the versioning state for S3 on Outposts buckets only. To return the versioning state for an S3 bucket, see GetBucketVersioning in the Amazon S3 API Reference. Returns the versioning state for an S3 on Outposts bucket. With S3 Versioning, you can save multiple distinct copies of your objects and recover from unintended user actions and application failures. If you've never set versioning on your bucket, it has no versioning state. In that case, the GetBucketVersioning request does not return a versioning state value. For more information about versioning, see Versioning in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following operations are related to GetBucketVersioning for S3 on Outposts. PutBucketVersioning PutBucketLifecycleConfiguration GetBucketLifecycleConfiguration"]
module GetBucketTaggingResult =
  struct
    type nonrec t =
      {
      tagSet: S3TagSet.t option
        [@ocaml.doc "The tags set of the Outposts bucket."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?tagSet = fun () -> { tagSet }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("TagSet", (Option.map x.tagSet ~f:S3TagSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagSet =
        (Option.map ~f:S3TagSet.of_xml) (Xml.child xml_arg0 "TagSet") in
      make ?tagSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagSet = field_map json__ "TagSet" S3TagSet.of_json in
      make ?tagSet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action gets an Amazon S3 on Outposts bucket's tags. To get an S3 bucket tags, see GetBucketTagging in the Amazon S3 API Reference. Returns the tag set associated with the Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. To use this action, you must have permission to perform the GetBucketTagging action. By default, the bucket owner has this permission and can grant this permission to others. GetBucketTagging has the following special error: Error code: NoSuchTagSetError Description: There is no tag set associated with the bucket. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to GetBucketTagging: PutBucketTagging DeleteBucketTagging"]
module GetBucketTaggingRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "GetBucketTaggingRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action gets an Amazon S3 on Outposts bucket's tags. To get an S3 bucket tags, see GetBucketTagging in the Amazon S3 API Reference. Returns the tag set associated with the Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. To use this action, you must have permission to perform the GetBucketTagging action. By default, the bucket owner has this permission and can grant this permission to others. GetBucketTagging has the following special error: Error code: NoSuchTagSetError Description: There is no tag set associated with the bucket. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to GetBucketTagging: PutBucketTagging DeleteBucketTagging"]
module GetBucketResult =
  struct
    type nonrec t =
      {
      bucket: BucketName.t option
        [@ocaml.doc "The Outposts bucket requested."];
      publicAccessBlockEnabled: PublicAccessBlockEnabled.t option ;
      creationDate: CreationDate.t option
        [@ocaml.doc "The creation date of the Outposts bucket."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?bucket =
      fun ?publicAccessBlockEnabled ->
        fun ?creationDate ->
          fun () -> { bucket; publicAccessBlockEnabled; creationDate }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Bucket", (Option.map x.bucket ~f:BucketName.to_value));
        ("PublicAccessBlockEnabled",
          (Option.map x.publicAccessBlockEnabled
             ~f:PublicAccessBlockEnabled.to_value));
        ("CreationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      let publicAccessBlockEnabled =
        (Option.map ~f:PublicAccessBlockEnabled.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlockEnabled") in
      let bucket =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "Bucket") in
      make ?creationDate ?publicAccessBlockEnabled ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationDate = field_map json__ "CreationDate" CreationDate.of_json in
      let publicAccessBlockEnabled =
        field_map json__ "PublicAccessBlockEnabled"
          PublicAccessBlockEnabled.of_json in
      let bucket = field_map json__ "Bucket" BucketName.of_json in
      make ?creationDate ?publicAccessBlockEnabled ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets an Amazon S3 on Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. If you are using an identity other than the root user of the Amazon Web Services account that owns the Outposts bucket, the calling identity must have the s3-outposts:GetBucket permissions on the specified Outposts bucket and belong to the Outposts bucket owner's account in order to use this action. Only users from Outposts bucket owner account with the right permissions can perform actions on an Outposts bucket. If you don't have s3-outposts:GetBucket permissions or you're not using an identity that belongs to the bucket owner's account, Amazon S3 returns a 403 Access Denied error. The following actions are related to GetBucket for Amazon S3 on Outposts: All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. PutObject CreateBucket DeleteBucket"]
module GetBucketRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "GetBucketRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets an Amazon S3 on Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. If you are using an identity other than the root user of the Amazon Web Services account that owns the Outposts bucket, the calling identity must have the s3-outposts:GetBucket permissions on the specified Outposts bucket and belong to the Outposts bucket owner's account in order to use this action. Only users from Outposts bucket owner account with the right permissions can perform actions on an Outposts bucket. If you don't have s3-outposts:GetBucket permissions or you're not using an identity that belongs to the bucket owner's account, Amazon S3 returns a 403 Access Denied error. The following actions are related to GetBucket for Amazon S3 on Outposts: All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. PutObject CreateBucket DeleteBucket"]
module GetBucketReplicationResult =
  struct
    type nonrec t =
      {
      replicationConfiguration: ReplicationConfiguration.t option
        [@ocaml.doc
          "A container for one or more replication rules. A replication configuration must have at least one rule and you can add up to 100 rules. The maximum size of a replication configuration is 128 KB."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?replicationConfiguration =
      fun () -> { replicationConfiguration }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("ReplicationConfiguration",
           (Option.map x.replicationConfiguration
              ~f:ReplicationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationConfiguration =
        (Option.map ~f:ReplicationConfiguration.of_xml)
          (Xml.child xml_arg0 "ReplicationConfiguration") in
      make ?replicationConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationConfiguration =
        field_map json__ "ReplicationConfiguration"
          ReplicationConfiguration.of_json in
      make ?replicationConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation gets an Amazon S3 on Outposts bucket's replication configuration. To get an S3 bucket's replication configuration, see GetBucketReplication in the Amazon S3 API Reference. Returns the replication configuration of an S3 on Outposts bucket. For more information about S3 on Outposts, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. For information about S3 replication on Outposts configuration, see Replicating objects for S3 on Outposts in the Amazon S3 User Guide. It can take a while to propagate PUT or DELETE requests for a replication configuration to all S3 on Outposts systems. Therefore, the replication configuration that's returned by a GET request soon after a PUT or DELETE request might return a more recent result than what's on the Outpost. If an Outpost is offline, the delay in updating the replication configuration on that Outpost can be significant. This action requires permissions for the s3-outposts:GetReplicationConfiguration action. The Outposts bucket owner has this permission by default and can grant it to others. For more information about permissions, see Setting up IAM with S3 on Outposts and Managing access to S3 on Outposts bucket in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. If you include the Filter element in a replication configuration, you must also include the DeleteMarkerReplication, Status, and Priority elements. The response also returns those elements. For information about S3 on Outposts replication failure reasons, see Replication failure reasons in the Amazon S3 User Guide. The following operations are related to GetBucketReplication: PutBucketReplication DeleteBucketReplication"]
module GetBucketReplicationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket to get the replication information for. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "GetBucketReplicationRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation gets an Amazon S3 on Outposts bucket's replication configuration. To get an S3 bucket's replication configuration, see GetBucketReplication in the Amazon S3 API Reference. Returns the replication configuration of an S3 on Outposts bucket. For more information about S3 on Outposts, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. For information about S3 replication on Outposts configuration, see Replicating objects for S3 on Outposts in the Amazon S3 User Guide. It can take a while to propagate PUT or DELETE requests for a replication configuration to all S3 on Outposts systems. Therefore, the replication configuration that's returned by a GET request soon after a PUT or DELETE request might return a more recent result than what's on the Outpost. If an Outpost is offline, the delay in updating the replication configuration on that Outpost can be significant. This action requires permissions for the s3-outposts:GetReplicationConfiguration action. The Outposts bucket owner has this permission by default and can grant it to others. For more information about permissions, see Setting up IAM with S3 on Outposts and Managing access to S3 on Outposts bucket in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. If you include the Filter element in a replication configuration, you must also include the DeleteMarkerReplication, Status, and Priority elements. The response also returns those elements. For information about S3 on Outposts replication failure reasons, see Replication failure reasons in the Amazon S3 User Guide. The following operations are related to GetBucketReplication: PutBucketReplication DeleteBucketReplication"]
module GetBucketPolicyResult =
  struct
    type nonrec t =
      {
      policy: Policy.t option
        [@ocaml.doc "The policy of the Outposts bucket."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:Policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Policy.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" Policy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action gets a bucket policy for an Amazon S3 on Outposts bucket. To get a policy for an S3 bucket, see GetBucketPolicy in the Amazon S3 API Reference. Returns the policy of a specified Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. If you are using an identity other than the root user of the Amazon Web Services account that owns the bucket, the calling identity must have the GetBucketPolicy permissions on the specified bucket and belong to the bucket owner's account in order to use this action. Only users from Outposts bucket owner account with the right permissions can perform actions on an Outposts bucket. If you don't have s3-outposts:GetBucketPolicy permissions or you're not using an identity that belongs to the bucket owner's account, Amazon S3 returns a 403 Access Denied error. As a security precaution, the root user of the Amazon Web Services account that owns a bucket can always use this action, even if the policy explicitly denies the root user the ability to perform this action. For more information about bucket policies, see Using Bucket Policies and User Policies. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to GetBucketPolicy: GetObject PutBucketPolicy DeleteBucketPolicy"]
module GetBucketPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "GetBucketPolicyRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action gets a bucket policy for an Amazon S3 on Outposts bucket. To get a policy for an S3 bucket, see GetBucketPolicy in the Amazon S3 API Reference. Returns the policy of a specified Outposts bucket. For more information, see Using Amazon S3 on Outposts in the Amazon S3 User Guide. If you are using an identity other than the root user of the Amazon Web Services account that owns the bucket, the calling identity must have the GetBucketPolicy permissions on the specified bucket and belong to the bucket owner's account in order to use this action. Only users from Outposts bucket owner account with the right permissions can perform actions on an Outposts bucket. If you don't have s3-outposts:GetBucketPolicy permissions or you're not using an identity that belongs to the bucket owner's account, Amazon S3 returns a 403 Access Denied error. As a security precaution, the root user of the Amazon Web Services account that owns a bucket can always use this action, even if the policy explicitly denies the root user the ability to perform this action. For more information about bucket policies, see Using Bucket Policies and User Policies. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to GetBucketPolicy: GetObject PutBucketPolicy DeleteBucketPolicy"]
module GetBucketLifecycleConfigurationResult =
  struct
    type nonrec t =
      {
      rules: LifecycleRules.t option
        [@ocaml.doc
          "Container for the lifecycle rule of the Outposts bucket."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?rules = fun () -> { rules }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Rules", (Option.map x.rules ~f:LifecycleRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        (Option.map ~f:LifecycleRules.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" LifecycleRules.of_json in
      make ?rules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action gets an Amazon S3 on Outposts bucket's lifecycle configuration. To get an S3 bucket's lifecycle configuration, see GetBucketLifecycleConfiguration in the Amazon S3 API Reference. Returns the lifecycle configuration information set on the Outposts bucket. For more information, see Using Amazon S3 on Outposts and for information about lifecycle configuration, see Object Lifecycle Management in Amazon S3 User Guide. To use this action, you must have permission to perform the s3-outposts:GetLifecycleConfiguration action. The Outposts bucket owner has this permission, by default. The bucket owner can grant this permission to others. For more information about permissions, see Permissions Related to Bucket Subresource Operations and Managing Access Permissions to Your Amazon S3 Resources. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. GetBucketLifecycleConfiguration has the following special error: Error code: NoSuchLifecycleConfiguration Description: The lifecycle configuration does not exist. HTTP Status Code: 404 Not Found SOAP Fault Code Prefix: Client The following actions are related to GetBucketLifecycleConfiguration: PutBucketLifecycleConfiguration DeleteBucketLifecycleConfiguration"]
module GetBucketLifecycleConfigurationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "GetBucketLifecycleConfigurationRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action gets an Amazon S3 on Outposts bucket's lifecycle configuration. To get an S3 bucket's lifecycle configuration, see GetBucketLifecycleConfiguration in the Amazon S3 API Reference. Returns the lifecycle configuration information set on the Outposts bucket. For more information, see Using Amazon S3 on Outposts and for information about lifecycle configuration, see Object Lifecycle Management in Amazon S3 User Guide. To use this action, you must have permission to perform the s3-outposts:GetLifecycleConfiguration action. The Outposts bucket owner has this permission, by default. The bucket owner can grant this permission to others. For more information about permissions, see Permissions Related to Bucket Subresource Operations and Managing Access Permissions to Your Amazon S3 Resources. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. GetBucketLifecycleConfiguration has the following special error: Error code: NoSuchLifecycleConfiguration Description: The lifecycle configuration does not exist. HTTP Status Code: 404 Not Found SOAP Fault Code Prefix: Client The following actions are related to GetBucketLifecycleConfiguration: PutBucketLifecycleConfiguration DeleteBucketLifecycleConfiguration"]
module GetAccessPointScopeResult =
  struct
    type nonrec t =
      {
      scope: Scope.t option
        [@ocaml.doc "The contents of the access point scope."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?scope = fun () -> { scope }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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 [("Scope", (Option.map x.scope ~f:Scope.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scope = (Option.map ~f:Scope.of_xml) (Xml.child xml_arg0 "Scope") in
      make ?scope ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scope = field_map json__ "Scope" Scope.of_json in make ?scope ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the access point scope for a directory bucket. To use this operation, you must have the permission to perform the s3express:GetAccessPointScope action. For information about REST API errors, see REST error responses."]
module GetAccessPointScopeRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the access point with the scope that you want to retrieve."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point with the scope you want to retrieve."]}
    let context_ = "GetAccessPointScopeRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the access point scope for a directory bucket. To use this operation, you must have the permission to perform the s3express:GetAccessPointScope action. For information about REST API errors, see REST error responses."]
module GetAccessPointResult =
  struct
    type nonrec t =
      {
      name: AccessPointName.t option
        [@ocaml.doc "The name of the specified access point."];
      bucket: AccessPointBucketName.t option
        [@ocaml.doc
          "The name of the bucket associated with the specified access point."];
      networkOrigin: NetworkOrigin.t option
        [@ocaml.doc
          "Indicates whether this access point allows access from the public internet. If VpcConfiguration is specified for this access point, then NetworkOrigin is VPC, and the access point doesn't allow access from the public internet. Otherwise, NetworkOrigin is Internet, and the access point allows access from the public internet, subject to the access point and bucket access policies. This will always be true for an Amazon S3 on Outposts access point"];
      vpcConfiguration: VpcConfiguration.t option
        [@ocaml.doc
          "Contains the virtual private cloud (VPC) configuration for the specified access point. This element is empty if this access point is an Amazon S3 on Outposts access point that is used by other Amazon Web Services services."];
      publicAccessBlockConfiguration: PublicAccessBlockConfiguration.t option ;
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date and time when the specified access point was created."];
      alias: Alias.t option
        [@ocaml.doc "The name or alias of the access point."];
      accessPointArn: S3AccessPointArn.t option
        [@ocaml.doc "The ARN of the access point."];
      endpoints: Endpoints.t option
        [@ocaml.doc "The VPC endpoint for the access point."];
      bucketAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 bucket associated with this access point."];
      dataSourceId: DataSourceId.t option
        [@ocaml.doc
          "The unique identifier for the data source of the access point."];
      dataSourceType: DataSourceType.t option
        [@ocaml.doc
          "The type of the data source that the access point is attached to."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?bucket ->
        fun ?networkOrigin ->
          fun ?vpcConfiguration ->
            fun ?publicAccessBlockConfiguration ->
              fun ?creationDate ->
                fun ?alias ->
                  fun ?accessPointArn ->
                    fun ?endpoints ->
                      fun ?bucketAccountId ->
                        fun ?dataSourceId ->
                          fun ?dataSourceType ->
                            fun () ->
                              {
                                name;
                                bucket;
                                networkOrigin;
                                vpcConfiguration;
                                publicAccessBlockConfiguration;
                                creationDate;
                                alias;
                                accessPointArn;
                                endpoints;
                                bucketAccountId;
                                dataSourceId;
                                dataSourceType
                              }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Name", (Option.map x.name ~f:AccessPointName.to_value));
        ("Bucket", (Option.map x.bucket ~f:AccessPointBucketName.to_value));
        ("NetworkOrigin",
          (Option.map x.networkOrigin ~f:NetworkOrigin.to_value));
        ("VpcConfiguration",
          (Option.map x.vpcConfiguration ~f:VpcConfiguration.to_value));
        ("PublicAccessBlockConfiguration",
          (Option.map x.publicAccessBlockConfiguration
             ~f:PublicAccessBlockConfiguration.to_value));
        ("CreationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("Alias", (Option.map x.alias ~f:Alias.to_value));
        ("AccessPointArn",
          (Option.map x.accessPointArn ~f:S3AccessPointArn.to_value));
        ("Endpoints", (Option.map x.endpoints ~f:Endpoints.to_value));
        ("BucketAccountId",
          (Option.map x.bucketAccountId ~f:AccountId.to_value));
        ("DataSourceId",
          (Option.map x.dataSourceId ~f:DataSourceId.to_value));
        ("DataSourceType",
          (Option.map x.dataSourceType ~f:DataSourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataSourceType =
        (Option.map ~f:DataSourceType.of_xml)
          (Xml.child xml_arg0 "DataSourceType") in
      let dataSourceId =
        (Option.map ~f:DataSourceId.of_xml)
          (Xml.child xml_arg0 "DataSourceId") in
      let bucketAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "BucketAccountId") in
      let endpoints =
        (Option.map ~f:Endpoints.of_xml) (Xml.child xml_arg0 "Endpoints") in
      let accessPointArn =
        (Option.map ~f:S3AccessPointArn.of_xml)
          (Xml.child xml_arg0 "AccessPointArn") in
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      let publicAccessBlockConfiguration =
        (Option.map ~f:PublicAccessBlockConfiguration.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlockConfiguration") in
      let vpcConfiguration =
        (Option.map ~f:VpcConfiguration.of_xml)
          (Xml.child xml_arg0 "VpcConfiguration") in
      let networkOrigin =
        (Option.map ~f:NetworkOrigin.of_xml)
          (Xml.child xml_arg0 "NetworkOrigin") in
      let bucket =
        (Option.map ~f:AccessPointBucketName.of_xml)
          (Xml.child xml_arg0 "Bucket") in
      let name =
        (Option.map ~f:AccessPointName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?dataSourceType ?dataSourceId ?bucketAccountId ?endpoints
        ?accessPointArn ?alias ?creationDate ?publicAccessBlockConfiguration
        ?vpcConfiguration ?networkOrigin ?bucket ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataSourceType =
        field_map json__ "DataSourceType" DataSourceType.of_json in
      let dataSourceId = field_map json__ "DataSourceId" DataSourceId.of_json in
      let bucketAccountId =
        field_map json__ "BucketAccountId" AccountId.of_json in
      let endpoints = field_map json__ "Endpoints" Endpoints.of_json in
      let accessPointArn =
        field_map json__ "AccessPointArn" S3AccessPointArn.of_json in
      let alias = field_map json__ "Alias" Alias.of_json in
      let creationDate = field_map json__ "CreationDate" CreationDate.of_json in
      let publicAccessBlockConfiguration =
        field_map json__ "PublicAccessBlockConfiguration"
          PublicAccessBlockConfiguration.of_json in
      let vpcConfiguration =
        field_map json__ "VpcConfiguration" VpcConfiguration.of_json in
      let networkOrigin =
        field_map json__ "NetworkOrigin" NetworkOrigin.of_json in
      let bucket = field_map json__ "Bucket" AccessPointBucketName.of_json in
      let name = field_map json__ "Name" AccessPointName.of_json in
      make ?dataSourceType ?dataSourceId ?bucketAccountId ?endpoints
        ?accessPointArn ?alias ?creationDate ?publicAccessBlockConfiguration
        ?vpcConfiguration ?networkOrigin ?bucket ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns configuration information about the specified access point. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to GetAccessPoint: CreateAccessPoint DeleteAccessPoint ListAccessPoints"]
module GetAccessPointRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that owns the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point whose configuration information you want to retrieve. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the access point accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/accesspoint/<my-accesspoint-name>. For example, to access the access point reports-ap through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/accesspoint/reports-ap. The value must be URL encoded."]}
    let context_ = "GetAccessPointRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns configuration information about the specified access point. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to GetAccessPoint: CreateAccessPoint DeleteAccessPoint ListAccessPoints"]
module GetAccessPointPolicyStatusResult =
  struct
    type nonrec t =
      {
      policyStatus: PolicyStatus.t option
        [@ocaml.doc
          "Indicates the current policy status of the specified access point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policyStatus = fun () -> { policyStatus }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("PolicyStatus",
           (Option.map x.policyStatus ~f:PolicyStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyStatus =
        (Option.map ~f:PolicyStatus.of_xml)
          (Xml.child xml_arg0 "PolicyStatus") in
      make ?policyStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyStatus = field_map json__ "PolicyStatus" PolicyStatus.of_json in
      make ?policyStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Indicates whether the specified access point currently has a policy that allows public access. For more information about public access through access points, see Managing Data Access with Amazon S3 access points in the Amazon S3 User Guide."]
module GetAccessPointPolicyStatusRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point whose policy status you want to retrieve."]}
    let context_ = "GetAccessPointPolicyStatusRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Indicates whether the specified access point currently has a policy that allows public access. For more information about public access through access points, see Managing Data Access with Amazon S3 access points in the Amazon S3 User Guide."]
module GetAccessPointPolicyStatusForObjectLambdaResult =
  struct
    type nonrec t = {
      policyStatus: PolicyStatus.t option }
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policyStatus = fun () -> { policyStatus }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("PolicyStatus",
           (Option.map x.policyStatus ~f:PolicyStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyStatus =
        (Option.map ~f:PolicyStatus.of_xml)
          (Xml.child xml_arg0 "PolicyStatus") in
      make ?policyStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyStatus = field_map json__ "PolicyStatus" PolicyStatus.of_json in
      make ?policyStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the status of the resource policy associated with an Object Lambda Access Point."]
module GetAccessPointPolicyStatusForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc "The name of the Object Lambda Access Point."]}
    let context_ = "GetAccessPointPolicyStatusForObjectLambdaRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the status of the resource policy associated with an Object Lambda Access Point."]
module GetAccessPointPolicyResult =
  struct
    type nonrec t =
      {
      policy: Policy.t option
        [@ocaml.doc
          "The access point policy associated with the specified access point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:Policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Policy.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" Policy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the access point policy associated with the specified access point. The following actions are related to GetAccessPointPolicy: PutAccessPointPolicy DeleteAccessPointPolicy"]
module GetAccessPointPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point whose policy you want to retrieve. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the access point accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/accesspoint/<my-accesspoint-name>. For example, to access the access point reports-ap through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/accesspoint/reports-ap. The value must be URL encoded."]}
    let context_ = "GetAccessPointPolicyRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the access point policy associated with the specified access point. The following actions are related to GetAccessPointPolicy: PutAccessPointPolicy DeleteAccessPointPolicy"]
module GetAccessPointPolicyForObjectLambdaResult =
  struct
    type nonrec t =
      {
      policy: ObjectLambdaPolicy.t option
        [@ocaml.doc "Object Lambda Access Point resource policy document."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:ObjectLambdaPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:ObjectLambdaPolicy.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" ObjectLambdaPolicy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the resource policy for an Object Lambda Access Point. The following actions are related to GetAccessPointPolicyForObjectLambda: DeleteAccessPointPolicyForObjectLambda PutAccessPointPolicyForObjectLambda"]
module GetAccessPointPolicyForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc "The name of the Object Lambda Access Point."]}
    let context_ = "GetAccessPointPolicyForObjectLambdaRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns the resource policy for an Object Lambda Access Point. The following actions are related to GetAccessPointPolicyForObjectLambda: DeleteAccessPointPolicyForObjectLambda PutAccessPointPolicyForObjectLambda"]
module GetAccessPointForObjectLambdaResult =
  struct
    type nonrec t =
      {
      name: ObjectLambdaAccessPointName.t option
        [@ocaml.doc "The name of the Object Lambda Access Point."];
      publicAccessBlockConfiguration: PublicAccessBlockConfiguration.t option
        [@ocaml.doc
          "Configuration to block all public access. This setting is turned on and can not be edited."];
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date and time when the specified Object Lambda Access Point was created."];
      alias: ObjectLambdaAccessPointAlias.t option
        [@ocaml.doc "The alias of the Object Lambda Access Point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?publicAccessBlockConfiguration ->
        fun ?creationDate ->
          fun ?alias ->
            fun () ->
              { name; publicAccessBlockConfiguration; creationDate; alias }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Name",
           (Option.map x.name ~f:ObjectLambdaAccessPointName.to_value));
        ("PublicAccessBlockConfiguration",
          (Option.map x.publicAccessBlockConfiguration
             ~f:PublicAccessBlockConfiguration.to_value));
        ("CreationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("Alias",
          (Option.map x.alias ~f:ObjectLambdaAccessPointAlias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        (Option.map ~f:ObjectLambdaAccessPointAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      let publicAccessBlockConfiguration =
        (Option.map ~f:PublicAccessBlockConfiguration.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlockConfiguration") in
      let name =
        (Option.map ~f:ObjectLambdaAccessPointName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?alias ?creationDate ?publicAccessBlockConfiguration ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias =
        field_map json__ "Alias" ObjectLambdaAccessPointAlias.of_json in
      let creationDate = field_map json__ "CreationDate" CreationDate.of_json in
      let publicAccessBlockConfiguration =
        field_map json__ "PublicAccessBlockConfiguration"
          PublicAccessBlockConfiguration.of_json in
      let name = field_map json__ "Name" ObjectLambdaAccessPointName.of_json in
      make ?alias ?creationDate ?publicAccessBlockConfiguration ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns configuration information about the specified Object Lambda Access Point The following actions are related to GetAccessPointForObjectLambda: CreateAccessPointForObjectLambda DeleteAccessPointForObjectLambda ListAccessPointsForObjectLambda"]
module GetAccessPointForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc "The name of the Object Lambda Access Point."]}
    let context_ = "GetAccessPointForObjectLambdaRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns configuration information about the specified Object Lambda Access Point The following actions are related to GetAccessPointForObjectLambda: CreateAccessPointForObjectLambda DeleteAccessPointForObjectLambda ListAccessPointsForObjectLambda"]
module GetAccessPointConfigurationForObjectLambdaResult =
  struct
    type nonrec t =
      {
      configuration: ObjectLambdaConfiguration.t option
        [@ocaml.doc "Object Lambda Access Point configuration document."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?configuration = fun () -> { configuration }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("Configuration",
           (Option.map x.configuration ~f:ObjectLambdaConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:ObjectLambdaConfiguration.of_xml)
          (Xml.child xml_arg0 "Configuration") in
      make ?configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "Configuration" ObjectLambdaConfiguration.of_json in
      make ?configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns configuration for an Object Lambda Access Point. The following actions are related to GetAccessPointConfigurationForObjectLambda: PutAccessPointConfigurationForObjectLambda"]
module GetAccessPointConfigurationForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc
          "The name of the Object Lambda Access Point you want to return the configuration for."]}
    let context_ = "GetAccessPointConfigurationForObjectLambdaRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Returns configuration for an Object Lambda Access Point. The following actions are related to GetAccessPointConfigurationForObjectLambda: PutAccessPointConfigurationForObjectLambda"]
module GetAccessGrantsLocationResult =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc "The date and time when you registered the location."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationArn: AccessGrantsLocationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the registered location."];
      locationScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 URI path to the registered location. The location scope can be the default S3 location s3://, the S3 path to a bucket, or the S3 path to a bucket and prefix. A prefix in S3 is a string of characters at the beginning of an object key name used to organize the objects that you store in your S3 buckets. For example, object key names that start with the engineering/ prefix or object key names that start with the marketing/campaigns/ prefix."];
      iAMRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for the registered location. S3 Access Grants assumes this role to manage access to the registered location."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?createdAt =
      fun ?accessGrantsLocationId ->
        fun ?accessGrantsLocationArn ->
          fun ?locationScope ->
            fun ?iAMRoleArn ->
              fun () ->
                {
                  createdAt;
                  accessGrantsLocationId;
                  accessGrantsLocationArn;
                  locationScope;
                  iAMRoleArn
                }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationArn",
          (Option.map x.accessGrantsLocationArn
             ~f:AccessGrantsLocationArn.to_value));
        ("LocationScope", (Option.map x.locationScope ~f:S3Prefix.to_value));
        ("IAMRoleArn", (Option.map x.iAMRoleArn ~f:IAMRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iAMRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml) (Xml.child xml_arg0 "IAMRoleArn") in
      let locationScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "LocationScope") in
      let accessGrantsLocationArn =
        (Option.map ~f:AccessGrantsLocationArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationArn") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iAMRoleArn = field_map json__ "IAMRoleArn" IAMRoleArn.of_json in
      let locationScope = field_map json__ "LocationScope" S3Prefix.of_json in
      let accessGrantsLocationArn =
        field_map json__ "AccessGrantsLocationArn"
          AccessGrantsLocationArn.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of a particular location registered in your S3 Access Grants instance. Permissions You must have the s3:GetAccessGrantsLocation permission to use this operation."]
module GetAccessGrantsLocationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      accessGrantsLocationId: AccessGrantsLocationId.t
        [@ocaml.doc
          "The ID of the registered location that you are retrieving. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."]}
    let context_ = "GetAccessGrantsLocationRequest"
    let make ~accountId =
      fun ~accessGrantsLocationId ->
        fun () -> { accountId; accessGrantsLocationId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id",
          (Some (AccessGrantsLocationId.to_value x.accessGrantsLocationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantsLocationId =
        AccessGrantsLocationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~accessGrantsLocationId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantsLocationId =
        field_map_exn json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~accessGrantsLocationId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of a particular location registered in your S3 Access Grants instance. Permissions You must have the s3:GetAccessGrantsLocation permission to use this operation."]
module GetAccessGrantsInstanceResult =
  struct
    type nonrec t =
      {
      accessGrantsInstanceArn: AccessGrantsInstanceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 Access Grants instance."];
      accessGrantsInstanceId: AccessGrantsInstanceId.t option
        [@ocaml.doc
          "The ID of the S3 Access Grants instance. The ID is default. You can have one S3 Access Grants instance per Region per account."];
      identityCenterArn: IdentityCenterArn.t option
        [@ocaml.doc
          "If you associated your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, this field returns the Amazon Resource Name (ARN) of the IAM Identity Center instance application; a subresource of the original Identity Center instance. S3 Access Grants creates this Identity Center application for the specific S3 Access Grants instance."];
      identityCenterInstanceArn: IdentityCenterArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services IAM Identity Center instance that you are associating with your S3 Access Grants instance. An IAM Identity Center instance is your corporate identity directory that you added to the IAM Identity Center. You can use the ListInstances API operation to retrieve a list of your Identity Center instances and their ARNs."];
      identityCenterApplicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "If you associated your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, this field returns the Amazon Resource Name (ARN) of the IAM Identity Center instance application; a subresource of the original Identity Center instance. S3 Access Grants creates this Identity Center application for the specific S3 Access Grants instance."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time when you created the S3 Access Grants instance."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessGrantsInstanceArn =
      fun ?accessGrantsInstanceId ->
        fun ?identityCenterArn ->
          fun ?identityCenterInstanceArn ->
            fun ?identityCenterApplicationArn ->
              fun ?createdAt ->
                fun () ->
                  {
                    accessGrantsInstanceArn;
                    accessGrantsInstanceId;
                    identityCenterArn;
                    identityCenterInstanceArn;
                    identityCenterApplicationArn;
                    createdAt
                  }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessGrantsInstanceArn",
           (Option.map x.accessGrantsInstanceArn
              ~f:AccessGrantsInstanceArn.to_value));
        ("AccessGrantsInstanceId",
          (Option.map x.accessGrantsInstanceId
             ~f:AccessGrantsInstanceId.to_value));
        ("IdentityCenterArn",
          (Option.map x.identityCenterArn ~f:IdentityCenterArn.to_value));
        ("IdentityCenterInstanceArn",
          (Option.map x.identityCenterInstanceArn
             ~f:IdentityCenterArn.to_value));
        ("IdentityCenterApplicationArn",
          (Option.map x.identityCenterApplicationArn
             ~f:IdentityCenterApplicationArn.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let identityCenterApplicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterApplicationArn") in
      let identityCenterInstanceArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterInstanceArn") in
      let identityCenterArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterArn") in
      let accessGrantsInstanceId =
        (Option.map ~f:AccessGrantsInstanceId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceId") in
      let accessGrantsInstanceArn =
        (Option.map ~f:AccessGrantsInstanceArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceArn") in
      make ?createdAt ?identityCenterApplicationArn
        ?identityCenterInstanceArn ?identityCenterArn ?accessGrantsInstanceId
        ?accessGrantsInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      let identityCenterApplicationArn =
        field_map json__ "IdentityCenterApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let identityCenterInstanceArn =
        field_map json__ "IdentityCenterInstanceArn"
          IdentityCenterArn.of_json in
      let identityCenterArn =
        field_map json__ "IdentityCenterArn" IdentityCenterArn.of_json in
      let accessGrantsInstanceId =
        field_map json__ "AccessGrantsInstanceId"
          AccessGrantsInstanceId.of_json in
      let accessGrantsInstanceArn =
        field_map json__ "AccessGrantsInstanceArn"
          AccessGrantsInstanceArn.of_json in
      make ?createdAt ?identityCenterApplicationArn
        ?identityCenterInstanceArn ?identityCenterArn ?accessGrantsInstanceId
        ?accessGrantsInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the S3 Access Grants instance for a Region in your account. Permissions You must have the s3:GetAccessGrantsInstance permission to use this operation. GetAccessGrantsInstance is not supported for cross-account access. You can only call the API from the account that owns the S3 Access Grants instance."]
module GetAccessGrantsInstanceResourcePolicyResult =
  struct
    type nonrec t =
      {
      policy: PolicyDocument.t option
        [@ocaml.doc "The resource policy of the S3 Access Grants instance."];
      organization: Organization.t option
        [@ocaml.doc
          "The Organization of the resource policy of the S3 Access Grants instance."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time when you created the S3 Access Grants instance resource policy."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?policy =
      fun ?organization ->
        fun ?createdAt -> fun () -> { policy; organization; createdAt }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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:PolicyDocument.to_value));
        ("Organization",
          (Option.map x.organization ~f:Organization.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let organization =
        (Option.map ~f:Organization.of_xml)
          (Xml.child xml_arg0 "Organization") in
      let policy =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?createdAt ?organization ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      let organization = field_map json__ "Organization" Organization.of_json in
      let policy = field_map json__ "Policy" PolicyDocument.of_json in
      make ?createdAt ?organization ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resource policy of the S3 Access Grants instance. Permissions You must have the s3:GetAccessGrantsInstanceResourcePolicy permission to use this operation."]
module GetAccessGrantsInstanceResourcePolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."]}
    let context_ = "GetAccessGrantsInstanceResourcePolicyRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resource policy of the S3 Access Grants instance. Permissions You must have the s3:GetAccessGrantsInstanceResourcePolicy permission to use this operation."]
module GetAccessGrantsInstanceRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."]}
    let context_ = "GetAccessGrantsInstanceRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the S3 Access Grants instance for a Region in your account. Permissions You must have the s3:GetAccessGrantsInstance permission to use this operation. GetAccessGrantsInstance is not supported for cross-account access. You can only call the API from the account that owns the S3 Access Grants instance."]
module GetAccessGrantsInstanceForPrefixResult =
  struct
    type nonrec t =
      {
      accessGrantsInstanceArn: AccessGrantsInstanceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 Access Grants instance."];
      accessGrantsInstanceId: AccessGrantsInstanceId.t option
        [@ocaml.doc
          "The ID of the S3 Access Grants instance. The ID is default. You can have one S3 Access Grants instance per Region per account."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessGrantsInstanceArn =
      fun ?accessGrantsInstanceId ->
        fun () -> { accessGrantsInstanceArn; accessGrantsInstanceId }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessGrantsInstanceArn",
           (Option.map x.accessGrantsInstanceArn
              ~f:AccessGrantsInstanceArn.to_value));
        ("AccessGrantsInstanceId",
          (Option.map x.accessGrantsInstanceId
             ~f:AccessGrantsInstanceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantsInstanceId =
        (Option.map ~f:AccessGrantsInstanceId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceId") in
      let accessGrantsInstanceArn =
        (Option.map ~f:AccessGrantsInstanceArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceArn") in
      make ?accessGrantsInstanceId ?accessGrantsInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantsInstanceId =
        field_map json__ "AccessGrantsInstanceId"
          AccessGrantsInstanceId.of_json in
      let accessGrantsInstanceArn =
        field_map json__ "AccessGrantsInstanceArn"
          AccessGrantsInstanceArn.of_json in
      make ?accessGrantsInstanceId ?accessGrantsInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve the S3 Access Grants instance that contains a particular prefix. Permissions You must have the s3:GetAccessGrantsInstanceForPrefix permission for the caller account to use this operation. Additional Permissions The prefix owner account must grant you the following permissions to their S3 Access Grants instance: s3:GetAccessGrantsInstanceForPrefix."]
module GetAccessGrantsInstanceForPrefixRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The ID of the Amazon Web Services account that is making this request."];
      s3Prefix: S3Prefix.t
        [@ocaml.doc
          "The S3 prefix of the access grants that you would like to retrieve."]}
    let context_ = "GetAccessGrantsInstanceForPrefixRequest"
    let make ~accountId = fun ~s3Prefix -> fun () -> { accountId; s3Prefix }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("s3prefix", (Some (S3Prefix.to_value x.s3Prefix)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Prefix =
        S3Prefix.of_xml (Xml.child_exn ~context:context_ xml_arg0 "s3prefix") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~s3Prefix ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Prefix = field_map_exn json__ "S3Prefix" S3Prefix.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~s3Prefix ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve the S3 Access Grants instance that contains a particular prefix. Permissions You must have the s3:GetAccessGrantsInstanceForPrefix permission for the caller account to use this operation. Additional Permissions The prefix owner account must grant you the following permissions to their S3 Access Grants instance: s3:GetAccessGrantsInstanceForPrefix."]
module GetAccessGrantResult =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc "The date and time when you created the access grant."];
      accessGrantId: AccessGrantId.t option
        [@ocaml.doc
          "The ID of the access grant. S3 Access Grants auto-generates this ID when you create the access grant."];
      accessGrantArn: AccessGrantArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the access grant."];
      grantee: Grantee.t option
        [@ocaml.doc
          "The user, group, or role to which you are granting access. You can grant access to an IAM user or role. If you have added a corporate directory to Amazon Web Services IAM Identity Center and associated this Identity Center instance with the S3 Access Grants instance, the grantee can also be a corporate directory user or group."];
      permission: Permission.t option
        [@ocaml.doc
          "The type of permission that was granted in the access grant. Can be one of the following values: READ \226\128\147 Grant read-only access to the S3 data. WRITE \226\128\147 Grant write-only access to the S3 data. READWRITE \226\128\147 Grant both read and write access to the S3 data."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationConfiguration:
        AccessGrantsLocationConfiguration.t option
        [@ocaml.doc
          "The configuration options of the grant location. The grant location is the S3 path to the data to which you are granting access."];
      grantScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path of the data to which you are granting access. It is the result of appending the Subprefix to the location scope."];
      applicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Web Services IAM Identity Center application associated with your Identity Center instance. If the grant includes an application ARN, the grantee can only access the S3 data through this application."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?createdAt =
      fun ?accessGrantId ->
        fun ?accessGrantArn ->
          fun ?grantee ->
            fun ?permission ->
              fun ?accessGrantsLocationId ->
                fun ?accessGrantsLocationConfiguration ->
                  fun ?grantScope ->
                    fun ?applicationArn ->
                      fun () ->
                        {
                          createdAt;
                          accessGrantId;
                          accessGrantArn;
                          grantee;
                          permission;
                          accessGrantsLocationId;
                          accessGrantsLocationConfiguration;
                          grantScope;
                          applicationArn
                        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantId",
          (Option.map x.accessGrantId ~f:AccessGrantId.to_value));
        ("AccessGrantArn",
          (Option.map x.accessGrantArn ~f:AccessGrantArn.to_value));
        ("Grantee", (Option.map x.grantee ~f:Grantee.to_value));
        ("Permission", (Option.map x.permission ~f:Permission.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationConfiguration",
          (Option.map x.accessGrantsLocationConfiguration
             ~f:AccessGrantsLocationConfiguration.to_value));
        ("GrantScope", (Option.map x.grantScope ~f:S3Prefix.to_value));
        ("ApplicationArn",
          (Option.map x.applicationArn
             ~f:IdentityCenterApplicationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "ApplicationArn") in
      let grantScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "GrantScope") in
      let accessGrantsLocationConfiguration =
        (Option.map ~f:AccessGrantsLocationConfiguration.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationConfiguration") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      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
      let accessGrantArn =
        (Option.map ~f:AccessGrantArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantArn") in
      let accessGrantId =
        (Option.map ~f:AccessGrantId.of_xml)
          (Xml.child xml_arg0 "AccessGrantId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?applicationArn ?grantScope ?accessGrantsLocationConfiguration
        ?accessGrantsLocationId ?permission ?grantee ?accessGrantArn
        ?accessGrantId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationArn =
        field_map json__ "ApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let grantScope = field_map json__ "GrantScope" S3Prefix.of_json in
      let accessGrantsLocationConfiguration =
        field_map json__ "AccessGrantsLocationConfiguration"
          AccessGrantsLocationConfiguration.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let permission = field_map json__ "Permission" Permission.of_json in
      let grantee = field_map json__ "Grantee" Grantee.of_json in
      let accessGrantArn =
        field_map json__ "AccessGrantArn" AccessGrantArn.of_json in
      let accessGrantId =
        field_map json__ "AccessGrantId" AccessGrantId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?applicationArn ?grantScope ?accessGrantsLocationConfiguration
        ?accessGrantsLocationId ?permission ?grantee ?accessGrantArn
        ?accessGrantId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the details of an access grant from your S3 Access Grants instance. Permissions You must have the s3:GetAccessGrant permission to use this operation."]
module GetAccessGrantRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      accessGrantId: AccessGrantId.t
        [@ocaml.doc
          "The ID of the access grant. S3 Access Grants auto-generates this ID when you create the access grant."]}
    let context_ = "GetAccessGrantRequest"
    let make ~accountId =
      fun ~accessGrantId -> fun () -> { accountId; accessGrantId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (AccessGrantId.to_value x.accessGrantId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantId =
        AccessGrantId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~accessGrantId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantId =
        field_map_exn json__ "AccessGrantId" AccessGrantId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~accessGrantId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the details of an access grant from your S3 Access Grants instance. Permissions You must have the s3:GetAccessGrant permission to use this operation."]
module DissociateAccessGrantsIdentityCenterRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."]}
    let context_ = "DissociateAccessGrantsIdentityCenterRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Dissociates the Amazon Web Services IAM Identity Center instance from the S3 Access Grants instance. Permissions You must have the s3:DissociateAccessGrantsIdentityCenter permission to use this operation. Additional Permissions You must have the sso:DeleteApplication permission to use this operation."]
module DescribeMultiRegionAccessPointOperationResult =
  struct
    type nonrec t =
      {
      asyncOperation: AsyncOperation.t option
        [@ocaml.doc
          "A container element containing the details of the asynchronous operation."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?asyncOperation = fun () -> { asyncOperation }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AsyncOperation",
           (Option.map x.asyncOperation ~f:AsyncOperation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let asyncOperation =
        (Option.map ~f:AsyncOperation.of_xml)
          (Xml.child xml_arg0 "AsyncOperation") in
      make ?asyncOperation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let asyncOperation =
        field_map json__ "AsyncOperation" AsyncOperation.of_json in
      make ?asyncOperation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Retrieves the status of an asynchronous request to manage a Multi-Region Access Point. For more information about managing Multi-Region Access Points and how asynchronous requests work, see Using Multi-Region Access Points in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPoint: CreateMultiRegionAccessPoint DeleteMultiRegionAccessPoint GetMultiRegionAccessPoint ListMultiRegionAccessPoints"]
module DescribeMultiRegionAccessPointOperationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      requestTokenARN: AsyncRequestTokenARN.t
        [@ocaml.doc
          "The request token associated with the request you want to know about. This request token is returned as part of the response when you make an asynchronous request. You provide this token to query about the status of the asynchronous action."]}
    let context_ = "DescribeMultiRegionAccessPointOperationRequest"
    let make ~accountId =
      fun ~requestTokenARN -> fun () -> { accountId; requestTokenARN }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("request_token",
          (Some (AsyncRequestTokenARN.to_value x.requestTokenARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestTokenARN =
        AsyncRequestTokenARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "request_token") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~requestTokenARN ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestTokenARN =
        field_map_exn json__ "RequestTokenARN" AsyncRequestTokenARN.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~requestTokenARN ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Retrieves the status of an asynchronous request to manage a Multi-Region Access Point. For more information about managing Multi-Region Access Points and how asynchronous requests work, see Using Multi-Region Access Points in the Amazon S3 User Guide. The following actions are related to GetMultiRegionAccessPoint: CreateMultiRegionAccessPoint DeleteMultiRegionAccessPoint GetMultiRegionAccessPoint ListMultiRegionAccessPoints"]
module DescribeJobResult =
  struct
    type nonrec t =
      {
      job: JobDescriptor.t option
        [@ocaml.doc
          "Contains the configuration parameters and status for the job specified in the Describe Job request."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?job = fun () -> { job }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("Job", (Option.map x.job ~f:JobDescriptor.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let job =
        (Option.map ~f:JobDescriptor.of_xml) (Xml.child xml_arg0 "Job") in
      make ?job ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let job = field_map json__ "Job" JobDescriptor.of_json in make ?job ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the configuration parameters and status for a Batch Operations job. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the DescribeJob operation, you must have permission to perform the s3:DescribeJob action. Related actions include: CreateJob ListJobs UpdateJobPriority UpdateJobStatus"]
module DescribeJobRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobId: JobId.t
        [@ocaml.doc
          "The ID for the job whose information you want to retrieve."]}
    let context_ = "DescribeJobRequest"
    let make ~accountId = fun ~jobId -> fun () -> { accountId; jobId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~jobId ~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" JobId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~jobId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the configuration parameters and status for a Batch Operations job. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions To use the DescribeJob operation, you must have permission to perform the s3:DescribeJob action. Related actions include: CreateJob ListJobs UpdateJobPriority UpdateJobStatus"]
module DeleteStorageLensGroupRequest =
  struct
    type nonrec t =
      {
      name: StorageLensGroupName.t
        [@ocaml.doc
          "The name of the Storage Lens group that you're trying to delete."];
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID used to create the Storage Lens group that you're trying to delete."]}
    let context_ = "DeleteStorageLensGroupRequest"
    let make ~name = fun ~accountId -> fun () -> { name; accountId }
    let to_value x =
      structure_to_value
        [("name", (Some (StorageLensGroupName.to_value x.name)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let name =
        StorageLensGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~accountId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let name = field_map_exn json__ "Name" StorageLensGroupName.of_json in
      make ~accountId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing S3 Storage Lens group. To use this operation, you must have the permission to perform the s3:DeleteStorageLensGroup action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module DeleteStorageLensConfigurationTaggingResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Deletes the Amazon S3 Storage Lens configuration tags. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:DeleteStorageLensConfigurationTagging action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module DeleteStorageLensConfigurationTaggingRequest =
  struct
    type nonrec t =
      {
      configId: ConfigId.t
        [@ocaml.doc "The ID of the S3 Storage Lens configuration."];
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."]}
    let context_ = "DeleteStorageLensConfigurationTaggingRequest"
    let make ~configId = fun ~accountId -> fun () -> { configId; accountId }
    let to_value x =
      structure_to_value
        [("storagelensid", (Some (ConfigId.to_value x.configId)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let configId =
        ConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storagelensid") in
      make ~accountId ~configId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let configId = field_map_exn json__ "ConfigId" ConfigId.of_json in
      make ~accountId ~configId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Deletes the Amazon S3 Storage Lens configuration tags. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:DeleteStorageLensConfigurationTagging action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module DeleteStorageLensConfigurationRequest =
  struct
    type nonrec t =
      {
      configId: ConfigId.t
        [@ocaml.doc "The ID of the S3 Storage Lens configuration."];
      accountId: AccountId.t [@ocaml.doc "The account ID of the requester."]}
    let context_ = "DeleteStorageLensConfigurationRequest"
    let make ~configId = fun ~accountId -> fun () -> { configId; accountId }
    let to_value x =
      structure_to_value
        [("storagelensid", (Some (ConfigId.to_value x.configId)));
        ("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      let configId =
        ConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storagelensid") in
      make ~accountId ~configId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      let configId = field_map_exn json__ "ConfigId" ConfigId.of_json in
      make ~accountId ~configId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Deletes the Amazon S3 Storage Lens configuration. For more information about S3 Storage Lens, see Assessing your storage activity and usage with Amazon S3 Storage Lens in the Amazon S3 User Guide. To use this action, you must have permission to perform the s3:DeleteStorageLensConfiguration action. For more information, see Setting permissions to use Amazon S3 Storage Lens in the Amazon S3 User Guide."]
module DeletePublicAccessBlockRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the Amazon Web Services account whose PublicAccessBlock configuration you want to remove."]}
    let context_ = "DeletePublicAccessBlockRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Removes the PublicAccessBlock configuration for an Amazon Web Services account. This operation might be restricted when the account is managed by organization-level Block Public Access policies. You\226\128\153ll get an Access Denied (403) error when the account is managed by organization-level Block Public Access policies. Organization-level policies override account-level settings, preventing direct account-level modifications. For more information, see Using Amazon S3 block public access. Related actions include: GetPublicAccessBlock PutPublicAccessBlock"]
module DeleteMultiRegionAccessPointResult =
  struct
    type nonrec t =
      {
      requestTokenARN: AsyncRequestTokenARN.t option
        [@ocaml.doc
          "The request token associated with the request. You can use this token with DescribeMultiRegionAccessPointOperation to determine the status of asynchronous requests."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?requestTokenARN = fun () -> { requestTokenARN }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("RequestTokenARN",
           (Option.map x.requestTokenARN ~f:AsyncRequestTokenARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestTokenARN =
        (Option.map ~f:AsyncRequestTokenARN.of_xml)
          (Xml.child xml_arg0 "RequestTokenARN") in
      make ?requestTokenARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestTokenARN =
        field_map json__ "RequestTokenARN" AsyncRequestTokenARN.of_json in
      make ?requestTokenARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Deletes a Multi-Region Access Point. This action does not delete the buckets associated with the Multi-Region Access Point, only the Multi-Region Access Point itself. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. This request is asynchronous, meaning that you might receive a response before the command has completed. When this request provides a response, it provides a token that you can use to monitor the status of the request with DescribeMultiRegionAccessPointOperation. The following actions are related to DeleteMultiRegionAccessPoint: CreateMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation GetMultiRegionAccessPoint ListMultiRegionAccessPoints"]
module DeleteMultiRegionAccessPointRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point."];
      clientToken: MultiRegionAccessPointClientToken.t
        [@ocaml.doc
          "An idempotency token used to identify the request and guarantee that requests are unique."];
      details: DeleteMultiRegionAccessPointInput.t
        [@ocaml.doc
          "A container element containing details about the Multi-Region Access Point."]}
    let context_ = "DeleteMultiRegionAccessPointRequest"
    let make ~accountId =
      fun ~clientToken ->
        fun ~details -> fun () -> { accountId; clientToken; details }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("ClientToken",
          (Some (MultiRegionAccessPointClientToken.to_value x.clientToken)));
        ("Details",
          (Some (DeleteMultiRegionAccessPointInput.to_value x.details)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let details =
        DeleteMultiRegionAccessPointInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Details") in
      let clientToken =
        MultiRegionAccessPointClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~details ~clientToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let details =
        field_map_exn json__ "Details"
          DeleteMultiRegionAccessPointInput.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken"
          MultiRegionAccessPointClientToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~details ~clientToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Deletes a Multi-Region Access Point. This action does not delete the buckets associated with the Multi-Region Access Point, only the Multi-Region Access Point itself. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. This request is asynchronous, meaning that you might receive a response before the command has completed. When this request provides a response, it provides a token that you can use to monitor the status of the request with DescribeMultiRegionAccessPointOperation. The following actions are related to DeleteMultiRegionAccessPoint: CreateMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation GetMultiRegionAccessPoint ListMultiRegionAccessPoints"]
module DeleteJobTaggingResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceException of InternalServiceException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the entire tag set from the specified S3 Batch Operations job. Permissions To use the DeleteJobTagging operation, you must have permission to perform the s3:DeleteJobTagging action. For more information, see Controlling access and labeling jobs using tags in the Amazon S3 User Guide. Related actions include: CreateJob GetJobTagging PutJobTagging"]
module DeleteJobTaggingRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 Batch Operations job."];
      jobId: JobId.t
        [@ocaml.doc
          "The ID for the S3 Batch Operations job whose tags you want to delete."]}
    let context_ = "DeleteJobTaggingRequest"
    let make ~accountId = fun ~jobId -> fun () -> { accountId; jobId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~jobId ~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" JobId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~jobId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the entire tag set from the specified S3 Batch Operations job. Permissions To use the DeleteJobTagging operation, you must have permission to perform the s3:DeleteJobTagging action. For more information, see Controlling access and labeling jobs using tags in the Amazon S3 User Guide. Related actions include: CreateJob GetJobTagging PutJobTagging"]
module DeleteBucketTaggingRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket tag set to be removed."];
      bucket: BucketName.t
        [@ocaml.doc
          "The bucket ARN that has the tag set to be removed. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "DeleteBucketTaggingRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action deletes an Amazon S3 on Outposts bucket's tags. To delete an S3 bucket tags, see DeleteBucketTagging in the Amazon S3 API Reference. Deletes the tags from the Outposts bucket. For more information, see Using Amazon S3 on Outposts in Amazon S3 User Guide. To use this action, you must have permission to perform the PutBucketTagging action. By default, the bucket owner has this permission and can grant this permission to others. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to DeleteBucketTagging: GetBucketTagging PutBucketTagging"]
module DeleteBucketRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc "The account ID that owns the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket being deleted. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "DeleteBucketRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action deletes an Amazon S3 on Outposts bucket. To delete an S3 bucket, see DeleteBucket in the Amazon S3 API Reference. Deletes the Amazon S3 on Outposts bucket. All objects (including all object versions and delete markers) in the bucket must be deleted before the bucket itself can be deleted. For more information, see Using Amazon S3 on Outposts in Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. Related Resources CreateBucket GetBucket DeleteObject"]
module DeleteBucketReplicationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the Outposts bucket to delete the replication configuration for."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the S3 on Outposts bucket to delete the replication configuration for. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "DeleteBucketReplicationRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation deletes an Amazon S3 on Outposts bucket's replication configuration. To delete an S3 bucket's replication configuration, see DeleteBucketReplication in the Amazon S3 API Reference. Deletes the replication configuration from the specified S3 on Outposts bucket. To use this operation, you must have permissions to perform the s3-outposts:PutReplicationConfiguration action. The Outposts bucket owner has this permission by default and can grant it to others. For more information about permissions, see Setting up IAM with S3 on Outposts and Managing access to S3 on Outposts buckets in the Amazon S3 User Guide. It can take a while to propagate PUT or DELETE requests for a replication configuration to all S3 on Outposts systems. Therefore, the replication configuration that's returned by a GET request soon after a PUT or DELETE request might return a more recent result than what's on the Outpost. If an Outpost is offline, the delay in updating the replication configuration on that Outpost can be significant. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. For information about S3 replication on Outposts configuration, see Replicating objects for S3 on Outposts in the Amazon S3 User Guide. The following operations are related to DeleteBucketReplication: PutBucketReplication GetBucketReplication"]
module DeleteBucketPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc "The account ID of the Outposts bucket."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "DeleteBucketPolicyRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action deletes an Amazon S3 on Outposts bucket policy. To delete an S3 bucket policy, see DeleteBucketPolicy in the Amazon S3 API Reference. This implementation of the DELETE action uses the policy subresource to delete the policy of a specified Amazon S3 on Outposts bucket. If you are using an identity other than the root user of the Amazon Web Services account that owns the bucket, the calling identity must have the s3-outposts:DeleteBucketPolicy permissions on the specified Outposts bucket and belong to the bucket owner's account to use this action. For more information, see Using Amazon S3 on Outposts in Amazon S3 User Guide. If you don't have DeleteBucketPolicy permissions, Amazon S3 returns a 403 Access Denied error. If you have the correct permissions, but you're not using an identity that belongs to the bucket owner's account, Amazon S3 returns a 405 Method Not Allowed error. As a security precaution, the root user of the Amazon Web Services account that owns a bucket can always use this action, even if the policy explicitly denies the root user the ability to perform this action. For more information about bucket policies, see Using Bucket Policies and User Policies. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to DeleteBucketPolicy: GetBucketPolicy PutBucketPolicy"]
module DeleteBucketLifecycleConfigurationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID of the lifecycle configuration to delete."];
      bucket: BucketName.t
        [@ocaml.doc
          "Specifies the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    let context_ = "DeleteBucketLifecycleConfigurationRequest"
    let make ~accountId = fun ~bucket -> fun () -> { accountId; bucket }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (BucketName.to_value x.bucket)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~bucket ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~bucket ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action deletes an Amazon S3 on Outposts bucket's lifecycle configuration. To delete an S3 bucket's lifecycle configuration, see DeleteBucketLifecycle in the Amazon S3 API Reference. Deletes the lifecycle configuration from the specified Outposts bucket. Amazon S3 on Outposts removes all the lifecycle configuration rules in the lifecycle subresource associated with the bucket. Your objects never expire, and Amazon S3 on Outposts no longer automatically deletes any objects on the basis of rules contained in the deleted lifecycle configuration. For more information, see Using Amazon S3 on Outposts in Amazon S3 User Guide. To use this operation, you must have permission to perform the s3-outposts:PutLifecycleConfiguration action. By default, the bucket owner has this permission and the Outposts bucket owner can grant this permission to others. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. For more information about object expiration, see Elements to Describe Lifecycle Actions. Related actions include: PutBucketLifecycleConfiguration GetBucketLifecycleConfiguration"]
module DeleteAccessPointScopeRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the access point with the scope that you want to delete."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point with the scope that you want to delete."]}
    let context_ = "DeleteAccessPointScopeRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing access point scope for a directory bucket. When you delete the scope of an access point, all prefixes and permissions are deleted. To use this operation, you must have the permission to perform the s3express:DeleteAccessPointScope action. For information about REST API errors, see REST error responses."]
module DeleteAccessPointRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that owns the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point you want to delete. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the access point accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/accesspoint/<my-accesspoint-name>. For example, to access the access point reports-ap through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/accesspoint/reports-ap. The value must be URL encoded."]}
    let context_ = "DeleteAccessPointRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified access point. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to DeleteAccessPoint: CreateAccessPoint GetAccessPoint ListAccessPoints"]
module DeleteAccessPointPolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name of the access point whose policy you want to delete. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the access point accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/accesspoint/<my-accesspoint-name>. For example, to access the access point reports-ap through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/accesspoint/reports-ap. The value must be URL encoded."]}
    let context_ = "DeleteAccessPointPolicyRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the access point policy for the specified access point. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to DeleteAccessPointPolicy: PutAccessPointPolicy GetAccessPointPolicy"]
module DeleteAccessPointPolicyForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc
          "The name of the Object Lambda Access Point you want to delete the policy for."]}
    let context_ = "DeleteAccessPointPolicyForObjectLambdaRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Removes the resource policy for an Object Lambda Access Point. The following actions are related to DeleteAccessPointPolicyForObjectLambda: GetAccessPointPolicyForObjectLambda PutAccessPointPolicyForObjectLambda"]
module DeleteAccessPointForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The account ID for the account that owns the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc "The name of the access point you want to delete."]}
    let context_ = "DeleteAccessPointForObjectLambdaRequest"
    let make ~accountId = fun ~name -> fun () -> { accountId; name }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Deletes the specified Object Lambda Access Point. The following actions are related to DeleteAccessPointForObjectLambda: CreateAccessPointForObjectLambda GetAccessPointForObjectLambda ListAccessPointsForObjectLambda"]
module DeleteAccessGrantsLocationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      accessGrantsLocationId: AccessGrantsLocationId.t
        [@ocaml.doc
          "The ID of the registered location that you are deregistering from your S3 Access Grants instance. S3 Access Grants assigned this ID when you registered the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."]}
    let context_ = "DeleteAccessGrantsLocationRequest"
    let make ~accountId =
      fun ~accessGrantsLocationId ->
        fun () -> { accountId; accessGrantsLocationId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id",
          (Some (AccessGrantsLocationId.to_value x.accessGrantsLocationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantsLocationId =
        AccessGrantsLocationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~accessGrantsLocationId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantsLocationId =
        field_map_exn json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~accessGrantsLocationId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters a location from your S3 Access Grants instance. You can only delete a location registration from an S3 Access Grants instance if there are no grants associated with this location. See Delete a grant for information on how to delete grants. You need to have at least one registered location in your S3 Access Grants instance in order to create access grants. Permissions You must have the s3:DeleteAccessGrantsLocation permission to use this operation."]
module DeleteAccessGrantsInstanceResourcePolicyRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."]}
    let context_ = "DeleteAccessGrantsInstanceResourcePolicyRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the resource policy of the S3 Access Grants instance. The resource policy is used to manage cross-account access to your S3 Access Grants instance. By deleting the resource policy, you delete any cross-account permissions to your S3 Access Grants instance. Permissions You must have the s3:DeleteAccessGrantsInstanceResourcePolicy permission to use this operation."]
module DeleteAccessGrantsInstanceRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."]}
    let context_ = "DeleteAccessGrantsInstanceRequest"
    let make ~accountId = fun () -> { accountId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~accountId:(AccountId.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-account-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") 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" AccountId.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes your S3 Access Grants instance. You must first delete the access grants and locations before S3 Access Grants can delete the instance. See DeleteAccessGrant and DeleteAccessGrantsLocation. If you have associated an IAM Identity Center instance with your S3 Access Grants instance, you must first dissassociate the Identity Center instance from the S3 Access Grants instance before you can delete the S3 Access Grants instance. See AssociateAccessGrantsIdentityCenter and DissociateAccessGrantsIdentityCenter. Permissions You must have the s3:DeleteAccessGrantsInstance permission to use this operation."]
module DeleteAccessGrantRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      accessGrantId: AccessGrantId.t
        [@ocaml.doc
          "The ID of the access grant. S3 Access Grants auto-generates this ID when you create the access grant."]}
    let context_ = "DeleteAccessGrantRequest"
    let make ~accountId =
      fun ~accessGrantId -> fun () -> { accountId; accessGrantId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("id", (Some (AccessGrantId.to_value x.accessGrantId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessGrantId =
        AccessGrantId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~accessGrantId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessGrantId =
        field_map_exn json__ "AccessGrantId" AccessGrantId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~accessGrantId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the access grant from the S3 Access Grants instance. You cannot undo an access grant deletion and the grantee will no longer have access to the S3 data. Permissions You must have the s3:DeleteAccessGrant permission to use this operation."]
module CreateStorageLensGroupRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that the Storage Lens group is created from and associated with."];
      storageLensGroup: StorageLensGroup.t
        [@ocaml.doc "The Storage Lens group configuration."];
      tags: TagList.t option
        [@ocaml.doc
          "The Amazon Web Services resource tags that you're adding to your Storage Lens group. This parameter is optional."]}
    let context_ = "CreateStorageLensGroupRequest"
    let make ?tags =
      fun ~accountId ->
        fun ~storageLensGroup ->
          fun () -> { tags; accountId; storageLensGroup }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("StorageLensGroup",
          (Some (StorageLensGroup.to_value x.storageLensGroup)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let storageLensGroup =
        StorageLensGroup.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StorageLensGroup") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?tags ~storageLensGroup ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let storageLensGroup =
        field_map_exn json__ "StorageLensGroup" StorageLensGroup.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?tags ~storageLensGroup ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new S3 Storage Lens group and associates it with the specified Amazon Web Services account ID. An S3 Storage Lens group is a custom grouping of objects based on prefix, suffix, object tags, object size, object age, or a combination of these filters. For each Storage Lens group that you\226\128\153ve created, you can also optionally add Amazon Web Services resource tags. For more information about S3 Storage Lens groups, see Working with S3 Storage Lens groups. To use this operation, you must have the permission to perform the s3:CreateStorageLensGroup action. If you\226\128\153re trying to create a Storage Lens group with Amazon Web Services resource tags, you must also have permission to perform the s3:TagResource action. For more information about the required Storage Lens Groups permissions, see Setting account permissions to use S3 Storage Lens groups. For information about Storage Lens groups errors, see List of Amazon S3 Storage Lens error codes."]
module CreateMultiRegionAccessPointResult =
  struct
    type nonrec t =
      {
      requestTokenARN: AsyncRequestTokenARN.t option
        [@ocaml.doc
          "The request token associated with the request. You can use this token with DescribeMultiRegionAccessPointOperation to determine the status of asynchronous requests."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?requestTokenARN = fun () -> { requestTokenARN }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("RequestTokenARN",
           (Option.map x.requestTokenARN ~f:AsyncRequestTokenARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestTokenARN =
        (Option.map ~f:AsyncRequestTokenARN.of_xml)
          (Xml.child xml_arg0 "RequestTokenARN") in
      make ?requestTokenARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestTokenARN =
        field_map json__ "RequestTokenARN" AsyncRequestTokenARN.of_json in
      make ?requestTokenARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Creates a Multi-Region Access Point and associates it with the specified buckets. For more information about creating Multi-Region Access Points, see Creating Multi-Region Access Points in the Amazon S3 User Guide. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. This request is asynchronous, meaning that you might receive a response before the command has completed. When this request provides a response, it provides a token that you can use to monitor the status of the request with DescribeMultiRegionAccessPointOperation. The following actions are related to CreateMultiRegionAccessPoint: DeleteMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation GetMultiRegionAccessPoint ListMultiRegionAccessPoints"]
module CreateMultiRegionAccessPointRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the Multi-Region Access Point. The owner of the Multi-Region Access Point also must own the underlying buckets."];
      clientToken: MultiRegionAccessPointClientToken.t
        [@ocaml.doc
          "An idempotency token used to identify the request and guarantee that requests are unique."];
      details: CreateMultiRegionAccessPointInput.t
        [@ocaml.doc
          "A container element containing details about the Multi-Region Access Point."]}
    let context_ = "CreateMultiRegionAccessPointRequest"
    let make ~accountId =
      fun ~clientToken ->
        fun ~details -> fun () -> { accountId; clientToken; details }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("ClientToken",
          (Some (MultiRegionAccessPointClientToken.to_value x.clientToken)));
        ("Details",
          (Some (CreateMultiRegionAccessPointInput.to_value x.details)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let details =
        CreateMultiRegionAccessPointInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Details") in
      let clientToken =
        MultiRegionAccessPointClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~details ~clientToken ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let details =
        field_map_exn json__ "Details"
          CreateMultiRegionAccessPointInput.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken"
          MultiRegionAccessPointClientToken.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~details ~clientToken ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Creates a Multi-Region Access Point and associates it with the specified buckets. For more information about creating Multi-Region Access Points, see Creating Multi-Region Access Points in the Amazon S3 User Guide. This action will always be routed to the US West (Oregon) Region. For more information about the restrictions around working with Multi-Region Access Points, see Multi-Region Access Point restrictions and limitations in the Amazon S3 User Guide. This request is asynchronous, meaning that you might receive a response before the command has completed. When this request provides a response, it provides a token that you can use to monitor the status of the request with DescribeMultiRegionAccessPointOperation. The following actions are related to CreateMultiRegionAccessPoint: DeleteMultiRegionAccessPoint DescribeMultiRegionAccessPointOperation GetMultiRegionAccessPoint ListMultiRegionAccessPoints"]
module CreateJobResult =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc
          "The ID for this job. Amazon S3 generates this ID automatically and returns it after a successful Create Job request."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `IdempotencyException of IdempotencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun () -> { jobId }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "IdempotencyException" ->
          `IdempotencyException (IdempotencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "IdempotencyException" ->
          `IdempotencyException (IdempotencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `IdempotencyException e ->
          `Assoc
            [("error", (`String "IdempotencyException"));
            ("details", (IdempotencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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:JobId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map json__ "JobId" JobId.of_json in make ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation creates an S3 Batch Operations job. You can use S3 Batch Operations to perform large-scale batch actions on Amazon S3 objects. Batch Operations can run a single action on lists of Amazon S3 objects that you specify. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions For information about permissions required to use the Batch Operations, see Granting permissions for S3 Batch Operations in the Amazon S3 User Guide. Related actions include: DescribeJob ListJobs UpdateJobPriority UpdateJobStatus JobOperation"]
module CreateJobRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID that creates the job."];
      confirmationRequired: ConfirmationRequired.t option
        [@ocaml.doc
          "Indicates whether confirmation is required before Amazon S3 runs the job. Confirmation is only required for jobs created through the Amazon S3 console."];
      operation: JobOperation.t
        [@ocaml.doc
          "The action that you want this job to perform on every object listed in the manifest. For more information about the available actions, see Operations in the Amazon S3 User Guide."];
      report: JobReport.t
        [@ocaml.doc
          "Configuration parameters for the optional job-completion report."];
      clientRequestToken: NonEmptyMaxLength64String.t
        [@ocaml.doc
          "An idempotency token to ensure that you don't accidentally submit the same request twice. You can use any string up to the maximum length."];
      manifest: JobManifest.t option
        [@ocaml.doc "Configuration parameters for the manifest."];
      description: NonEmptyMaxLength256String.t option
        [@ocaml.doc
          "A description for this job. You can use any string within the permitted length. Descriptions don't need to be unique and can be used for multiple jobs."];
      priority: JobPriority.t
        [@ocaml.doc
          "The numerical priority for this job. Higher numbers indicate higher priority."];
      roleArn: IAMRoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the Identity and Access Management (IAM) role that Batch Operations will use to run this job's action on every object in the manifest."];
      tags: S3TagSet.t option
        [@ocaml.doc
          "A set of tags to associate with the S3 Batch Operations job. This is an optional parameter."];
      manifestGenerator: JobManifestGenerator.t option
        [@ocaml.doc
          "The attribute container for the ManifestGenerator details. Jobs must be created with either a manifest file or a ManifestGenerator, but not both."]}
    let context_ = "CreateJobRequest"
    let make ?confirmationRequired =
      fun ?manifest ->
        fun ?description ->
          fun ?tags ->
            fun ?manifestGenerator ->
              fun ~accountId ->
                fun ~operation ->
                  fun ~report ->
                    fun ~clientRequestToken ->
                      fun ~priority ->
                        fun ~roleArn ->
                          fun () ->
                            {
                              confirmationRequired;
                              manifest;
                              description;
                              tags;
                              manifestGenerator;
                              accountId;
                              operation;
                              report;
                              clientRequestToken;
                              priority;
                              roleArn
                            }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("ConfirmationRequired",
          (Option.map x.confirmationRequired ~f:ConfirmationRequired.to_value));
        ("Operation", (Some (JobOperation.to_value x.operation)));
        ("Report", (Some (JobReport.to_value x.report)));
        ("ClientRequestToken",
          (Some (NonEmptyMaxLength64String.to_value x.clientRequestToken)));
        ("Manifest", (Option.map x.manifest ~f:JobManifest.to_value));
        ("Description",
          (Option.map x.description ~f:NonEmptyMaxLength256String.to_value));
        ("Priority", (Some (JobPriority.to_value x.priority)));
        ("RoleArn", (Some (IAMRoleArn.to_value x.roleArn)));
        ("Tags", (Option.map x.tags ~f:S3TagSet.to_value));
        ("ManifestGenerator",
          (Option.map x.manifestGenerator ~f:JobManifestGenerator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manifestGenerator =
        (Option.map ~f:JobManifestGenerator.of_xml)
          (Xml.child xml_arg0 "ManifestGenerator") in
      let tags = (Option.map ~f:S3TagSet.of_xml) (Xml.child xml_arg0 "Tags") in
      let roleArn =
        IAMRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoleArn") in
      let priority =
        JobPriority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Priority") in
      let description =
        (Option.map ~f:NonEmptyMaxLength256String.of_xml)
          (Xml.child xml_arg0 "Description") in
      let manifest =
        (Option.map ~f:JobManifest.of_xml) (Xml.child xml_arg0 "Manifest") in
      let clientRequestToken =
        NonEmptyMaxLength64String.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientRequestToken") in
      let report =
        JobReport.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Report") in
      let operation =
        JobOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operation") in
      let confirmationRequired =
        (Option.map ~f:ConfirmationRequired.of_xml)
          (Xml.child xml_arg0 "ConfirmationRequired") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?manifestGenerator ?tags ~roleArn ~priority ?description ?manifest
        ~clientRequestToken ~report ~operation ?confirmationRequired
        ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manifestGenerator =
        field_map json__ "ManifestGenerator" JobManifestGenerator.of_json in
      let tags = field_map json__ "Tags" S3TagSet.of_json in
      let roleArn = field_map_exn json__ "RoleArn" IAMRoleArn.of_json in
      let priority = field_map_exn json__ "Priority" JobPriority.of_json in
      let description =
        field_map json__ "Description" NonEmptyMaxLength256String.of_json in
      let manifest = field_map json__ "Manifest" JobManifest.of_json in
      let clientRequestToken =
        field_map_exn json__ "ClientRequestToken"
          NonEmptyMaxLength64String.of_json in
      let report = field_map_exn json__ "Report" JobReport.of_json in
      let operation = field_map_exn json__ "Operation" JobOperation.of_json in
      let confirmationRequired =
        field_map json__ "ConfirmationRequired" ConfirmationRequired.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?manifestGenerator ?tags ~roleArn ~priority ?description ?manifest
        ~clientRequestToken ~report ~operation ?confirmationRequired
        ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation creates an S3 Batch Operations job. You can use S3 Batch Operations to perform large-scale batch actions on Amazon S3 objects. Batch Operations can run a single action on lists of Amazon S3 objects that you specify. For more information, see S3 Batch Operations in the Amazon S3 User Guide. Permissions For information about permissions required to use the Batch Operations, see Granting permissions for S3 Batch Operations in the Amazon S3 User Guide. Related actions include: DescribeJob ListJobs UpdateJobPriority UpdateJobStatus JobOperation"]
module CreateBucketResult =
  struct
    type nonrec t =
      {
      location: Location.t option [@ocaml.doc "The location of the bucket."];
      bucketArn: S3RegionalBucketArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the bucket. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."]}
    type nonrec error =
      [ `BucketAlreadyExists of BucketAlreadyExists.t 
      | `BucketAlreadyOwnedByYou of BucketAlreadyOwnedByYou.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?location = fun ?bucketArn -> fun () -> { location; bucketArn }
    let error_of_json name json =
      match name with
      | "BucketAlreadyExists" ->
          `BucketAlreadyExists (BucketAlreadyExists.of_json json)
      | "BucketAlreadyOwnedByYou" ->
          `BucketAlreadyOwnedByYou (BucketAlreadyOwnedByYou.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BucketAlreadyExists" ->
          `BucketAlreadyExists (BucketAlreadyExists.of_xml xml)
      | "BucketAlreadyOwnedByYou" ->
          `BucketAlreadyOwnedByYou (BucketAlreadyOwnedByYou.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BucketAlreadyExists e ->
          `Assoc
            [("error", (`String "BucketAlreadyExists"));
            ("details", (BucketAlreadyExists.to_json e))]
      | `BucketAlreadyOwnedByYou e ->
          `Assoc
            [("error", (`String "BucketAlreadyOwnedByYou"));
            ("details", (BucketAlreadyOwnedByYou.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
        [("Location", (Option.map x.location ~f:Location.to_value));
        ("BucketArn",
          (Option.map x.bucketArn ~f:S3RegionalBucketArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketArn =
        (Option.map ~f:S3RegionalBucketArn.of_xml)
          (Xml.child xml_arg0 "BucketArn") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      make ?bucketArn ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketArn =
        field_map json__ "BucketArn" S3RegionalBucketArn.of_json in
      let location = field_map json__ "Location" Location.of_json in
      make ?bucketArn ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action creates an Amazon S3 on Outposts bucket. To create an S3 bucket, see Create Bucket in the Amazon S3 API Reference. Creates a new Outposts bucket. By creating the bucket, you become the bucket owner. To create an Outposts bucket, you must have S3 on Outposts. For more information, see Using Amazon S3 on Outposts in Amazon S3 User Guide. Not every string is an acceptable bucket name. For information on bucket naming restrictions, see Working with Amazon S3 Buckets. S3 on Outposts buckets support: Tags LifecycleConfigurations for deleting expired objects For a complete list of restrictions and Amazon S3 feature limitations on S3 on Outposts, see Amazon S3 on Outposts Restrictions and Limitations. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and x-amz-outpost-id in your API request, see the Examples section. The following actions are related to CreateBucket for Amazon S3 on Outposts: PutObject GetBucket DeleteBucket CreateAccessPoint PutAccessPointPolicy"]
module CreateBucketRequest =
  struct
    type nonrec t =
      {
      aCL: BucketCannedACL.t option
        [@ocaml.doc
          "The canned ACL to apply to the bucket. This is not supported by Amazon S3 on Outposts buckets."];
      bucket: BucketName.t [@ocaml.doc "The name of the bucket."];
      createBucketConfiguration: CreateBucketConfiguration.t option
        [@ocaml.doc
          "The configuration information for the bucket. This is not supported by Amazon S3 on Outposts buckets."];
      grantFullControl: GrantFullControl.t option
        [@ocaml.doc
          "Allows grantee the read, write, read ACP, and write ACP permissions on the bucket. This is not supported by Amazon S3 on Outposts buckets."];
      grantRead: GrantRead.t option
        [@ocaml.doc
          "Allows grantee to list the objects in the bucket. This is not supported by Amazon S3 on Outposts buckets."];
      grantReadACP: GrantReadACP.t option
        [@ocaml.doc
          "Allows grantee to read the bucket ACL. This is not supported by Amazon S3 on Outposts buckets."];
      grantWrite: GrantWrite.t option
        [@ocaml.doc
          "Allows grantee to create, overwrite, and delete any object in the bucket. This is not supported by Amazon S3 on Outposts buckets."];
      grantWriteACP: GrantWriteACP.t option
        [@ocaml.doc
          "Allows grantee to write the ACL for the applicable bucket. This is not supported by Amazon S3 on Outposts buckets."];
      objectLockEnabledForBucket: ObjectLockEnabledForBucket.t option
        [@ocaml.doc
          "Specifies whether you want S3 Object Lock to be enabled for the new bucket. This is not supported by Amazon S3 on Outposts buckets."];
      outpostId: NonEmptyMaxLength64String.t option
        [@ocaml.doc
          "The ID of the Outposts where the bucket is being created. This ID is required by Amazon S3 on Outposts buckets."]}
    let context_ = "CreateBucketRequest"
    let make ?aCL =
      fun ?createBucketConfiguration ->
        fun ?grantFullControl ->
          fun ?grantRead ->
            fun ?grantReadACP ->
              fun ?grantWrite ->
                fun ?grantWriteACP ->
                  fun ?objectLockEnabledForBucket ->
                    fun ?outpostId ->
                      fun ~bucket ->
                        fun () ->
                          {
                            aCL;
                            createBucketConfiguration;
                            grantFullControl;
                            grantRead;
                            grantReadACP;
                            grantWrite;
                            grantWriteACP;
                            objectLockEnabledForBucket;
                            outpostId;
                            bucket
                          }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?aCL:(Option.map
                    ((List.Assoc.find ~equal:String.Caseless.equal) xs
                       "x-amz-acl") ~f:BucketCannedACL.of_string)
            ~bucket:(BucketName.of_string
                       ((List.Assoc.find_exn ~equal:String.Caseless.equal) xs
                          "name")) ?createBucketConfiguration:(Some pipe)
            ?grantFullControl:(Option.map
                                 ((List.Assoc.find
                                     ~equal:String.Caseless.equal) xs
                                    "x-amz-grant-full-control")
                                 ~f:GrantFullControl.of_string)
            ?grantRead:(Option.map
                          ((List.Assoc.find ~equal:String.Caseless.equal) xs
                             "x-amz-grant-read") ~f:GrantRead.of_string)
            ?grantReadACP:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "x-amz-grant-read-acp")
                             ~f:GrantReadACP.of_string)
            ?grantWrite:(Option.map
                           ((List.Assoc.find ~equal:String.Caseless.equal) xs
                              "x-amz-grant-write") ~f:GrantWrite.of_string)
            ?grantWriteACP:(Option.map
                              ((List.Assoc.find ~equal:String.Caseless.equal)
                                 xs "x-amz-grant-write-acp")
                              ~f:GrantWriteACP.of_string)
            ?objectLockEnabledForBucket:(Option.map
                                           ((List.Assoc.find
                                               ~equal:String.Caseless.equal)
                                              xs
                                              "x-amz-bucket-object-lock-enabled")
                                           ~f:ObjectLockEnabledForBucket.of_string)
            ?outpostId:(Option.map
                          ((List.Assoc.find ~equal:String.Caseless.equal) xs
                             "x-amz-outpost-id")
                          ~f:NonEmptyMaxLength64String.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-acl", (Option.map x.aCL ~f:BucketCannedACL.to_value));
        ("name", (Some (BucketName.to_value x.bucket)));
        ("CreateBucketConfiguration",
          (Option.map x.createBucketConfiguration
             ~f:CreateBucketConfiguration.to_value));
        ("x-amz-grant-full-control",
          (Option.map x.grantFullControl ~f:GrantFullControl.to_value));
        ("x-amz-grant-read", (Option.map x.grantRead ~f:GrantRead.to_value));
        ("x-amz-grant-read-acp",
          (Option.map x.grantReadACP ~f:GrantReadACP.to_value));
        ("x-amz-grant-write",
          (Option.map x.grantWrite ~f:GrantWrite.to_value));
        ("x-amz-grant-write-acp",
          (Option.map x.grantWriteACP ~f:GrantWriteACP.to_value));
        ("x-amz-bucket-object-lock-enabled",
          (Option.map x.objectLockEnabledForBucket
             ~f:ObjectLockEnabledForBucket.to_value));
        ("x-amz-outpost-id",
          (Option.map x.outpostId ~f:NonEmptyMaxLength64String.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outpostId =
        (Option.map ~f:NonEmptyMaxLength64String.of_xml)
          (Xml.child xml_arg0 "x-amz-outpost-id") in
      let objectLockEnabledForBucket =
        (Option.map ~f:ObjectLockEnabledForBucket.of_xml)
          (Xml.child xml_arg0 "x-amz-bucket-object-lock-enabled") in
      let grantWriteACP =
        (Option.map ~f:GrantWriteACP.of_xml)
          (Xml.child xml_arg0 "x-amz-grant-write-acp") in
      let grantWrite =
        (Option.map ~f:GrantWrite.of_xml)
          (Xml.child xml_arg0 "x-amz-grant-write") in
      let grantReadACP =
        (Option.map ~f:GrantReadACP.of_xml)
          (Xml.child xml_arg0 "x-amz-grant-read-acp") in
      let grantRead =
        (Option.map ~f:GrantRead.of_xml)
          (Xml.child xml_arg0 "x-amz-grant-read") in
      let grantFullControl =
        (Option.map ~f:GrantFullControl.of_xml)
          (Xml.child xml_arg0 "x-amz-grant-full-control") in
      let createBucketConfiguration =
        (Option.map ~f:CreateBucketConfiguration.of_xml)
          (Xml.child xml_arg0 "CreateBucketConfiguration") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let aCL =
        (Option.map ~f:BucketCannedACL.of_xml)
          (Xml.child xml_arg0 "x-amz-acl") in
      make ?outpostId ?objectLockEnabledForBucket ?grantWriteACP ?grantWrite
        ?grantReadACP ?grantRead ?grantFullControl ?createBucketConfiguration
        ~bucket ?aCL ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outpostId =
        field_map json__ "OutpostId" NonEmptyMaxLength64String.of_json in
      let objectLockEnabledForBucket =
        field_map json__ "ObjectLockEnabledForBucket"
          ObjectLockEnabledForBucket.of_json in
      let grantWriteACP =
        field_map json__ "GrantWriteACP" GrantWriteACP.of_json in
      let grantWrite = field_map json__ "GrantWrite" GrantWrite.of_json in
      let grantReadACP = field_map json__ "GrantReadACP" GrantReadACP.of_json in
      let grantRead = field_map json__ "GrantRead" GrantRead.of_json in
      let grantFullControl =
        field_map json__ "GrantFullControl" GrantFullControl.of_json in
      let createBucketConfiguration =
        field_map json__ "CreateBucketConfiguration"
          CreateBucketConfiguration.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let aCL = field_map json__ "ACL" BucketCannedACL.of_json in
      make ?outpostId ?objectLockEnabledForBucket ?grantWriteACP ?grantWrite
        ?grantReadACP ?grantRead ?grantFullControl ?createBucketConfiguration
        ~bucket ?aCL ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action creates an Amazon S3 on Outposts bucket. To create an S3 bucket, see Create Bucket in the Amazon S3 API Reference. Creates a new Outposts bucket. By creating the bucket, you become the bucket owner. To create an Outposts bucket, you must have S3 on Outposts. For more information, see Using Amazon S3 on Outposts in Amazon S3 User Guide. Not every string is an acceptable bucket name. For information on bucket naming restrictions, see Working with Amazon S3 Buckets. S3 on Outposts buckets support: Tags LifecycleConfigurations for deleting expired objects For a complete list of restrictions and Amazon S3 feature limitations on S3 on Outposts, see Amazon S3 on Outposts Restrictions and Limitations. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and x-amz-outpost-id in your API request, see the Examples section. The following actions are related to CreateBucket for Amazon S3 on Outposts: PutObject GetBucket DeleteBucket CreateAccessPoint PutAccessPointPolicy"]
module CreateAccessPointResult =
  struct
    type nonrec t =
      {
      accessPointArn: S3AccessPointArn.t option
        [@ocaml.doc
          "The ARN of the access point. This is only supported by Amazon S3 on Outposts."];
      alias: Alias.t option
        [@ocaml.doc "The name or alias of the access point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?accessPointArn =
      fun ?alias -> fun () -> { accessPointArn; alias }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("AccessPointArn",
           (Option.map x.accessPointArn ~f:S3AccessPointArn.to_value));
        ("Alias", (Option.map x.alias ~f:Alias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      let accessPointArn =
        (Option.map ~f:S3AccessPointArn.of_xml)
          (Xml.child xml_arg0 "AccessPointArn") in
      make ?alias ?accessPointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "Alias" Alias.of_json in
      let accessPointArn =
        field_map json__ "AccessPointArn" S3AccessPointArn.of_json in
      make ?alias ?accessPointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an access point and associates it to a specified bucket. For more information, see Managing access to shared datasets with access points or Managing access to shared datasets in directory buckets with access points in the Amazon S3 User Guide. To create an access point and attach it to a volume on an Amazon FSx file system, see CreateAndAttachS3AccessPoint in the Amazon FSx API Reference. S3 on Outposts only supports VPC-style access points. For more information, see Accessing Amazon S3 on Outposts using virtual private cloud (VPC) only access points in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to CreateAccessPoint: GetAccessPoint DeleteAccessPoint ListAccessPoints ListAccessPointsForDirectoryBuckets"]
module CreateAccessPointRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for the account that owns the specified access point."];
      name: AccessPointName.t
        [@ocaml.doc
          "The name you want to assign to this access point. For directory buckets, the access point name must consist of a base name that you provide and suffix that includes the ZoneID (Amazon Web Services Availability Zone or Local Zone) of your bucket location, followed by --xa-s3. For more information, see Managing access to shared datasets in directory buckets with access points in the Amazon S3 User Guide."];
      bucket: BucketName.t
        [@ocaml.doc
          "The name of the bucket that you want to associate this access point with. For using this parameter with Amazon S3 on Outposts with the REST API, you must specify the name and the x-amz-outpost-id as well. For using this parameter with S3 on Outposts with the Amazon Web Services SDK and CLI, you must specify the ARN of the bucket accessed in the format arn:aws:s3-outposts:<Region>:<account-id>:outpost/<outpost-id>/bucket/<my-bucket-name>. For example, to access the bucket reports through Outpost my-outpost owned by account 123456789012 in Region us-west-2, use the URL encoding of arn:aws:s3-outposts:us-west-2:123456789012:outpost/my-outpost/bucket/reports. The value must be URL encoded."];
      vpcConfiguration: VpcConfiguration.t option
        [@ocaml.doc
          "If you include this field, Amazon S3 restricts access to this access point to requests from the specified virtual private cloud (VPC). This is required for creating an access point for Amazon S3 on Outposts buckets."];
      publicAccessBlockConfiguration: PublicAccessBlockConfiguration.t option
        [@ocaml.doc
          "The PublicAccessBlock configuration that you want to apply to the access point."];
      bucketAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the S3 bucket associated with this access point. For same account access point when your bucket and access point belong to the same account owner, the BucketAccountId is not required. For cross-account access point when your bucket and access point are not in the same account, the BucketAccountId is required."];
      scope: Scope.t option
        [@ocaml.doc
          "For directory buckets, you can filter access control to specific prefixes, API operations, or a combination of both. For more information, see Managing access to shared datasets in directory buckets with access points in the Amazon S3 User Guide. Scope is only supported for access points attached to directory buckets."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags that you can apply to an access point. Tags are key-value pairs of metadata used to control access to your access points. For more information about tags, see Using tags with Amazon S3. For information about tagging access points, see Using tags for attribute-based access control (ABAC)."]}
    let context_ = "CreateAccessPointRequest"
    let make ?vpcConfiguration =
      fun ?publicAccessBlockConfiguration ->
        fun ?bucketAccountId ->
          fun ?scope ->
            fun ?tags ->
              fun ~accountId ->
                fun ~name ->
                  fun ~bucket ->
                    fun () ->
                      {
                        vpcConfiguration;
                        publicAccessBlockConfiguration;
                        bucketAccountId;
                        scope;
                        tags;
                        accountId;
                        name;
                        bucket
                      }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (AccessPointName.to_value x.name)));
        ("Bucket", (Some (BucketName.to_value x.bucket)));
        ("VpcConfiguration",
          (Option.map x.vpcConfiguration ~f:VpcConfiguration.to_value));
        ("PublicAccessBlockConfiguration",
          (Option.map x.publicAccessBlockConfiguration
             ~f:PublicAccessBlockConfiguration.to_value));
        ("BucketAccountId",
          (Option.map x.bucketAccountId ~f:AccountId.to_value));
        ("Scope", (Option.map x.scope ~f:Scope.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let scope = (Option.map ~f:Scope.of_xml) (Xml.child xml_arg0 "Scope") in
      let bucketAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "BucketAccountId") in
      let publicAccessBlockConfiguration =
        (Option.map ~f:PublicAccessBlockConfiguration.of_xml)
          (Xml.child xml_arg0 "PublicAccessBlockConfiguration") in
      let vpcConfiguration =
        (Option.map ~f:VpcConfiguration.of_xml)
          (Xml.child xml_arg0 "VpcConfiguration") in
      let bucket =
        BucketName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Bucket") in
      let name =
        AccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?tags ?scope ?bucketAccountId ?publicAccessBlockConfiguration
        ?vpcConfiguration ~bucket ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let scope = field_map json__ "Scope" Scope.of_json in
      let bucketAccountId =
        field_map json__ "BucketAccountId" AccountId.of_json in
      let publicAccessBlockConfiguration =
        field_map json__ "PublicAccessBlockConfiguration"
          PublicAccessBlockConfiguration.of_json in
      let vpcConfiguration =
        field_map json__ "VpcConfiguration" VpcConfiguration.of_json in
      let bucket = field_map_exn json__ "Bucket" BucketName.of_json in
      let name = field_map_exn json__ "Name" AccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?tags ?scope ?bucketAccountId ?publicAccessBlockConfiguration
        ?vpcConfiguration ~bucket ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an access point and associates it to a specified bucket. For more information, see Managing access to shared datasets with access points or Managing access to shared datasets in directory buckets with access points in the Amazon S3 User Guide. To create an access point and attach it to a volume on an Amazon FSx file system, see CreateAndAttachS3AccessPoint in the Amazon FSx API Reference. S3 on Outposts only supports VPC-style access points. For more information, see Accessing Amazon S3 on Outposts using virtual private cloud (VPC) only access points in the Amazon S3 User Guide. All Amazon S3 on Outposts REST API requests for this action require an additional parameter of x-amz-outpost-id to be passed with the request. In addition, you must use an S3 on Outposts endpoint hostname prefix instead of s3-control. For an example of the request syntax for Amazon S3 on Outposts that uses the S3 on Outposts endpoint hostname prefix and the x-amz-outpost-id derived by using the access point ARN, see the Examples section. The following actions are related to CreateAccessPoint: GetAccessPoint DeleteAccessPoint ListAccessPoints ListAccessPointsForDirectoryBuckets"]
module CreateAccessPointForObjectLambdaResult =
  struct
    type nonrec t =
      {
      objectLambdaAccessPointArn: ObjectLambdaAccessPointArn.t option
        [@ocaml.doc "Specifies the ARN for the Object Lambda Access Point."];
      alias: ObjectLambdaAccessPointAlias.t option
        [@ocaml.doc "The alias of the Object Lambda Access Point."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?objectLambdaAccessPointArn =
      fun ?alias -> fun () -> { objectLambdaAccessPointArn; alias }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("ObjectLambdaAccessPointArn",
           (Option.map x.objectLambdaAccessPointArn
              ~f:ObjectLambdaAccessPointArn.to_value));
        ("Alias",
          (Option.map x.alias ~f:ObjectLambdaAccessPointAlias.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        (Option.map ~f:ObjectLambdaAccessPointAlias.of_xml)
          (Xml.child xml_arg0 "Alias") in
      let objectLambdaAccessPointArn =
        (Option.map ~f:ObjectLambdaAccessPointArn.of_xml)
          (Xml.child xml_arg0 "ObjectLambdaAccessPointArn") in
      make ?alias ?objectLambdaAccessPointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias =
        field_map json__ "Alias" ObjectLambdaAccessPointAlias.of_json in
      let objectLambdaAccessPointArn =
        field_map json__ "ObjectLambdaAccessPointArn"
          ObjectLambdaAccessPointArn.of_json in
      make ?alias ?objectLambdaAccessPointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Creates an Object Lambda Access Point. For more information, see Transforming objects with Object Lambda Access Points in the Amazon S3 User Guide. The following actions are related to CreateAccessPointForObjectLambda: DeleteAccessPointForObjectLambda GetAccessPointForObjectLambda ListAccessPointsForObjectLambda"]
module CreateAccessPointForObjectLambdaRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID for owner of the specified Object Lambda Access Point."];
      name: ObjectLambdaAccessPointName.t
        [@ocaml.doc
          "The name you want to assign to this Object Lambda Access Point."];
      configuration: ObjectLambdaConfiguration.t
        [@ocaml.doc
          "Object Lambda Access Point configuration as a JSON document."]}
    let context_ = "CreateAccessPointForObjectLambdaRequest"
    let make ~accountId =
      fun ~name ->
        fun ~configuration -> fun () -> { accountId; name; configuration }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("name", (Some (ObjectLambdaAccessPointName.to_value x.name)));
        ("Configuration",
          (Some (ObjectLambdaConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        ObjectLambdaConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Configuration") in
      let name =
        ObjectLambdaAccessPointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~configuration ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "Configuration"
          ObjectLambdaConfiguration.of_json in
      let name =
        field_map_exn json__ "Name" ObjectLambdaAccessPointName.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~configuration ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation is not supported by directory buckets. Creates an Object Lambda Access Point. For more information, see Transforming objects with Object Lambda Access Points in the Amazon S3 User Guide. The following actions are related to CreateAccessPointForObjectLambda: DeleteAccessPointForObjectLambda GetAccessPointForObjectLambda ListAccessPointsForObjectLambda"]
module CreateAccessGrantsLocationResult =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc "The date and time when you registered the location."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationArn: AccessGrantsLocationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the location you are registering."];
      locationScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 URI path to the location that you are registering. The location scope can be the default S3 location s3://, the S3 path to a bucket, or the S3 path to a bucket and prefix. A prefix in S3 is a string of characters at the beginning of an object key name used to organize the objects that you store in your S3 buckets. For example, object key names that start with the engineering/ prefix or object key names that start with the marketing/campaigns/ prefix."];
      iAMRoleArn: IAMRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for the registered location. S3 Access Grants assumes this role to manage access to the registered location."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?createdAt =
      fun ?accessGrantsLocationId ->
        fun ?accessGrantsLocationArn ->
          fun ?locationScope ->
            fun ?iAMRoleArn ->
              fun () ->
                {
                  createdAt;
                  accessGrantsLocationId;
                  accessGrantsLocationArn;
                  locationScope;
                  iAMRoleArn
                }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationArn",
          (Option.map x.accessGrantsLocationArn
             ~f:AccessGrantsLocationArn.to_value));
        ("LocationScope", (Option.map x.locationScope ~f:S3Prefix.to_value));
        ("IAMRoleArn", (Option.map x.iAMRoleArn ~f:IAMRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iAMRoleArn =
        (Option.map ~f:IAMRoleArn.of_xml) (Xml.child xml_arg0 "IAMRoleArn") in
      let locationScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "LocationScope") in
      let accessGrantsLocationArn =
        (Option.map ~f:AccessGrantsLocationArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationArn") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iAMRoleArn = field_map json__ "IAMRoleArn" IAMRoleArn.of_json in
      let locationScope = field_map json__ "LocationScope" S3Prefix.of_json in
      let accessGrantsLocationArn =
        field_map json__ "AccessGrantsLocationArn"
          AccessGrantsLocationArn.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?iAMRoleArn ?locationScope ?accessGrantsLocationArn
        ?accessGrantsLocationId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The S3 data location that you would like to register in your S3 Access Grants instance. Your S3 data must be in the same Region as your S3 Access Grants instance. The location can be one of the following: The default S3 location s3:// A bucket - S3://<bucket-name> A bucket and prefix - S3://<bucket-name>/<prefix> When you register a location, you must include the IAM role that has permission to manage the S3 location that you are registering. Give S3 Access Grants permission to assume this role using a policy. S3 Access Grants assumes this role to manage access to the location and to vend temporary credentials to grantees or client applications. Permissions You must have the s3:CreateAccessGrantsLocation permission to use this operation. Additional Permissions You must also have the following permission for the specified IAM role: iam:PassRole"]
module CreateAccessGrantsLocationRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      locationScope: S3Prefix.t
        [@ocaml.doc
          "The S3 path to the location that you are registering. The location scope can be the default S3 location s3://, the S3 path to a bucket s3://<bucket>, or the S3 path to a bucket and prefix s3://<bucket>/<prefix>. A prefix in S3 is a string of characters at the beginning of an object key name used to organize the objects that you store in your S3 buckets. For example, object key names that start with the engineering/ prefix or object key names that start with the marketing/campaigns/ prefix."];
      iAMRoleArn: IAMRoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for the registered location. S3 Access Grants assumes this role to manage access to the registered location."];
      tags: TagList.t option
        [@ocaml.doc
          "The Amazon Web Services resource tags that you are adding to the S3 Access Grants location. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]}
    let context_ = "CreateAccessGrantsLocationRequest"
    let make ?tags =
      fun ~accountId ->
        fun ~locationScope ->
          fun ~iAMRoleArn ->
            fun () -> { tags; accountId; locationScope; iAMRoleArn }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("LocationScope", (Some (S3Prefix.to_value x.locationScope)));
        ("IAMRoleArn", (Some (IAMRoleArn.to_value x.iAMRoleArn)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let iAMRoleArn =
        IAMRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IAMRoleArn") in
      let locationScope =
        S3Prefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LocationScope") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?tags ~iAMRoleArn ~locationScope ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let iAMRoleArn = field_map_exn json__ "IAMRoleArn" IAMRoleArn.of_json in
      let locationScope =
        field_map_exn json__ "LocationScope" S3Prefix.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?tags ~iAMRoleArn ~locationScope ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The S3 data location that you would like to register in your S3 Access Grants instance. Your S3 data must be in the same Region as your S3 Access Grants instance. The location can be one of the following: The default S3 location s3:// A bucket - S3://<bucket-name> A bucket and prefix - S3://<bucket-name>/<prefix> When you register a location, you must include the IAM role that has permission to manage the S3 location that you are registering. Give S3 Access Grants permission to assume this role using a policy. S3 Access Grants assumes this role to manage access to the location and to vend temporary credentials to grantees or client applications. Permissions You must have the s3:CreateAccessGrantsLocation permission to use this operation. Additional Permissions You must also have the following permission for the specified IAM role: iam:PassRole"]
module CreateAccessGrantsInstanceResult =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time when you created the S3 Access Grants instance."];
      accessGrantsInstanceId: AccessGrantsInstanceId.t option
        [@ocaml.doc
          "The ID of the S3 Access Grants instance. The ID is default. You can have one S3 Access Grants instance per Region per account."];
      accessGrantsInstanceArn: AccessGrantsInstanceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services IAM Identity Center instance that you are associating with your S3 Access Grants instance. An IAM Identity Center instance is your corporate identity directory that you added to the IAM Identity Center. You can use the ListInstances API operation to retrieve a list of your Identity Center instances and their ARNs."];
      identityCenterArn: IdentityCenterArn.t option
        [@ocaml.doc
          "If you associated your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, this field returns the Amazon Resource Name (ARN) of the IAM Identity Center instance application; a subresource of the original Identity Center instance. S3 Access Grants creates this Identity Center application for the specific S3 Access Grants instance."];
      identityCenterInstanceArn: IdentityCenterArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services IAM Identity Center instance that you are associating with your S3 Access Grants instance. An IAM Identity Center instance is your corporate identity directory that you added to the IAM Identity Center. You can use the ListInstances API operation to retrieve a list of your Identity Center instances and their ARNs."];
      identityCenterApplicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "If you associated your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, this field returns the Amazon Resource Name (ARN) of the IAM Identity Center instance application; a subresource of the original Identity Center instance. S3 Access Grants creates this Identity Center application for the specific S3 Access Grants instance."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?createdAt =
      fun ?accessGrantsInstanceId ->
        fun ?accessGrantsInstanceArn ->
          fun ?identityCenterArn ->
            fun ?identityCenterInstanceArn ->
              fun ?identityCenterApplicationArn ->
                fun () ->
                  {
                    createdAt;
                    accessGrantsInstanceId;
                    accessGrantsInstanceArn;
                    identityCenterArn;
                    identityCenterInstanceArn;
                    identityCenterApplicationArn
                  }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantsInstanceId",
          (Option.map x.accessGrantsInstanceId
             ~f:AccessGrantsInstanceId.to_value));
        ("AccessGrantsInstanceArn",
          (Option.map x.accessGrantsInstanceArn
             ~f:AccessGrantsInstanceArn.to_value));
        ("IdentityCenterArn",
          (Option.map x.identityCenterArn ~f:IdentityCenterArn.to_value));
        ("IdentityCenterInstanceArn",
          (Option.map x.identityCenterInstanceArn
             ~f:IdentityCenterArn.to_value));
        ("IdentityCenterApplicationArn",
          (Option.map x.identityCenterApplicationArn
             ~f:IdentityCenterApplicationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityCenterApplicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterApplicationArn") in
      let identityCenterInstanceArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterInstanceArn") in
      let identityCenterArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterArn") in
      let accessGrantsInstanceArn =
        (Option.map ~f:AccessGrantsInstanceArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceArn") in
      let accessGrantsInstanceId =
        (Option.map ~f:AccessGrantsInstanceId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsInstanceId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?identityCenterApplicationArn ?identityCenterInstanceArn
        ?identityCenterArn ?accessGrantsInstanceArn ?accessGrantsInstanceId
        ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityCenterApplicationArn =
        field_map json__ "IdentityCenterApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let identityCenterInstanceArn =
        field_map json__ "IdentityCenterInstanceArn"
          IdentityCenterArn.of_json in
      let identityCenterArn =
        field_map json__ "IdentityCenterArn" IdentityCenterArn.of_json in
      let accessGrantsInstanceArn =
        field_map json__ "AccessGrantsInstanceArn"
          AccessGrantsInstanceArn.of_json in
      let accessGrantsInstanceId =
        field_map json__ "AccessGrantsInstanceId"
          AccessGrantsInstanceId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?identityCenterApplicationArn ?identityCenterInstanceArn
        ?identityCenterArn ?accessGrantsInstanceArn ?accessGrantsInstanceId
        ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an S3 Access Grants instance, which serves as a logical grouping for access grants. You can create one S3 Access Grants instance per Region per account. Permissions You must have the s3:CreateAccessGrantsInstance permission to use this operation. Additional Permissions To associate an IAM Identity Center instance with your S3 Access Grants instance, you must also have the sso:DescribeInstance, sso:CreateApplication, sso:PutApplicationGrant, and sso:PutApplicationAuthenticationMethod permissions."]
module CreateAccessGrantsInstanceRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      identityCenterArn: IdentityCenterArn.t option
        [@ocaml.doc
          "If you would like to associate your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance, use this field to pass the Amazon Resource Name (ARN) of the Amazon Web Services IAM Identity Center instance that you are associating with your S3 Access Grants instance. An IAM Identity Center instance is your corporate identity directory that you added to the IAM Identity Center. You can use the ListInstances API operation to retrieve a list of your Identity Center instances and their ARNs."];
      tags: TagList.t option
        [@ocaml.doc
          "The Amazon Web Services resource tags that you are adding to the S3 Access Grants instance. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]}
    let context_ = "CreateAccessGrantsInstanceRequest"
    let make ?identityCenterArn =
      fun ?tags ->
        fun ~accountId -> fun () -> { identityCenterArn; tags; accountId }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("IdentityCenterArn",
          (Option.map x.identityCenterArn ~f:IdentityCenterArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let identityCenterArn =
        (Option.map ~f:IdentityCenterArn.of_xml)
          (Xml.child xml_arg0 "IdentityCenterArn") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?tags ?identityCenterArn ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let identityCenterArn =
        field_map json__ "IdentityCenterArn" IdentityCenterArn.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?tags ?identityCenterArn ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an S3 Access Grants instance, which serves as a logical grouping for access grants. You can create one S3 Access Grants instance per Region per account. Permissions You must have the s3:CreateAccessGrantsInstance permission to use this operation. Additional Permissions To associate an IAM Identity Center instance with your S3 Access Grants instance, you must also have the sso:DescribeInstance, sso:CreateApplication, sso:PutApplicationGrant, and sso:PutApplicationAuthenticationMethod permissions."]
module CreateAccessGrantResult =
  struct
    type nonrec t =
      {
      createdAt: CreationTimestamp.t option
        [@ocaml.doc "The date and time when you created the access grant."];
      accessGrantId: AccessGrantId.t option
        [@ocaml.doc
          "The ID of the access grant. S3 Access Grants auto-generates this ID when you create the access grant."];
      accessGrantArn: AccessGrantArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the access grant."];
      grantee: Grantee.t option
        [@ocaml.doc
          "The user, group, or role to which you are granting access. You can grant access to an IAM user or role. If you have added your corporate directory to Amazon Web Services IAM Identity Center and associated your Identity Center instance with your S3 Access Grants instance, the grantee can also be a corporate directory user or group."];
      accessGrantsLocationId: AccessGrantsLocationId.t option
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register."];
      accessGrantsLocationConfiguration:
        AccessGrantsLocationConfiguration.t option
        [@ocaml.doc
          "The configuration options of the grant location. The grant location is the S3 path to the data to which you are granting access."];
      permission: Permission.t option
        [@ocaml.doc
          "The type of access that you are granting to your S3 data, which can be set to one of the following values: READ \226\128\147 Grant read-only access to the S3 data. WRITE \226\128\147 Grant write-only access to the S3 data. READWRITE \226\128\147 Grant both read and write access to the S3 data."];
      applicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Web Services IAM Identity Center application associated with your Identity Center instance. If the grant includes an application ARN, the grantee can only access the S3 data through this application."];
      grantScope: S3Prefix.t option
        [@ocaml.doc
          "The S3 path of the data to which you are granting access. It is the result of appending the Subprefix to the location scope."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?createdAt =
      fun ?accessGrantId ->
        fun ?accessGrantArn ->
          fun ?grantee ->
            fun ?accessGrantsLocationId ->
              fun ?accessGrantsLocationConfiguration ->
                fun ?permission ->
                  fun ?applicationArn ->
                    fun ?grantScope ->
                      fun () ->
                        {
                          createdAt;
                          accessGrantId;
                          accessGrantArn;
                          grantee;
                          accessGrantsLocationId;
                          accessGrantsLocationConfiguration;
                          permission;
                          applicationArn;
                          grantScope
                        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("CreatedAt",
           (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("AccessGrantId",
          (Option.map x.accessGrantId ~f:AccessGrantId.to_value));
        ("AccessGrantArn",
          (Option.map x.accessGrantArn ~f:AccessGrantArn.to_value));
        ("Grantee", (Option.map x.grantee ~f:Grantee.to_value));
        ("AccessGrantsLocationId",
          (Option.map x.accessGrantsLocationId
             ~f:AccessGrantsLocationId.to_value));
        ("AccessGrantsLocationConfiguration",
          (Option.map x.accessGrantsLocationConfiguration
             ~f:AccessGrantsLocationConfiguration.to_value));
        ("Permission", (Option.map x.permission ~f:Permission.to_value));
        ("ApplicationArn",
          (Option.map x.applicationArn
             ~f:IdentityCenterApplicationArn.to_value));
        ("GrantScope", (Option.map x.grantScope ~f:S3Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grantScope =
        (Option.map ~f:S3Prefix.of_xml) (Xml.child xml_arg0 "GrantScope") in
      let applicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "ApplicationArn") in
      let permission =
        (Option.map ~f:Permission.of_xml) (Xml.child xml_arg0 "Permission") in
      let accessGrantsLocationConfiguration =
        (Option.map ~f:AccessGrantsLocationConfiguration.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationConfiguration") in
      let accessGrantsLocationId =
        (Option.map ~f:AccessGrantsLocationId.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationId") in
      let grantee =
        (Option.map ~f:Grantee.of_xml) (Xml.child xml_arg0 "Grantee") in
      let accessGrantArn =
        (Option.map ~f:AccessGrantArn.of_xml)
          (Xml.child xml_arg0 "AccessGrantArn") in
      let accessGrantId =
        (Option.map ~f:AccessGrantId.of_xml)
          (Xml.child xml_arg0 "AccessGrantId") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      make ?grantScope ?applicationArn ?permission
        ?accessGrantsLocationConfiguration ?accessGrantsLocationId ?grantee
        ?accessGrantArn ?accessGrantId ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grantScope = field_map json__ "GrantScope" S3Prefix.of_json in
      let applicationArn =
        field_map json__ "ApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let permission = field_map json__ "Permission" Permission.of_json in
      let accessGrantsLocationConfiguration =
        field_map json__ "AccessGrantsLocationConfiguration"
          AccessGrantsLocationConfiguration.of_json in
      let accessGrantsLocationId =
        field_map json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let grantee = field_map json__ "Grantee" Grantee.of_json in
      let accessGrantArn =
        field_map json__ "AccessGrantArn" AccessGrantArn.of_json in
      let accessGrantId =
        field_map json__ "AccessGrantId" AccessGrantId.of_json in
      let createdAt = field_map json__ "CreatedAt" CreationTimestamp.of_json in
      make ?grantScope ?applicationArn ?permission
        ?accessGrantsLocationConfiguration ?accessGrantsLocationId ?grantee
        ?accessGrantArn ?accessGrantId ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an access grant that gives a grantee access to your S3 data. The grantee can be an IAM user or role or a directory user, or group. Before you can create a grant, you must have an S3 Access Grants instance in the same Region as the S3 data. You can create an S3 Access Grants instance using the CreateAccessGrantsInstance. You must also have registered at least one S3 data location in your S3 Access Grants instance using CreateAccessGrantsLocation. Permissions You must have the s3:CreateAccessGrant permission to use this operation. Additional Permissions For any directory identity - sso:DescribeInstance and sso:DescribeApplication For directory users - identitystore:DescribeUser For directory groups - identitystore:DescribeGroup"]
module CreateAccessGrantRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      accessGrantsLocationId: AccessGrantsLocationId.t
        [@ocaml.doc
          "The ID of the registered location to which you are granting access. S3 Access Grants assigns this ID when you register the location. S3 Access Grants assigns the ID default to the default location s3:// and assigns an auto-generated ID to other locations that you register. If you are passing the default location, you cannot create an access grant for the entire default location. You must also specify a bucket or a bucket and prefix in the Subprefix field."];
      accessGrantsLocationConfiguration:
        AccessGrantsLocationConfiguration.t option
        [@ocaml.doc
          "The configuration options of the grant location. The grant location is the S3 path to the data to which you are granting access. It contains the S3SubPrefix field. The grant scope is the result of appending the subprefix to the location scope of the registered location."];
      grantee: Grantee.t
        [@ocaml.doc
          "The user, group, or role to which you are granting access. You can grant access to an IAM user or role. If you have added your corporate directory to Amazon Web Services IAM Identity Center and associated your Identity Center instance with your S3 Access Grants instance, the grantee can also be a corporate directory user or group."];
      permission: Permission.t
        [@ocaml.doc
          "The type of access that you are granting to your S3 data, which can be set to one of the following values: READ \226\128\147 Grant read-only access to the S3 data. WRITE \226\128\147 Grant write-only access to the S3 data. READWRITE \226\128\147 Grant both read and write access to the S3 data."];
      applicationArn: IdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Web Services IAM Identity Center application associated with your Identity Center instance. If an application ARN is included in the request to create an access grant, the grantee can only access the S3 data through this application."];
      s3PrefixType: S3PrefixType.t option
        [@ocaml.doc
          "The type of S3SubPrefix. The only possible value is Object. Pass this value if the access grant scope is an object. Do not pass this value if the access grant scope is a bucket or a bucket and a prefix."];
      tags: TagList.t option
        [@ocaml.doc
          "The Amazon Web Services resource tags that you are adding to the access grant. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]}
    let context_ = "CreateAccessGrantRequest"
    let make ?accessGrantsLocationConfiguration =
      fun ?applicationArn ->
        fun ?s3PrefixType ->
          fun ?tags ->
            fun ~accountId ->
              fun ~accessGrantsLocationId ->
                fun ~grantee ->
                  fun ~permission ->
                    fun () ->
                      {
                        accessGrantsLocationConfiguration;
                        applicationArn;
                        s3PrefixType;
                        tags;
                        accountId;
                        accessGrantsLocationId;
                        grantee;
                        permission
                      }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("AccessGrantsLocationId",
          (Some (AccessGrantsLocationId.to_value x.accessGrantsLocationId)));
        ("AccessGrantsLocationConfiguration",
          (Option.map x.accessGrantsLocationConfiguration
             ~f:AccessGrantsLocationConfiguration.to_value));
        ("Grantee", (Some (Grantee.to_value x.grantee)));
        ("Permission", (Some (Permission.to_value x.permission)));
        ("ApplicationArn",
          (Option.map x.applicationArn
             ~f:IdentityCenterApplicationArn.to_value));
        ("S3PrefixType",
          (Option.map x.s3PrefixType ~f:S3PrefixType.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let s3PrefixType =
        (Option.map ~f:S3PrefixType.of_xml)
          (Xml.child xml_arg0 "S3PrefixType") in
      let applicationArn =
        (Option.map ~f:IdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "ApplicationArn") in
      let permission =
        Permission.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Permission") in
      let grantee =
        Grantee.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Grantee") in
      let accessGrantsLocationConfiguration =
        (Option.map ~f:AccessGrantsLocationConfiguration.of_xml)
          (Xml.child xml_arg0 "AccessGrantsLocationConfiguration") in
      let accessGrantsLocationId =
        AccessGrantsLocationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccessGrantsLocationId") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ?tags ?s3PrefixType ?applicationArn ~permission ~grantee
        ?accessGrantsLocationConfiguration ~accessGrantsLocationId ~accountId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let s3PrefixType = field_map json__ "S3PrefixType" S3PrefixType.of_json in
      let applicationArn =
        field_map json__ "ApplicationArn"
          IdentityCenterApplicationArn.of_json in
      let permission = field_map_exn json__ "Permission" Permission.of_json in
      let grantee = field_map_exn json__ "Grantee" Grantee.of_json in
      let accessGrantsLocationConfiguration =
        field_map json__ "AccessGrantsLocationConfiguration"
          AccessGrantsLocationConfiguration.of_json in
      let accessGrantsLocationId =
        field_map_exn json__ "AccessGrantsLocationId"
          AccessGrantsLocationId.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ?tags ?s3PrefixType ?applicationArn ~permission ~grantee
        ?accessGrantsLocationConfiguration ~accessGrantsLocationId ~accountId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an access grant that gives a grantee access to your S3 data. The grantee can be an IAM user or role or a directory user, or group. Before you can create a grant, you must have an S3 Access Grants instance in the same Region as the S3 data. You can create an S3 Access Grants instance using the CreateAccessGrantsInstance. You must also have registered at least one S3 data location in your S3 Access Grants instance using CreateAccessGrantsLocation. Permissions You must have the s3:CreateAccessGrant permission to use this operation. Additional Permissions For any directory identity - sso:DescribeInstance and sso:DescribeApplication For directory users - identitystore:DescribeUser For directory groups - identitystore:DescribeGroup"]
module AssociateAccessGrantsIdentityCenterRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t
        [@ocaml.doc
          "The Amazon Web Services account ID of the S3 Access Grants instance."];
      identityCenterArn: IdentityCenterArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services IAM Identity Center instance that you are associating with your S3 Access Grants instance. An IAM Identity Center instance is your corporate identity directory that you added to the IAM Identity Center. You can use the ListInstances API operation to retrieve a list of your Identity Center instances and their ARNs."]}
    let context_ = "AssociateAccessGrantsIdentityCenterRequest"
    let make ~accountId =
      fun ~identityCenterArn -> fun () -> { accountId; identityCenterArn }
    let to_value x =
      structure_to_value
        [("x-amz-account-id", (Some (AccountId.to_value x.accountId)));
        ("IdentityCenterArn",
          (Some (IdentityCenterArn.to_value x.identityCenterArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityCenterArn =
        IdentityCenterArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityCenterArn") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-account-id") in
      make ~identityCenterArn ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityCenterArn =
        field_map_exn json__ "IdentityCenterArn" IdentityCenterArn.of_json in
      let accountId = field_map_exn json__ "AccountId" AccountId.of_json in
      make ~identityCenterArn ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate your S3 Access Grants instance with an Amazon Web Services IAM Identity Center instance. Use this action if you want to create access grants for users or groups from your corporate identity directory. First, you must add your corporate identity directory to Amazon Web Services IAM Identity Center. Then, you can associate this IAM Identity Center instance with your S3 Access Grants instance. Permissions You must have the s3:AssociateAccessGrantsIdentityCenter permission to use this operation. Additional Permissions You must also have the following permissions: sso:CreateApplication, sso:PutApplicationGrant, and sso:PutApplicationAuthenticationMethod."]