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.s3vectors
let apiVersion = "2025-07-15"
let endpointPrefix = "s3vectors"
let serviceFullName = "Amazon S3 Vectors"
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 Float_ =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module 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 Float32VectorData =
  struct
    type nonrec t = Float_.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:Float_.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:Float_.of_xml)
    let of_json j =
      list_of_json ~kind:"Float32VectorData" ~of_json:Float_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetadataKey =
  struct
    type nonrec t = string
    let context_ = "MetadataKey"
    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:"MetadataKey" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      path: String_.t option
        [@ocaml.doc "A path about the validation exception."];
      message: String_.t option
        [@ocaml.doc "A message about the validation exception."]}
    let make ?path = fun ?message -> fun () -> { path; message }
    let to_value x =
      structure_to_value
        [("path", (Option.map x.path ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let path = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "path") in
      make ?message ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let path = field_map json__ "path" String_.of_json in
      make ?message ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a validation exception."]
module VectorKey =
  struct
    type nonrec t = string
    let context_ = "VectorKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VectorKey" j
    let to_json = simple_to_json to_value
  end
module VectorMetadata =
  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 VectorData =
  struct
    type nonrec t =
      {
      float32: Float32VectorData.t option
        [@ocaml.doc
          "The vector data as 32-bit floating point numbers. The number of elements in this array must exactly match the dimension of the vector index where the operation is being performed."]}
    let make ?float32 = fun () -> { float32 }
    let to_value x =
      structure_to_value
        [("float32", (Option.map x.float32 ~f:Float32VectorData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let float32 =
        (Option.map ~f:Float32VectorData.of_xml)
          (Xml.child xml_arg0 "float32") in
      make ?float32 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let float32 = field_map json__ "float32" Float32VectorData.of_json in
      make ?float32 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The vector data in different formats."]
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module VectorBucketArn =
  struct
    type nonrec t = string
    let context_ = "VectorBucketArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[-a-z0-9]*:s3vectors:[a-z0-9-]+:[0-9]{12}:bucket/[a-z0-9][a-z0-9-.]{1,61}[a-z0-9]");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VectorBucketArn" j
    let to_json = simple_to_json to_value
  end
module VectorBucketName =
  struct
    type nonrec t = string
    let context_ = "VectorBucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VectorBucketName" j
    let to_json = simple_to_json to_value
  end
module IndexArn =
  struct
    type nonrec t = string
    let context_ = "IndexArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[-a-z0-9]*:s3vectors:[a-z0-9-]+:[0-9]{12}:bucket/[a-z0-9][a-z0-9-.]{1,61}[a-z0-9]/index/[a-z0-9][a-z0-9-.]{1,61}[a-z0-9]");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IndexArn" j
    let to_json = simple_to_json to_value
  end
module IndexName =
  struct
    type nonrec t = string
    let context_ = "IndexName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IndexName" j
    let to_json = simple_to_json to_value
  end
module KmsKeyArn =
  struct
    type nonrec t = string
    let context_ = "KmsKeyArn"
    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:"KmsKeyArn" j
    let to_json = simple_to_json to_value
  end
module SseType =
  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 SseType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SseType" j)
    let to_json = simple_to_json to_value
  end
module NonFilterableMetadataKeys =
  struct
    type nonrec t = MetadataKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MetadataKey.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:MetadataKey.of_xml)
    let of_json j =
      list_of_json ~kind:"NonFilterableMetadataKeys"
        ~of_json:MetadataKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.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:ValidationExceptionField.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:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module QueryOutputVector =
  struct
    type nonrec t =
      {
      distance: Float_.t option
        [@ocaml.doc
          "The measure of similarity between the vector in the response and the query vector."];
      key: VectorKey.t option
        [@ocaml.doc
          "The key of the vector in the approximate nearest neighbor search."];
      metadata: VectorMetadata.t option
        [@ocaml.doc "The metadata associated with the vector, if requested."]}
    let make ?distance =
      fun ?key -> fun ?metadata -> fun () -> { distance; key; metadata }
    let to_value x =
      structure_to_value
        [("distance", (Option.map x.distance ~f:Float_.to_value));
        ("key", (Option.map x.key ~f:VectorKey.to_value));
        ("metadata", (Option.map x.metadata ~f:VectorMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:VectorMetadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let key = (Option.map ~f:VectorKey.of_xml) (Xml.child xml_arg0 "key") in
      let distance =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "distance") in
      make ?metadata ?key ?distance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" VectorMetadata.of_json in
      let key = field_map json__ "key" VectorKey.of_json in
      let distance = field_map json__ "distance" Float_.of_json in
      make ?metadata ?key ?distance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The attributes of a vector in the approximate nearest neighbor search."]
module PutInputVector =
  struct
    type nonrec t =
      {
      key: VectorKey.t
        [@ocaml.doc
          "The name of the vector. The key uniquely identifies the vector in a vector index."];
      data: VectorData.t
        [@ocaml.doc
          "The vector data of the vector. Vector dimensions must match the dimension count that's configured for the vector index. For the cosine distance metric, zero vectors (vectors containing all zeros) aren't allowed. For both cosine and euclidean distance metrics, vector data must contain only valid floating-point values. Invalid values such as NaN (Not a Number) or Infinity aren't allowed."];
      metadata: VectorMetadata.t option
        [@ocaml.doc
          "Metadata about the vector. All metadata entries undergo validation to ensure they meet the format requirements for size and data types."]}
    let context_ = "PutInputVector"
    let make ?metadata =
      fun ~key -> fun ~data -> fun () -> { metadata; key; data }
    let to_value x =
      structure_to_value
        [("key", (Some (VectorKey.to_value x.key)));
        ("data", (Some (VectorData.to_value x.data)));
        ("metadata", (Option.map x.metadata ~f:VectorMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:VectorMetadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let data =
        VectorData.of_xml (Xml.child_exn ~context:context_ xml_arg0 "data") in
      let key =
        VectorKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ?metadata ~data ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" VectorMetadata.of_json in
      let data = field_map_exn json__ "data" VectorData.of_json in
      let key = field_map_exn json__ "key" VectorKey.of_json in
      make ?metadata ~data ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The attributes of a vector to add to a vector index."]
module ListOutputVector =
  struct
    type nonrec t =
      {
      key: VectorKey.t option [@ocaml.doc "The name of the vector."];
      data: VectorData.t option [@ocaml.doc "The vector data of the vector."];
      metadata: VectorMetadata.t option
        [@ocaml.doc "Metadata about the vector."]}
    let make ?key =
      fun ?data -> fun ?metadata -> fun () -> { key; data; metadata }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:VectorKey.to_value));
        ("data", (Option.map x.data ~f:VectorData.to_value));
        ("metadata", (Option.map x.metadata ~f:VectorMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:VectorMetadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let data =
        (Option.map ~f:VectorData.of_xml) (Xml.child xml_arg0 "data") in
      let key = (Option.map ~f:VectorKey.of_xml) (Xml.child xml_arg0 "key") in
      make ?metadata ?data ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" VectorMetadata.of_json in
      let data = field_map json__ "data" VectorData.of_json in
      let key = field_map json__ "key" VectorKey.of_json in
      make ?metadata ?data ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The attributes of a vector returned by the ListVectors operation."]
module VectorBucketSummary =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc "The name of the vector bucket."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the vector bucket."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Date and time when the vector bucket was created."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn ->
        fun ?creationTime ->
          fun () -> { vectorBucketName; vectorBucketArn; creationTime }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?creationTime ?vectorBucketArn ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?creationTime ?vectorBucketArn ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a vector bucket."]
module IndexSummary =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index."];
      indexArn: IndexArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the vector index."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Date and time when the vector index was created."]}
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ?creationTime ->
            fun () -> { vectorBucketName; indexName; indexArn; creationTime }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?creationTime ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?creationTime ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a vector index."]
module GetOutputVector =
  struct
    type nonrec t =
      {
      key: VectorKey.t option [@ocaml.doc "The name of the vector."];
      data: VectorData.t option [@ocaml.doc "The vector data of the vector."];
      metadata: VectorMetadata.t option
        [@ocaml.doc "Metadata about the vector."]}
    let make ?key =
      fun ?data -> fun ?metadata -> fun () -> { key; data; metadata }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:VectorKey.to_value));
        ("data", (Option.map x.data ~f:VectorData.to_value));
        ("metadata", (Option.map x.metadata ~f:VectorMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:VectorMetadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let data =
        (Option.map ~f:VectorData.of_xml) (Xml.child xml_arg0 "data") in
      let key = (Option.map ~f:VectorKey.of_xml) (Xml.child xml_arg0 "key") in
      make ?metadata ?data ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" VectorMetadata.of_json in
      let data = field_map json__ "data" VectorData.of_json in
      let key = field_map json__ "key" VectorKey.of_json in
      make ?metadata ?data ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The attributes of a vector returned by the GetVectors operation."]
module EncryptionConfiguration =
  struct
    type nonrec t =
      {
      sseType: SseType.t option
        [@ocaml.doc
          "The server-side encryption type to use for the encryption configuration of the vector bucket. By default, if you don't specify, all new vectors in Amazon S3 vector buckets use server-side encryption with Amazon S3 managed keys (SSE-S3), specifically AES256."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "Amazon Web Services Key Management Service (KMS) customer managed key ID to use for the encryption configuration. This parameter is allowed if and only if sseType is set to aws:kms. To specify the KMS key, you must use the format of the KMS key Amazon Resource Name (ARN). For example, specify Key ARN in the following format: arn:aws:kms:us-east-2:111122223333:key/1234abcd-12ab-34cd-56ef-1234567890ab"]}
    let make ?sseType = fun ?kmsKeyArn -> fun () -> { sseType; kmsKeyArn }
    let to_value x =
      structure_to_value
        [("sseType", (Option.map x.sseType ~f:SseType.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let sseType =
        (Option.map ~f:SseType.of_xml) (Xml.child xml_arg0 "sseType") in
      make ?kmsKeyArn ?sseType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let sseType = field_map json__ "sseType" SseType.of_json in
      make ?kmsKeyArn ?sseType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The encryption configuration for a vector bucket or index. By default, if you don't specify, all new vectors in Amazon S3 vector buckets use server-side encryption with Amazon S3 managed keys (SSE-S3), specifically AES256. You can optionally override bucket level encryption settings, and set a specific encryption configuration for a vector index at the time of index creation."]
module DataType =
  struct
    type nonrec t =
      | Float32 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Float32 -> "float32" | Non_static_id s -> s
    let of_string = function | "float32" -> Float32 | 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 DataType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataType" j)
    let to_json = simple_to_json to_value
  end
module Dimension =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:4096) >>= (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 Dimension" 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 DistanceMetric =
  struct
    type nonrec t =
      | Euclidean 
      | Cosine 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Euclidean -> "euclidean"
      | Cosine -> "cosine"
      | Non_static_id s -> s
    let of_string =
      function
      | "euclidean" -> Euclidean
      | "cosine" -> Cosine
      | 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 DistanceMetric" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DistanceMetric" j)
    let to_json = simple_to_json to_value
  end
module MetadataConfiguration =
  struct
    type nonrec t =
      {
      nonFilterableMetadataKeys: NonFilterableMetadataKeys.t
        [@ocaml.doc
          "Non-filterable metadata keys allow you to enrich vectors with additional context during storage and retrieval. Unlike default metadata keys, these keys can\226\128\153t be used as query filters. Non-filterable metadata keys can be retrieved but can\226\128\153t be searched, queried, or filtered. You can access non-filterable metadata keys of your vectors after finding the vectors. For more information about non-filterable metadata keys, see Vectors and Limitations and restrictions in the Amazon S3 User Guide."]}
    let context_ = "MetadataConfiguration"
    let make ~nonFilterableMetadataKeys =
      fun () -> { nonFilterableMetadataKeys }
    let to_value x =
      structure_to_value
        [("nonFilterableMetadataKeys",
           (Some
              (NonFilterableMetadataKeys.to_value x.nonFilterableMetadataKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nonFilterableMetadataKeys =
        NonFilterableMetadataKeys.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "nonFilterableMetadataKeys") in
      make ~nonFilterableMetadataKeys ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nonFilterableMetadataKeys =
        field_map_exn json__ "nonFilterableMetadataKeys"
          NonFilterableMetadataKeys.of_json in
      make ~nonFilterableMetadataKeys ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata configuration for a vector index."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Access denied."]
module ConflictException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed because a vector bucket name or a vector index name already exists. Vector bucket names must be unique within your Amazon Web Services account for each Amazon Web Services Region. Vector index names must be unique within your vector bucket. Choose a different vector bucket name or vector index name, and try again."]
module InternalServerException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request failed due to an internal server error."]
module NotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because the specified resource can't be found."]
module RequestTimeoutException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request timed out. Retry your request."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The service is unavailable. Wait briefly and retry your request. If it continues to fail, increase your waiting time between retries."]
module TooManyRequestsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc
          "A list of specific validation failures that are encountered during input processing. Each entry in the list contains a path to the field that failed validation and a detailed message that explains why the validation failed. To satisfy multiple constraints, a field can appear multiple times in this list if it failed. You can use the information to identify and fix the specific validation issues in your request."]}
    let make ?message = fun ?fieldList -> fun () -> { message; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested action isn't valid."]
module ResourceARN =
  struct
    type nonrec t = string
    let context_ = "ResourceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"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 TagsMap =
  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 KmsDisabledException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified Amazon Web Services KMS key isn't enabled."]
module KmsInvalidKeyUsageException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected for one of the following reasons: The KeyUsage value of the KMS key is incompatible with the API operation. The encryption algorithm or signing algorithm specified for the operation is incompatible with the type of key material in the KMS key (KeySpec). For more information, see InvalidKeyUsageException in the Amazon Web Services Key Management Service API Reference."]
module KmsInvalidStateException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The key state of the KMS key isn't compatible with the operation. For more information, see KMSInvalidStateException in the Amazon Web Services Key Management Service API Reference."]
module KmsNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The KMS key can't be found."]
module QueryVectorsOutputList =
  struct
    type nonrec t = QueryOutputVector.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:QueryOutputVector.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:QueryOutputVector.of_xml)
    let of_json j =
      list_of_json ~kind:"QueryVectorsOutputList"
        ~of_json:QueryOutputVector.of_json j
    let to_json v = composed_to_json to_value v
  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 TopK =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 TopK" 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 ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your request exceeds a service quota."]
module PutVectorsInputList =
  struct
    type nonrec t = PutInputVector.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (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:PutInputVector.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:PutInputVector.of_xml)
    let of_json j =
      list_of_json ~kind:"PutVectorsInputList"
        ~of_json:PutInputVector.of_json j
    let to_json v = composed_to_json to_value v
  end
module VectorBucketPolicy =
  struct
    type nonrec t = string
    let context_ = "VectorBucketPolicy"
    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:"VectorBucketPolicy" j
    let to_json = simple_to_json to_value
  end
module ListVectorsNextToken =
  struct
    type nonrec t = string
    let context_ = "ListVectorsNextToken"
    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:"ListVectorsNextToken" j
    let to_json = simple_to_json to_value
  end
module ListVectorsOutputList =
  struct
    type nonrec t = ListOutputVector.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:ListOutputVector.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:ListOutputVector.of_xml)
    let of_json j =
      list_of_json ~kind:"ListVectorsOutputList"
        ~of_json:ListOutputVector.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListVectorsMaxResults =
  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 ListVectorsMaxResults" 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 ListVectorsSegmentCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:16) >>= (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 ListVectorsSegmentCount"
           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 ListVectorsSegmentIndex =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:15) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ListVectorsSegmentIndex"
           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 ListVectorBucketsNextToken =
  struct
    type nonrec t = string
    let context_ = "ListVectorBucketsNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ListVectorBucketsNextToken" j
    let to_json = simple_to_json to_value
  end
module ListVectorBucketsOutputList =
  struct
    type nonrec t = VectorBucketSummary.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:VectorBucketSummary.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:VectorBucketSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListVectorBucketsOutputList"
        ~of_json:VectorBucketSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListVectorBucketsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 ListVectorBucketsMaxResults"
           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 ListVectorBucketsPrefix =
  struct
    type nonrec t = string
    let context_ = "ListVectorBucketsPrefix"
    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:"ListVectorBucketsPrefix" j
    let to_json = simple_to_json to_value
  end
module ListIndexesNextToken =
  struct
    type nonrec t = string
    let context_ = "ListIndexesNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ListIndexesNextToken" j
    let to_json = simple_to_json to_value
  end
module ListIndexesOutputList =
  struct
    type nonrec t = IndexSummary.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:IndexSummary.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:IndexSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListIndexesOutputList"
        ~of_json:IndexSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListIndexesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 ListIndexesMaxResults" 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 ListIndexesPrefix =
  struct
    type nonrec t = string
    let context_ = "ListIndexesPrefix"
    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:"ListIndexesPrefix" j
    let to_json = simple_to_json to_value
  end
module GetVectorsOutputList =
  struct
    type nonrec t = GetOutputVector.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:GetOutputVector.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:GetOutputVector.of_xml)
    let of_json j =
      list_of_json ~kind:"GetVectorsOutputList"
        ~of_json:GetOutputVector.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetVectorsInputList =
  struct
    type nonrec t = VectorKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:VectorKey.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:VectorKey.of_xml)
    let of_json j =
      list_of_json ~kind:"GetVectorsInputList" ~of_json:VectorKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module VectorBucket =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc "The name of the vector bucket."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the vector bucket."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Date and time when the vector bucket was created."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc "The encryption configuration for the vector bucket."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn ->
        fun ?creationTime ->
          fun ?encryptionConfiguration ->
            fun () ->
              {
                vectorBucketName;
                vectorBucketArn;
                creationTime;
                encryptionConfiguration
              }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.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
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?encryptionConfiguration ?creationTime ?vectorBucketArn
        ?vectorBucketName ()
    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
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?encryptionConfiguration ?creationTime ?vectorBucketArn
        ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The attributes of a vector bucket."]
module Index =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index."];
      indexArn: IndexArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the vector index."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Date and time when the vector index was created."];
      dataType: DataType.t option
        [@ocaml.doc
          "The data type of the vectors inserted into the vector index."];
      dimension: Dimension.t option
        [@ocaml.doc
          "The number of values in the vectors that are inserted into the vector index."];
      distanceMetric: DistanceMetric.t option
        [@ocaml.doc "The distance metric to be used for similarity search."];
      metadataConfiguration: MetadataConfiguration.t option
        [@ocaml.doc "The metadata configuration for the vector index."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "The encryption configuration for a vector index. By default, if you don't specify, all new vectors in the vector index will use the encryption configuration of the vector bucket."]}
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ?creationTime ->
            fun ?dataType ->
              fun ?dimension ->
                fun ?distanceMetric ->
                  fun ?metadataConfiguration ->
                    fun ?encryptionConfiguration ->
                      fun () ->
                        {
                          vectorBucketName;
                          indexName;
                          indexArn;
                          creationTime;
                          dataType;
                          dimension;
                          distanceMetric;
                          metadataConfiguration;
                          encryptionConfiguration
                        }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("dataType", (Option.map x.dataType ~f:DataType.to_value));
        ("dimension", (Option.map x.dimension ~f:Dimension.to_value));
        ("distanceMetric",
          (Option.map x.distanceMetric ~f:DistanceMetric.to_value));
        ("metadataConfiguration",
          (Option.map x.metadataConfiguration
             ~f:MetadataConfiguration.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
      let metadataConfiguration =
        (Option.map ~f:MetadataConfiguration.of_xml)
          (Xml.child xml_arg0 "metadataConfiguration") in
      let distanceMetric =
        (Option.map ~f:DistanceMetric.of_xml)
          (Xml.child xml_arg0 "distanceMetric") in
      let dimension =
        (Option.map ~f:Dimension.of_xml) (Xml.child xml_arg0 "dimension") in
      let dataType =
        (Option.map ~f:DataType.of_xml) (Xml.child xml_arg0 "dataType") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?encryptionConfiguration ?metadataConfiguration ?distanceMetric
        ?dimension ?dataType ?creationTime ?indexArn ?indexName
        ?vectorBucketName ()
    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
      let metadataConfiguration =
        field_map json__ "metadataConfiguration"
          MetadataConfiguration.of_json in
      let distanceMetric =
        field_map json__ "distanceMetric" DistanceMetric.of_json in
      let dimension = field_map json__ "dimension" Dimension.of_json in
      let dataType = field_map json__ "dataType" DataType.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?encryptionConfiguration ?metadataConfiguration ?distanceMetric
        ?dimension ?dataType ?creationTime ?indexArn ?indexName
        ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The attributes of a vector index."]
module DeleteVectorsInputList =
  struct
    type nonrec t = VectorKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (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:VectorKey.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:VectorKey.of_xml)
    let of_json j =
      list_of_json ~kind:"DeleteVectorsInputList" ~of_json:VectorKey.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 Vectors 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 vector buckets and vector indexes, you must have the s3vectors:UntagResource permission to use this operation."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon S3 Vectors resource that you're removing tags from. The tagged resource can be a vector bucket or a vector index."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The array of tag keys that you're removing from the S3 Vectors resource. For more information, see Tagging for cost allocation or attribute-based access control (ABAC)."]}
    let context_ = "UntagResourceInput"
    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 Vectors 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 vector buckets and vector indexes, you must have the s3vectors:UntagResource permission to use this operation."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 Vectors 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 resource. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For vector buckets and vector indexes, you must have the s3vectors:TagResource permission to use this operation."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon S3 Vectors resource that you're applying tags to. The tagged resource can be a vector bucket or a vector index."];
      tags: TagsMap.t
        [@ocaml.doc
          "The user-defined tag that you want to add to the specified S3 Vectors resource. For more information, see Tagging for cost allocation or attribute-based access control (ABAC)."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceARN.to_value x.resourceArn)));
        ("tags", (Some (TagsMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsMap.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" TagsMap.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 Vectors 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 resource. For a list of S3 resources that support tagging, see Managing tags for Amazon S3 resources. Permissions For vector buckets and vector indexes, you must have the s3vectors:TagResource permission to use this operation."]
module QueryVectorsOutput =
  struct
    type nonrec t =
      {
      vectors: QueryVectorsOutputList.t option
        [@ocaml.doc
          "The vectors in the approximate nearest neighbor search."];
      distanceMetric: DistanceMetric.t option
        [@ocaml.doc
          "The distance metric that was used for the similarity search calculation. This is the same distance metric that was configured for the vector index when it was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `KmsDisabledException of KmsDisabledException.t 
      | `KmsInvalidKeyUsageException of KmsInvalidKeyUsageException.t 
      | `KmsInvalidStateException of KmsInvalidStateException.t 
      | `KmsNotFoundException of KmsNotFoundException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vectors =
      fun ?distanceMetric -> fun () -> { vectors; distanceMetric }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_json json)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_json json)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_json json)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_xml xml)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_xml xml)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_xml xml)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `KmsDisabledException e ->
          `Assoc
            [("error", (`String "KmsDisabledException"));
            ("details", (KmsDisabledException.to_json e))]
      | `KmsInvalidKeyUsageException e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsageException"));
            ("details", (KmsInvalidKeyUsageException.to_json e))]
      | `KmsInvalidStateException e ->
          `Assoc
            [("error", (`String "KmsInvalidStateException"));
            ("details", (KmsInvalidStateException.to_json e))]
      | `KmsNotFoundException e ->
          `Assoc
            [("error", (`String "KmsNotFoundException"));
            ("details", (KmsNotFoundException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vectors",
           (Option.map x.vectors ~f:QueryVectorsOutputList.to_value));
        ("distanceMetric",
          (Option.map x.distanceMetric ~f:DistanceMetric.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let distanceMetric =
        (Option.map ~f:DistanceMetric.of_xml)
          (Xml.child xml_arg0 "distanceMetric") in
      let vectors =
        (Option.map ~f:QueryVectorsOutputList.of_xml)
          (Xml.child xml_arg0 "vectors") in
      make ?distanceMetric ?vectors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let distanceMetric =
        field_map json__ "distanceMetric" DistanceMetric.of_json in
      let vectors = field_map json__ "vectors" QueryVectorsOutputList.of_json in
      make ?distanceMetric ?vectors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Performs an approximate nearest neighbor search query in a vector index using a query vector. By default, it returns the keys of approximate nearest neighbors. You can optionally include the computed distance (between the query vector and each vector in the response), the vector data, and metadata of each vector in the response. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:QueryVectors permission to use this operation. Additional permissions are required based on the request parameters you specify: With only s3vectors:QueryVectors permission, you can retrieve vector keys of approximate nearest neighbors and computed distances between these vectors. This permission is sufficient only when you don't set any metadata filters and don't request vector data or metadata (by keeping the returnMetadata parameter set to false or not specified). If you specify a metadata filter or set returnMetadata to true, you must have both s3vectors:QueryVectors and s3vectors:GetVectors permissions. The request fails with a 403 Forbidden error if you request metadata filtering, vector data, or metadata without the s3vectors:GetVectors permission."]
module QueryVectorsInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index that you want to query."];
      indexArn: IndexArn.t option
        [@ocaml.doc "The ARN of the vector index that you want to query."];
      topK: TopK.t
        [@ocaml.doc "The number of results to return for each query."];
      queryVector: VectorData.t
        [@ocaml.doc
          "The query vector. Ensure that the query vector has the same dimension as the dimension of the vector index that's being queried. For example, if your vector index contains vectors with 384 dimensions, your query vector must also have 384 dimensions."];
      filter: Document.t option
        [@ocaml.doc
          "Metadata filter to apply during the query. For more information about metadata keys, see Metadata filtering in the Amazon S3 User Guide."];
      returnMetadata: Boolean.t option
        [@ocaml.doc
          "Indicates whether to include metadata in the response. The default value is false."];
      returnDistance: Boolean.t option
        [@ocaml.doc
          "Indicates whether to include the computed distance in the response. The default value is false."]}
    let context_ = "QueryVectorsInput"
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ?filter ->
            fun ?returnMetadata ->
              fun ?returnDistance ->
                fun ~topK ->
                  fun ~queryVector ->
                    fun () ->
                      {
                        vectorBucketName;
                        indexName;
                        indexArn;
                        filter;
                        returnMetadata;
                        returnDistance;
                        topK;
                        queryVector
                      }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("topK", (Some (TopK.to_value x.topK)));
        ("queryVector", (Some (VectorData.to_value x.queryVector)));
        ("filter", (Option.map x.filter ~f:Document.to_value));
        ("returnMetadata", (Option.map x.returnMetadata ~f:Boolean.to_value));
        ("returnDistance", (Option.map x.returnDistance ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnDistance =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "returnDistance") in
      let returnMetadata =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "returnMetadata") in
      let filter =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "filter") in
      let queryVector =
        VectorData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "queryVector") in
      let topK =
        TopK.of_xml (Xml.child_exn ~context:context_ xml_arg0 "topK") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?returnDistance ?returnMetadata ?filter ~queryVector ~topK
        ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnDistance = field_map json__ "returnDistance" Boolean.of_json in
      let returnMetadata = field_map json__ "returnMetadata" Boolean.of_json in
      let filter = field_map json__ "filter" Document.of_json in
      let queryVector = field_map_exn json__ "queryVector" VectorData.of_json in
      let topK = field_map_exn json__ "topK" TopK.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?returnDistance ?returnMetadata ?filter ~queryVector ~topK
        ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Performs an approximate nearest neighbor search query in a vector index using a query vector. By default, it returns the keys of approximate nearest neighbors. You can optionally include the computed distance (between the query vector and each vector in the response), the vector data, and metadata of each vector in the response. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:QueryVectors permission to use this operation. Additional permissions are required based on the request parameters you specify: With only s3vectors:QueryVectors permission, you can retrieve vector keys of approximate nearest neighbors and computed distances between these vectors. This permission is sufficient only when you don't set any metadata filters and don't request vector data or metadata (by keeping the returnMetadata parameter set to false or not specified). If you specify a metadata filter or set returnMetadata to true, you must have both s3vectors:QueryVectors and s3vectors:GetVectors permissions. The request fails with a 403 Forbidden error if you request metadata filtering, vector data, or metadata without the s3vectors:GetVectors permission."]
module PutVectorsOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `KmsDisabledException of KmsDisabledException.t 
      | `KmsInvalidKeyUsageException of KmsInvalidKeyUsageException.t 
      | `KmsInvalidStateException of KmsInvalidStateException.t 
      | `KmsNotFoundException of KmsNotFoundException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_json json)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_json json)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_json json)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_xml xml)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_xml xml)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_xml xml)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `KmsDisabledException e ->
          `Assoc
            [("error", (`String "KmsDisabledException"));
            ("details", (KmsDisabledException.to_json e))]
      | `KmsInvalidKeyUsageException e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsageException"));
            ("details", (KmsInvalidKeyUsageException.to_json e))]
      | `KmsInvalidStateException e ->
          `Assoc
            [("error", (`String "KmsInvalidStateException"));
            ("details", (KmsInvalidStateException.to_json e))]
      | `KmsNotFoundException e ->
          `Assoc
            [("error", (`String "KmsNotFoundException"));
            ("details", (KmsNotFoundException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Adds one or more vectors to a vector index. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). For more information about limits, see Limitations and restrictions in the Amazon S3 User Guide. When inserting vector data into your vector index, you must provide the vector data as float32 (32-bit floating point) values. If you pass higher-precision values to an Amazon Web Services SDK, S3 Vectors converts the values to 32-bit floating point before storing them, and GetVectors, ListVectors, and QueryVectors operations return the float32 values. Different Amazon Web Services SDKs may have different default numeric types, so ensure your vectors are properly formatted as float32 values regardless of which SDK you're using. For example, in Python, use numpy.float32 or explicitly cast your values. Permissions You must have the s3vectors:PutVectors permission to use this operation."]
module PutVectorsInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc
          "The name of the vector index where you want to write vectors."];
      indexArn: IndexArn.t option
        [@ocaml.doc
          "The ARN of the vector index where you want to write vectors."];
      vectors: PutVectorsInputList.t
        [@ocaml.doc
          "The vectors to add to a vector index. The number of vectors in a single request must not exceed the resource capacity, otherwise the request will be rejected with the error ServiceUnavailableException with the error message \"Currently unable to handle the request\"."]}
    let context_ = "PutVectorsInput"
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ~vectors ->
            fun () -> { vectorBucketName; indexName; indexArn; vectors }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("vectors", (Some (PutVectorsInputList.to_value x.vectors)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectors =
        PutVectorsInputList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "vectors") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ~vectors ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectors =
        field_map_exn json__ "vectors" PutVectorsInputList.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ~vectors ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more vectors to a vector index. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). For more information about limits, see Limitations and restrictions in the Amazon S3 User Guide. When inserting vector data into your vector index, you must provide the vector data as float32 (32-bit floating point) values. If you pass higher-precision values to an Amazon Web Services SDK, S3 Vectors converts the values to 32-bit floating point before storing them, and GetVectors, ListVectors, and QueryVectors operations return the float32 values. Different Amazon Web Services SDKs may have different default numeric types, so ensure your vectors are properly formatted as float32 values regardless of which SDK you're using. For example, in Python, use numpy.float32 or explicitly cast your values. Permissions You must have the s3vectors:PutVectors permission to use this operation."]
module PutVectorBucketPolicyOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a bucket policy for a vector bucket. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:PutVectorBucketPolicy permission to use this operation."]
module PutVectorBucketPolicyInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc "The name of the vector bucket."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the vector bucket."];
      policy: VectorBucketPolicy.t
        [@ocaml.doc
          "The JSON that defines the policy. For more information about bucket policies for S3 Vectors, see Managing vector bucket policies in the Amazon S3 User Guide."]}
    let context_ = "PutVectorBucketPolicyInput"
    let make ?vectorBucketName =
      fun ?vectorBucketArn ->
        fun ~policy ->
          fun () -> { vectorBucketName; vectorBucketArn; policy }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value));
        ("policy", (Some (VectorBucketPolicy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        VectorBucketPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policy") in
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ~policy ?vectorBucketArn ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "policy" VectorBucketPolicy.of_json in
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ~policy ?vectorBucketArn ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a bucket policy for a vector bucket. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:PutVectorBucketPolicy permission to use this operation."]
module ListVectorsOutput =
  struct
    type nonrec t =
      {
      nextToken: ListVectorsNextToken.t option
        [@ocaml.doc
          "Pagination token to be used in the subsequent request. The field is empty if no further pagination is required."];
      vectors: ListVectorsOutputList.t option
        [@ocaml.doc "Vectors in the current segment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?vectors -> fun () -> { nextToken; vectors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken ~f:ListVectorsNextToken.to_value));
        ("vectors", (Option.map x.vectors ~f:ListVectorsOutputList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectors =
        (Option.map ~f:ListVectorsOutputList.of_xml)
          (Xml.child xml_arg0 "vectors") in
      let nextToken =
        (Option.map ~f:ListVectorsNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?vectors ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectors = field_map json__ "vectors" ListVectorsOutputList.of_json in
      let nextToken =
        field_map json__ "nextToken" ListVectorsNextToken.of_json in
      make ?vectors ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List vectors in the specified vector index. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). ListVectors operations proceed sequentially; however, for faster performance on a large number of vectors in a vector index, applications can request a parallel ListVectors operation by providing the segmentCount and segmentIndex parameters. Permissions You must have the s3vectors:ListVectors permission to use this operation. Additional permissions are required based on the request parameters you specify: With only s3vectors:ListVectors permission, you can list vector keys when returnData and returnMetadata are both set to false or not specified.. If you set returnData or returnMetadata to true, you must have both s3vectors:ListVectors and s3vectors:GetVectors permissions. The request fails with a 403 Forbidden error if you request vector data or metadata without the s3vectors:GetVectors permission."]
module ListVectorsInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc "The name of the vector bucket."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index."];
      indexArn: IndexArn.t option
        [@ocaml.doc "The Amazon resource Name (ARN) of the vector index."];
      maxResults: ListVectorsMaxResults.t option
        [@ocaml.doc
          "The maximum number of vectors to return on a page. If you don't specify maxResults, the ListVectors operation uses a default value of 500. If the processed dataset size exceeds 1 MB before reaching the maxResults value, the operation stops and returns the vectors that are retrieved up to that point, along with a nextToken that you can use in a subsequent request to retrieve the next set of results."];
      nextToken: ListVectorsNextToken.t option
        [@ocaml.doc
          "Pagination token from a previous request. The value of this field is empty for an initial request."];
      segmentCount: ListVectorsSegmentCount.t option
        [@ocaml.doc
          "For a parallel ListVectors request, segmentCount represents the total number of vector segments into which the ListVectors operation will be divided. The value of segmentCount corresponds to the number of application workers that will perform the parallel ListVectors operation. For example, if you want to use four application threads to list vectors in a vector index, specify a segmentCount value of 4. If you specify a segmentCount value of 1, the ListVectors operation will be sequential rather than parallel. If you specify segmentCount, you must also specify segmentIndex."];
      segmentIndex: ListVectorsSegmentIndex.t option
        [@ocaml.doc
          "For a parallel ListVectors request, segmentIndex is the index of the segment from which to list vectors in the current request. It identifies an individual segment to be listed by an application worker. Segment IDs are zero-based, so the first segment is always 0. For example, if you want to use four application threads to list vectors in a vector index, then the first thread specifies a segmentIndex value of 0, the second thread specifies 1, and so on. The value of segmentIndex must be less than the value provided for segmentCount. If you provide segmentIndex, you must also provide segmentCount."];
      returnData: Boolean.t option
        [@ocaml.doc
          "If true, the vector data of each vector will be included in the response. The default value is false."];
      returnMetadata: Boolean.t option
        [@ocaml.doc
          "If true, the metadata associated with each vector will be included in the response. The default value is false."]}
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ?segmentCount ->
                fun ?segmentIndex ->
                  fun ?returnData ->
                    fun ?returnMetadata ->
                      fun () ->
                        {
                          vectorBucketName;
                          indexName;
                          indexArn;
                          maxResults;
                          nextToken;
                          segmentCount;
                          segmentIndex;
                          returnData;
                          returnMetadata
                        }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListVectorsMaxResults.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListVectorsNextToken.to_value));
        ("segmentCount",
          (Option.map x.segmentCount ~f:ListVectorsSegmentCount.to_value));
        ("segmentIndex",
          (Option.map x.segmentIndex ~f:ListVectorsSegmentIndex.to_value));
        ("returnData", (Option.map x.returnData ~f:Boolean.to_value));
        ("returnMetadata", (Option.map x.returnMetadata ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnMetadata =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "returnMetadata") in
      let returnData =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "returnData") in
      let segmentIndex =
        (Option.map ~f:ListVectorsSegmentIndex.of_xml)
          (Xml.child xml_arg0 "segmentIndex") in
      let segmentCount =
        (Option.map ~f:ListVectorsSegmentCount.of_xml)
          (Xml.child xml_arg0 "segmentCount") in
      let nextToken =
        (Option.map ~f:ListVectorsNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListVectorsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?returnMetadata ?returnData ?segmentIndex ?segmentCount ?nextToken
        ?maxResults ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnMetadata = field_map json__ "returnMetadata" Boolean.of_json in
      let returnData = field_map json__ "returnData" Boolean.of_json in
      let segmentIndex =
        field_map json__ "segmentIndex" ListVectorsSegmentIndex.of_json in
      let segmentCount =
        field_map json__ "segmentCount" ListVectorsSegmentCount.of_json in
      let nextToken =
        field_map json__ "nextToken" ListVectorsNextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" ListVectorsMaxResults.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?returnMetadata ?returnData ?segmentIndex ?segmentCount ?nextToken
        ?maxResults ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List vectors in the specified vector index. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). ListVectors operations proceed sequentially; however, for faster performance on a large number of vectors in a vector index, applications can request a parallel ListVectors operation by providing the segmentCount and segmentIndex parameters. Permissions You must have the s3vectors:ListVectors permission to use this operation. Additional permissions are required based on the request parameters you specify: With only s3vectors:ListVectors permission, you can list vector keys when returnData and returnMetadata are both set to false or not specified.. If you set returnData or returnMetadata to true, you must have both s3vectors:ListVectors and s3vectors:GetVectors permissions. The request fails with a 403 Forbidden error if you request vector data or metadata without the s3vectors:GetVectors permission."]
module ListVectorBucketsOutput =
  struct
    type nonrec t =
      {
      nextToken: ListVectorBucketsNextToken.t option
        [@ocaml.doc
          "The element is included in the response when there are more buckets to be listed with pagination."];
      vectorBuckets: ListVectorBucketsOutputList.t option
        [@ocaml.doc "The list of vector buckets owned by the requester."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?vectorBuckets -> fun () -> { nextToken; vectorBuckets }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken ~f:ListVectorBucketsNextToken.to_value));
        ("vectorBuckets",
          (Option.map x.vectorBuckets ~f:ListVectorBucketsOutputList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBuckets =
        (Option.map ~f:ListVectorBucketsOutputList.of_xml)
          (Xml.child xml_arg0 "vectorBuckets") in
      let nextToken =
        (Option.map ~f:ListVectorBucketsNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?vectorBuckets ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBuckets =
        field_map json__ "vectorBuckets" ListVectorBucketsOutputList.of_json in
      let nextToken =
        field_map json__ "nextToken" ListVectorBucketsNextToken.of_json in
      make ?vectorBuckets ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all the vector buckets that are owned by the authenticated sender of the request. Permissions You must have the s3vectors:ListVectorBuckets permission to use this operation."]
module ListVectorBucketsInput =
  struct
    type nonrec t =
      {
      maxResults: ListVectorBucketsMaxResults.t option
        [@ocaml.doc
          "The maximum number of vector buckets to be returned in the response."];
      nextToken: ListVectorBucketsNextToken.t option
        [@ocaml.doc "The previous pagination token."];
      prefix: ListVectorBucketsPrefix.t option
        [@ocaml.doc
          "Limits the response to vector buckets that begin with the specified prefix."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?prefix -> fun () -> { maxResults; nextToken; prefix }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults ~f:ListVectorBucketsMaxResults.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListVectorBucketsNextToken.to_value));
        ("prefix", (Option.map x.prefix ~f:ListVectorBucketsPrefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        (Option.map ~f:ListVectorBucketsPrefix.of_xml)
          (Xml.child xml_arg0 "prefix") in
      let nextToken =
        (Option.map ~f:ListVectorBucketsNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListVectorBucketsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?prefix ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map json__ "prefix" ListVectorBucketsPrefix.of_json in
      let nextToken =
        field_map json__ "nextToken" ListVectorBucketsNextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" ListVectorBucketsMaxResults.of_json in
      make ?prefix ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all the vector buckets that are owned by the authenticated sender of the request. Permissions You must have the s3vectors:ListVectorBuckets permission to use this operation."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagsMap.t option
        [@ocaml.doc
          "The user-defined tags that are applied to the S3 Vectors resource. For more information, see Tagging for cost allocation or attribute-based access control (ABAC)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.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" TagsMap.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 Vectors 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 vector buckets and vector indexes, you must have the s3vectors:ListTagsForResource permission to use this operation."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon S3 Vectors resource that you want to list tags for. The tagged resource can be a vector bucket or a vector index."]}
    let context_ = "ListTagsForResourceInput"
    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 Vectors 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 vector buckets and vector indexes, you must have the s3vectors:ListTagsForResource permission to use this operation."]
module ListIndexesOutput =
  struct
    type nonrec t =
      {
      nextToken: ListIndexesNextToken.t option
        [@ocaml.doc "The next pagination token."];
      indexes: ListIndexesOutputList.t option
        [@ocaml.doc "The attributes of the vector indexes"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?indexes -> fun () -> { nextToken; indexes }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken ~f:ListIndexesNextToken.to_value));
        ("indexes", (Option.map x.indexes ~f:ListIndexesOutputList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexes =
        (Option.map ~f:ListIndexesOutputList.of_xml)
          (Xml.child xml_arg0 "indexes") in
      let nextToken =
        (Option.map ~f:ListIndexesNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?indexes ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexes = field_map json__ "indexes" ListIndexesOutputList.of_json in
      let nextToken =
        field_map json__ "nextToken" ListIndexesNextToken.of_json in
      make ?indexes ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all the vector indexes within the specified vector bucket. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:ListIndexes permission to use this operation."]
module ListIndexesInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector indexes."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc
          "The ARN of the vector bucket that contains the vector indexes."];
      maxResults: ListIndexesMaxResults.t option
        [@ocaml.doc
          "The maximum number of items to be returned in the response."];
      nextToken: ListIndexesNextToken.t option
        [@ocaml.doc "The previous pagination token."];
      prefix: ListIndexesPrefix.t option
        [@ocaml.doc
          "Limits the response to vector indexes that begin with the specified prefix."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ?prefix ->
              fun () ->
                {
                  vectorBucketName;
                  vectorBucketArn;
                  maxResults;
                  nextToken;
                  prefix
                }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListIndexesMaxResults.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:ListIndexesNextToken.to_value));
        ("prefix", (Option.map x.prefix ~f:ListIndexesPrefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        (Option.map ~f:ListIndexesPrefix.of_xml)
          (Xml.child xml_arg0 "prefix") in
      let nextToken =
        (Option.map ~f:ListIndexesNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListIndexesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?prefix ?nextToken ?maxResults ?vectorBucketArn ?vectorBucketName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map json__ "prefix" ListIndexesPrefix.of_json in
      let nextToken =
        field_map json__ "nextToken" ListIndexesNextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" ListIndexesMaxResults.of_json in
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?prefix ?nextToken ?maxResults ?vectorBucketArn ?vectorBucketName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all the vector indexes within the specified vector bucket. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:ListIndexes permission to use this operation."]
module GetVectorsOutput =
  struct
    type nonrec t =
      {
      vectors: GetVectorsOutputList.t option
        [@ocaml.doc "The attributes of the vectors."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `KmsDisabledException of KmsDisabledException.t 
      | `KmsInvalidKeyUsageException of KmsInvalidKeyUsageException.t 
      | `KmsInvalidStateException of KmsInvalidStateException.t 
      | `KmsNotFoundException of KmsNotFoundException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vectors = fun () -> { vectors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_json json)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_json json)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_json json)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_xml xml)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_xml xml)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_xml xml)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `KmsDisabledException e ->
          `Assoc
            [("error", (`String "KmsDisabledException"));
            ("details", (KmsDisabledException.to_json e))]
      | `KmsInvalidKeyUsageException e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsageException"));
            ("details", (KmsInvalidKeyUsageException.to_json e))]
      | `KmsInvalidStateException e ->
          `Assoc
            [("error", (`String "KmsInvalidStateException"));
            ("details", (KmsInvalidStateException.to_json e))]
      | `KmsNotFoundException e ->
          `Assoc
            [("error", (`String "KmsNotFoundException"));
            ("details", (KmsNotFoundException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vectors", (Option.map x.vectors ~f:GetVectorsOutputList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectors =
        (Option.map ~f:GetVectorsOutputList.of_xml)
          (Xml.child xml_arg0 "vectors") in
      make ?vectors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectors = field_map json__ "vectors" GetVectorsOutputList.of_json in
      make ?vectors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns vector attributes. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetVectors permission to use this operation."]
module GetVectorsInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index."];
      indexArn: IndexArn.t option [@ocaml.doc "The ARN of the vector index."];
      keys: GetVectorsInputList.t
        [@ocaml.doc
          "The names of the vectors you want to return attributes for."];
      returnData: Boolean.t option
        [@ocaml.doc
          "Indicates whether to include the vector data in the response. The default value is false."];
      returnMetadata: Boolean.t option
        [@ocaml.doc
          "Indicates whether to include metadata in the response. The default value is false."]}
    let context_ = "GetVectorsInput"
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ?returnData ->
            fun ?returnMetadata ->
              fun ~keys ->
                fun () ->
                  {
                    vectorBucketName;
                    indexName;
                    indexArn;
                    returnData;
                    returnMetadata;
                    keys
                  }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("keys", (Some (GetVectorsInputList.to_value x.keys)));
        ("returnData", (Option.map x.returnData ~f:Boolean.to_value));
        ("returnMetadata", (Option.map x.returnMetadata ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnMetadata =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "returnMetadata") in
      let returnData =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "returnData") in
      let keys =
        GetVectorsInputList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "keys") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?returnMetadata ?returnData ~keys ?indexArn ?indexName
        ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnMetadata = field_map json__ "returnMetadata" Boolean.of_json in
      let returnData = field_map json__ "returnData" Boolean.of_json in
      let keys = field_map_exn json__ "keys" GetVectorsInputList.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?returnMetadata ?returnData ~keys ?indexArn ?indexName
        ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns vector attributes. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetVectors permission to use this operation."]
module GetVectorBucketPolicyOutput =
  struct
    type nonrec t =
      {
      policy: VectorBucketPolicy.t option
        [@ocaml.doc "The JSON that defines the policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun () -> { policy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:VectorBucketPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:VectorBucketPolicy.of_xml)
          (Xml.child xml_arg0 "policy") in
      make ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "policy" VectorBucketPolicy.of_json in
      make ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a vector bucket policy. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetVectorBucketPolicy permission to use this operation."]
module GetVectorBucketPolicyInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc "The name of the vector bucket."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc "The ARN of the vector bucket."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn -> fun () -> { vectorBucketName; vectorBucketArn }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?vectorBucketArn ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?vectorBucketArn ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details about a vector bucket policy. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetVectorBucketPolicy permission to use this operation."]
module GetVectorBucketOutput =
  struct
    type nonrec t =
      {
      vectorBucket: VectorBucket.t option
        [@ocaml.doc "The attributes of the vector bucket."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vectorBucket = fun () -> { vectorBucket }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vectorBucket",
           (Option.map x.vectorBucket ~f:VectorBucket.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBucket =
        (Option.map ~f:VectorBucket.of_xml)
          (Xml.child xml_arg0 "vectorBucket") in
      make ?vectorBucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBucket = field_map json__ "vectorBucket" VectorBucket.of_json in
      make ?vectorBucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns vector bucket attributes. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetVectorBucket permission to use this operation."]
module GetVectorBucketInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket to retrieve information about."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc
          "The ARN of the vector bucket to retrieve information about."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn -> fun () -> { vectorBucketName; vectorBucketArn }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?vectorBucketArn ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?vectorBucketArn ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns vector bucket attributes. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetVectorBucket permission to use this operation."]
module GetIndexOutput =
  struct
    type nonrec t =
      {
      index: Index.t option
        [@ocaml.doc "The attributes of the vector index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?index = fun () -> { index }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("index", (Option.map x.index ~f:Index.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let index = (Option.map ~f:Index.of_xml) (Xml.child xml_arg0 "index") in
      make ?index ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let index = field_map json__ "index" Index.of_json in make ?index ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns vector index attributes. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetIndex permission to use this operation."]
module GetIndexInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index."];
      indexArn: IndexArn.t option [@ocaml.doc "The ARN of the vector index."]}
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn -> fun () -> { vectorBucketName; indexName; indexArn }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns vector index attributes. To specify the vector index, you can either use both the vector bucket name and the vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:GetIndex permission to use this operation."]
module DeleteVectorsOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `KmsDisabledException of KmsDisabledException.t 
      | `KmsInvalidKeyUsageException of KmsInvalidKeyUsageException.t 
      | `KmsInvalidStateException of KmsInvalidStateException.t 
      | `KmsNotFoundException of KmsNotFoundException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_json json)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_json json)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_json json)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "KmsDisabledException" ->
          `KmsDisabledException (KmsDisabledException.of_xml xml)
      | "KmsInvalidKeyUsageException" ->
          `KmsInvalidKeyUsageException
            (KmsInvalidKeyUsageException.of_xml xml)
      | "KmsInvalidStateException" ->
          `KmsInvalidStateException (KmsInvalidStateException.of_xml xml)
      | "KmsNotFoundException" ->
          `KmsNotFoundException (KmsNotFoundException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `KmsDisabledException e ->
          `Assoc
            [("error", (`String "KmsDisabledException"));
            ("details", (KmsDisabledException.to_json e))]
      | `KmsInvalidKeyUsageException e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsageException"));
            ("details", (KmsInvalidKeyUsageException.to_json e))]
      | `KmsInvalidStateException e ->
          `Assoc
            [("error", (`String "KmsInvalidStateException"));
            ("details", (KmsInvalidStateException.to_json e))]
      | `KmsNotFoundException e ->
          `Assoc
            [("error", (`String "KmsNotFoundException"));
            ("details", (KmsNotFoundException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Deletes one or more vectors in a vector index. To specify the vector index, you can either use both the vector bucket name and vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteVectors permission to use this operation."]
module DeleteVectorsInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc
          "The name of the vector index that contains a vector you want to delete."];
      indexArn: IndexArn.t option
        [@ocaml.doc
          "The ARN of the vector index that contains a vector you want to delete."];
      keys: DeleteVectorsInputList.t
        [@ocaml.doc "The keys of the vectors to delete."]}
    let context_ = "DeleteVectorsInput"
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn ->
          fun ~keys ->
            fun () -> { vectorBucketName; indexName; indexArn; keys }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value));
        ("keys", (Some (DeleteVectorsInputList.to_value x.keys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keys =
        DeleteVectorsInputList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "keys") in
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ~keys ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keys = field_map_exn json__ "keys" DeleteVectorsInputList.of_json in
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ~keys ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes one or more vectors in a vector index. To specify the vector index, you can either use both the vector bucket name and vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteVectors permission to use this operation."]
module DeleteVectorBucketPolicyOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Deletes a vector bucket policy. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteVectorBucketPolicy permission to use this operation."]
module DeleteVectorBucketPolicyInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket to delete the policy from."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc
          "The ARN of the vector bucket to delete the policy from."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn -> fun () -> { vectorBucketName; vectorBucketArn }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?vectorBucketArn ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?vectorBucketArn ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a vector bucket policy. To specify the bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteVectorBucketPolicy permission to use this operation."]
module DeleteVectorBucketOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Deletes a vector bucket. All vector indexes in the vector bucket must be deleted before the vector bucket can be deleted. To perform this operation, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteVectorBucket permission to use this operation."]
module DeleteVectorBucketInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc "The name of the vector bucket to delete."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc "The ARN of the vector bucket to delete."]}
    let make ?vectorBucketName =
      fun ?vectorBucketArn -> fun () -> { vectorBucketName; vectorBucketArn }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?vectorBucketArn ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?vectorBucketArn ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a vector bucket. All vector indexes in the vector bucket must be deleted before the vector bucket can be deleted. To perform this operation, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteVectorBucket permission to use this operation."]
module DeleteIndexOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Deletes a vector index. To specify the vector index, you can either use both the vector bucket name and vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteIndex permission to use this operation."]
module DeleteIndexInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket that contains the vector index."];
      indexName: IndexName.t option
        [@ocaml.doc "The name of the vector index to delete."];
      indexArn: IndexArn.t option
        [@ocaml.doc "The ARN of the vector index to delete."]}
    let make ?vectorBucketName =
      fun ?indexName ->
        fun ?indexArn -> fun () -> { vectorBucketName; indexName; indexArn }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("indexName", (Option.map x.indexName ~f:IndexName.to_value));
        ("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      let indexName =
        (Option.map ~f:IndexName.of_xml) (Xml.child xml_arg0 "indexName") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?indexArn ?indexName ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      let indexName = field_map json__ "indexName" IndexName.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?indexArn ?indexName ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a vector index. To specify the vector index, you can either use both the vector bucket name and vector index name, or use the vector index Amazon Resource Name (ARN). Permissions You must have the s3vectors:DeleteIndex permission to use this operation."]
module CreateVectorBucketOutput =
  struct
    type nonrec t =
      {
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created vector bucket."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vectorBucketArn = fun () -> { vectorBucketArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vectorBucketArn",
           (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      make ?vectorBucketArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      make ?vectorBucketArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a vector bucket in the Amazon Web Services Region that you want your bucket to be in. Permissions You must have the s3vectors:CreateVectorBucket permission to use this operation. You must have the s3vectors:TagResource permission in addition to s3vectors:CreateVectorBucket permission to create a vector bucket with tags."]
module CreateVectorBucketInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t
        [@ocaml.doc "The name of the vector bucket to create."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "The encryption configuration for the vector bucket. By default, if you don't specify, all new vectors in Amazon S3 vector buckets use server-side encryption with Amazon S3 managed keys (SSE-S3), specifically AES256."];
      tags: TagsMap.t option
        [@ocaml.doc
          "An array of user-defined tags that you would like to apply to the vector 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 s3vectors:TagResource permission in addition to s3vectors:CreateVectorBucket permission to create a vector bucket with tags."]}
    let context_ = "CreateVectorBucketInput"
    let make ?encryptionConfiguration =
      fun ?tags ->
        fun ~vectorBucketName ->
          fun () -> { encryptionConfiguration; tags; vectorBucketName }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Some (VectorBucketName.to_value x.vectorBucketName)));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let vectorBucketName =
        VectorBucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "vectorBucketName") in
      make ?tags ?encryptionConfiguration ~vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let vectorBucketName =
        field_map_exn json__ "vectorBucketName" VectorBucketName.of_json in
      make ?tags ?encryptionConfiguration ~vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a vector bucket in the Amazon Web Services Region that you want your bucket to be in. Permissions You must have the s3vectors:CreateVectorBucket permission to use this operation. You must have the s3vectors:TagResource permission in addition to s3vectors:CreateVectorBucket permission to create a vector bucket with tags."]
module CreateIndexOutput =
  struct
    type nonrec t =
      {
      indexArn: IndexArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created vector index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `NotFoundException of NotFoundException.t 
      | `RequestTimeoutException of RequestTimeoutException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexArn = fun () -> { indexArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "RequestTimeoutException" ->
          `RequestTimeoutException (RequestTimeoutException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `RequestTimeoutException e ->
          `Assoc
            [("error", (`String "RequestTimeoutException"));
            ("details", (RequestTimeoutException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("indexArn", (Option.map x.indexArn ~f:IndexArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexArn =
        (Option.map ~f:IndexArn.of_xml) (Xml.child xml_arg0 "indexArn") in
      make ?indexArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexArn = field_map json__ "indexArn" IndexArn.of_json in
      make ?indexArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a vector index within a vector bucket. To specify the vector bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:CreateIndex permission to use this operation. You must have the s3vectors:TagResource permission in addition to s3vectors:CreateIndex permission to create a vector index with tags."]
module CreateIndexInput =
  struct
    type nonrec t =
      {
      vectorBucketName: VectorBucketName.t option
        [@ocaml.doc
          "The name of the vector bucket to create the vector index in."];
      vectorBucketArn: VectorBucketArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the vector bucket to create the vector index in."];
      indexName: IndexName.t
        [@ocaml.doc "The name of the vector index to create."];
      dataType: DataType.t
        [@ocaml.doc
          "The data type of the vectors to be inserted into the vector index."];
      dimension: Dimension.t
        [@ocaml.doc
          "The dimensions of the vectors to be inserted into the vector index."];
      distanceMetric: DistanceMetric.t
        [@ocaml.doc "The distance metric to be used for similarity search."];
      metadataConfiguration: MetadataConfiguration.t option
        [@ocaml.doc "The metadata configuration for the vector index."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "The encryption configuration for a vector index. By default, if you don't specify, all new vectors in the vector index will use the encryption configuration of the vector bucket."];
      tags: TagsMap.t option
        [@ocaml.doc
          "An array of user-defined tags that you would like to apply to the vector index that you are creating. A tag is a key-value pair that you apply to your resources. Tags can help you organize, track costs, and control access to resources. For more information, see Tagging for cost allocation or attribute-based access control (ABAC). You must have the s3vectors:TagResource permission in addition to s3vectors:CreateIndex permission to create a vector index with tags."]}
    let context_ = "CreateIndexInput"
    let make ?vectorBucketName =
      fun ?vectorBucketArn ->
        fun ?metadataConfiguration ->
          fun ?encryptionConfiguration ->
            fun ?tags ->
              fun ~indexName ->
                fun ~dataType ->
                  fun ~dimension ->
                    fun ~distanceMetric ->
                      fun () ->
                        {
                          vectorBucketName;
                          vectorBucketArn;
                          metadataConfiguration;
                          encryptionConfiguration;
                          tags;
                          indexName;
                          dataType;
                          dimension;
                          distanceMetric
                        }
    let to_value x =
      structure_to_value
        [("vectorBucketName",
           (Option.map x.vectorBucketName ~f:VectorBucketName.to_value));
        ("vectorBucketArn",
          (Option.map x.vectorBucketArn ~f:VectorBucketArn.to_value));
        ("indexName", (Some (IndexName.to_value x.indexName)));
        ("dataType", (Some (DataType.to_value x.dataType)));
        ("dimension", (Some (Dimension.to_value x.dimension)));
        ("distanceMetric", (Some (DistanceMetric.to_value x.distanceMetric)));
        ("metadataConfiguration",
          (Option.map x.metadataConfiguration
             ~f:MetadataConfiguration.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let metadataConfiguration =
        (Option.map ~f:MetadataConfiguration.of_xml)
          (Xml.child xml_arg0 "metadataConfiguration") in
      let distanceMetric =
        DistanceMetric.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "distanceMetric") in
      let dimension =
        Dimension.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dimension") in
      let dataType =
        DataType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "dataType") in
      let indexName =
        IndexName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "indexName") in
      let vectorBucketArn =
        (Option.map ~f:VectorBucketArn.of_xml)
          (Xml.child xml_arg0 "vectorBucketArn") in
      let vectorBucketName =
        (Option.map ~f:VectorBucketName.of_xml)
          (Xml.child xml_arg0 "vectorBucketName") in
      make ?tags ?encryptionConfiguration ?metadataConfiguration
        ~distanceMetric ~dimension ~dataType ~indexName ?vectorBucketArn
        ?vectorBucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let metadataConfiguration =
        field_map json__ "metadataConfiguration"
          MetadataConfiguration.of_json in
      let distanceMetric =
        field_map_exn json__ "distanceMetric" DistanceMetric.of_json in
      let dimension = field_map_exn json__ "dimension" Dimension.of_json in
      let dataType = field_map_exn json__ "dataType" DataType.of_json in
      let indexName = field_map_exn json__ "indexName" IndexName.of_json in
      let vectorBucketArn =
        field_map json__ "vectorBucketArn" VectorBucketArn.of_json in
      let vectorBucketName =
        field_map json__ "vectorBucketName" VectorBucketName.of_json in
      make ?tags ?encryptionConfiguration ?metadataConfiguration
        ~distanceMetric ~dimension ~dataType ~indexName ?vectorBucketArn
        ?vectorBucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a vector index within a vector bucket. To specify the vector bucket, you must use either the vector bucket name or the vector bucket Amazon Resource Name (ARN). Permissions You must have the s3vectors:CreateIndex permission to use this operation. You must have the s3vectors:TagResource permission in addition to s3vectors:CreateIndex permission to create a vector index with tags."]