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.s3tables
let apiVersion = "2018-05-10"
let endpointPrefix = "s3tables"
let serviceFullName = "Amazon S3 Tables"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module TableBucketARN =
  struct
    type nonrec t = string
    let context_ = "TableBucketARN"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(arn:aws[-a-z0-9]*:[a-z0-9]+:[-a-z0-9]*:[0-9]{12}:bucket/[a-z0-9_-]{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:"TableBucketARN" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module Document =
  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 IcebergNullOrder =
  struct
    type nonrec t =
      | Nulls_first 
      | Nulls_last 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Nulls_first -> "nulls-first"
      | Nulls_last -> "nulls-last"
      | Non_static_id s -> s
    let of_string =
      function
      | "nulls-first" -> Nulls_first
      | "nulls-last" -> Nulls_last
      | 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 IcebergNullOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IcebergNullOrder" j)
    let to_json = simple_to_json to_value
  end
module IcebergSortDirection =
  struct
    type nonrec t =
      | Asc 
      | Desc 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Asc -> "asc" | Desc -> "desc" | Non_static_id s -> s
    let of_string =
      function | "asc" -> Asc | "desc" -> Desc | 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 IcebergSortDirection" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IcebergSortDirection" j)
    let to_json = simple_to_json to_value
  end
module ReplicationDestination =
  struct
    type nonrec t =
      {
      destinationTableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the destination table bucket where tables will be replicated."]}
    let context_ = "ReplicationDestination"
    let make ~destinationTableBucketARN =
      fun () -> { destinationTableBucketARN }
    let to_value x =
      structure_to_value
        [("destinationTableBucketARN",
           (Some (TableBucketARN.to_value x.destinationTableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationTableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationTableBucketARN") in
      make ~destinationTableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationTableBucketARN =
        field_map_exn json__ "destinationTableBucketARN"
          TableBucketARN.of_json in
      make ~destinationTableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies a destination table bucket for replication."]
module IcebergCompactionStrategy =
  struct
    type nonrec t =
      | Auto 
      | Binpack 
      | Sort 
      | Z_order 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Auto -> "auto"
      | Binpack -> "binpack"
      | Sort -> "sort"
      | Z_order -> "z-order"
      | Non_static_id s -> s
    let of_string =
      function
      | "auto" -> Auto
      | "binpack" -> Binpack
      | "sort" -> Sort
      | "z-order" -> Z_order
      | 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 IcebergCompactionStrategy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IcebergCompactionStrategy" j)
    let to_json = simple_to_json to_value
  end
module PositiveInteger =
  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: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 PositiveInteger" 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 IcebergPartitionField =
  struct
    type nonrec t =
      {
      sourceId: Integer.t
        [@ocaml.doc
          "The ID of the source schema field to partition by. This must reference a valid field ID from the table schema."];
      transform: String_.t
        [@ocaml.doc
          "The partition transform to apply to the source field. Supported transforms include identity, year, month, day, hour, bucket, and truncate. For more information, see the Apache Iceberg partition transforms documentation."];
      name: String_.t
        [@ocaml.doc
          "The name for this partition field. This name is used in the partitioned file paths."];
      fieldId: Integer.t option
        [@ocaml.doc
          "An optional unique identifier for this partition field. If not specified, S3 Tables automatically assigns a field ID."]}
    let context_ = "IcebergPartitionField"
    let make ?fieldId =
      fun ~sourceId ->
        fun ~transform ->
          fun ~name -> fun () -> { fieldId; sourceId; transform; name }
    let to_value x =
      structure_to_value
        [("source-id", (Some (Integer.to_value x.sourceId)));
        ("transform", (Some (String_.to_value x.transform)));
        ("name", (Some (String_.to_value x.name)));
        ("field-id", (Option.map x.fieldId ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "field-id") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let transform =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "transform") in
      let sourceId =
        Integer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source-id") in
      make ?fieldId ~name ~transform ~sourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldId = field_map json__ "fieldId" Integer.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      let transform = field_map_exn json__ "transform" String_.of_json in
      let sourceId = field_map_exn json__ "sourceId" Integer.of_json in
      make ?fieldId ~name ~transform ~sourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a single partition field in an Iceberg partition specification."]
module SchemaField =
  struct
    type nonrec t =
      {
      id: Integer.t option
        [@ocaml.doc
          "An optional unique identifier for the schema field. Field IDs are used by Apache Iceberg to track schema evolution and maintain compatibility across schema changes. If not specified, S3 Tables automatically assigns field IDs."];
      name: String_.t [@ocaml.doc "The name of the field."];
      type_: String_.t
        [@ocaml.doc
          "The field type. S3 Tables supports all Apache Iceberg primitive types. For more information, see the Apache Iceberg documentation."];
      required: Boolean.t option
        [@ocaml.doc
          "A Boolean value that specifies whether values are required for each row in this field. By default, this is false and null values are allowed in the field. If this is true the field does not allow null values."]}
    let context_ = "SchemaField"
    let make ?id =
      fun ?required ->
        fun ~name -> fun ~type_ -> fun () -> { id; required; name; type_ }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:Integer.to_value));
        ("name", (Some (String_.to_value x.name)));
        ("type", (Some (String_.to_value x.type_)));
        ("required", (Option.map x.required ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let required =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "required") in
      let type_ =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let id = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "id") in
      make ?required ~type_ ~name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let required = field_map json__ "required" Boolean.of_json in
      let type_ = field_map_exn json__ "type" String_.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      let id = field_map json__ "id" Integer.of_json in
      make ?required ~type_ ~name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a schema field."]
module SchemaV2Field =
  struct
    type nonrec t =
      {
      id: Integer.t
        [@ocaml.doc
          "The unique identifier for the schema field. Field IDs are used by Apache Iceberg to track schema evolution and maintain compatibility across schema changes."];
      name: String_.t [@ocaml.doc "The name of the field."];
      type_: Document.t
        [@ocaml.doc
          "The data type of the field. This can be a primitive type string such as boolean, int, long, float, double, string, binary, date, timestamp, or timestamptz, or a complex type represented as a JSON object for nested types such as struct, list, or map. For more information, see the Apache Iceberg schemas and data types documentation."];
      required: Boolean.t
        [@ocaml.doc
          "A Boolean value that specifies whether values are required for each row in this field. If this is true, the field does not allow null values."];
      doc: String_.t option
        [@ocaml.doc "An optional description of the field."]}
    let context_ = "SchemaV2Field"
    let make ?doc =
      fun ~id ->
        fun ~name ->
          fun ~type_ ->
            fun ~required -> fun () -> { doc; id; name; type_; required }
    let to_value x =
      structure_to_value
        [("id", (Some (Integer.to_value x.id)));
        ("name", (Some (String_.to_value x.name)));
        ("type", (Some (Document.to_value x.type_)));
        ("required", (Some (Boolean.to_value x.required)));
        ("doc", (Option.map x.doc ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let doc = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "doc") in
      let required =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "required") in
      let type_ =
        Document.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let id = Integer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?doc ~required ~type_ ~name ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let doc = field_map json__ "doc" String_.of_json in
      let required = field_map_exn json__ "required" Boolean.of_json in
      let type_ = field_map_exn json__ "type" Document.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      let id = field_map_exn json__ "id" Integer.of_json in
      make ?doc ~required ~type_ ~name ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about a schema field in the V2 format. This field format supports nested and complex data types such as struct, list, and map, in addition to primitive types."]
module IcebergSortField =
  struct
    type nonrec t =
      {
      sourceId: Integer.t
        [@ocaml.doc
          "The ID of the source schema field to sort by. This must reference a valid field ID from the table schema."];
      transform: String_.t
        [@ocaml.doc
          "The transform to apply to the source field before sorting. Use identity to sort by the field value directly, or specify other transforms as needed."];
      direction: IcebergSortDirection.t
        [@ocaml.doc
          "The sort direction. Valid values are asc for ascending order or desc for descending order."];
      nullOrder: IcebergNullOrder.t
        [@ocaml.doc
          "Specifies how null values are ordered. Valid values are nulls-first to place nulls before non-null values, or nulls-last to place nulls after non-null values."]}
    let context_ = "IcebergSortField"
    let make ~sourceId =
      fun ~transform ->
        fun ~direction ->
          fun ~nullOrder ->
            fun () -> { sourceId; transform; direction; nullOrder }
    let to_value x =
      structure_to_value
        [("source-id", (Some (Integer.to_value x.sourceId)));
        ("transform", (Some (String_.to_value x.transform)));
        ("direction", (Some (IcebergSortDirection.to_value x.direction)));
        ("null-order", (Some (IcebergNullOrder.to_value x.nullOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nullOrder =
        IcebergNullOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "null-order") in
      let direction =
        IcebergSortDirection.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "direction") in
      let transform =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "transform") in
      let sourceId =
        Integer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source-id") in
      make ~nullOrder ~direction ~transform ~sourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nullOrder =
        field_map_exn json__ "nullOrder" IcebergNullOrder.of_json in
      let direction =
        field_map_exn json__ "direction" IcebergSortDirection.of_json in
      let transform = field_map_exn json__ "transform" String_.of_json in
      let sourceId = field_map_exn json__ "sourceId" Integer.of_json in
      make ~nullOrder ~direction ~transform ~sourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a single sort field in an Iceberg sort order specification."]
module ReplicationDestinations =
  struct
    type nonrec t = ReplicationDestination.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:ReplicationDestination.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:ReplicationDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplicationDestinations"
        ~of_json:ReplicationDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module NamespaceName =
  struct
    type nonrec t = string
    let context_ = "NamespaceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-z_]*")));
        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:"NamespaceName" j
    let to_json = simple_to_json to_value
  end
module MetadataLocation =
  struct
    type nonrec t = string
    let context_ = "MetadataLocation"
    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:"MetadataLocation" j
    let to_json = simple_to_json to_value
  end
module SyntheticTimestamp_date_time =
  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 IcebergCompactionSettings =
  struct
    type nonrec t =
      {
      targetFileSizeMB: PositiveInteger.t option
        [@ocaml.doc "The target file size for the table in MB."];
      strategy: IcebergCompactionStrategy.t option
        [@ocaml.doc
          "The compaction strategy to use for the table. This determines how files are selected and combined during compaction operations."]}
    let make ?targetFileSizeMB =
      fun ?strategy -> fun () -> { targetFileSizeMB; strategy }
    let to_value x =
      structure_to_value
        [("targetFileSizeMB",
           (Option.map x.targetFileSizeMB ~f:PositiveInteger.to_value));
        ("strategy",
          (Option.map x.strategy ~f:IcebergCompactionStrategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let strategy =
        (Option.map ~f:IcebergCompactionStrategy.of_xml)
          (Xml.child xml_arg0 "strategy") in
      let targetFileSizeMB =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "targetFileSizeMB") in
      make ?strategy ?targetFileSizeMB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let strategy =
        field_map json__ "strategy" IcebergCompactionStrategy.of_json in
      let targetFileSizeMB =
        field_map json__ "targetFileSizeMB" PositiveInteger.of_json in
      make ?strategy ?targetFileSizeMB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the compaction settings for an Iceberg table."]
module IcebergSnapshotManagementSettings =
  struct
    type nonrec t =
      {
      minSnapshotsToKeep: PositiveInteger.t option
        [@ocaml.doc "The minimum number of snapshots to keep."];
      maxSnapshotAgeHours: PositiveInteger.t option
        [@ocaml.doc
          "The maximum age of a snapshot before it can be expired."]}
    let make ?minSnapshotsToKeep =
      fun ?maxSnapshotAgeHours ->
        fun () -> { minSnapshotsToKeep; maxSnapshotAgeHours }
    let to_value x =
      structure_to_value
        [("minSnapshotsToKeep",
           (Option.map x.minSnapshotsToKeep ~f:PositiveInteger.to_value));
        ("maxSnapshotAgeHours",
          (Option.map x.maxSnapshotAgeHours ~f:PositiveInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxSnapshotAgeHours =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "maxSnapshotAgeHours") in
      let minSnapshotsToKeep =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "minSnapshotsToKeep") in
      make ?maxSnapshotAgeHours ?minSnapshotsToKeep ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxSnapshotAgeHours =
        field_map json__ "maxSnapshotAgeHours" PositiveInteger.of_json in
      let minSnapshotsToKeep =
        field_map json__ "minSnapshotsToKeep" PositiveInteger.of_json in
      make ?maxSnapshotAgeHours ?minSnapshotsToKeep ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the snapshot management settings for an Iceberg table. The oldest snapshot expires when its age exceeds the maxSnapshotAgeHours and the total number of snapshots exceeds the value for the minimum number of snapshots to keep minSnapshotsToKeep."]
module IcebergUnreferencedFileRemovalSettings =
  struct
    type nonrec t =
      {
      unreferencedDays: PositiveInteger.t option
        [@ocaml.doc
          "The number of days an object has to be unreferenced before it is marked as non-current."];
      nonCurrentDays: PositiveInteger.t option
        [@ocaml.doc
          "The number of days an object has to be non-current before it is deleted."]}
    let make ?unreferencedDays =
      fun ?nonCurrentDays -> fun () -> { unreferencedDays; nonCurrentDays }
    let to_value x =
      structure_to_value
        [("unreferencedDays",
           (Option.map x.unreferencedDays ~f:PositiveInteger.to_value));
        ("nonCurrentDays",
          (Option.map x.nonCurrentDays ~f:PositiveInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nonCurrentDays =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "nonCurrentDays") in
      let unreferencedDays =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "unreferencedDays") in
      make ?nonCurrentDays ?unreferencedDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nonCurrentDays =
        field_map json__ "nonCurrentDays" PositiveInteger.of_json in
      let unreferencedDays =
        field_map json__ "unreferencedDays" PositiveInteger.of_json in
      make ?nonCurrentDays ?unreferencedDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the unreferenced file removal settings for an Iceberg table bucket."]
module IcebergPartitionFieldList =
  struct
    type nonrec t = IcebergPartitionField.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:IcebergPartitionField.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:IcebergPartitionField.of_xml)
    let of_json j =
      list_of_json ~kind:"IcebergPartitionFieldList"
        ~of_json:IcebergPartitionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module SchemaFieldList =
  struct
    type nonrec t = SchemaField.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:SchemaField.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:SchemaField.of_xml)
    let of_json j =
      list_of_json ~kind:"SchemaFieldList" ~of_json:SchemaField.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntegerList =
  struct
    type nonrec t = Integer.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:Integer.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:Integer.of_xml)
    let of_json j =
      list_of_json ~kind:"IntegerList" ~of_json:Integer.of_json j
    let to_json v = composed_to_json to_value v
  end
module SchemaV2FieldList =
  struct
    type nonrec t = SchemaV2Field.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:SchemaV2Field.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:SchemaV2Field.of_xml)
    let of_json j =
      list_of_json ~kind:"SchemaV2FieldList" ~of_json:SchemaV2Field.of_json j
    let to_json v = composed_to_json to_value v
  end
module SchemaV2FieldType =
  struct
    type nonrec t =
      | Struct 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Struct -> "struct" | Non_static_id s -> s
    let of_string = function | "struct" -> Struct | 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 SchemaV2FieldType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SchemaV2FieldType" j)
    let to_json = simple_to_json to_value
  end
module IcebergSortFieldList =
  struct
    type nonrec t = IcebergSortField.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:IcebergSortField.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:IcebergSortField.of_xml)
    let of_json j =
      list_of_json ~kind:"IcebergSortFieldList"
        ~of_json:IcebergSortField.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableReplicationRule =
  struct
    type nonrec t =
      {
      destinations: ReplicationDestinations.t
        [@ocaml.doc
          "An array of destination table buckets where this table should be replicated."]}
    let context_ = "TableReplicationRule"
    let make ~destinations = fun () -> { destinations }
    let to_value x =
      structure_to_value
        [("destinations",
           (Some (ReplicationDestinations.to_value x.destinations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinations =
        ReplicationDestinations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinations") in
      make ~destinations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinations =
        field_map_exn json__ "destinations" ReplicationDestinations.of_json in
      make ~destinations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a rule for replicating a table to one or more destination tables."]
module TableBucketReplicationRule =
  struct
    type nonrec t =
      {
      destinations: ReplicationDestinations.t
        [@ocaml.doc
          "An array of destination table buckets where tables should be replicated."]}
    let context_ = "TableBucketReplicationRule"
    let make ~destinations = fun () -> { destinations }
    let to_value x =
      structure_to_value
        [("destinations",
           (Some (ReplicationDestinations.to_value x.destinations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinations =
        ReplicationDestinations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinations") in
      make ~destinations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinations =
        field_map_exn json__ "destinations" ReplicationDestinations.of_json in
      make ~destinations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a rule for replicating tables from a source table bucket to one or more destination table buckets."]
module NamespaceId =
  struct
    type nonrec t = string
    let context_ = "NamespaceId"
    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:"NamespaceId" j
    let to_json = simple_to_json to_value
  end
module NamespaceList =
  struct
    type nonrec t = NamespaceName.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:NamespaceName.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:NamespaceName.of_xml)
    let of_json j =
      list_of_json ~kind:"NamespaceList" ~of_json:NamespaceName.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableARN =
  struct
    type nonrec t = string
    let context_ = "TableARN"
    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:aws[-a-z0-9]*:[a-z0-9]+:[-a-z0-9]*:[0-9]{12}:bucket/[a-z0-9_-]{3,63}/table/[a-zA-Z0-9-_]{1,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:"TableARN" j
    let to_json = simple_to_json to_value
  end
module TableBucketId =
  struct
    type nonrec t = string
    let context_ = "TableBucketId"
    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:"TableBucketId" j
    let to_json = simple_to_json to_value
  end
module TableName =
  struct
    type nonrec t = string
    let context_ = "TableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-z_]*")));
        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:"TableName" j
    let to_json = simple_to_json to_value
  end
module TableType =
  struct
    type nonrec t =
      | Customer 
      | Aws 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Customer -> "customer" | Aws -> "aws" | Non_static_id s -> s
    let of_string =
      function | "customer" -> Customer | "aws" -> Aws | 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 TableType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TableType" 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_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module TableBucketName =
  struct
    type nonrec t = string
    let context_ = "TableBucketName"
    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-]*")));
        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:"TableBucketName" j
    let to_json = simple_to_json to_value
  end
module TableBucketType =
  struct
    type nonrec t =
      | Customer 
      | Aws 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Customer -> "customer" | Aws -> "aws" | Non_static_id s -> s
    let of_string =
      function | "customer" -> Customer | "aws" -> Aws | 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 TableBucketType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TableBucketType" j)
    let to_json = simple_to_json to_value
  end
module LastSuccessfulReplicatedUpdate =
  struct
    type nonrec t =
      {
      metadataLocation: MetadataLocation.t option
        [@ocaml.doc
          "The S3 location of the metadata that was successfully replicated."];
      timestamp: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the replication update completed successfully."]}
    let make ?metadataLocation =
      fun ?timestamp -> fun () -> { metadataLocation; timestamp }
    let to_value x =
      structure_to_value
        [("metadataLocation",
           (Option.map x.metadataLocation ~f:MetadataLocation.to_value));
        ("timestamp",
          (Option.map x.timestamp ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestamp =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "timestamp") in
      let metadataLocation =
        (Option.map ~f:MetadataLocation.of_xml)
          (Xml.child xml_arg0 "metadataLocation") in
      make ?timestamp ?metadataLocation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp =
        field_map json__ "timestamp" SyntheticTimestamp_date_time.of_json in
      let metadataLocation =
        field_map json__ "metadataLocation" MetadataLocation.of_json in
      make ?timestamp ?metadataLocation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the most recent successful replication update to a destination."]
module ReplicationStatus =
  struct
    type nonrec t =
      | Pending 
      | Completed 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Completed -> "completed"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "completed" -> Completed
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration 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 JobStatus =
  struct
    type nonrec t =
      | Not_Yet_Run 
      | Successful 
      | Failed 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Not_Yet_Run -> "Not_Yet_Run"
      | Successful -> "Successful"
      | Failed -> "Failed"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Not_Yet_Run" -> Not_Yet_Run
      | "Successful" -> Successful
      | "Failed" -> Failed
      | "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 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 MaintenanceStatus =
  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 MaintenanceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MaintenanceStatus" j)
    let to_json = simple_to_json to_value
  end
module TableMaintenanceSettings =
  struct
    type nonrec t =
      {
      icebergCompaction: IcebergCompactionSettings.t option
        [@ocaml.doc
          "Contains details about the Iceberg compaction settings for the table."];
      icebergSnapshotManagement: IcebergSnapshotManagementSettings.t option
        [@ocaml.doc
          "Contains details about the Iceberg snapshot management settings for the table."]}
    let make ?icebergCompaction =
      fun ?icebergSnapshotManagement ->
        fun () -> { icebergCompaction; icebergSnapshotManagement }
    let to_value x =
      structure_to_value
        [("icebergCompaction",
           (Option.map x.icebergCompaction
              ~f:IcebergCompactionSettings.to_value));
        ("icebergSnapshotManagement",
          (Option.map x.icebergSnapshotManagement
             ~f:IcebergSnapshotManagementSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let icebergSnapshotManagement =
        (Option.map ~f:IcebergSnapshotManagementSettings.of_xml)
          (Xml.child xml_arg0 "icebergSnapshotManagement") in
      let icebergCompaction =
        (Option.map ~f:IcebergCompactionSettings.of_xml)
          (Xml.child xml_arg0 "icebergCompaction") in
      make ?icebergSnapshotManagement ?icebergCompaction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let icebergSnapshotManagement =
        field_map json__ "icebergSnapshotManagement"
          IcebergSnapshotManagementSettings.of_json in
      let icebergCompaction =
        field_map json__ "icebergCompaction"
          IcebergCompactionSettings.of_json in
      make ?icebergSnapshotManagement ?icebergCompaction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about maintenance settings for the table."]
module TableBucketMaintenanceSettings =
  struct
    type nonrec t =
      {
      icebergUnreferencedFileRemoval:
        IcebergUnreferencedFileRemovalSettings.t option
        [@ocaml.doc
          "The unreferenced file removal settings for the table bucket."]}
    let make ?icebergUnreferencedFileRemoval =
      fun () -> { icebergUnreferencedFileRemoval }
    let to_value x =
      structure_to_value
        [("icebergUnreferencedFileRemoval",
           (Option.map x.icebergUnreferencedFileRemoval
              ~f:IcebergUnreferencedFileRemovalSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let icebergUnreferencedFileRemoval =
        (Option.map ~f:IcebergUnreferencedFileRemovalSettings.of_xml)
          (Xml.child xml_arg0 "icebergUnreferencedFileRemoval") in
      make ?icebergUnreferencedFileRemoval ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let icebergUnreferencedFileRemoval =
        field_map json__ "icebergUnreferencedFileRemoval"
          IcebergUnreferencedFileRemovalSettings.of_json in
      make ?icebergUnreferencedFileRemoval ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the maintenance settings for the table bucket."]
module IcebergPartitionSpec =
  struct
    type nonrec t =
      {
      fields: IcebergPartitionFieldList.t
        [@ocaml.doc
          "The list of partition fields that define how the table data is partitioned. Each field specifies a source field and a transform to apply. This field is required if partitionSpec is provided."];
      specId: Integer.t option
        [@ocaml.doc
          "The unique identifier for this partition specification. If not specified, defaults to 0."]}
    let context_ = "IcebergPartitionSpec"
    let make ?specId = fun ~fields -> fun () -> { specId; fields }
    let to_value x =
      structure_to_value
        [("fields", (Some (IcebergPartitionFieldList.to_value x.fields)));
        ("spec-id", (Option.map x.specId ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let specId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "spec-id") in
      let fields =
        IcebergPartitionFieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ?specId ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let specId = field_map json__ "specId" Integer.of_json in
      let fields =
        field_map_exn json__ "fields" IcebergPartitionFieldList.of_json in
      make ?specId ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines how data in an Iceberg table is partitioned. Partitioning helps optimize query performance by organizing data into separate files based on field values. Each partition field specifies a transform to apply to a source field."]
module IcebergSchema =
  struct
    type nonrec t =
      {
      fields: SchemaFieldList.t
        [@ocaml.doc "The schema fields for the table"]}
    let context_ = "IcebergSchema"
    let make ~fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields", (Some (SchemaFieldList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        SchemaFieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map_exn json__ "fields" SchemaFieldList.of_json in
      make ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about the schema for an Iceberg table."]
module IcebergSchemaV2 =
  struct
    type nonrec t =
      {
      type_: SchemaV2FieldType.t
        [@ocaml.doc
          "The type of the top-level schema, which is always a struct type as defined in the Apache Iceberg specification. This value must be struct."];
      fields: SchemaV2FieldList.t
        [@ocaml.doc
          "The schema fields for the table. Each field defines a column in the table, including its name, type, and whether it is required."];
      schemaId: Integer.t option
        [@ocaml.doc
          "An optional unique identifier for the schema. Schema IDs are used by Apache Iceberg to track schema evolution."];
      identifierFieldIds: IntegerList.t option
        [@ocaml.doc
          "A list of field IDs that are used as the identifier fields for the table. Identifier fields uniquely identify a row in the table."]}
    let context_ = "IcebergSchemaV2"
    let make ?schemaId =
      fun ?identifierFieldIds ->
        fun ~type_ ->
          fun ~fields ->
            fun () -> { schemaId; identifierFieldIds; type_; fields }
    let to_value x =
      structure_to_value
        [("type", (Some (SchemaV2FieldType.to_value x.type_)));
        ("fields", (Some (SchemaV2FieldList.to_value x.fields)));
        ("schema-id", (Option.map x.schemaId ~f:Integer.to_value));
        ("identifier-field-ids",
          (Option.map x.identifierFieldIds ~f:IntegerList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifierFieldIds =
        (Option.map ~f:IntegerList.of_xml)
          (Xml.child xml_arg0 "identifier-field-ids") in
      let schemaId =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "schema-id") in
      let fields =
        SchemaV2FieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let type_ =
        SchemaV2FieldType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?identifierFieldIds ?schemaId ~fields ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifierFieldIds =
        field_map json__ "identifierFieldIds" IntegerList.of_json in
      let schemaId = field_map json__ "schemaId" Integer.of_json in
      let fields = field_map_exn json__ "fields" SchemaV2FieldList.of_json in
      let type_ = field_map_exn json__ "type" SchemaV2FieldType.of_json in
      make ?identifierFieldIds ?schemaId ~fields ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the schema for an Iceberg table using the V2 format. This schema format supports nested and complex data types such as struct, list, and map, in addition to primitive types."]
module IcebergSortOrder =
  struct
    type nonrec t =
      {
      orderId: Integer.t
        [@ocaml.doc
          "The unique identifier for this sort order. If not specified, defaults to 1. The order ID is used by Apache Iceberg to track sort order evolution."];
      fields: IcebergSortFieldList.t
        [@ocaml.doc
          "The list of sort fields that define how data is sorted within files. Each field specifies a source field, sort direction, and null ordering. This field is required if writeOrder is provided."]}
    let context_ = "IcebergSortOrder"
    let make ~orderId = fun ~fields -> fun () -> { orderId; fields }
    let to_value x =
      structure_to_value
        [("order-id", (Some (Integer.to_value x.orderId)));
        ("fields", (Some (IcebergSortFieldList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        IcebergSortFieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let orderId =
        Integer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "order-id") in
      make ~fields ~orderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map_exn json__ "fields" IcebergSortFieldList.of_json in
      let orderId = field_map_exn json__ "orderId" Integer.of_json in
      make ~fields ~orderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the sort order for data within an Iceberg table. Sorting data can improve query performance by enabling more efficient data skipping."]
module TableProperties =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module IAMRole =
  struct
    type nonrec t = string
    let context_ = "IAMRole"
    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:.+:iam::[0-9]{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:"IAMRole" j
    let to_json = simple_to_json to_value
  end
module TableReplicationRules =
  struct
    type nonrec t = TableReplicationRule.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:TableReplicationRule.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:TableReplicationRule.of_xml)
    let of_json j =
      list_of_json ~kind:"TableReplicationRules"
        ~of_json:TableReplicationRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableRecordExpirationSettings =
  struct
    type nonrec t =
      {
      days: PositiveInteger.t option
        [@ocaml.doc
          "If you enable record expiration for a table, you can specify the number of days to retain your table records. For example, to retain your table records for one year, set this value to 365."]}
    let make ?days = fun () -> { days }
    let to_value x =
      structure_to_value
        [("days", (Option.map x.days ~f:PositiveInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let days =
        (Option.map ~f:PositiveInteger.of_xml) (Xml.child xml_arg0 "days") in
      make ?days ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let days = field_map json__ "days" PositiveInteger.of_json in
      make ?days ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The record expiration setting that specifies when records expire and are automatically removed from a table."]
module TableRecordExpirationStatus =
  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 TableRecordExpirationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TableRecordExpirationStatus" j)
    let to_json = simple_to_json to_value
  end
module StorageClass =
  struct
    type nonrec t =
      | STANDARD 
      | INTELLIGENT_TIERING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | INTELLIGENT_TIERING -> "INTELLIGENT_TIERING"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "INTELLIGENT_TIERING" -> INTELLIGENT_TIERING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StorageClass" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StorageClass" j)
    let to_json = simple_to_json to_value
  end
module TableBucketReplicationRules =
  struct
    type nonrec t = TableBucketReplicationRule.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:TableBucketReplicationRule.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:TableBucketReplicationRule.of_xml)
    let of_json j =
      list_of_json ~kind:"TableBucketReplicationRules"
        ~of_json:TableBucketReplicationRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module EncryptionConfigurationKmsKeyArnString =
  struct
    type nonrec t = string
    let context_ = "EncryptionConfigurationKmsKeyArnString"
    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:aws[-a-z0-9]*:kms:[-a-z0-9]*:[0-9]{12}:key/.+)")));
        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:"EncryptionConfigurationKmsKeyArnString" j
    let to_json = simple_to_json to_value
  end
module SSEAlgorithm =
  struct
    type nonrec t =
      | AES256 
      | Aws_kms 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AES256 -> "AES256"
      | Aws_kms -> "aws:kms"
      | Non_static_id s -> s
    let of_string =
      function
      | "AES256" -> AES256
      | "aws:kms" -> Aws_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 SSEAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SSEAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module TableSummary =
  struct
    type nonrec t =
      {
      namespace: NamespaceList.t option
        [@ocaml.doc "The name of the namespace."];
      name: TableName.t option [@ocaml.doc "The name of the table."];
      type_: TableType.t option [@ocaml.doc "The type of the table."];
      tableARN: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the table was created at."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the table was last modified at."];
      managedByService: String_.t option
        [@ocaml.doc
          "The Amazon Web Services service managing this table, if applicable. For example, a replicated table is managed by the S3 Tables replication service."];
      namespaceId: NamespaceId.t option
        [@ocaml.doc
          "The unique identifier for the namespace that contains this table."];
      tableBucketId: TableBucketId.t option
        [@ocaml.doc
          "The unique identifier for the table bucket that contains this table."]}
    let make ?namespace =
      fun ?name ->
        fun ?type_ ->
          fun ?tableARN ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?managedByService ->
                  fun ?namespaceId ->
                    fun ?tableBucketId ->
                      fun () ->
                        {
                          namespace;
                          name;
                          type_;
                          tableARN;
                          createdAt;
                          modifiedAt;
                          managedByService;
                          namespaceId;
                          tableBucketId
                        }
    let to_value x =
      structure_to_value
        [("namespace", (Option.map x.namespace ~f:NamespaceList.to_value));
        ("name", (Option.map x.name ~f:TableName.to_value));
        ("type", (Option.map x.type_ ~f:TableType.to_value));
        ("tableARN", (Option.map x.tableARN ~f:TableARN.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("managedByService",
          (Option.map x.managedByService ~f:String_.to_value));
        ("namespaceId", (Option.map x.namespaceId ~f:NamespaceId.to_value));
        ("tableBucketId",
          (Option.map x.tableBucketId ~f:TableBucketId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketId =
        (Option.map ~f:TableBucketId.of_xml)
          (Xml.child xml_arg0 "tableBucketId") in
      let namespaceId =
        (Option.map ~f:NamespaceId.of_xml) (Xml.child xml_arg0 "namespaceId") in
      let managedByService =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "managedByService") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let tableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableARN") in
      let type_ =
        (Option.map ~f:TableType.of_xml) (Xml.child xml_arg0 "type") in
      let name = (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "name") in
      let namespace =
        (Option.map ~f:NamespaceList.of_xml) (Xml.child xml_arg0 "namespace") in
      make ?tableBucketId ?namespaceId ?managedByService ?modifiedAt
        ?createdAt ?tableARN ?type_ ?name ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketId =
        field_map json__ "tableBucketId" TableBucketId.of_json in
      let namespaceId = field_map json__ "namespaceId" NamespaceId.of_json in
      let managedByService =
        field_map json__ "managedByService" String_.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let tableARN = field_map json__ "tableARN" TableARN.of_json in
      let type_ = field_map json__ "type" TableType.of_json in
      let name = field_map json__ "name" TableName.of_json in
      let namespace = field_map json__ "namespace" NamespaceList.of_json in
      make ?tableBucketId ?namespaceId ?managedByService ?modifiedAt
        ?createdAt ?tableARN ?type_ ?name ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a table."]
module TableBucketSummary =
  struct
    type nonrec t =
      {
      arn: TableBucketARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      name: TableBucketName.t option
        [@ocaml.doc "The name of the table bucket."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The ID of the account that owns the table bucket."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the table bucket was created at."];
      tableBucketId: TableBucketId.t option
        [@ocaml.doc
          "The system-assigned unique identifier for the table bucket."];
      type_: TableBucketType.t option
        [@ocaml.doc "The type of the table bucket."]}
    let make ?arn =
      fun ?name ->
        fun ?ownerAccountId ->
          fun ?createdAt ->
            fun ?tableBucketId ->
              fun ?type_ ->
                fun () ->
                  {
                    arn;
                    name;
                    ownerAccountId;
                    createdAt;
                    tableBucketId;
                    type_
                  }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:TableBucketARN.to_value));
        ("name", (Option.map x.name ~f:TableBucketName.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("tableBucketId",
          (Option.map x.tableBucketId ~f:TableBucketId.to_value));
        ("type", (Option.map x.type_ ~f:TableBucketType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:TableBucketType.of_xml) (Xml.child xml_arg0 "type") in
      let tableBucketId =
        (Option.map ~f:TableBucketId.of_xml)
          (Xml.child xml_arg0 "tableBucketId") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let name =
        (Option.map ~f:TableBucketName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:TableBucketARN.of_xml) (Xml.child xml_arg0 "arn") in
      make ?type_ ?tableBucketId ?createdAt ?ownerAccountId ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" TableBucketType.of_json in
      let tableBucketId =
        field_map json__ "tableBucketId" TableBucketId.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let name = field_map json__ "name" TableBucketName.of_json in
      let arn = field_map json__ "arn" TableBucketARN.of_json in
      make ?type_ ?tableBucketId ?createdAt ?ownerAccountId ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a table bucket."]
module NamespaceSummary =
  struct
    type nonrec t =
      {
      namespace: NamespaceList.t option
        [@ocaml.doc "The name of the namespace."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the namespace was created at."];
      createdBy: AccountId.t option
        [@ocaml.doc "The ID of the account that created the namespace."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The ID of the account that owns the namespace."];
      namespaceId: NamespaceId.t option
        [@ocaml.doc
          "The system-assigned unique identifier for the namespace."];
      tableBucketId: TableBucketId.t option
        [@ocaml.doc
          "The system-assigned unique identifier for the table bucket that contains this namespace."]}
    let make ?namespace =
      fun ?createdAt ->
        fun ?createdBy ->
          fun ?ownerAccountId ->
            fun ?namespaceId ->
              fun ?tableBucketId ->
                fun () ->
                  {
                    namespace;
                    createdAt;
                    createdBy;
                    ownerAccountId;
                    namespaceId;
                    tableBucketId
                  }
    let to_value x =
      structure_to_value
        [("namespace", (Option.map x.namespace ~f:NamespaceList.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("namespaceId", (Option.map x.namespaceId ~f:NamespaceId.to_value));
        ("tableBucketId",
          (Option.map x.tableBucketId ~f:TableBucketId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketId =
        (Option.map ~f:TableBucketId.of_xml)
          (Xml.child xml_arg0 "tableBucketId") in
      let namespaceId =
        (Option.map ~f:NamespaceId.of_xml) (Xml.child xml_arg0 "namespaceId") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let namespace =
        (Option.map ~f:NamespaceList.of_xml) (Xml.child xml_arg0 "namespace") in
      make ?tableBucketId ?namespaceId ?ownerAccountId ?createdBy ?createdAt
        ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketId =
        field_map json__ "tableBucketId" TableBucketId.of_json in
      let namespaceId = field_map json__ "namespaceId" NamespaceId.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let namespace = field_map json__ "namespace" NamespaceList.of_json in
      make ?tableBucketId ?namespaceId ?ownerAccountId ?createdBy ?createdAt
        ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a namespace."]
module ReplicationInformation =
  struct
    type nonrec t =
      {
      sourceTableARN: TableARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the source table from which this table is replicated."]}
    let make ?sourceTableARN = fun () -> { sourceTableARN }
    let to_value x =
      structure_to_value
        [("sourceTableARN",
           (Option.map x.sourceTableARN ~f:TableARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceTableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "sourceTableARN") in
      make ?sourceTableARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceTableARN = field_map json__ "sourceTableARN" TableARN.of_json in
      make ?sourceTableARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the source of a replicated table."]
module ReplicationDestinationStatusModel =
  struct
    type nonrec t =
      {
      replicationStatus: ReplicationStatus.t option
        [@ocaml.doc "The current status of replication to this destination."];
      destinationTableBucketArn: TableBucketARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the destination table bucket."];
      destinationTableArn: TableARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the destination table."];
      lastSuccessfulReplicatedUpdate: LastSuccessfulReplicatedUpdate.t option
        [@ocaml.doc
          "Information about the most recent successful replication update to this destination."];
      failureMessage: String_.t option
        [@ocaml.doc
          "If replication has failed, this field contains an error message describing the failure reason."]}
    let make ?replicationStatus =
      fun ?destinationTableBucketArn ->
        fun ?destinationTableArn ->
          fun ?lastSuccessfulReplicatedUpdate ->
            fun ?failureMessage ->
              fun () ->
                {
                  replicationStatus;
                  destinationTableBucketArn;
                  destinationTableArn;
                  lastSuccessfulReplicatedUpdate;
                  failureMessage
                }
    let to_value x =
      structure_to_value
        [("replicationStatus",
           (Option.map x.replicationStatus ~f:ReplicationStatus.to_value));
        ("destinationTableBucketArn",
          (Option.map x.destinationTableBucketArn ~f:TableBucketARN.to_value));
        ("destinationTableArn",
          (Option.map x.destinationTableArn ~f:TableARN.to_value));
        ("lastSuccessfulReplicatedUpdate",
          (Option.map x.lastSuccessfulReplicatedUpdate
             ~f:LastSuccessfulReplicatedUpdate.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let lastSuccessfulReplicatedUpdate =
        (Option.map ~f:LastSuccessfulReplicatedUpdate.of_xml)
          (Xml.child xml_arg0 "lastSuccessfulReplicatedUpdate") in
      let destinationTableArn =
        (Option.map ~f:TableARN.of_xml)
          (Xml.child xml_arg0 "destinationTableArn") in
      let destinationTableBucketArn =
        (Option.map ~f:TableBucketARN.of_xml)
          (Xml.child xml_arg0 "destinationTableBucketArn") in
      let replicationStatus =
        (Option.map ~f:ReplicationStatus.of_xml)
          (Xml.child xml_arg0 "replicationStatus") in
      make ?failureMessage ?lastSuccessfulReplicatedUpdate
        ?destinationTableArn ?destinationTableBucketArn ?replicationStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let lastSuccessfulReplicatedUpdate =
        field_map json__ "lastSuccessfulReplicatedUpdate"
          LastSuccessfulReplicatedUpdate.of_json in
      let destinationTableArn =
        field_map json__ "destinationTableArn" TableARN.of_json in
      let destinationTableBucketArn =
        field_map json__ "destinationTableBucketArn" TableBucketARN.of_json in
      let replicationStatus =
        field_map json__ "replicationStatus" ReplicationStatus.of_json in
      make ?failureMessage ?lastSuccessfulReplicatedUpdate
        ?destinationTableArn ?destinationTableBucketArn ?replicationStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains status information for a replication destination, including the current replication state, last successful update, and any error messages."]
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module TableMaintenanceJobStatusValue =
  struct
    type nonrec t =
      {
      status: JobStatus.t option [@ocaml.doc "The status of the job."];
      lastRunTimestamp: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time that the maintenance job was last run."];
      failureMessage: String_.t option
        [@ocaml.doc "The failure message of a failed job."]}
    let make ?status =
      fun ?lastRunTimestamp ->
        fun ?failureMessage ->
          fun () -> { status; lastRunTimestamp; failureMessage }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:JobStatus.to_value));
        ("lastRunTimestamp",
          (Option.map x.lastRunTimestamp
             ~f:SyntheticTimestamp_date_time.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let lastRunTimestamp =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastRunTimestamp") in
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?failureMessage ?lastRunTimestamp ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let lastRunTimestamp =
        field_map json__ "lastRunTimestamp"
          SyntheticTimestamp_date_time.of_json in
      let status = field_map json__ "status" JobStatus.of_json in
      make ?failureMessage ?lastRunTimestamp ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about the status of a maintenance job."]
module TableMaintenanceJobType =
  struct
    type nonrec t =
      | IcebergCompaction 
      | IcebergSnapshotManagement 
      | IcebergUnreferencedFileRemoval 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IcebergCompaction -> "icebergCompaction"
      | IcebergSnapshotManagement -> "icebergSnapshotManagement"
      | IcebergUnreferencedFileRemoval -> "icebergUnreferencedFileRemoval"
      | Non_static_id s -> s
    let of_string =
      function
      | "icebergCompaction" -> IcebergCompaction
      | "icebergSnapshotManagement" -> IcebergSnapshotManagement
      | "icebergUnreferencedFileRemoval" -> IcebergUnreferencedFileRemoval
      | 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 TableMaintenanceJobType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TableMaintenanceJobType" j)
    let to_json = simple_to_json to_value
  end
module TableMaintenanceConfigurationValue =
  struct
    type nonrec t =
      {
      status: MaintenanceStatus.t option
        [@ocaml.doc "The status of the maintenance configuration."];
      settings: TableMaintenanceSettings.t option
        [@ocaml.doc
          "Contains details about the settings for the maintenance configuration."]}
    let make ?status = fun ?settings -> fun () -> { status; settings }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:MaintenanceStatus.to_value));
        ("settings",
          (Option.map x.settings ~f:TableMaintenanceSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:TableMaintenanceSettings.of_xml)
          (Xml.child xml_arg0 "settings") in
      let status =
        (Option.map ~f:MaintenanceStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?settings ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings =
        field_map json__ "settings" TableMaintenanceSettings.of_json in
      let status = field_map json__ "status" MaintenanceStatus.of_json in
      make ?settings ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The values that define a maintenance configuration for a table."]
module TableMaintenanceType =
  struct
    type nonrec t =
      | IcebergCompaction 
      | IcebergSnapshotManagement 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IcebergCompaction -> "icebergCompaction"
      | IcebergSnapshotManagement -> "icebergSnapshotManagement"
      | Non_static_id s -> s
    let of_string =
      function
      | "icebergCompaction" -> IcebergCompaction
      | "icebergSnapshotManagement" -> IcebergSnapshotManagement
      | 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 TableMaintenanceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TableMaintenanceType" j)
    let to_json = simple_to_json to_value
  end
module TableBucketMaintenanceConfigurationValue =
  struct
    type nonrec t =
      {
      status: MaintenanceStatus.t option
        [@ocaml.doc "The status of the maintenance configuration."];
      settings: TableBucketMaintenanceSettings.t option
        [@ocaml.doc
          "Contains details about the settings of the maintenance configuration."]}
    let make ?status = fun ?settings -> fun () -> { status; settings }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:MaintenanceStatus.to_value));
        ("settings",
          (Option.map x.settings ~f:TableBucketMaintenanceSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:TableBucketMaintenanceSettings.of_xml)
          (Xml.child xml_arg0 "settings") in
      let status =
        (Option.map ~f:MaintenanceStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?settings ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings =
        field_map json__ "settings" TableBucketMaintenanceSettings.of_json in
      let status = field_map json__ "status" MaintenanceStatus.of_json in
      make ?settings ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the values that define the maintenance configuration for a table bucket."]
module TableBucketMaintenanceType =
  struct
    type nonrec t =
      | IcebergUnreferencedFileRemoval 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IcebergUnreferencedFileRemoval -> "icebergUnreferencedFileRemoval"
      | Non_static_id s -> s
    let of_string =
      function
      | "icebergUnreferencedFileRemoval" -> IcebergUnreferencedFileRemoval
      | 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 TableBucketMaintenanceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TableBucketMaintenanceType" j)
    let to_json = simple_to_json to_value
  end
module IcebergMetadata =
  struct
    type nonrec t =
      {
      schema: IcebergSchema.t option
        [@ocaml.doc
          "The schema for an Iceberg table. Use this property to define table schemas with primitive types only. For schemas that include nested or complex types such as struct, list, or map, use schemaV2 instead."];
      schemaV2: IcebergSchemaV2.t option
        [@ocaml.doc
          "The schema for an Iceberg table using the V2 format. Use this property to define table schemas that include nested or complex data types such as struct, list, or map, in addition to primitive types. For schemas with only primitive types, you can use either schema or schemaV2."];
      partitionSpec: IcebergPartitionSpec.t option
        [@ocaml.doc
          "The partition specification for the Iceberg table. Partitioning organizes data into separate files based on the values of one or more fields, which can improve query performance by reducing the amount of data scanned. Each partition field applies a transform (such as identity, year, month, or bucket) to a single field."];
      writeOrder: IcebergSortOrder.t option
        [@ocaml.doc
          "The sort order for the Iceberg table. Sort order defines how data is sorted within data files, which can improve query performance by enabling more efficient data skipping and filtering."];
      properties: TableProperties.t option
        [@ocaml.doc
          "A map of custom configuration properties for the Iceberg table."]}
    let make ?schema =
      fun ?schemaV2 ->
        fun ?partitionSpec ->
          fun ?writeOrder ->
            fun ?properties ->
              fun () ->
                { schema; schemaV2; partitionSpec; writeOrder; properties }
    let to_value x =
      structure_to_value
        [("schema", (Option.map x.schema ~f:IcebergSchema.to_value));
        ("schemaV2", (Option.map x.schemaV2 ~f:IcebergSchemaV2.to_value));
        ("partitionSpec",
          (Option.map x.partitionSpec ~f:IcebergPartitionSpec.to_value));
        ("writeOrder",
          (Option.map x.writeOrder ~f:IcebergSortOrder.to_value));
        ("properties", (Option.map x.properties ~f:TableProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let properties =
        (Option.map ~f:TableProperties.of_xml)
          (Xml.child xml_arg0 "properties") in
      let writeOrder =
        (Option.map ~f:IcebergSortOrder.of_xml)
          (Xml.child xml_arg0 "writeOrder") in
      let partitionSpec =
        (Option.map ~f:IcebergPartitionSpec.of_xml)
          (Xml.child xml_arg0 "partitionSpec") in
      let schemaV2 =
        (Option.map ~f:IcebergSchemaV2.of_xml)
          (Xml.child xml_arg0 "schemaV2") in
      let schema =
        (Option.map ~f:IcebergSchema.of_xml) (Xml.child xml_arg0 "schema") in
      make ?properties ?writeOrder ?partitionSpec ?schemaV2 ?schema ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let properties = field_map json__ "properties" TableProperties.of_json in
      let writeOrder = field_map json__ "writeOrder" IcebergSortOrder.of_json in
      let partitionSpec =
        field_map json__ "partitionSpec" IcebergPartitionSpec.of_json in
      let schemaV2 = field_map json__ "schemaV2" IcebergSchemaV2.of_json in
      let schema = field_map json__ "schema" IcebergSchema.of_json in
      make ?properties ?writeOrder ?partitionSpec ?schemaV2 ?schema ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the metadata for an Iceberg table."]
module BadRequestException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request is invalid or malformed."]
module ConflictException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed because there is a conflict with a previous write. You can retry the request."]
module ForbiddenException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The caller isn't authorized to make the request."]
module InternalServerErrorException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request failed due to an internal server error."]
module NotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because the specified resource could not be found."]
module TooManyRequestsException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The limit on the number of requests per second was exceeded."]
module VersionToken =
  struct
    type nonrec t = string
    let context_ = "VersionToken"
    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:"VersionToken" j
    let to_json = simple_to_json to_value
  end
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    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:aws[-a-z0-9]*:[a-z0-9]+:[-a-z0-9]*:[0-9]{12}:bucket/.+")));
        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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The action cannot be performed because you do not have the required permission."]
module TableReplicationConfiguration =
  struct
    type nonrec t =
      {
      role: IAMRole.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role that S3 Tables assumes to replicate the table on your behalf."];
      rules: TableReplicationRules.t
        [@ocaml.doc
          "An array of replication rules that define where this table should be replicated."]}
    let context_ = "TableReplicationConfiguration"
    let make ~role = fun ~rules -> fun () -> { role; rules }
    let to_value x =
      structure_to_value
        [("role", (Some (IAMRole.to_value x.role)));
        ("rules", (Some (TableReplicationRules.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        TableReplicationRules.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "rules") in
      let role =
        IAMRole.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" TableReplicationRules.of_json in
      let role = field_map_exn json__ "role" IAMRole.of_json in
      make ~rules ~role ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The replication configuration for an individual table. This configuration defines how the table is replicated to destination tables."]
module TableRecordExpirationConfigurationValue =
  struct
    type nonrec t =
      {
      status: TableRecordExpirationStatus.t option
        [@ocaml.doc
          "The status of the expiration settings for records in the table."];
      settings: TableRecordExpirationSettings.t option
        [@ocaml.doc "The expiration settings for records in the table."]}
    let make ?status = fun ?settings -> fun () -> { status; settings }
    let to_value x =
      structure_to_value
        [("status",
           (Option.map x.status ~f:TableRecordExpirationStatus.to_value));
        ("settings",
          (Option.map x.settings ~f:TableRecordExpirationSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:TableRecordExpirationSettings.of_xml)
          (Xml.child xml_arg0 "settings") in
      let status =
        (Option.map ~f:TableRecordExpirationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?settings ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings =
        field_map json__ "settings" TableRecordExpirationSettings.of_json in
      let status =
        field_map json__ "status" TableRecordExpirationStatus.of_json in
      make ?settings ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The expiration configuration settings for records in a table, and the status of the configuration. If the status of the configuration is enabled, records expire and are automatically removed after the number of days specified in the record expiration settings for the table."]
module ResourcePolicy =
  struct
    type nonrec t = string
    let context_ = "ResourcePolicy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20480) >>=
             (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:"ResourcePolicy" j
    let to_json = simple_to_json to_value
  end
module StorageClassConfiguration =
  struct
    type nonrec t =
      {
      storageClass: StorageClass.t
        [@ocaml.doc
          "The storage class for the table or table bucket. Valid values include storage classes optimized for different access patterns and cost profiles."]}
    let context_ = "StorageClassConfiguration"
    let make ~storageClass = fun () -> { storageClass }
    let to_value x =
      structure_to_value
        [("storageClass", (Some (StorageClass.to_value x.storageClass)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClass =
        StorageClass.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "storageClass") in
      make ~storageClass ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClass =
        field_map_exn json__ "storageClass" StorageClass.of_json in
      make ~storageClass ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration details for the storage class of tables or table buckets. This allows you to optimize storage costs by selecting the appropriate storage class based on your access patterns and performance requirements."]
module TableBucketReplicationConfiguration =
  struct
    type nonrec t =
      {
      role: IAMRole.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role that S3 Tables assumes to replicate tables on your behalf."];
      rules: TableBucketReplicationRules.t
        [@ocaml.doc
          "An array of replication rules that define which tables to replicate and where to replicate them."]}
    let context_ = "TableBucketReplicationConfiguration"
    let make ~role = fun ~rules -> fun () -> { role; rules }
    let to_value x =
      structure_to_value
        [("role", (Some (IAMRole.to_value x.role)));
        ("rules", (Some (TableBucketReplicationRules.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        TableBucketReplicationRules.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "rules") in
      let role =
        IAMRole.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" TableBucketReplicationRules.of_json in
      let role = field_map_exn json__ "role" IAMRole.of_json in
      make ~rules ~role ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The replication configuration for a table bucket. This configuration defines how tables in the source bucket are replicated to destination table buckets, including the IAM role used for replication."]
module EncryptionConfiguration =
  struct
    type nonrec t =
      {
      sseAlgorithm: SSEAlgorithm.t
        [@ocaml.doc
          "The server-side encryption algorithm to use. Valid values are AES256 for S3-managed encryption keys, or aws:kms for Amazon Web Services KMS-managed encryption keys. If you choose SSE-KMS encryption you must grant the S3 Tables maintenance principal access to your KMS key. For more information, see Permissions requirements for S3 Tables SSE-KMS encryption."];
      kmsKeyArn: EncryptionConfigurationKmsKeyArnString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the KMS key to use for encryption. This field is required only when sseAlgorithm is set to aws:kms."]}
    let context_ = "EncryptionConfiguration"
    let make ?kmsKeyArn =
      fun ~sseAlgorithm -> fun () -> { kmsKeyArn; sseAlgorithm }
    let to_value x =
      structure_to_value
        [("sseAlgorithm", (Some (SSEAlgorithm.to_value x.sseAlgorithm)));
        ("kmsKeyArn",
          (Option.map x.kmsKeyArn
             ~f:EncryptionConfigurationKmsKeyArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyArn =
        (Option.map ~f:EncryptionConfigurationKmsKeyArnString.of_xml)
          (Xml.child xml_arg0 "kmsKeyArn") in
      let sseAlgorithm =
        SSEAlgorithm.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sseAlgorithm") in
      make ?kmsKeyArn ~sseAlgorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyArn =
        field_map json__ "kmsKeyArn"
          EncryptionConfigurationKmsKeyArnString.of_json in
      let sseAlgorithm =
        field_map_exn json__ "sseAlgorithm" SSEAlgorithm.of_json in
      make ?kmsKeyArn ~sseAlgorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration specifying how data should be encrypted. This structure defines the encryption algorithm and optional KMS key to be used for server-side encryption."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module TableSummaryList =
  struct
    type nonrec t = TableSummary.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:TableSummary.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:TableSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TableSummaryList" ~of_json:TableSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTablesLimit =
  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: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 ListTablesLimit" 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 ListTablesRequestPrefixString =
  struct
    type nonrec t = string
    let context_ = "ListTablesRequestPrefixString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"ListTablesRequestPrefixString" j
    let to_json = simple_to_json to_value
  end
module TableBucketSummaryList =
  struct
    type nonrec t = TableBucketSummary.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:TableBucketSummary.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:TableBucketSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TableBucketSummaryList"
        ~of_json:TableBucketSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTableBucketsLimit =
  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: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 ListTableBucketsLimit" 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 ListTableBucketsRequestPrefixString =
  struct
    type nonrec t = string
    let context_ = "ListTableBucketsRequestPrefixString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (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:"ListTableBucketsRequestPrefixString" j
    let to_json = simple_to_json to_value
  end
module NamespaceSummaryList =
  struct
    type nonrec t = NamespaceSummary.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:NamespaceSummary.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:NamespaceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"NamespaceSummaryList"
        ~of_json:NamespaceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListNamespacesLimit =
  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: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 ListNamespacesLimit" 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 ListNamespacesRequestPrefixString =
  struct
    type nonrec t = string
    let context_ = "ListNamespacesRequestPrefixString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"ListNamespacesRequestPrefixString" j
    let to_json = simple_to_json to_value
  end
module ManagedTableInformation =
  struct
    type nonrec t =
      {
      replicationInformation: ReplicationInformation.t option
        [@ocaml.doc
          "If this table is a replica, contains information about the source table from which it is replicated."]}
    let make ?replicationInformation = fun () -> { replicationInformation }
    let to_value x =
      structure_to_value
        [("replicationInformation",
           (Option.map x.replicationInformation
              ~f:ReplicationInformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationInformation =
        (Option.map ~f:ReplicationInformation.of_xml)
          (Xml.child xml_arg0 "replicationInformation") in
      make ?replicationInformation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationInformation =
        field_map json__ "replicationInformation"
          ReplicationInformation.of_json in
      make ?replicationInformation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about tables that are managed by S3 Tables, including replication information for replica tables."]
module OpenTableFormat =
  struct
    type nonrec t =
      | ICEBERG 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ICEBERG -> "ICEBERG" | Non_static_id s -> s
    let of_string = function | "ICEBERG" -> ICEBERG | 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 OpenTableFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OpenTableFormat" j)
    let to_json = simple_to_json to_value
  end
module WarehouseLocation =
  struct
    type nonrec t = string
    let context_ = "WarehouseLocation"
    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:"WarehouseLocation" j
    let to_json = simple_to_json to_value
  end
module ReplicationDestinationStatuses =
  struct
    type nonrec t = ReplicationDestinationStatusModel.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:ReplicationDestinationStatusModel.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:ReplicationDestinationStatusModel.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplicationDestinationStatuses"
        ~of_json:ReplicationDestinationStatusModel.of_json j
    let to_json v = composed_to_json to_value v
  end
module MethodNotAllowedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation is not allowed on this resource. This may occur when attempting to modify a resource that is managed by a service or has restrictions that prevent the operation."]
module TableRecordExpirationJobMetrics =
  struct
    type nonrec t =
      {
      deletedDataFiles: Long.t option
        [@ocaml.doc
          "The total number of data files that were removed when the job ran."];
      deletedRecords: Long.t option
        [@ocaml.doc
          "The total number of records that were removed when the job ran."];
      removedFilesSize: Long.t option
        [@ocaml.doc
          "The total size (in bytes) of the data files that were removed when the job ran."]}
    let make ?deletedDataFiles =
      fun ?deletedRecords ->
        fun ?removedFilesSize ->
          fun () -> { deletedDataFiles; deletedRecords; removedFilesSize }
    let to_value x =
      structure_to_value
        [("deletedDataFiles",
           (Option.map x.deletedDataFiles ~f:Long.to_value));
        ("deletedRecords", (Option.map x.deletedRecords ~f:Long.to_value));
        ("removedFilesSize",
          (Option.map x.removedFilesSize ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let removedFilesSize =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "removedFilesSize") in
      let deletedRecords =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "deletedRecords") in
      let deletedDataFiles =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "deletedDataFiles") in
      make ?removedFilesSize ?deletedRecords ?deletedDataFiles ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let removedFilesSize = field_map json__ "removedFilesSize" Long.of_json in
      let deletedRecords = field_map json__ "deletedRecords" Long.of_json in
      let deletedDataFiles = field_map json__ "deletedDataFiles" Long.of_json in
      make ?removedFilesSize ?deletedRecords ?deletedDataFiles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides metrics for the record expiration job that most recently ran for a table. The metrics provide insight into the amount of data that was removed when the job ran."]
module TableRecordExpirationJobStatus =
  struct
    type nonrec t =
      | NotYetRun 
      | Successful 
      | Failed 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NotYetRun -> "NotYetRun"
      | Successful -> "Successful"
      | Failed -> "Failed"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "NotYetRun" -> NotYetRun
      | "Successful" -> Successful
      | "Failed" -> Failed
      | "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 TableRecordExpirationJobStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TableRecordExpirationJobStatus" j)
    let to_json = simple_to_json to_value
  end
module TableMaintenanceJobStatus =
  struct
    type nonrec t =
      (TableMaintenanceJobType.t * TableMaintenanceJobStatusValue.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 ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types TableMaintenanceJobType TableMaintenanceJobStatusValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TableMaintenanceJobType.to_value x) |>
                    (fun x ->
                       (TableMaintenanceJobStatusValue.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:TableMaintenanceJobType.of_string
        ~of_json:TableMaintenanceJobStatusValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableMaintenanceConfiguration =
  struct
    type nonrec t =
      (TableMaintenanceType.t * TableMaintenanceConfigurationValue.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 ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types TableMaintenanceType TableMaintenanceConfigurationValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TableMaintenanceType.to_value x) |>
                    (fun x ->
                       (TableMaintenanceConfigurationValue.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:TableMaintenanceType.of_string
        ~of_json:TableMaintenanceConfigurationValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableBucketMaintenanceConfiguration =
  struct
    type nonrec t =
      (TableBucketMaintenanceType.t *
        TableBucketMaintenanceConfigurationValue.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 ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types TableBucketMaintenanceType TableBucketMaintenanceConfigurationValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TableBucketMaintenanceType.to_value x) |>
                    (fun x ->
                       (TableBucketMaintenanceConfigurationValue.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:TableBucketMaintenanceType.of_string
        ~of_json:TableBucketMaintenanceConfigurationValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableMetadata =
  struct
    type nonrec t =
      {
      iceberg: IcebergMetadata.t option
        [@ocaml.doc
          "Contains details about the metadata of an Iceberg table."]}
    let make ?iceberg = fun () -> { iceberg }
    let to_value x =
      structure_to_value
        [("iceberg", (Option.map x.iceberg ~f:IcebergMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iceberg =
        (Option.map ~f:IcebergMetadata.of_xml) (Xml.child xml_arg0 "iceberg") in
      make ?iceberg ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iceberg = field_map json__ "iceberg" IcebergMetadata.of_json in
      make ?iceberg ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about the table metadata."]
module CreateNamespaceRequestNamespaceList =
  struct
    type nonrec t = NamespaceName.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:NamespaceName.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:NamespaceName.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateNamespaceRequestNamespaceList"
        ~of_json:NamespaceName.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateTableMetadataLocationResponse =
  struct
    type nonrec t =
      {
      name: TableName.t option [@ocaml.doc "The name of the table."];
      tableARN: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      namespace: NamespaceList.t option
        [@ocaml.doc "The namespace the table is associated with."];
      versionToken: VersionToken.t option
        [@ocaml.doc "The version token of the table."];
      metadataLocation: MetadataLocation.t option
        [@ocaml.doc "The metadata location of the table."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?tableARN ->
        fun ?namespace ->
          fun ?versionToken ->
            fun ?metadataLocation ->
              fun () ->
                { name; tableARN; namespace; versionToken; metadataLocation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("name", (Option.map x.name ~f:TableName.to_value));
        ("tableARN", (Option.map x.tableARN ~f:TableARN.to_value));
        ("namespace", (Option.map x.namespace ~f:NamespaceList.to_value));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value));
        ("metadataLocation",
          (Option.map x.metadataLocation ~f:MetadataLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadataLocation =
        (Option.map ~f:MetadataLocation.of_xml)
          (Xml.child xml_arg0 "metadataLocation") in
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let namespace =
        (Option.map ~f:NamespaceList.of_xml) (Xml.child xml_arg0 "namespace") in
      let tableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableARN") in
      let name = (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "name") in
      make ?metadataLocation ?versionToken ?namespace ?tableARN ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadataLocation =
        field_map json__ "metadataLocation" MetadataLocation.of_json in
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let namespace = field_map json__ "namespace" NamespaceList.of_json in
      let tableARN = field_map json__ "tableARN" TableARN.of_json in
      let name = field_map json__ "name" TableName.of_json in
      make ?metadataLocation ?versionToken ?namespace ?tableARN ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the metadata location for a table. The metadata location of a table must be an S3 URI that begins with the table's warehouse location. The metadata location for an Apache Iceberg table must end with .metadata.json, or if the metadata file is Gzip-compressed, .metadata.json.gz. Permissions You must have the s3tables:UpdateTableMetadataLocation permission to use this operation."]
module UpdateTableMetadataLocationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t [@ocaml.doc "The namespace of the table."];
      name: TableName.t [@ocaml.doc "The name of the table."];
      versionToken: VersionToken.t
        [@ocaml.doc "The version token of the table."];
      metadataLocation: MetadataLocation.t
        [@ocaml.doc "The new metadata location for the table."]}
    let context_ = "UpdateTableMetadataLocationRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name ->
          fun ~versionToken ->
            fun ~metadataLocation ->
              fun () ->
                {
                  tableBucketARN;
                  namespace;
                  name;
                  versionToken;
                  metadataLocation
                }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)));
        ("versionToken", (Some (VersionToken.to_value x.versionToken)));
        ("metadataLocation",
          (Some (MetadataLocation.to_value x.metadataLocation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadataLocation =
        MetadataLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "metadataLocation") in
      let versionToken =
        VersionToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "versionToken") in
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~metadataLocation ~versionToken ~name ~namespace ~tableBucketARN
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadataLocation =
        field_map_exn json__ "metadataLocation" MetadataLocation.of_json in
      let versionToken =
        field_map_exn json__ "versionToken" VersionToken.of_json in
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~metadataLocation ~versionToken ~name ~namespace ~tableBucketARN
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the metadata location for a table. The metadata location of a table must be an S3 URI that begins with the table's warehouse location. The metadata location for an Apache Iceberg table must end with .metadata.json, or if the metadata file is Gzip-compressed, .metadata.json.gz. Permissions You must have the s3tables:UpdateTableMetadataLocation permission to use this operation."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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 specified user-defined tags from an Amazon S3 Tables resource. You can pass one or more tag keys. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For tables and table buckets, you must have the s3tables:UntagResource permission to use this operation."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon S3 Tables resource that you're removing tags from. The tagged resource can be a table bucket or a table. For a list of all S3 resources that support tagging, see Managing tags for Amazon S3 resources."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The array of tag keys that you're removing from the S3 Tables resource. For more information, see Tagging for cost allocation or attribute-based access control (ABAC)."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.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 =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    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" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified user-defined tags from an Amazon S3 Tables resource. You can pass one or more tag keys. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For tables and table buckets, you must have the s3tables:UntagResource permission to use this operation."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
       "Applies one or more user-defined tags to an Amazon S3 Tables resource or updates existing tags. Each tag is a label consisting of a key and value pair. Tags can help you organize, track costs for, and control access to your resources. You can add up to 50 tags for each S3 resource. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For tables and table buckets, you must have the s3tables:TagResource permission to use this operation."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon S3 Tables resource that you're applying tags to. The tagged resource can be a table bucket or a table. For a list of all S3 resources that support tagging, see Managing tags for Amazon S3 resources."];
      tags: Tags.t
        [@ocaml.doc
          "The user-defined tag that you want to add to the specified S3 Tables resource. For more information, see Tagging for cost allocation or attribute-based access control (ABAC)."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies one or more user-defined tags to an Amazon S3 Tables resource or updates existing tags. Each tag is a label consisting of a key and value pair. Tags can help you organize, track costs for, and control access to your resources. You can add up to 50 tags for each S3 resource. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For tables and table buckets, you must have the s3tables:TagResource permission to use this operation."]
module RenameTableRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The current name of the table."];
      newNamespaceName: NamespaceName.t option
        [@ocaml.doc "The new name for the namespace."];
      newName: TableName.t option [@ocaml.doc "The new name for the table."];
      versionToken: VersionToken.t option
        [@ocaml.doc "The version token of the table."]}
    let context_ = "RenameTableRequest"
    let make ?newNamespaceName =
      fun ?newName ->
        fun ?versionToken ->
          fun ~tableBucketARN ->
            fun ~namespace ->
              fun ~name ->
                fun () ->
                  {
                    newNamespaceName;
                    newName;
                    versionToken;
                    tableBucketARN;
                    namespace;
                    name
                  }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)));
        ("newNamespaceName",
          (Option.map x.newNamespaceName ~f:NamespaceName.to_value));
        ("newName", (Option.map x.newName ~f:TableName.to_value));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let newName =
        (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "newName") in
      let newNamespaceName =
        (Option.map ~f:NamespaceName.of_xml)
          (Xml.child xml_arg0 "newNamespaceName") in
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ?versionToken ?newName ?newNamespaceName ~name ~namespace
        ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let newName = field_map json__ "newName" TableName.of_json in
      let newNamespaceName =
        field_map json__ "newNamespaceName" NamespaceName.of_json in
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ?versionToken ?newName ?newNamespaceName ~name ~namespace
        ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Renames a table or a namespace. For more information, see S3 Tables in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:RenameTable permission to use this operation."]
module PutTableReplicationResponse =
  struct
    type nonrec t =
      {
      versionToken: String_.t option
        [@ocaml.doc
          "A new version token representing the updated replication configuration."];
      status: String_.t option
        [@ocaml.doc "The status of the replication configuration operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?versionToken =
      fun ?status -> fun () -> { versionToken; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("versionToken", (Option.map x.versionToken ~f:String_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let versionToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "versionToken") in
      make ?status ?versionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" String_.of_json in
      let versionToken = field_map json__ "versionToken" String_.of_json in
      make ?status ?versionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the replication configuration for a specific table. This operation allows you to define table-level replication independently of bucket-level replication, providing granular control over which tables are replicated and where. Permissions You must have the s3tables:PutTableReplication permission to use this operation. The IAM role specified in the configuration must have permissions to read from the source table and write to all destination tables. You must also have the following permissions: s3tables:GetTable permission on the source table being replicated. s3tables:CreateTable permission for the destination. s3tables:CreateNamespace permission for the destination. s3tables:GetTableMaintenanceConfig permission for the source table. s3tables:PutTableMaintenanceConfig permission for the destination table. You must have iam:PassRole permission with condition allowing roles to be passed to replication.s3tables.amazonaws.com."]
module PutTableReplicationRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the source table."];
      versionToken: String_.t option
        [@ocaml.doc
          "A version token from a previous GetTableReplication call. Use this token to ensure you're updating the expected version of the configuration."];
      configuration: TableReplicationConfiguration.t
        [@ocaml.doc
          "The replication configuration to apply to the table, including the IAM role and replication rules."]}
    let context_ = "PutTableReplicationRequest"
    let make ?versionToken =
      fun ~tableArn ->
        fun ~configuration ->
          fun () -> { versionToken; tableArn; configuration }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)));
        ("versionToken", (Option.map x.versionToken ~f:String_.to_value));
        ("configuration",
          (Some (TableReplicationConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        TableReplicationConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      let versionToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "versionToken") in
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~configuration ?versionToken ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "configuration"
          TableReplicationConfiguration.of_json in
      let versionToken = field_map json__ "versionToken" String_.of_json in
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~configuration ?versionToken ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the replication configuration for a specific table. This operation allows you to define table-level replication independently of bucket-level replication, providing granular control over which tables are replicated and where. Permissions You must have the s3tables:PutTableReplication permission to use this operation. The IAM role specified in the configuration must have permissions to read from the source table and write to all destination tables. You must also have the following permissions: s3tables:GetTable permission on the source table being replicated. s3tables:CreateTable permission for the destination. s3tables:CreateNamespace permission for the destination. s3tables:GetTableMaintenanceConfig permission for the source table. s3tables:PutTableMaintenanceConfig permission for the destination table. You must have iam:PassRole permission with condition allowing roles to be passed to replication.s3tables.amazonaws.com."]
module PutTableRecordExpirationConfigurationRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      value: TableRecordExpirationConfigurationValue.t
        [@ocaml.doc
          "The record expiration configuration to apply to the table, including the status (enabled or disabled) and retention period in days."]}
    let context_ = "PutTableRecordExpirationConfigurationRequest"
    let make ~tableArn = fun ~value -> fun () -> { tableArn; value }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)));
        ("value",
          (Some (TableRecordExpirationConfigurationValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TableRecordExpirationConfigurationValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~value ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map_exn json__ "value"
          TableRecordExpirationConfigurationValue.of_json in
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~value ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the expiration configuration settings for records in a table, including the status of the configuration. If you enable record expiration for a table, records expire and are automatically removed from the table after the number of days that you specify. Permissions You must have the s3tables:PutTableRecordExpirationConfiguration permission to use this operation."]
module PutTablePolicyRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket that contains the table."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The name of the table."];
      resourcePolicy: ResourcePolicy.t
        [@ocaml.doc "The JSON that defines the policy."]}
    let context_ = "PutTablePolicyRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name ->
          fun ~resourcePolicy ->
            fun () -> { tableBucketARN; namespace; name; resourcePolicy }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)));
        ("resourcePolicy", (Some (ResourcePolicy.to_value x.resourcePolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcePolicy =
        ResourcePolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourcePolicy") in
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~resourcePolicy ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcePolicy =
        field_map_exn json__ "resourcePolicy" ResourcePolicy.of_json in
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~resourcePolicy ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new table policy or replaces an existing table policy for a table. For more information, see Adding a table policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:PutTablePolicy permission to use this operation."]
module PutTableMaintenanceConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table associated with the maintenance configuration."];
      namespace: NamespaceName.t [@ocaml.doc "The namespace of the table."];
      name: TableName.t [@ocaml.doc "The name of the table."];
      type_: TableMaintenanceType.t
        [@ocaml.doc "The type of the maintenance configuration."];
      value: TableMaintenanceConfigurationValue.t
        [@ocaml.doc
          "Defines the values of the maintenance configuration for the table."]}
    let context_ = "PutTableMaintenanceConfigurationRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name ->
          fun ~type_ ->
            fun ~value ->
              fun () -> { tableBucketARN; namespace; name; type_; value }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)));
        ("type", (Some (TableMaintenanceType.to_value x.type_)));
        ("value",
          (Some (TableMaintenanceConfigurationValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TableMaintenanceConfigurationValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let type_ =
        TableMaintenanceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~value ~type_ ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map_exn json__ "value"
          TableMaintenanceConfigurationValue.of_json in
      let type_ = field_map_exn json__ "type" TableMaintenanceType.of_json in
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~value ~type_ ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new maintenance configuration or replaces an existing maintenance configuration for a table. For more information, see S3 Tables maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:PutTableMaintenanceConfiguration permission to use this operation."]
module PutTableBucketStorageClassRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      storageClassConfiguration: StorageClassConfiguration.t
        [@ocaml.doc
          "The storage class configuration to apply to the table bucket. This configuration will serve as the default for new tables created in this bucket."]}
    let context_ = "PutTableBucketStorageClassRequest"
    let make ~tableBucketARN =
      fun ~storageClassConfiguration ->
        fun () -> { tableBucketARN; storageClassConfiguration }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("storageClassConfiguration",
          (Some
             (StorageClassConfiguration.to_value x.storageClassConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClassConfiguration =
        StorageClassConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "storageClassConfiguration") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~storageClassConfiguration ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClassConfiguration =
        field_map_exn json__ "storageClassConfiguration"
          StorageClassConfiguration.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~storageClassConfiguration ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets or updates the storage class configuration for a table bucket. This configuration serves as the default storage class for all new tables created in the bucket, allowing you to optimize storage costs at the bucket level. Permissions You must have the s3tables:PutTableBucketStorageClass permission to use this operation."]
module PutTableBucketReplicationResponse =
  struct
    type nonrec t =
      {
      versionToken: VersionToken.t option
        [@ocaml.doc
          "A new version token representing the updated replication configuration."];
      status: String_.t option
        [@ocaml.doc "The status of the replication configuration operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?versionToken =
      fun ?status -> fun () -> { versionToken; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("versionToken",
           (Option.map x.versionToken ~f:VersionToken.to_value));
        ("status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      make ?status ?versionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" String_.of_json in
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      make ?status ?versionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the replication configuration for a table bucket. This operation defines how tables in the source bucket are replicated to destination buckets. Replication helps ensure data availability and disaster recovery across regions or accounts. Permissions You must have the s3tables:PutTableBucketReplication permission to use this operation. The IAM role specified in the configuration must have permissions to read from the source bucket and write permissions to all destination buckets. You must also have the following permissions: s3tables:GetTable permission on the source table. s3tables:ListTables permission on the bucket containing the table. s3tables:CreateTable permission for the destination. s3tables:CreateNamespace permission for the destination. s3tables:GetTableMaintenanceConfig permission for the source bucket. s3tables:PutTableMaintenanceConfig permission for the destination bucket. You must have iam:PassRole permission with condition allowing roles to be passed to replication.s3tables.amazonaws.com."]
module PutTableBucketReplicationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the source table bucket."];
      versionToken: VersionToken.t option
        [@ocaml.doc
          "A version token from a previous GetTableBucketReplication call. Use this token to ensure you're updating the expected version of the configuration."];
      configuration: TableBucketReplicationConfiguration.t
        [@ocaml.doc
          "The replication configuration to apply, including the IAM role and replication rules."]}
    let context_ = "PutTableBucketReplicationRequest"
    let make ?versionToken =
      fun ~tableBucketARN ->
        fun ~configuration ->
          fun () -> { versionToken; tableBucketARN; configuration }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value));
        ("configuration",
          (Some
             (TableBucketReplicationConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        TableBucketReplicationConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~configuration ?versionToken ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "configuration"
          TableBucketReplicationConfiguration.of_json in
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~configuration ?versionToken ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the replication configuration for a table bucket. This operation defines how tables in the source bucket are replicated to destination buckets. Replication helps ensure data availability and disaster recovery across regions or accounts. Permissions You must have the s3tables:PutTableBucketReplication permission to use this operation. The IAM role specified in the configuration must have permissions to read from the source bucket and write permissions to all destination buckets. You must also have the following permissions: s3tables:GetTable permission on the source table. s3tables:ListTables permission on the bucket containing the table. s3tables:CreateTable permission for the destination. s3tables:CreateNamespace permission for the destination. s3tables:GetTableMaintenanceConfig permission for the source bucket. s3tables:PutTableMaintenanceConfig permission for the destination bucket. You must have iam:PassRole permission with condition allowing roles to be passed to replication.s3tables.amazonaws.com."]
module PutTableBucketPolicyRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      resourcePolicy: ResourcePolicy.t
        [@ocaml.doc "The JSON that defines the policy."]}
    let context_ = "PutTableBucketPolicyRequest"
    let make ~tableBucketARN =
      fun ~resourcePolicy -> fun () -> { tableBucketARN; resourcePolicy }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("resourcePolicy", (Some (ResourcePolicy.to_value x.resourcePolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcePolicy =
        ResourcePolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourcePolicy") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~resourcePolicy ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcePolicy =
        field_map_exn json__ "resourcePolicy" ResourcePolicy.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~resourcePolicy ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new table bucket policy or replaces an existing table bucket policy for a table bucket. For more information, see Adding a table bucket policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:PutTableBucketPolicy permission to use this operation."]
module PutTableBucketMetricsConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "PutTableBucketMetricsConfigurationRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the metrics configuration for a table bucket. Permissions You must have the s3tables:PutTableBucketMetricsConfiguration permission to use this operation."]
module PutTableBucketMaintenanceConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket associated with the maintenance configuration."];
      type_: TableBucketMaintenanceType.t
        [@ocaml.doc "The type of the maintenance configuration."];
      value: TableBucketMaintenanceConfigurationValue.t
        [@ocaml.doc
          "Defines the values of the maintenance configuration for the table bucket."]}
    let context_ = "PutTableBucketMaintenanceConfigurationRequest"
    let make ~tableBucketARN =
      fun ~type_ -> fun ~value -> fun () -> { tableBucketARN; type_; value }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("type", (Some (TableBucketMaintenanceType.to_value x.type_)));
        ("value",
          (Some (TableBucketMaintenanceConfigurationValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TableBucketMaintenanceConfigurationValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let type_ =
        TableBucketMaintenanceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~value ~type_ ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map_exn json__ "value"
          TableBucketMaintenanceConfigurationValue.of_json in
      let type_ =
        field_map_exn json__ "type" TableBucketMaintenanceType.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~value ~type_ ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new maintenance configuration or replaces an existing maintenance configuration for a table bucket. For more information, see Amazon S3 table bucket maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:PutTableBucketMaintenanceConfiguration permission to use this operation."]
module PutTableBucketEncryptionRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      encryptionConfiguration: EncryptionConfiguration.t
        [@ocaml.doc
          "The encryption configuration to apply to the table bucket."]}
    let context_ = "PutTableBucketEncryptionRequest"
    let make ~tableBucketARN =
      fun ~encryptionConfiguration ->
        fun () -> { tableBucketARN; encryptionConfiguration }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("encryptionConfiguration",
          (Some (EncryptionConfiguration.to_value x.encryptionConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        EncryptionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "encryptionConfiguration") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~encryptionConfiguration ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map_exn json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~encryptionConfiguration ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the encryption configuration for a table bucket. Permissions You must have the s3tables:PutTableBucketEncryption permission to use this operation. If you choose SSE-KMS encryption you must grant the S3 Tables maintenance principal access to your KMS key. For more information, see Permissions requirements for S3 Tables SSE-KMS encryption in the Amazon Simple Storage Service User Guide."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "The user-defined tags that are applied to the resource. For more information, see Tagging for cost allocation or attribute-based access control (ABAC)."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the tags applied to a specified Amazon S3 Tables resource. Each tag is a label consisting of a key and value pair. Tags can help you organize, track costs for, and control access to resources. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For tables and table buckets, you must have the s3tables:ListTagsForResource permission to use this operation."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon S3 Tables resource that you want to list tags for. The tagged resource can be a table bucket or a table. For a list of all S3 resources that support tagging, see Managing tags for Amazon S3 resources."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the tags applied to a specified Amazon S3 Tables resource. Each tag is a label consisting of a key and value pair. Tags can help you organize, track costs for, and control access to resources. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For tables and table buckets, you must have the s3tables:ListTagsForResource permission to use this operation."]
module ListTablesResponse =
  struct
    type nonrec t =
      {
      tables: TableSummaryList.t option [@ocaml.doc "A list of tables."];
      continuationToken: NextToken.t option
        [@ocaml.doc
          "You can use this ContinuationToken for pagination of the list results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tables =
      fun ?continuationToken -> fun () -> { tables; continuationToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tables", (Option.map x.tables ~f:TableSummaryList.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let continuationToken =
        (Option.map ~f:NextToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let tables =
        (Option.map ~f:TableSummaryList.of_xml) (Xml.child xml_arg0 "tables") in
      make ?continuationToken ?tables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let continuationToken =
        field_map json__ "continuationToken" NextToken.of_json in
      let tables = field_map json__ "tables" TableSummaryList.of_json in
      make ?continuationToken ?tables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List tables in the given table bucket. For more information, see S3 Tables in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:ListTables permission to use this operation."]
module ListTablesRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t option
        [@ocaml.doc "The namespace of the tables."];
      prefix: ListTablesRequestPrefixString.t option
        [@ocaml.doc "The prefix of the tables."];
      continuationToken: NextToken.t option
        [@ocaml.doc
          "ContinuationToken indicates to Amazon S3 that the list is being continued on this bucket with a token. ContinuationToken is obfuscated and is not a real key. You can use this ContinuationToken for pagination of the list results."];
      maxTables: ListTablesLimit.t option
        [@ocaml.doc "The maximum number of tables to return."]}
    let context_ = "ListTablesRequest"
    let make ?namespace =
      fun ?prefix ->
        fun ?continuationToken ->
          fun ?maxTables ->
            fun ~tableBucketARN ->
              fun () ->
                {
                  namespace;
                  prefix;
                  continuationToken;
                  maxTables;
                  tableBucketARN
                }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Option.map x.namespace ~f:NamespaceName.to_value));
        ("prefix",
          (Option.map x.prefix ~f:ListTablesRequestPrefixString.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:NextToken.to_value));
        ("maxTables", (Option.map x.maxTables ~f:ListTablesLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxTables =
        (Option.map ~f:ListTablesLimit.of_xml)
          (Xml.child xml_arg0 "maxTables") in
      let continuationToken =
        (Option.map ~f:NextToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let prefix =
        (Option.map ~f:ListTablesRequestPrefixString.of_xml)
          (Xml.child xml_arg0 "prefix") in
      let namespace =
        (Option.map ~f:NamespaceName.of_xml) (Xml.child xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ?maxTables ?continuationToken ?prefix ?namespace ~tableBucketARN
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxTables = field_map json__ "maxTables" ListTablesLimit.of_json in
      let continuationToken =
        field_map json__ "continuationToken" NextToken.of_json in
      let prefix =
        field_map json__ "prefix" ListTablesRequestPrefixString.of_json in
      let namespace = field_map json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ?maxTables ?continuationToken ?prefix ?namespace ~tableBucketARN
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List tables in the given table bucket. For more information, see S3 Tables in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:ListTables permission to use this operation."]
module ListTableBucketsResponse =
  struct
    type nonrec t =
      {
      tableBuckets: TableBucketSummaryList.t option
        [@ocaml.doc "A list of table buckets."];
      continuationToken: NextToken.t option
        [@ocaml.doc
          "You can use this ContinuationToken for pagination of the list results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableBuckets =
      fun ?continuationToken -> fun () -> { tableBuckets; continuationToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableBuckets",
           (Option.map x.tableBuckets ~f:TableBucketSummaryList.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let continuationToken =
        (Option.map ~f:NextToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let tableBuckets =
        (Option.map ~f:TableBucketSummaryList.of_xml)
          (Xml.child xml_arg0 "tableBuckets") in
      make ?continuationToken ?tableBuckets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let continuationToken =
        field_map json__ "continuationToken" NextToken.of_json in
      let tableBuckets =
        field_map json__ "tableBuckets" TableBucketSummaryList.of_json in
      make ?continuationToken ?tableBuckets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists table buckets for your account. For more information, see S3 Table buckets in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:ListTableBuckets permission to use this operation."]
module ListTableBucketsRequest =
  struct
    type nonrec t =
      {
      prefix: ListTableBucketsRequestPrefixString.t option
        [@ocaml.doc "The prefix of the table buckets."];
      continuationToken: NextToken.t option
        [@ocaml.doc
          "ContinuationToken indicates to Amazon S3 that the list is being continued on this bucket with a token. ContinuationToken is obfuscated and is not a real key. You can use this ContinuationToken for pagination of the list results."];
      maxBuckets: ListTableBucketsLimit.t option
        [@ocaml.doc
          "The maximum number of table buckets to return in the list."];
      type_: TableBucketType.t option
        [@ocaml.doc "The type of table buckets to filter by in the list."]}
    let make ?prefix =
      fun ?continuationToken ->
        fun ?maxBuckets ->
          fun ?type_ ->
            fun () -> { prefix; continuationToken; maxBuckets; type_ }
    let to_value x =
      structure_to_value
        [("prefix",
           (Option.map x.prefix
              ~f:ListTableBucketsRequestPrefixString.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:NextToken.to_value));
        ("maxBuckets",
          (Option.map x.maxBuckets ~f:ListTableBucketsLimit.to_value));
        ("type", (Option.map x.type_ ~f:TableBucketType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:TableBucketType.of_xml) (Xml.child xml_arg0 "type") in
      let maxBuckets =
        (Option.map ~f:ListTableBucketsLimit.of_xml)
          (Xml.child xml_arg0 "maxBuckets") in
      let continuationToken =
        (Option.map ~f:NextToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let prefix =
        (Option.map ~f:ListTableBucketsRequestPrefixString.of_xml)
          (Xml.child xml_arg0 "prefix") in
      make ?type_ ?maxBuckets ?continuationToken ?prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" TableBucketType.of_json in
      let maxBuckets =
        field_map json__ "maxBuckets" ListTableBucketsLimit.of_json in
      let continuationToken =
        field_map json__ "continuationToken" NextToken.of_json in
      let prefix =
        field_map json__ "prefix" ListTableBucketsRequestPrefixString.of_json in
      make ?type_ ?maxBuckets ?continuationToken ?prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists table buckets for your account. For more information, see S3 Table buckets in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:ListTableBuckets permission to use this operation."]
module ListNamespacesResponse =
  struct
    type nonrec t =
      {
      namespaces: NamespaceSummaryList.t option
        [@ocaml.doc "A list of namespaces."];
      continuationToken: NextToken.t option
        [@ocaml.doc
          "The ContinuationToken for pagination of the list results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?namespaces =
      fun ?continuationToken -> fun () -> { namespaces; continuationToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("namespaces",
           (Option.map x.namespaces ~f:NamespaceSummaryList.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let continuationToken =
        (Option.map ~f:NextToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let namespaces =
        (Option.map ~f:NamespaceSummaryList.of_xml)
          (Xml.child xml_arg0 "namespaces") in
      make ?continuationToken ?namespaces ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let continuationToken =
        field_map json__ "continuationToken" NextToken.of_json in
      let namespaces =
        field_map json__ "namespaces" NamespaceSummaryList.of_json in
      make ?continuationToken ?namespaces ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the namespaces within a table bucket. For more information, see Table namespaces in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:ListNamespaces permission to use this operation."]
module ListNamespacesRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      prefix: ListNamespacesRequestPrefixString.t option
        [@ocaml.doc "The prefix of the namespaces."];
      continuationToken: NextToken.t option
        [@ocaml.doc
          "ContinuationToken indicates to Amazon S3 that the list is being continued on this bucket with a token. ContinuationToken is obfuscated and is not a real key. You can use this ContinuationToken for pagination of the list results."];
      maxNamespaces: ListNamespacesLimit.t option
        [@ocaml.doc
          "The maximum number of namespaces to return in the list."]}
    let context_ = "ListNamespacesRequest"
    let make ?prefix =
      fun ?continuationToken ->
        fun ?maxNamespaces ->
          fun ~tableBucketARN ->
            fun () ->
              { prefix; continuationToken; maxNamespaces; tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("prefix",
          (Option.map x.prefix ~f:ListNamespacesRequestPrefixString.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:NextToken.to_value));
        ("maxNamespaces",
          (Option.map x.maxNamespaces ~f:ListNamespacesLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxNamespaces =
        (Option.map ~f:ListNamespacesLimit.of_xml)
          (Xml.child xml_arg0 "maxNamespaces") in
      let continuationToken =
        (Option.map ~f:NextToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let prefix =
        (Option.map ~f:ListNamespacesRequestPrefixString.of_xml)
          (Xml.child xml_arg0 "prefix") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ?maxNamespaces ?continuationToken ?prefix ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxNamespaces =
        field_map json__ "maxNamespaces" ListNamespacesLimit.of_json in
      let continuationToken =
        field_map json__ "continuationToken" NextToken.of_json in
      let prefix =
        field_map json__ "prefix" ListNamespacesRequestPrefixString.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ?maxNamespaces ?continuationToken ?prefix ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the namespaces within a table bucket. For more information, see Table namespaces in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:ListNamespaces permission to use this operation."]
module GetTableStorageClassResponse =
  struct
    type nonrec t =
      {
      storageClassConfiguration: StorageClassConfiguration.t option
        [@ocaml.doc "The storage class configuration for the table."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?storageClassConfiguration =
      fun () -> { storageClassConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("storageClassConfiguration",
           (Option.map x.storageClassConfiguration
              ~f:StorageClassConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClassConfiguration =
        (Option.map ~f:StorageClassConfiguration.of_xml)
          (Xml.child xml_arg0 "storageClassConfiguration") in
      make ?storageClassConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClassConfiguration =
        field_map json__ "storageClassConfiguration"
          StorageClassConfiguration.of_json in
      make ?storageClassConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the storage class configuration for a specific table. This allows you to view the storage class settings that apply to an individual table, which may differ from the table bucket's default configuration. Permissions You must have the s3tables:GetTableStorageClass permission to use this operation."]
module GetTableStorageClassRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket that contains the table."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The name of the table."]}
    let context_ = "GetTableStorageClassRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the storage class configuration for a specific table. This allows you to view the storage class settings that apply to an individual table, which may differ from the table bucket's default configuration. Permissions You must have the s3tables:GetTableStorageClass permission to use this operation."]
module GetTableResponse =
  struct
    type nonrec t =
      {
      name: TableName.t option [@ocaml.doc "The name of the table."];
      type_: TableType.t option [@ocaml.doc "The type of the table."];
      tableARN: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      namespace: NamespaceList.t option
        [@ocaml.doc "The namespace associated with the table."];
      namespaceId: NamespaceId.t option
        [@ocaml.doc
          "The unique identifier of the namespace containing this table."];
      versionToken: VersionToken.t option
        [@ocaml.doc "The version token of the table."];
      metadataLocation: MetadataLocation.t option
        [@ocaml.doc "The metadata location of the table."];
      warehouseLocation: WarehouseLocation.t option
        [@ocaml.doc "The warehouse location of the table."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the table bucket was created at."];
      createdBy: AccountId.t option
        [@ocaml.doc "The ID of the account that created the table."];
      managedByService: String_.t option
        [@ocaml.doc "The service that manages the table."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the table was last modified on."];
      modifiedBy: AccountId.t option
        [@ocaml.doc "The ID of the account that last modified the table."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The ID of the account that owns the table."];
      format: OpenTableFormat.t option
        [@ocaml.doc "The format of the table."];
      tableBucketId: TableBucketId.t option
        [@ocaml.doc
          "The unique identifier of the table bucket containing this table."];
      managedTableInformation: ManagedTableInformation.t option
        [@ocaml.doc
          "If this table is managed by S3 Tables, contains additional information such as replication details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?type_ ->
        fun ?tableARN ->
          fun ?namespace ->
            fun ?namespaceId ->
              fun ?versionToken ->
                fun ?metadataLocation ->
                  fun ?warehouseLocation ->
                    fun ?createdAt ->
                      fun ?createdBy ->
                        fun ?managedByService ->
                          fun ?modifiedAt ->
                            fun ?modifiedBy ->
                              fun ?ownerAccountId ->
                                fun ?format ->
                                  fun ?tableBucketId ->
                                    fun ?managedTableInformation ->
                                      fun () ->
                                        {
                                          name;
                                          type_;
                                          tableARN;
                                          namespace;
                                          namespaceId;
                                          versionToken;
                                          metadataLocation;
                                          warehouseLocation;
                                          createdAt;
                                          createdBy;
                                          managedByService;
                                          modifiedAt;
                                          modifiedBy;
                                          ownerAccountId;
                                          format;
                                          tableBucketId;
                                          managedTableInformation
                                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("name", (Option.map x.name ~f:TableName.to_value));
        ("type", (Option.map x.type_ ~f:TableType.to_value));
        ("tableARN", (Option.map x.tableARN ~f:TableARN.to_value));
        ("namespace", (Option.map x.namespace ~f:NamespaceList.to_value));
        ("namespaceId", (Option.map x.namespaceId ~f:NamespaceId.to_value));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value));
        ("metadataLocation",
          (Option.map x.metadataLocation ~f:MetadataLocation.to_value));
        ("warehouseLocation",
          (Option.map x.warehouseLocation ~f:WarehouseLocation.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("managedByService",
          (Option.map x.managedByService ~f:String_.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedBy", (Option.map x.modifiedBy ~f:AccountId.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("format", (Option.map x.format ~f:OpenTableFormat.to_value));
        ("tableBucketId",
          (Option.map x.tableBucketId ~f:TableBucketId.to_value));
        ("managedTableInformation",
          (Option.map x.managedTableInformation
             ~f:ManagedTableInformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedTableInformation =
        (Option.map ~f:ManagedTableInformation.of_xml)
          (Xml.child xml_arg0 "managedTableInformation") in
      let tableBucketId =
        (Option.map ~f:TableBucketId.of_xml)
          (Xml.child xml_arg0 "tableBucketId") in
      let format =
        (Option.map ~f:OpenTableFormat.of_xml) (Xml.child xml_arg0 "format") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let modifiedBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "modifiedBy") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let managedByService =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "managedByService") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let warehouseLocation =
        (Option.map ~f:WarehouseLocation.of_xml)
          (Xml.child xml_arg0 "warehouseLocation") in
      let metadataLocation =
        (Option.map ~f:MetadataLocation.of_xml)
          (Xml.child xml_arg0 "metadataLocation") in
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let namespaceId =
        (Option.map ~f:NamespaceId.of_xml) (Xml.child xml_arg0 "namespaceId") in
      let namespace =
        (Option.map ~f:NamespaceList.of_xml) (Xml.child xml_arg0 "namespace") in
      let tableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableARN") in
      let type_ =
        (Option.map ~f:TableType.of_xml) (Xml.child xml_arg0 "type") in
      let name = (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "name") in
      make ?managedTableInformation ?tableBucketId ?format ?ownerAccountId
        ?modifiedBy ?modifiedAt ?managedByService ?createdBy ?createdAt
        ?warehouseLocation ?metadataLocation ?versionToken ?namespaceId
        ?namespace ?tableARN ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedTableInformation =
        field_map json__ "managedTableInformation"
          ManagedTableInformation.of_json in
      let tableBucketId =
        field_map json__ "tableBucketId" TableBucketId.of_json in
      let format = field_map json__ "format" OpenTableFormat.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let modifiedBy = field_map json__ "modifiedBy" AccountId.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let managedByService =
        field_map json__ "managedByService" String_.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let warehouseLocation =
        field_map json__ "warehouseLocation" WarehouseLocation.of_json in
      let metadataLocation =
        field_map json__ "metadataLocation" MetadataLocation.of_json in
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let namespaceId = field_map json__ "namespaceId" NamespaceId.of_json in
      let namespace = field_map json__ "namespace" NamespaceList.of_json in
      let tableARN = field_map json__ "tableARN" TableARN.of_json in
      let type_ = field_map json__ "type" TableType.of_json in
      let name = field_map json__ "name" TableName.of_json in
      make ?managedTableInformation ?tableBucketId ?format ?ownerAccountId
        ?modifiedBy ?modifiedAt ?managedByService ?createdBy ?createdAt
        ?warehouseLocation ?metadataLocation ?versionToken ?namespaceId
        ?namespace ?tableARN ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a table. For more information, see S3 Tables in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTable permission to use this operation."]
module GetTableRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket associated with the table."];
      namespace: NamespaceName.t option
        [@ocaml.doc
          "The name of the namespace the table is associated with."];
      name: TableName.t option [@ocaml.doc "The name of the table."];
      tableArn: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."]}
    let make ?tableBucketARN =
      fun ?namespace ->
        fun ?name ->
          fun ?tableArn ->
            fun () -> { tableBucketARN; namespace; name; tableArn }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Option.map x.tableBucketARN ~f:TableBucketARN.to_value));
        ("namespace", (Option.map x.namespace ~f:NamespaceName.to_value));
        ("name", (Option.map x.name ~f:TableName.to_value));
        ("tableArn", (Option.map x.tableArn ~f:TableARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableArn =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableArn") in
      let name = (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "name") in
      let namespace =
        (Option.map ~f:NamespaceName.of_xml) (Xml.child xml_arg0 "namespace") in
      let tableBucketARN =
        (Option.map ~f:TableBucketARN.of_xml)
          (Xml.child xml_arg0 "tableBucketARN") in
      make ?tableArn ?name ?namespace ?tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableArn = field_map json__ "tableArn" TableARN.of_json in
      let name = field_map json__ "name" TableName.of_json in
      let namespace = field_map json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map json__ "tableBucketARN" TableBucketARN.of_json in
      make ?tableArn ?name ?namespace ?tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a table. For more information, see S3 Tables in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTable permission to use this operation."]
module GetTableReplicationStatusResponse =
  struct
    type nonrec t =
      {
      sourceTableArn: TableARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the source table being replicated."];
      destinations: ReplicationDestinationStatuses.t option
        [@ocaml.doc
          "An array of status information for each replication destination, including the current state, last successful update, and any error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sourceTableArn =
      fun ?destinations -> fun () -> { sourceTableArn; destinations }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("sourceTableArn",
           (Option.map x.sourceTableArn ~f:TableARN.to_value));
        ("destinations",
          (Option.map x.destinations
             ~f:ReplicationDestinationStatuses.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinations =
        (Option.map ~f:ReplicationDestinationStatuses.of_xml)
          (Xml.child xml_arg0 "destinations") in
      let sourceTableArn =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "sourceTableArn") in
      make ?destinations ?sourceTableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinations =
        field_map json__ "destinations"
          ReplicationDestinationStatuses.of_json in
      let sourceTableArn = field_map json__ "sourceTableArn" TableARN.of_json in
      make ?destinations ?sourceTableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication status for a table, including the status of replication to each destination. This operation provides visibility into replication health and progress. Permissions You must have the s3tables:GetTableReplicationStatus permission to use this operation."]
module GetTableReplicationStatusRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."]}
    let context_ = "GetTableReplicationStatusRequest"
    let make ~tableArn = fun () -> { tableArn }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication status for a table, including the status of replication to each destination. This operation provides visibility into replication health and progress. Permissions You must have the s3tables:GetTableReplicationStatus permission to use this operation."]
module GetTableReplicationResponse =
  struct
    type nonrec t =
      {
      versionToken: String_.t option
        [@ocaml.doc
          "A version token that represents the current state of the table's replication configuration. Use this token when updating the configuration to ensure consistency."];
      configuration: TableReplicationConfiguration.t option
        [@ocaml.doc
          "The replication configuration for the table, including the IAM role and replication rules."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?versionToken =
      fun ?configuration -> fun () -> { versionToken; configuration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("versionToken", (Option.map x.versionToken ~f:String_.to_value));
        ("configuration",
          (Option.map x.configuration
             ~f:TableReplicationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:TableReplicationConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let versionToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "versionToken") in
      make ?configuration ?versionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration"
          TableReplicationConfiguration.of_json in
      let versionToken = field_map json__ "versionToken" String_.of_json in
      make ?configuration ?versionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication configuration for a specific table. Permissions You must have the s3tables:GetTableReplication permission to use this operation."]
module GetTableReplicationRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."]}
    let context_ = "GetTableReplicationRequest"
    let make ~tableArn = fun () -> { tableArn }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication configuration for a specific table. Permissions You must have the s3tables:GetTableReplication permission to use this operation."]
module GetTableRecordExpirationJobStatusResponse =
  struct
    type nonrec t =
      {
      status: TableRecordExpirationJobStatus.t option
        [@ocaml.doc "The current status of the most recent expiration job."];
      lastRunTimestamp: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the expiration job was last executed."];
      failureMessage: String_.t option
        [@ocaml.doc
          "If the job failed, this field contains an error message describing the failure reason."];
      metrics: TableRecordExpirationJobMetrics.t option
        [@ocaml.doc
          "Metrics about the most recent expiration job execution, including the number of records and files deleted."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `MethodNotAllowedException of MethodNotAllowedException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?lastRunTimestamp ->
        fun ?failureMessage ->
          fun ?metrics ->
            fun () -> { status; lastRunTimestamp; failureMessage; metrics }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "MethodNotAllowedException" ->
          `MethodNotAllowedException (MethodNotAllowedException.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)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "MethodNotAllowedException" ->
          `MethodNotAllowedException (MethodNotAllowedException.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))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `MethodNotAllowedException e ->
          `Assoc
            [("error", (`String "MethodNotAllowedException"));
            ("details", (MethodNotAllowedException.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
        [("status",
           (Option.map x.status ~f:TableRecordExpirationJobStatus.to_value));
        ("lastRunTimestamp",
          (Option.map x.lastRunTimestamp
             ~f:SyntheticTimestamp_date_time.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value));
        ("metrics",
          (Option.map x.metrics ~f:TableRecordExpirationJobMetrics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metrics =
        (Option.map ~f:TableRecordExpirationJobMetrics.of_xml)
          (Xml.child xml_arg0 "metrics") in
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let lastRunTimestamp =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastRunTimestamp") in
      let status =
        (Option.map ~f:TableRecordExpirationJobStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?metrics ?failureMessage ?lastRunTimestamp ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metrics =
        field_map json__ "metrics" TableRecordExpirationJobMetrics.of_json in
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let lastRunTimestamp =
        field_map json__ "lastRunTimestamp"
          SyntheticTimestamp_date_time.of_json in
      let status =
        field_map json__ "status" TableRecordExpirationJobStatus.of_json in
      make ?metrics ?failureMessage ?lastRunTimestamp ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status, metrics, and details of the latest record expiration job for a table. This includes when the job ran, and whether it succeeded or failed. If the job ran successfully, this also includes statistics about the records that were removed. Permissions You must have the s3tables:GetTableRecordExpirationJobStatus permission to use this operation."]
module GetTableRecordExpirationJobStatusRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."]}
    let context_ = "GetTableRecordExpirationJobStatusRequest"
    let make ~tableArn = fun () -> { tableArn }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status, metrics, and details of the latest record expiration job for a table. This includes when the job ran, and whether it succeeded or failed. If the job ran successfully, this also includes statistics about the records that were removed. Permissions You must have the s3tables:GetTableRecordExpirationJobStatus permission to use this operation."]
module GetTableRecordExpirationConfigurationResponse =
  struct
    type nonrec t =
      {
      configuration: TableRecordExpirationConfigurationValue.t option
        [@ocaml.doc
          "The record expiration configuration for the table, including the status and retention settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `MethodNotAllowedException of MethodNotAllowedException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configuration = fun () -> { configuration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "MethodNotAllowedException" ->
          `MethodNotAllowedException (MethodNotAllowedException.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)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "MethodNotAllowedException" ->
          `MethodNotAllowedException (MethodNotAllowedException.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))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `MethodNotAllowedException e ->
          `Assoc
            [("error", (`String "MethodNotAllowedException"));
            ("details", (MethodNotAllowedException.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
        [("configuration",
           (Option.map x.configuration
              ~f:TableRecordExpirationConfigurationValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:TableRecordExpirationConfigurationValue.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"
          TableRecordExpirationConfigurationValue.of_json in
      make ?configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the expiration configuration settings for records in a table, and the status of the configuration. If the status of the configuration is enabled, records expire and are automatically removed from the table after the specified number of days. Permissions You must have the s3tables:GetTableRecordExpirationConfiguration permission to use this operation."]
module GetTableRecordExpirationConfigurationRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."]}
    let context_ = "GetTableRecordExpirationConfigurationRequest"
    let make ~tableArn = fun () -> { tableArn }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the expiration configuration settings for records in a table, and the status of the configuration. If the status of the configuration is enabled, records expire and are automatically removed from the table after the specified number of days. Permissions You must have the s3tables:GetTableRecordExpirationConfiguration permission to use this operation."]
module GetTablePolicyResponse =
  struct
    type nonrec t =
      {
      resourcePolicy: ResourcePolicy.t option
        [@ocaml.doc "The JSON that defines the policy."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourcePolicy = fun () -> { resourcePolicy }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("resourcePolicy",
           (Option.map x.resourcePolicy ~f:ResourcePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcePolicy =
        (Option.map ~f:ResourcePolicy.of_xml)
          (Xml.child xml_arg0 "resourcePolicy") in
      make ?resourcePolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcePolicy =
        field_map json__ "resourcePolicy" ResourcePolicy.of_json in
      make ?resourcePolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a table policy. For more information, see Viewing a table policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTablePolicy permission to use this operation."]
module GetTablePolicyRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket that contains the table."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The name of the table."]}
    let context_ = "GetTablePolicyRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a table policy. For more information, see Viewing a table policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTablePolicy permission to use this operation."]
module GetTableMetadataLocationResponse =
  struct
    type nonrec t =
      {
      versionToken: VersionToken.t option [@ocaml.doc "The version token."];
      metadataLocation: MetadataLocation.t option
        [@ocaml.doc "The metadata location."];
      warehouseLocation: WarehouseLocation.t option
        [@ocaml.doc "The warehouse location."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?versionToken =
      fun ?metadataLocation ->
        fun ?warehouseLocation ->
          fun () -> { versionToken; metadataLocation; warehouseLocation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("versionToken",
           (Option.map x.versionToken ~f:VersionToken.to_value));
        ("metadataLocation",
          (Option.map x.metadataLocation ~f:MetadataLocation.to_value));
        ("warehouseLocation",
          (Option.map x.warehouseLocation ~f:WarehouseLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let warehouseLocation =
        (Option.map ~f:WarehouseLocation.of_xml)
          (Xml.child xml_arg0 "warehouseLocation") in
      let metadataLocation =
        (Option.map ~f:MetadataLocation.of_xml)
          (Xml.child xml_arg0 "metadataLocation") in
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      make ?warehouseLocation ?metadataLocation ?versionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let warehouseLocation =
        field_map json__ "warehouseLocation" WarehouseLocation.of_json in
      let metadataLocation =
        field_map json__ "metadataLocation" MetadataLocation.of_json in
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      make ?warehouseLocation ?metadataLocation ?versionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the location of the table metadata. Permissions You must have the s3tables:GetTableMetadataLocation permission to use this operation."]
module GetTableMetadataLocationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t [@ocaml.doc "The namespace of the table."];
      name: TableName.t [@ocaml.doc "The name of the table."]}
    let context_ = "GetTableMetadataLocationRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the location of the table metadata. Permissions You must have the s3tables:GetTableMetadataLocation permission to use this operation."]
module GetTableMaintenanceJobStatusResponse =
  struct
    type nonrec t =
      {
      tableARN: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      status: TableMaintenanceJobStatus.t option
        [@ocaml.doc "The status of the maintenance job."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableARN = fun ?status -> fun () -> { tableARN; status }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableARN", (Option.map x.tableARN ~f:TableARN.to_value));
        ("status",
          (Option.map x.status ~f:TableMaintenanceJobStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TableMaintenanceJobStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let tableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableARN") in
      make ?status ?tableARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" TableMaintenanceJobStatus.of_json in
      let tableARN = field_map json__ "tableARN" TableARN.of_json in
      make ?status ?tableARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the status of a maintenance job for a table. For more information, see S3 Tables maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableMaintenanceJobStatus permission to use this operation."]
module GetTableMaintenanceJobStatusRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t
        [@ocaml.doc
          "The name of the namespace the table is associated with."];
      name: TableName.t
        [@ocaml.doc
          "The name of the table containing the maintenance job status you want to check."]}
    let context_ = "GetTableMaintenanceJobStatusRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the status of a maintenance job for a table. For more information, see S3 Tables maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableMaintenanceJobStatus permission to use this operation."]
module GetTableMaintenanceConfigurationResponse =
  struct
    type nonrec t =
      {
      tableARN: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      configuration: TableMaintenanceConfiguration.t option
        [@ocaml.doc
          "Details about the maintenance configuration for the table bucket."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableARN =
      fun ?configuration -> fun () -> { tableARN; configuration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableARN", (Option.map x.tableARN ~f:TableARN.to_value));
        ("configuration",
          (Option.map x.configuration
             ~f:TableMaintenanceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:TableMaintenanceConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let tableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableARN") in
      make ?configuration ?tableARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration"
          TableMaintenanceConfiguration.of_json in
      let tableARN = field_map json__ "tableARN" TableARN.of_json in
      make ?configuration ?tableARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about the maintenance configuration of a table. For more information, see S3 Tables maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableMaintenanceConfiguration permission to use this operation. You must have the s3tables:GetTableData permission to use set the compaction strategy to sort or zorder."]
module GetTableMaintenanceConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The name of the table."]}
    let context_ = "GetTableMaintenanceConfigurationRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about the maintenance configuration of a table. For more information, see S3 Tables maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableMaintenanceConfiguration permission to use this operation. You must have the s3tables:GetTableData permission to use set the compaction strategy to sort or zorder."]
module GetTableEncryptionResponse =
  struct
    type nonrec t =
      {
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc "The encryption configuration for the table."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?encryptionConfiguration = fun () -> { encryptionConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("encryptionConfiguration",
           (Option.map x.encryptionConfiguration
              ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      make ?encryptionConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      make ?encryptionConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the encryption configuration for a table. Permissions You must have the s3tables:GetTableEncryption permission to use this operation."]
module GetTableEncryptionRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket containing the table."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The name of the table."]}
    let context_ = "GetTableEncryptionRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the encryption configuration for a table. Permissions You must have the s3tables:GetTableEncryption permission to use this operation."]
module GetTableBucketStorageClassResponse =
  struct
    type nonrec t =
      {
      storageClassConfiguration: StorageClassConfiguration.t option
        [@ocaml.doc "The storage class configuration for the table bucket."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?storageClassConfiguration =
      fun () -> { storageClassConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("storageClassConfiguration",
           (Option.map x.storageClassConfiguration
              ~f:StorageClassConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageClassConfiguration =
        (Option.map ~f:StorageClassConfiguration.of_xml)
          (Xml.child xml_arg0 "storageClassConfiguration") in
      make ?storageClassConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageClassConfiguration =
        field_map json__ "storageClassConfiguration"
          StorageClassConfiguration.of_json in
      make ?storageClassConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the storage class configuration for a specific table. This allows you to view the storage class settings that apply to an individual table, which may differ from the table bucket's default configuration. Permissions You must have the s3tables:GetTableBucketStorageClass permission to use this operation."]
module GetTableBucketStorageClassRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "GetTableBucketStorageClassRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the storage class configuration for a specific table. This allows you to view the storage class settings that apply to an individual table, which may differ from the table bucket's default configuration. Permissions You must have the s3tables:GetTableBucketStorageClass permission to use this operation."]
module GetTableBucketResponse =
  struct
    type nonrec t =
      {
      arn: TableBucketARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      name: TableBucketName.t option
        [@ocaml.doc "The name of the table bucket"];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The ID of the account that owns the table bucket."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the table bucket was created."];
      tableBucketId: TableBucketId.t option
        [@ocaml.doc "The unique identifier of the table bucket."];
      type_: TableBucketType.t option
        [@ocaml.doc "The type of the table bucket."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?name ->
        fun ?ownerAccountId ->
          fun ?createdAt ->
            fun ?tableBucketId ->
              fun ?type_ ->
                fun () ->
                  {
                    arn;
                    name;
                    ownerAccountId;
                    createdAt;
                    tableBucketId;
                    type_
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("arn", (Option.map x.arn ~f:TableBucketARN.to_value));
        ("name", (Option.map x.name ~f:TableBucketName.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("tableBucketId",
          (Option.map x.tableBucketId ~f:TableBucketId.to_value));
        ("type", (Option.map x.type_ ~f:TableBucketType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:TableBucketType.of_xml) (Xml.child xml_arg0 "type") in
      let tableBucketId =
        (Option.map ~f:TableBucketId.of_xml)
          (Xml.child xml_arg0 "tableBucketId") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let name =
        (Option.map ~f:TableBucketName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:TableBucketARN.of_xml) (Xml.child xml_arg0 "arn") in
      make ?type_ ?tableBucketId ?createdAt ?ownerAccountId ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" TableBucketType.of_json in
      let tableBucketId =
        field_map json__ "tableBucketId" TableBucketId.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let name = field_map json__ "name" TableBucketName.of_json in
      let arn = field_map json__ "arn" TableBucketARN.of_json in
      make ?type_ ?tableBucketId ?createdAt ?ownerAccountId ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details on a table bucket. For more information, see Viewing details about an Amazon S3 table bucket in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableBucket permission to use this operation."]
module GetTableBucketRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "GetTableBucketRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details on a table bucket. For more information, see Viewing details about an Amazon S3 table bucket in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableBucket permission to use this operation."]
module GetTableBucketReplicationResponse =
  struct
    type nonrec t =
      {
      versionToken: VersionToken.t option
        [@ocaml.doc
          "A version token that represents the current state of the replication configuration. Use this token when updating the configuration to ensure consistency."];
      configuration: TableBucketReplicationConfiguration.t option
        [@ocaml.doc
          "The replication configuration for the table bucket, including the IAM role and replication rules."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?versionToken =
      fun ?configuration -> fun () -> { versionToken; configuration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("versionToken",
           (Option.map x.versionToken ~f:VersionToken.to_value));
        ("configuration",
          (Option.map x.configuration
             ~f:TableBucketReplicationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:TableBucketReplicationConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      make ?configuration ?versionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration"
          TableBucketReplicationConfiguration.of_json in
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      make ?configuration ?versionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication configuration for a table bucket.This operation returns the IAM role, versionToken, and replication rules that define how tables in this bucket are replicated to other buckets. Permissions You must have the s3tables:GetTableBucketReplication permission to use this operation."]
module GetTableBucketReplicationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "GetTableBucketReplicationRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication configuration for a table bucket.This operation returns the IAM role, versionToken, and replication rules that define how tables in this bucket are replicated to other buckets. Permissions You must have the s3tables:GetTableBucketReplication permission to use this operation."]
module GetTableBucketPolicyResponse =
  struct
    type nonrec t =
      {
      resourcePolicy: ResourcePolicy.t option
        [@ocaml.doc "The JSON that defines the policy."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourcePolicy = fun () -> { resourcePolicy }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("resourcePolicy",
           (Option.map x.resourcePolicy ~f:ResourcePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcePolicy =
        (Option.map ~f:ResourcePolicy.of_xml)
          (Xml.child xml_arg0 "resourcePolicy") in
      make ?resourcePolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcePolicy =
        field_map json__ "resourcePolicy" ResourcePolicy.of_json in
      make ?resourcePolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a table bucket policy. For more information, see Viewing a table bucket policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableBucketPolicy permission to use this operation."]
module GetTableBucketPolicyRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "GetTableBucketPolicyRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a table bucket policy. For more information, see Viewing a table bucket policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableBucketPolicy permission to use this operation."]
module GetTableBucketMetricsConfigurationResponse =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      id: String_.t option
        [@ocaml.doc "The unique identifier of the metrics configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableBucketARN = fun ?id -> fun () -> { tableBucketARN; id }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableBucketARN",
           (Option.map x.tableBucketARN ~f:TableBucketARN.to_value));
        ("id", (Option.map x.id ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let tableBucketARN =
        (Option.map ~f:TableBucketARN.of_xml)
          (Xml.child xml_arg0 "tableBucketARN") in
      make ?id ?tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" String_.of_json in
      let tableBucketARN =
        field_map json__ "tableBucketARN" TableBucketARN.of_json in
      make ?id ?tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the metrics configuration for a table bucket. Permissions You must have the s3tables:GetTableBucketMetricsConfiguration permission to use this operation."]
module GetTableBucketMetricsConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "GetTableBucketMetricsConfigurationRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the metrics configuration for a table bucket. Permissions You must have the s3tables:GetTableBucketMetricsConfiguration permission to use this operation."]
module GetTableBucketMaintenanceConfigurationResponse =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket associated with the maintenance configuration."];
      configuration: TableBucketMaintenanceConfiguration.t option
        [@ocaml.doc
          "Details about the maintenance configuration for the table bucket."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableBucketARN =
      fun ?configuration -> fun () -> { tableBucketARN; configuration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableBucketARN",
           (Option.map x.tableBucketARN ~f:TableBucketARN.to_value));
        ("configuration",
          (Option.map x.configuration
             ~f:TableBucketMaintenanceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:TableBucketMaintenanceConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let tableBucketARN =
        (Option.map ~f:TableBucketARN.of_xml)
          (Xml.child xml_arg0 "tableBucketARN") in
      make ?configuration ?tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration"
          TableBucketMaintenanceConfiguration.of_json in
      let tableBucketARN =
        field_map json__ "tableBucketARN" TableBucketARN.of_json in
      make ?configuration ?tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a maintenance configuration for a given table bucket. For more information, see Amazon S3 table bucket maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableBucketMaintenanceConfiguration permission to use this operation."]
module GetTableBucketMaintenanceConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket associated with the maintenance configuration."]}
    let context_ = "GetTableBucketMaintenanceConfigurationRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a maintenance configuration for a given table bucket. For more information, see Amazon S3 table bucket maintenance in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetTableBucketMaintenanceConfiguration permission to use this operation."]
module GetTableBucketEncryptionResponse =
  struct
    type nonrec t =
      {
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc "The encryption configuration for the table bucket."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?encryptionConfiguration = fun () -> { encryptionConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("encryptionConfiguration",
           (Option.map x.encryptionConfiguration
              ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      make ?encryptionConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      make ?encryptionConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the encryption configuration for a table bucket. Permissions You must have the s3tables:GetTableBucketEncryption permission to use this operation."]
module GetTableBucketEncryptionRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "GetTableBucketEncryptionRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the encryption configuration for a table bucket. Permissions You must have the s3tables:GetTableBucketEncryption permission to use this operation."]
module GetNamespaceResponse =
  struct
    type nonrec t =
      {
      namespace: NamespaceList.t option
        [@ocaml.doc "The name of the namespace."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the namespace was created at."];
      createdBy: AccountId.t option
        [@ocaml.doc "The ID of the account that created the namespace."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The ID of the account that owns the namespcace."];
      namespaceId: NamespaceId.t option
        [@ocaml.doc "The unique identifier of the namespace."];
      tableBucketId: TableBucketId.t option
        [@ocaml.doc
          "The unique identifier of the table bucket containing this namespace."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?namespace =
      fun ?createdAt ->
        fun ?createdBy ->
          fun ?ownerAccountId ->
            fun ?namespaceId ->
              fun ?tableBucketId ->
                fun () ->
                  {
                    namespace;
                    createdAt;
                    createdBy;
                    ownerAccountId;
                    namespaceId;
                    tableBucketId
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("namespace", (Option.map x.namespace ~f:NamespaceList.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("createdBy", (Option.map x.createdBy ~f:AccountId.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("namespaceId", (Option.map x.namespaceId ~f:NamespaceId.to_value));
        ("tableBucketId",
          (Option.map x.tableBucketId ~f:TableBucketId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketId =
        (Option.map ~f:TableBucketId.of_xml)
          (Xml.child xml_arg0 "tableBucketId") in
      let namespaceId =
        (Option.map ~f:NamespaceId.of_xml) (Xml.child xml_arg0 "namespaceId") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let createdBy =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let namespace =
        (Option.map ~f:NamespaceList.of_xml) (Xml.child xml_arg0 "namespace") in
      make ?tableBucketId ?namespaceId ?ownerAccountId ?createdBy ?createdAt
        ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketId =
        field_map json__ "tableBucketId" TableBucketId.of_json in
      let namespaceId = field_map json__ "namespaceId" NamespaceId.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let createdBy = field_map json__ "createdBy" AccountId.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let namespace = field_map json__ "namespace" NamespaceList.of_json in
      make ?tableBucketId ?namespaceId ?ownerAccountId ?createdBy ?createdAt
        ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a namespace. For more information, see Table namespaces in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetNamespace permission to use this operation."]
module GetNamespaceRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      namespace: NamespaceName.t [@ocaml.doc "The name of the namespace."]}
    let context_ = "GetNamespaceRequest"
    let make ~tableBucketARN =
      fun ~namespace -> fun () -> { tableBucketARN; namespace }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a namespace. For more information, see Table namespaces in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:GetNamespace permission to use this operation."]
module DeleteTableRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket that contains the table."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The name of the table."];
      versionToken: VersionToken.t option
        [@ocaml.doc "The version token of the table."]}
    let context_ = "DeleteTableRequest"
    let make ?versionToken =
      fun ~tableBucketARN ->
        fun ~namespace ->
          fun ~name ->
            fun () -> { versionToken; tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ?versionToken ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ?versionToken ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a table. For more information, see Deleting an Amazon S3 table in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:DeleteTable permission to use this operation."]
module DeleteTableReplicationRequest =
  struct
    type nonrec t =
      {
      tableArn: TableARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      versionToken: String_.t
        [@ocaml.doc
          "A version token from a previous GetTableReplication call. Use this token to ensure you're deleting the expected version of the configuration."]}
    let context_ = "DeleteTableReplicationRequest"
    let make ~tableArn =
      fun ~versionToken -> fun () -> { tableArn; versionToken }
    let to_value x =
      structure_to_value
        [("tableArn", (Some (TableARN.to_value x.tableArn)));
        ("versionToken", (Some (String_.to_value x.versionToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "versionToken") in
      let tableArn =
        TableARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tableArn") in
      make ~versionToken ~tableArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionToken = field_map_exn json__ "versionToken" String_.of_json in
      let tableArn = field_map_exn json__ "tableArn" TableARN.of_json in
      make ~versionToken ~tableArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the replication configuration for a specific table. After deletion, new updates to this table will no longer be replicated to destination tables, though existing replicated copies will remain in destination buckets. Permissions You must have the s3tables:DeleteTableReplication permission to use this operation."]
module DeleteTablePolicyRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket that contains the table."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace associated with the table."];
      name: TableName.t [@ocaml.doc "The table name."]}
    let context_ = "DeleteTablePolicyRequest"
    let make ~tableBucketARN =
      fun ~namespace ->
        fun ~name -> fun () -> { tableBucketARN; namespace; name }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a table policy. For more information, see Deleting a table policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:DeleteTablePolicy permission to use this operation."]
module DeleteTableBucketRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "DeleteTableBucketRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a table bucket. For more information, see Deleting a table bucket in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:DeleteTableBucket permission to use this operation."]
module DeleteTableBucketReplicationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."];
      versionToken: VersionToken.t option
        [@ocaml.doc
          "A version token from a previous GetTableBucketReplication call. Use this token to ensure you're deleting the expected version of the configuration."]}
    let context_ = "DeleteTableBucketReplicationRequest"
    let make ?versionToken =
      fun ~tableBucketARN -> fun () -> { versionToken; tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ?versionToken ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ?versionToken ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the replication configuration for a table bucket. After deletion, new table updates will no longer be replicated to destination buckets, though existing replicated tables will remain in destination buckets. Permissions You must have the s3tables:DeleteTableBucketReplication permission to use this operation."]
module DeleteTableBucketPolicyRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "DeleteTableBucketPolicyRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a table bucket policy. For more information, see Deleting a table bucket policy in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:DeleteTableBucketPolicy permission to use this operation."]
module DeleteTableBucketMetricsConfigurationRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "DeleteTableBucketMetricsConfigurationRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the metrics configuration for a table bucket. Permissions You must have the s3tables:DeleteTableBucketMetricsConfiguration permission to use this operation."]
module DeleteTableBucketEncryptionRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    let context_ = "DeleteTableBucketEncryptionRequest"
    let make ~tableBucketARN = fun () -> { tableBucketARN }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the encryption configuration for a table bucket. Permissions You must have the s3tables:DeleteTableBucketEncryption permission to use this operation."]
module DeleteNamespaceRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket associated with the namespace."];
      namespace: NamespaceName.t [@ocaml.doc "The name of the namespace."]}
    let context_ = "DeleteNamespaceRequest"
    let make ~tableBucketARN =
      fun ~namespace -> fun () -> { tableBucketARN; namespace }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a namespace. For more information, see Delete a namespace in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:DeleteNamespace permission to use this operation."]
module CreateTableResponse =
  struct
    type nonrec t =
      {
      tableARN: TableARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table."];
      versionToken: VersionToken.t option
        [@ocaml.doc "The version token of the table."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableARN =
      fun ?versionToken -> fun () -> { tableARN; versionToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableARN", (Option.map x.tableARN ~f:TableARN.to_value));
        ("versionToken",
          (Option.map x.versionToken ~f:VersionToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionToken =
        (Option.map ~f:VersionToken.of_xml)
          (Xml.child xml_arg0 "versionToken") in
      let tableARN =
        (Option.map ~f:TableARN.of_xml) (Xml.child xml_arg0 "tableARN") in
      make ?versionToken ?tableARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionToken = field_map json__ "versionToken" VersionToken.of_json in
      let tableARN = field_map json__ "tableARN" TableARN.of_json in
      make ?versionToken ?tableARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new table associated with the given namespace in a table bucket. For more information, see Creating an Amazon S3 table in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:CreateTable permission to use this operation. If you use this operation with the optional metadata request parameter you must have the s3tables:PutTableData permission. If you use this operation with the optional encryptionConfiguration request parameter you must have the s3tables:PutTableEncryption permission. If you use this operation with the storageClassConfiguration request parameter, you must have the s3tables:PutTableStorageClass permission. To create a table with tags, you must have the s3tables:TagResource permission in addition to s3tables:CreateTable permission. Additionally, If you choose SSE-KMS encryption you must grant the S3 Tables maintenance principal access to your KMS key. For more information, see Permissions requirements for S3 Tables SSE-KMS encryption."]
module CreateTableRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket to create the table in."];
      namespace: NamespaceName.t
        [@ocaml.doc "The namespace to associated with the table."];
      name: TableName.t [@ocaml.doc "The name for the table."];
      format: OpenTableFormat.t [@ocaml.doc "The format for the table."];
      metadata: TableMetadata.t option
        [@ocaml.doc "The metadata for the table."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "The encryption configuration to use for the table. This configuration specifies the encryption algorithm and, if using SSE-KMS, the KMS key to use for encrypting the table. If you choose SSE-KMS encryption you must grant the S3 Tables maintenance principal access to your KMS key. For more information, see Permissions requirements for S3 Tables SSE-KMS encryption."];
      storageClassConfiguration: StorageClassConfiguration.t option
        [@ocaml.doc
          "The storage class configuration for the table. If not specified, the table inherits the storage class configuration from its table bucket. Specify this parameter to override the bucket's default storage class for this table."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of user-defined tags that you would like to apply to the table that you are creating. A tag is a key-value pair that you apply to your resources. Tags can help you organize, track costs for, and control access to resources. For more information, see Tagging for cost allocation or attribute-based access control (ABAC). You must have the s3tables:TagResource permission in addition to s3tables:CreateTable permission to create a table with tags."]}
    let context_ = "CreateTableRequest"
    let make ?metadata =
      fun ?encryptionConfiguration ->
        fun ?storageClassConfiguration ->
          fun ?tags ->
            fun ~tableBucketARN ->
              fun ~namespace ->
                fun ~name ->
                  fun ~format ->
                    fun () ->
                      {
                        metadata;
                        encryptionConfiguration;
                        storageClassConfiguration;
                        tags;
                        tableBucketARN;
                        namespace;
                        name;
                        format
                      }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace", (Some (NamespaceName.to_value x.namespace)));
        ("name", (Some (TableName.to_value x.name)));
        ("format", (Some (OpenTableFormat.to_value x.format)));
        ("metadata", (Option.map x.metadata ~f:TableMetadata.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("storageClassConfiguration",
          (Option.map x.storageClassConfiguration
             ~f:StorageClassConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let storageClassConfiguration =
        (Option.map ~f:StorageClassConfiguration.of_xml)
          (Xml.child xml_arg0 "storageClassConfiguration") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let metadata =
        (Option.map ~f:TableMetadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let format =
        OpenTableFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "format") in
      let name =
        TableName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        NamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ?tags ?storageClassConfiguration ?encryptionConfiguration
        ?metadata ~format ~name ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let storageClassConfiguration =
        field_map json__ "storageClassConfiguration"
          StorageClassConfiguration.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let metadata = field_map json__ "metadata" TableMetadata.of_json in
      let format = field_map_exn json__ "format" OpenTableFormat.of_json in
      let name = field_map_exn json__ "name" TableName.of_json in
      let namespace = field_map_exn json__ "namespace" NamespaceName.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ?tags ?storageClassConfiguration ?encryptionConfiguration
        ?metadata ~format ~name ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new table associated with the given namespace in a table bucket. For more information, see Creating an Amazon S3 table in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:CreateTable permission to use this operation. If you use this operation with the optional metadata request parameter you must have the s3tables:PutTableData permission. If you use this operation with the optional encryptionConfiguration request parameter you must have the s3tables:PutTableEncryption permission. If you use this operation with the storageClassConfiguration request parameter, you must have the s3tables:PutTableStorageClass permission. To create a table with tags, you must have the s3tables:TagResource permission in addition to s3tables:CreateTable permission. Additionally, If you choose SSE-KMS encryption you must grant the S3 Tables maintenance principal access to your KMS key. For more information, see Permissions requirements for S3 Tables SSE-KMS encryption."]
module CreateTableBucketResponse =
  struct
    type nonrec t =
      {
      arn: TableBucketARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the table bucket."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("arn", (Option.map x.arn ~f:TableBucketARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:TableBucketARN.of_xml) (Xml.child 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 json__ "arn" TableBucketARN.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a table bucket. For more information, see Creating a table bucket in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:CreateTableBucket permission to use this operation. If you use this operation with the optional encryptionConfiguration parameter you must have the s3tables:PutTableBucketEncryption permission. If you use this operation with the storageClassConfiguration request parameter, you must have the s3tables:PutTableBucketStorageClass permission. To create a table bucket with tags, you must have the s3tables:TagResource permission in addition to s3tables:CreateTableBucket permission."]
module CreateTableBucketRequest =
  struct
    type nonrec t =
      {
      name: TableBucketName.t [@ocaml.doc "The name for the table bucket."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "The encryption configuration to use for the table bucket. This configuration specifies the default encryption settings that will be applied to all tables created in this bucket unless overridden at the table level. The configuration includes the encryption algorithm and, if using SSE-KMS, the KMS key to use."];
      storageClassConfiguration: StorageClassConfiguration.t option
        [@ocaml.doc
          "The default storage class configuration for the table bucket. This configuration will be applied to all new tables created in this bucket unless overridden at the table level. If not specified, the service default storage class will be used."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of user-defined tags that you would like to apply to the table bucket that you are creating. A tag is a key-value pair that you apply to your resources. Tags can help you organize and control access to resources. For more information, see Tagging for cost allocation or attribute-based access control (ABAC). You must have the s3tables:TagResource permission in addition to s3tables:CreateTableBucket permisson to create a table bucket with tags."]}
    let context_ = "CreateTableBucketRequest"
    let make ?encryptionConfiguration =
      fun ?storageClassConfiguration ->
        fun ?tags ->
          fun ~name ->
            fun () ->
              {
                encryptionConfiguration;
                storageClassConfiguration;
                tags;
                name
              }
    let to_value x =
      structure_to_value
        [("name", (Some (TableBucketName.to_value x.name)));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("storageClassConfiguration",
          (Option.map x.storageClassConfiguration
             ~f:StorageClassConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let storageClassConfiguration =
        (Option.map ~f:StorageClassConfiguration.of_xml)
          (Xml.child xml_arg0 "storageClassConfiguration") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let name =
        TableBucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?storageClassConfiguration ?encryptionConfiguration ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let storageClassConfiguration =
        field_map json__ "storageClassConfiguration"
          StorageClassConfiguration.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let name = field_map_exn json__ "name" TableBucketName.of_json in
      make ?tags ?storageClassConfiguration ?encryptionConfiguration ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a table bucket. For more information, see Creating a table bucket in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:CreateTableBucket permission to use this operation. If you use this operation with the optional encryptionConfiguration parameter you must have the s3tables:PutTableBucketEncryption permission. If you use this operation with the storageClassConfiguration request parameter, you must have the s3tables:PutTableBucketStorageClass permission. To create a table bucket with tags, you must have the s3tables:TagResource permission in addition to s3tables:CreateTableBucket permission."]
module CreateNamespaceResponse =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket the namespace was created in."];
      namespace: NamespaceList.t option
        [@ocaml.doc "The name of the namespace."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableBucketARN =
      fun ?namespace -> fun () -> { tableBucketARN; namespace }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.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
        [("tableBucketARN",
           (Option.map x.tableBucketARN ~f:TableBucketARN.to_value));
        ("namespace", (Option.map x.namespace ~f:NamespaceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        (Option.map ~f:NamespaceList.of_xml) (Xml.child xml_arg0 "namespace") in
      let tableBucketARN =
        (Option.map ~f:TableBucketARN.of_xml)
          (Xml.child xml_arg0 "tableBucketARN") in
      make ?namespace ?tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map json__ "namespace" NamespaceList.of_json in
      let tableBucketARN =
        field_map json__ "tableBucketARN" TableBucketARN.of_json in
      make ?namespace ?tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a namespace. A namespace is a logical grouping of tables within your table bucket, which you can use to organize tables. For more information, see Create a namespace in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:CreateNamespace permission to use this operation."]
module CreateNamespaceRequest =
  struct
    type nonrec t =
      {
      tableBucketARN: TableBucketARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the table bucket to create the namespace in."];
      namespace: CreateNamespaceRequestNamespaceList.t
        [@ocaml.doc "A name for the namespace."]}
    let context_ = "CreateNamespaceRequest"
    let make ~tableBucketARN =
      fun ~namespace -> fun () -> { tableBucketARN; namespace }
    let to_value x =
      structure_to_value
        [("tableBucketARN",
           (Some (TableBucketARN.to_value x.tableBucketARN)));
        ("namespace",
          (Some (CreateNamespaceRequestNamespaceList.to_value x.namespace)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        CreateNamespaceRequestNamespaceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let tableBucketARN =
        TableBucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tableBucketARN") in
      make ~namespace ~tableBucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace =
        field_map_exn json__ "namespace"
          CreateNamespaceRequestNamespaceList.of_json in
      let tableBucketARN =
        field_map_exn json__ "tableBucketARN" TableBucketARN.of_json in
      make ~namespace ~tableBucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a namespace. A namespace is a logical grouping of tables within your table bucket, which you can use to organize tables. For more information, see Create a namespace in the Amazon Simple Storage Service User Guide. Permissions You must have the s3tables:CreateNamespace permission to use this operation."]