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.opensearchserverless
let apiVersion = "2021-11-01"
let endpointPrefix = "aoss"
let serviceFullName = "OpenSearch Service Serverless"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "OpenSearchServerless"
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 TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module CollectionGroupIndexingCapacityValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in ok_or_failwith (check_float_min i ~min:1.); 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 CollectionGroupSearchCapacityValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in ok_or_failwith (check_float_min i ~min:1.); 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 SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    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:"[\\w+\\-]+")));
        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:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"subnet-([0-9a-f]{8}|[0-9a-f]{17})")));
        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:"SubnetId" 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 ServerlessVectorAccelerationStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | ALLOWED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | ALLOWED -> "ALLOWED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "ALLOWED" -> ALLOWED
      | 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 ServerlessVectorAccelerationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ServerlessVectorAccelerationStatus" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key to use in the tag."];
      value: TagValue.t [@ocaml.doc "The value of the tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A map of key-value pairs associated to an OpenSearch Serverless resource."]
module IamFederationGroupAttribute =
  struct
    type nonrec t = string
    let context_ = "iamFederationGroupAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z][A-Za-z0-9_.:/=+\\-@]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"iamFederationGroupAttribute" j
    let to_json = simple_to_json to_value
  end
module IamFederationUserAttribute =
  struct
    type nonrec t = string
    let context_ = "iamFederationUserAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z][A-Za-z0-9_.:/=+\\-@]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"iamFederationUserAttribute" j
    let to_json = simple_to_json to_value
  end
module IamIdentityCenterApplicationArn =
  struct
    type nonrec t = string
    let context_ = "IamIdentityCenterApplicationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-us-gov|aws-cn|aws-iso|aws-iso-b):sso::\\d{12}:application/(sso)?ins-[a-zA-Z0-9-.]{16}/apl-[a-zA-Z0-9]{16}")));
        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:"IamIdentityCenterApplicationArn" j
    let to_json = simple_to_json to_value
  end
module IamIdentityCenterGroupAttribute =
  struct
    type nonrec t =
      | GroupId 
      | GroupName 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GroupId -> "GroupId"
      | GroupName -> "GroupName"
      | Non_static_id s -> s
    let of_string =
      function
      | "GroupId" -> GroupId
      | "GroupName" -> GroupName
      | 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 IamIdentityCenterGroupAttribute"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IamIdentityCenterGroupAttribute" j)
    let to_json = simple_to_json to_value
  end
module IamIdentityCenterInstanceArn =
  struct
    type nonrec t = string
    let context_ = "IamIdentityCenterInstanceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-us-gov|aws-cn|aws-iso|aws-iso-b):sso:::instance/(sso)?ins-[a-zA-Z0-9-.]{16}")));
        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:"IamIdentityCenterInstanceArn" j
    let to_json = simple_to_json to_value
  end
module IamIdentityCenterUserAttribute =
  struct
    type nonrec t =
      | UserId 
      | UserName 
      | Email 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UserId -> "UserId"
      | UserName -> "UserName"
      | Email -> "Email"
      | Non_static_id s -> s
    let of_string =
      function
      | "UserId" -> UserId
      | "UserName" -> UserName
      | "Email" -> Email
      | 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 IamIdentityCenterUserAttribute"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IamIdentityCenterUserAttribute" j)
    let to_json = simple_to_json to_value
  end
module SamlConfigOptionsSessionTimeoutInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:720) >>= (fun () -> check_int_min i ~min:5));
        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 SamlConfigOptionsSessionTimeoutInteger"
           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 OpenSearchServerlessEntityId =
  struct
    type nonrec t = string
    let context_ = "openSearchServerlessEntityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"aws:opensearch:[0-9]{12}:*.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"openSearchServerlessEntityId" j
    let to_json = simple_to_json to_value
  end
module SamlGroupAttribute =
  struct
    type nonrec t = string
    let context_ = "samlGroupAttribute"
    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:".*[\\w+=,.@-]+.*")));
        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:"samlGroupAttribute" j
    let to_json = simple_to_json to_value
  end
module SamlMetadata =
  struct
    type nonrec t = string
    let context_ = "samlMetadata"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:51200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:".*[\\u0009\\u000A\\u000D\\u0020-\\u007E\\u00A1-\\u00FF]+.*")));
        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:"samlMetadata" j
    let to_json = simple_to_json to_value
  end
module SamlUserAttribute =
  struct
    type nonrec t = string
    let context_ = "samlUserAttribute"
    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:".*[\\w+=,.@-]+.*")));
        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:"samlUserAttribute" j
    let to_json = simple_to_json to_value
  end
module IndexingCapacityValue =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:2); 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 IndexingCapacityValue" 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 SearchCapacityValue =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:2); 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 SearchCapacityValue" 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 VpcEndpointId =
  struct
    type nonrec t = string
    let context_ = "VpcEndpointId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"vpce-[0-9a-z]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcEndpointId" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointName =
  struct
    type nonrec t = string
    let context_ = "VpcEndpointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z][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:"VpcEndpointName" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointStatus =
  struct
    type nonrec t =
      | PENDING 
      | DELETING 
      | ACTIVE 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | DELETING -> "DELETING"
      | ACTIVE -> "ACTIVE"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "DELETING" -> DELETING
      | "ACTIVE" -> ACTIVE
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpcEndpointStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VpcEndpointStatus" j)
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module PolicyDescription =
  struct
    type nonrec t = string
    let context_ = "PolicyDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"PolicyDescription" j
    let to_json = simple_to_json to_value
  end
module PolicyName =
  struct
    type nonrec t = string
    let context_ = "PolicyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z][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:"PolicyName" j
    let to_json = simple_to_json to_value
  end
module PolicyVersion =
  struct
    type nonrec t = string
    let context_ = "PolicyVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([0-9a-zA-Z+/]{4})*(([0-9a-zA-Z+/]{2}==)|([0-9a-zA-Z+/]{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:"PolicyVersion" j
    let to_json = simple_to_json to_value
  end
module SecurityPolicyType =
  struct
    type nonrec t =
      | Encryption 
      | Network 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Encryption -> "encryption"
      | Network -> "network"
      | Non_static_id s -> s
    let of_string =
      function
      | "encryption" -> Encryption
      | "network" -> Network
      | 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 SecurityPolicyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SecurityPolicyType" j)
    let to_json = simple_to_json to_value
  end
module ConfigDescription =
  struct
    type nonrec t = string
    let context_ = "ConfigDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"ConfigDescription" j
    let to_json = simple_to_json to_value
  end
module SecurityConfigId =
  struct
    type nonrec t = string
    let context_ = "SecurityConfigId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"SecurityConfigId" j
    let to_json = simple_to_json to_value
  end
module SecurityConfigType =
  struct
    type nonrec t =
      | Saml 
      | Iamidentitycenter 
      | Iamfederation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Saml -> "saml"
      | Iamidentitycenter -> "iamidentitycenter"
      | Iamfederation -> "iamfederation"
      | Non_static_id s -> s
    let of_string =
      function
      | "saml" -> Saml
      | "iamidentitycenter" -> Iamidentitycenter
      | "iamfederation" -> Iamfederation
      | 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 SecurityConfigType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SecurityConfigType" j)
    let to_json = simple_to_json to_value
  end
module LifecyclePolicyType =
  struct
    type nonrec t =
      | Retention 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Retention -> "retention" | Non_static_id s -> s
    let of_string =
      function | "retention" -> Retention | 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 LifecyclePolicyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LifecyclePolicyType" j)
    let to_json = simple_to_json to_value
  end
module CollectionGroupName =
  struct
    type nonrec t = string
    let context_ = "CollectionGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z][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:"CollectionGroupName" j
    let to_json = simple_to_json to_value
  end
module CollectionId =
  struct
    type nonrec t = string
    let context_ = "CollectionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9]{3,40}")));
        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:"CollectionId" j
    let to_json = simple_to_json to_value
  end
module CollectionName =
  struct
    type nonrec t = string
    let context_ = "CollectionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z][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:"CollectionName" j
    let to_json = simple_to_json to_value
  end
module CollectionStatus =
  struct
    type nonrec t =
      | CREATING 
      | UPDATING 
      | DELETING 
      | ACTIVE 
      | FAILED 
      | UPDATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | ACTIVE -> "ACTIVE"
      | FAILED -> "FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "ACTIVE" -> ACTIVE
      | "FAILED" -> FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CollectionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CollectionStatus" j)
    let to_json = simple_to_json to_value
  end
module CollectionGroupCapacityLimits =
  struct
    type nonrec t =
      {
      maxIndexingCapacityInOCU: CollectionGroupIndexingCapacityValue.t option
        [@ocaml.doc
          "The maximum indexing capacity for collections in the group."];
      maxSearchCapacityInOCU: CollectionGroupSearchCapacityValue.t option
        [@ocaml.doc
          "The maximum search capacity for collections in the group."];
      minIndexingCapacityInOCU: CollectionGroupIndexingCapacityValue.t option
        [@ocaml.doc
          "The minimum indexing capacity for collections in the group."];
      minSearchCapacityInOCU: CollectionGroupSearchCapacityValue.t option
        [@ocaml.doc
          "The minimum search capacity for collections in the group."]}
    let make ?maxIndexingCapacityInOCU =
      fun ?maxSearchCapacityInOCU ->
        fun ?minIndexingCapacityInOCU ->
          fun ?minSearchCapacityInOCU ->
            fun () ->
              {
                maxIndexingCapacityInOCU;
                maxSearchCapacityInOCU;
                minIndexingCapacityInOCU;
                minSearchCapacityInOCU
              }
    let to_value x =
      structure_to_value
        [("maxIndexingCapacityInOCU",
           (Option.map x.maxIndexingCapacityInOCU
              ~f:CollectionGroupIndexingCapacityValue.to_value));
        ("maxSearchCapacityInOCU",
          (Option.map x.maxSearchCapacityInOCU
             ~f:CollectionGroupSearchCapacityValue.to_value));
        ("minIndexingCapacityInOCU",
          (Option.map x.minIndexingCapacityInOCU
             ~f:CollectionGroupIndexingCapacityValue.to_value));
        ("minSearchCapacityInOCU",
          (Option.map x.minSearchCapacityInOCU
             ~f:CollectionGroupSearchCapacityValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minSearchCapacityInOCU =
        (Option.map ~f:CollectionGroupSearchCapacityValue.of_xml)
          (Xml.child xml_arg0 "minSearchCapacityInOCU") in
      let minIndexingCapacityInOCU =
        (Option.map ~f:CollectionGroupIndexingCapacityValue.of_xml)
          (Xml.child xml_arg0 "minIndexingCapacityInOCU") in
      let maxSearchCapacityInOCU =
        (Option.map ~f:CollectionGroupSearchCapacityValue.of_xml)
          (Xml.child xml_arg0 "maxSearchCapacityInOCU") in
      let maxIndexingCapacityInOCU =
        (Option.map ~f:CollectionGroupIndexingCapacityValue.of_xml)
          (Xml.child xml_arg0 "maxIndexingCapacityInOCU") in
      make ?minSearchCapacityInOCU ?minIndexingCapacityInOCU
        ?maxSearchCapacityInOCU ?maxIndexingCapacityInOCU ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minSearchCapacityInOCU =
        field_map json__ "minSearchCapacityInOCU"
          CollectionGroupSearchCapacityValue.of_json in
      let minIndexingCapacityInOCU =
        field_map json__ "minIndexingCapacityInOCU"
          CollectionGroupIndexingCapacityValue.of_json in
      let maxSearchCapacityInOCU =
        field_map json__ "maxSearchCapacityInOCU"
          CollectionGroupSearchCapacityValue.of_json in
      let maxIndexingCapacityInOCU =
        field_map json__ "maxIndexingCapacityInOCU"
          CollectionGroupIndexingCapacityValue.of_json in
      make ?minSearchCapacityInOCU ?minIndexingCapacityInOCU
        ?maxSearchCapacityInOCU ?maxIndexingCapacityInOCU ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Capacity limits for a collection group. These limits define the minimum and maximum OpenSearch Compute Units (OCUs) for indexing and search operations that can be used by collections in the group."]
module CollectionGroupId =
  struct
    type nonrec t = string
    let context_ = "CollectionGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9]{3,40}")));
        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:"CollectionGroupId" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AccessPolicyType =
  struct
    type nonrec t =
      | Data 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Data -> "data" | Non_static_id s -> s
    let of_string = function | "data" -> Data | 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 AccessPolicyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccessPolicyType" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupIds =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupIds" ~of_json:SecurityGroupId.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SubnetIds =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (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:SubnetId.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:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetIds" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"vpc-[0-9a-z]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcId" j
    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 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 Resource =
  struct
    type nonrec t = string
    let context_ = "Resource"
    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:"Resource" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t =
      | Index 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Index -> "index" | Non_static_id s -> s
    let of_string = function | "index" -> Index | 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 ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module ResourceName =
  struct
    type nonrec t = string
    let context_ = "ResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"index/[a-z][a-z0-9-]{3,32}/([a-z;0-9&$%][+.~=\\-_a-z;0-9&$%]*)");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceName" j
    let to_json = simple_to_json to_value
  end
module CollectionType =
  struct
    type nonrec t =
      | SEARCH 
      | TIMESERIES 
      | VECTORSEARCH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEARCH -> "SEARCH"
      | TIMESERIES -> "TIMESERIES"
      | VECTORSEARCH -> "VECTORSEARCH"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEARCH" -> SEARCH
      | "TIMESERIES" -> TIMESERIES
      | "VECTORSEARCH" -> VECTORSEARCH
      | 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 CollectionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CollectionType" j)
    let to_json = simple_to_json to_value
  end
module FipsEndpoints =
  struct
    type nonrec t =
      {
      collectionEndpoint: String_.t option
        [@ocaml.doc
          "FIPS-compliant collection endpoint used to submit index, search, and data upload requests to an OpenSearch Serverless collection. This endpoint uses FIPS 140-3 validated cryptography and is required for federal government workloads."];
      dashboardEndpoint: String_.t option
        [@ocaml.doc
          "FIPS-compliant endpoint used to access OpenSearch Dashboards. This endpoint uses FIPS 140-3 validated cryptography and is required for federal government workloads that need dashboard visualization capabilities."]}
    let make ?collectionEndpoint =
      fun ?dashboardEndpoint ->
        fun () -> { collectionEndpoint; dashboardEndpoint }
    let to_value x =
      structure_to_value
        [("collectionEndpoint",
           (Option.map x.collectionEndpoint ~f:String_.to_value));
        ("dashboardEndpoint",
          (Option.map x.dashboardEndpoint ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dashboardEndpoint =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "dashboardEndpoint") in
      let collectionEndpoint =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "collectionEndpoint") in
      make ?dashboardEndpoint ?collectionEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dashboardEndpoint =
        field_map json__ "dashboardEndpoint" String_.of_json in
      let collectionEndpoint =
        field_map json__ "collectionEndpoint" String_.of_json in
      make ?dashboardEndpoint ?collectionEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "FIPS-compliant endpoint URLs for an OpenSearch Serverless collection. These endpoints ensure all data transmission uses FIPS 140-3 validated cryptographic implementations, meeting federal security requirements for government workloads."]
module StandbyReplicas =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StandbyReplicas" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StandbyReplicas" j)
    let to_json = simple_to_json to_value
  end
module VectorOptions =
  struct
    type nonrec t =
      {
      serverlessVectorAcceleration: ServerlessVectorAccelerationStatus.t
        [@ocaml.doc
          "Specifies whether serverless vector acceleration is enabled for the collection."]}
    let context_ = "VectorOptions"
    let make ~serverlessVectorAcceleration =
      fun () -> { serverlessVectorAcceleration }
    let to_value x =
      structure_to_value
        [("ServerlessVectorAcceleration",
           (Some
              (ServerlessVectorAccelerationStatus.to_value
                 x.serverlessVectorAcceleration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverlessVectorAcceleration =
        ServerlessVectorAccelerationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ServerlessVectorAcceleration") in
      make ~serverlessVectorAcceleration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverlessVectorAcceleration =
        field_map_exn json__ "ServerlessVectorAcceleration"
          ServerlessVectorAccelerationStatus.of_json in
      make ~serverlessVectorAcceleration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration options for vector search capabilities in an OpenSearch Serverless collection."]
module Tags =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module IamFederationConfigOptions =
  struct
    type nonrec t =
      {
      groupAttribute: IamFederationGroupAttribute.t option
        [@ocaml.doc
          "The group attribute for this IAM federation integration. This attribute is used to map identity provider groups to OpenSearch Serverless permissions."];
      userAttribute: IamFederationUserAttribute.t option
        [@ocaml.doc
          "The user attribute for this IAM federation integration. This attribute is used to identify users in the federated authentication process."]}
    let make ?groupAttribute =
      fun ?userAttribute -> fun () -> { groupAttribute; userAttribute }
    let to_value x =
      structure_to_value
        [("groupAttribute",
           (Option.map x.groupAttribute
              ~f:IamFederationGroupAttribute.to_value));
        ("userAttribute",
          (Option.map x.userAttribute ~f:IamFederationUserAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAttribute =
        (Option.map ~f:IamFederationUserAttribute.of_xml)
          (Xml.child xml_arg0 "userAttribute") in
      let groupAttribute =
        (Option.map ~f:IamFederationGroupAttribute.of_xml)
          (Xml.child xml_arg0 "groupAttribute") in
      make ?userAttribute ?groupAttribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAttribute =
        field_map json__ "userAttribute" IamFederationUserAttribute.of_json in
      let groupAttribute =
        field_map json__ "groupAttribute" IamFederationGroupAttribute.of_json in
      make ?userAttribute ?groupAttribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes IAM federation options for an OpenSearch Serverless security configuration in the form of a key-value map. These options define how OpenSearch Serverless integrates with external identity providers using federation."]
module IamIdentityCenterConfigOptions =
  struct
    type nonrec t =
      {
      instanceArn: IamIdentityCenterInstanceArn.t option
        [@ocaml.doc
          "The ARN of the IAM Identity Center instance used to integrate with OpenSearch Serverless."];
      applicationArn: IamIdentityCenterApplicationArn.t option
        [@ocaml.doc
          "The ARN of the IAM Identity Center application used to integrate with OpenSearch Serverless."];
      applicationName: String_.t option
        [@ocaml.doc
          "The name of the IAM Identity Center application used to integrate with OpenSearch Serverless."];
      applicationDescription: String_.t option
        [@ocaml.doc
          "The description of the IAM Identity Center application used to integrate with OpenSearch Serverless."];
      userAttribute: IamIdentityCenterUserAttribute.t option
        [@ocaml.doc
          "The user attribute for this IAM Identity Center integration. Defaults to UserId"];
      groupAttribute: IamIdentityCenterGroupAttribute.t option
        [@ocaml.doc
          "The group attribute for this IAM Identity Center integration. Defaults to GroupId."]}
    let make ?instanceArn =
      fun ?applicationArn ->
        fun ?applicationName ->
          fun ?applicationDescription ->
            fun ?userAttribute ->
              fun ?groupAttribute ->
                fun () ->
                  {
                    instanceArn;
                    applicationArn;
                    applicationName;
                    applicationDescription;
                    userAttribute;
                    groupAttribute
                  }
    let to_value x =
      structure_to_value
        [("instanceArn",
           (Option.map x.instanceArn ~f:IamIdentityCenterInstanceArn.to_value));
        ("applicationArn",
          (Option.map x.applicationArn
             ~f:IamIdentityCenterApplicationArn.to_value));
        ("applicationName",
          (Option.map x.applicationName ~f:String_.to_value));
        ("applicationDescription",
          (Option.map x.applicationDescription ~f:String_.to_value));
        ("userAttribute",
          (Option.map x.userAttribute
             ~f:IamIdentityCenterUserAttribute.to_value));
        ("groupAttribute",
          (Option.map x.groupAttribute
             ~f:IamIdentityCenterGroupAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupAttribute =
        (Option.map ~f:IamIdentityCenterGroupAttribute.of_xml)
          (Xml.child xml_arg0 "groupAttribute") in
      let userAttribute =
        (Option.map ~f:IamIdentityCenterUserAttribute.of_xml)
          (Xml.child xml_arg0 "userAttribute") in
      let applicationDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "applicationDescription") in
      let applicationName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "applicationName") in
      let applicationArn =
        (Option.map ~f:IamIdentityCenterApplicationArn.of_xml)
          (Xml.child xml_arg0 "applicationArn") in
      let instanceArn =
        (Option.map ~f:IamIdentityCenterInstanceArn.of_xml)
          (Xml.child xml_arg0 "instanceArn") in
      make ?groupAttribute ?userAttribute ?applicationDescription
        ?applicationName ?applicationArn ?instanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupAttribute =
        field_map json__ "groupAttribute"
          IamIdentityCenterGroupAttribute.of_json in
      let userAttribute =
        field_map json__ "userAttribute"
          IamIdentityCenterUserAttribute.of_json in
      let applicationDescription =
        field_map json__ "applicationDescription" String_.of_json in
      let applicationName =
        field_map json__ "applicationName" String_.of_json in
      let applicationArn =
        field_map json__ "applicationArn"
          IamIdentityCenterApplicationArn.of_json in
      let instanceArn =
        field_map json__ "instanceArn" IamIdentityCenterInstanceArn.of_json in
      make ?groupAttribute ?userAttribute ?applicationDescription
        ?applicationName ?applicationArn ?instanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes IAM Identity Center options for an OpenSearch Serverless security configuration in the form of a key-value map."]
module SamlConfigOptions =
  struct
    type nonrec t =
      {
      metadata: SamlMetadata.t
        [@ocaml.doc
          "The XML IdP metadata file generated from your identity provider."];
      userAttribute: SamlUserAttribute.t option
        [@ocaml.doc "A user attribute for this SAML integration."];
      groupAttribute: SamlGroupAttribute.t option
        [@ocaml.doc "The group attribute for this SAML integration."];
      openSearchServerlessEntityId: OpenSearchServerlessEntityId.t option
        [@ocaml.doc
          "Custom entity ID attribute to override the default entity ID for this SAML integration."];
      sessionTimeout: SamlConfigOptionsSessionTimeoutInteger.t option
        [@ocaml.doc
          "The session timeout, in minutes. Default is 60 minutes (12 hours)."]}
    let context_ = "SamlConfigOptions"
    let make ?userAttribute =
      fun ?groupAttribute ->
        fun ?openSearchServerlessEntityId ->
          fun ?sessionTimeout ->
            fun ~metadata ->
              fun () ->
                {
                  userAttribute;
                  groupAttribute;
                  openSearchServerlessEntityId;
                  sessionTimeout;
                  metadata
                }
    let to_value x =
      structure_to_value
        [("metadata", (Some (SamlMetadata.to_value x.metadata)));
        ("userAttribute",
          (Option.map x.userAttribute ~f:SamlUserAttribute.to_value));
        ("groupAttribute",
          (Option.map x.groupAttribute ~f:SamlGroupAttribute.to_value));
        ("openSearchServerlessEntityId",
          (Option.map x.openSearchServerlessEntityId
             ~f:OpenSearchServerlessEntityId.to_value));
        ("sessionTimeout",
          (Option.map x.sessionTimeout
             ~f:SamlConfigOptionsSessionTimeoutInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionTimeout =
        (Option.map ~f:SamlConfigOptionsSessionTimeoutInteger.of_xml)
          (Xml.child xml_arg0 "sessionTimeout") in
      let openSearchServerlessEntityId =
        (Option.map ~f:OpenSearchServerlessEntityId.of_xml)
          (Xml.child xml_arg0 "openSearchServerlessEntityId") in
      let groupAttribute =
        (Option.map ~f:SamlGroupAttribute.of_xml)
          (Xml.child xml_arg0 "groupAttribute") in
      let userAttribute =
        (Option.map ~f:SamlUserAttribute.of_xml)
          (Xml.child xml_arg0 "userAttribute") in
      let metadata =
        SamlMetadata.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "metadata") in
      make ?sessionTimeout ?openSearchServerlessEntityId ?groupAttribute
        ?userAttribute ~metadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionTimeout =
        field_map json__ "sessionTimeout"
          SamlConfigOptionsSessionTimeoutInteger.of_json in
      let openSearchServerlessEntityId =
        field_map json__ "openSearchServerlessEntityId"
          OpenSearchServerlessEntityId.of_json in
      let groupAttribute =
        field_map json__ "groupAttribute" SamlGroupAttribute.of_json in
      let userAttribute =
        field_map json__ "userAttribute" SamlUserAttribute.of_json in
      let metadata = field_map_exn json__ "metadata" SamlMetadata.of_json in
      make ?sessionTimeout ?openSearchServerlessEntityId ?groupAttribute
        ?userAttribute ~metadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes SAML options for an OpenSearch Serverless security configuration in the form of a key-value map."]
module CapacityLimits =
  struct
    type nonrec t =
      {
      maxIndexingCapacityInOCU: IndexingCapacityValue.t option
        [@ocaml.doc "The maximum indexing capacity for collections."];
      maxSearchCapacityInOCU: SearchCapacityValue.t option
        [@ocaml.doc "The maximum search capacity for collections."]}
    let make ?maxIndexingCapacityInOCU =
      fun ?maxSearchCapacityInOCU ->
        fun () -> { maxIndexingCapacityInOCU; maxSearchCapacityInOCU }
    let to_value x =
      structure_to_value
        [("maxIndexingCapacityInOCU",
           (Option.map x.maxIndexingCapacityInOCU
              ~f:IndexingCapacityValue.to_value));
        ("maxSearchCapacityInOCU",
          (Option.map x.maxSearchCapacityInOCU
             ~f:SearchCapacityValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxSearchCapacityInOCU =
        (Option.map ~f:SearchCapacityValue.of_xml)
          (Xml.child xml_arg0 "maxSearchCapacityInOCU") in
      let maxIndexingCapacityInOCU =
        (Option.map ~f:IndexingCapacityValue.of_xml)
          (Xml.child xml_arg0 "maxIndexingCapacityInOCU") in
      make ?maxSearchCapacityInOCU ?maxIndexingCapacityInOCU ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxSearchCapacityInOCU =
        field_map json__ "maxSearchCapacityInOCU" SearchCapacityValue.of_json in
      let maxIndexingCapacityInOCU =
        field_map json__ "maxIndexingCapacityInOCU"
          IndexingCapacityValue.of_json in
      make ?maxSearchCapacityInOCU ?maxIndexingCapacityInOCU ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum capacity limits for all OpenSearch Serverless collections, in OpenSearch Compute Units (OCUs). These limits are used to scale your collections based on the current workload. For more information, see Managing capacity limits for Amazon OpenSearch Serverless."]
module VpcEndpointSummary =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      name: VpcEndpointName.t option [@ocaml.doc "The name of the endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint."]}
    let make ?id = fun ?name -> fun ?status -> fun () -> { id; name; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:VpcEndpointId.to_value));
        ("name", (Option.map x.name ~f:VpcEndpointName.to_value));
        ("status", (Option.map x.status ~f:VpcEndpointStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:VpcEndpointName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:VpcEndpointId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" VpcEndpointStatus.of_json in
      let name = field_map json__ "name" VpcEndpointName.of_json in
      let id = field_map json__ "id" VpcEndpointId.of_json in
      make ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The VPC endpoint object."]
module SecurityPolicySummary =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t option
        [@ocaml.doc "The type of security policy."];
      name: PolicyName.t option [@ocaml.doc "The name of the policy."];
      policyVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "The description of the security policy."];
      createdDate: Long.t option
        [@ocaml.doc "The date the policy was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc "The timestamp of when the policy was last modified."]}
    let make ?type_ =
      fun ?name ->
        fun ?policyVersion ->
          fun ?description ->
            fun ?createdDate ->
              fun ?lastModifiedDate ->
                fun () ->
                  {
                    type_;
                    name;
                    policyVersion;
                    description;
                    createdDate;
                    lastModifiedDate
                  }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:SecurityPolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("policyVersion",
          (Option.map x.policyVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "policyVersion") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:SecurityPolicyType.of_xml) (Xml.child xml_arg0 "type") in
      make ?lastModifiedDate ?createdDate ?description ?policyVersion ?name
        ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" SecurityPolicyType.of_json in
      make ?lastModifiedDate ?createdDate ?description ?policyVersion ?name
        ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of a security policy for OpenSearch Serverless."]
module SecurityConfigSummary =
  struct
    type nonrec t =
      {
      id: SecurityConfigId.t option
        [@ocaml.doc "The unique identifier of the security configuration."];
      type_: SecurityConfigType.t option
        [@ocaml.doc "The type of security configuration."];
      configVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the security configuration."];
      description: ConfigDescription.t option
        [@ocaml.doc "The description of the security configuration."];
      createdDate: Long.t option
        [@ocaml.doc
          "The Epoch time when the security configuration was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The timestamp of when the configuration was last modified."]}
    let make ?id =
      fun ?type_ ->
        fun ?configVersion ->
          fun ?description ->
            fun ?createdDate ->
              fun ?lastModifiedDate ->
                fun () ->
                  {
                    id;
                    type_;
                    configVersion;
                    description;
                    createdDate;
                    lastModifiedDate
                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SecurityConfigId.to_value));
        ("type", (Option.map x.type_ ~f:SecurityConfigType.to_value));
        ("configVersion",
          (Option.map x.configVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:ConfigDescription.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let description =
        (Option.map ~f:ConfigDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let configVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "configVersion") in
      let type_ =
        (Option.map ~f:SecurityConfigType.of_xml) (Xml.child xml_arg0 "type") in
      let id =
        (Option.map ~f:SecurityConfigId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastModifiedDate ?createdDate ?description ?configVersion ?type_
        ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let description =
        field_map json__ "description" ConfigDescription.of_json in
      let configVersion =
        field_map json__ "configVersion" PolicyVersion.of_json in
      let type_ = field_map json__ "type" SecurityConfigType.of_json in
      let id = field_map json__ "id" SecurityConfigId.of_json in
      make ?lastModifiedDate ?createdDate ?description ?configVersion ?type_
        ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of a security configuration for OpenSearch Serverless."]
module LifecyclePolicySummary =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t option
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t option
        [@ocaml.doc "The name of the lifecycle policy."];
      policyVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the lifecycle policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "The description of the lifecycle policy."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the lifecycle policy was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The date and time when the lifecycle policy was last modified."]}
    let make ?type_ =
      fun ?name ->
        fun ?policyVersion ->
          fun ?description ->
            fun ?createdDate ->
              fun ?lastModifiedDate ->
                fun () ->
                  {
                    type_;
                    name;
                    policyVersion;
                    description;
                    createdDate;
                    lastModifiedDate
                  }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:LifecyclePolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("policyVersion",
          (Option.map x.policyVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "policyVersion") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:LifecyclePolicyType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?lastModifiedDate ?createdDate ?description ?policyVersion ?name
        ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" LifecyclePolicyType.of_json in
      make ?lastModifiedDate ?createdDate ?description ?policyVersion ?name
        ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the lifecycle policy."]
module LifecycleResource =
  struct
    type nonrec t = string
    let context_ = "LifecycleResource"
    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:"LifecycleResource" j
    let to_json = simple_to_json to_value
  end
module CollectionSummary =
  struct
    type nonrec t =
      {
      id: CollectionId.t option
        [@ocaml.doc "The unique identifier of the collection."];
      name: CollectionName.t option
        [@ocaml.doc "The name of the collection."];
      status: CollectionStatus.t option
        [@ocaml.doc "The current status of the collection."];
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the collection."];
      kmsKeyArn: String_.t option
        [@ocaml.doc
          "The ARN of the Amazon Web Services Key Management Service key used to encrypt the collection."];
      collectionGroupName: CollectionGroupName.t option
        [@ocaml.doc
          "The name of the collection group that contains this collection."]}
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?arn ->
            fun ?kmsKeyArn ->
              fun ?collectionGroupName ->
                fun () ->
                  { id; name; status; arn; kmsKeyArn; collectionGroupName }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionId.to_value));
        ("name", (Option.map x.name ~f:CollectionName.to_value));
        ("status", (Option.map x.status ~f:CollectionStatus.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:String_.to_value));
        ("collectionGroupName",
          (Option.map x.collectionGroupName ~f:CollectionGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let collectionGroupName =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "collectionGroupName") in
      let kmsKeyArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:CollectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:CollectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?collectionGroupName ?kmsKeyArn ?arn ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let collectionGroupName =
        field_map json__ "collectionGroupName" CollectionGroupName.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let status = field_map json__ "status" CollectionStatus.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      let id = field_map json__ "id" CollectionId.of_json in
      make ?collectionGroupName ?kmsKeyArn ?arn ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about each OpenSearch Serverless collection."]
module CollectionGroupSummary =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t option
        [@ocaml.doc "The unique identifier of the collection group."];
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the collection group."];
      name: CollectionGroupName.t option
        [@ocaml.doc "The name of the collection group."];
      numberOfCollections: Integer.t option
        [@ocaml.doc "The number of collections within the collection group."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the collection group was created."];
      capacityLimits: CollectionGroupCapacityLimits.t option }
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?numberOfCollections ->
            fun ?createdDate ->
              fun ?capacityLimits ->
                fun () ->
                  {
                    id;
                    arn;
                    name;
                    numberOfCollections;
                    createdDate;
                    capacityLimits
                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionGroupId.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:CollectionGroupName.to_value));
        ("numberOfCollections",
          (Option.map x.numberOfCollections ~f:Integer.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("capacityLimits",
          (Option.map x.capacityLimits
             ~f:CollectionGroupCapacityLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityLimits =
        (Option.map ~f:CollectionGroupCapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let numberOfCollections =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfCollections") in
      let name =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:CollectionGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?capacityLimits ?createdDate ?numberOfCollections ?name ?arn ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityLimits =
        field_map json__ "capacityLimits"
          CollectionGroupCapacityLimits.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let numberOfCollections =
        field_map json__ "numberOfCollections" Integer.of_json in
      let name = field_map json__ "name" CollectionGroupName.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" CollectionGroupId.of_json in
      make ?capacityLimits ?createdDate ?numberOfCollections ?name ?arn ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a collection group."]
module AccessPolicySummary =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t option
        [@ocaml.doc
          "The type of access policy. Currently, the only available type is data."];
      name: PolicyName.t option [@ocaml.doc "The name of the access policy."];
      policyVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "The description of the access policy."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the access policy was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The date and time when the collection was last modified."]}
    let make ?type_ =
      fun ?name ->
        fun ?policyVersion ->
          fun ?description ->
            fun ?createdDate ->
              fun ?lastModifiedDate ->
                fun () ->
                  {
                    type_;
                    name;
                    policyVersion;
                    description;
                    createdDate;
                    lastModifiedDate
                  }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:AccessPolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("policyVersion",
          (Option.map x.policyVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "policyVersion") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:AccessPolicyType.of_xml) (Xml.child xml_arg0 "type") in
      make ?lastModifiedDate ?createdDate ?description ?policyVersion ?name
        ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" AccessPolicyType.of_json in
      make ?lastModifiedDate ?createdDate ?description ?policyVersion ?name
        ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the data access policy."]
module EncryptionConfigKmsKeyArnString =
  struct
    type nonrec t = string
    let context_ = "EncryptionConfigKmsKeyArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-us-gov|aws-cn|aws-iso|aws-iso-b):kms:[a-z0-9-]+:[0-9]{12}:key/[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EncryptionConfigKmsKeyArnString" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointDetail =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      name: VpcEndpointName.t option [@ocaml.doc "The name of the endpoint."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The ID of the VPC from which you access OpenSearch Serverless."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "The ID of the subnets from which you access OpenSearch Serverless."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The unique identifiers of the security groups that define the ports, protocols, and sources for inbound traffic that you are authorizing into your endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint."];
      createdDate: Long.t option
        [@ocaml.doc "The date the endpoint was created."];
      failureCode: String_.t option
        [@ocaml.doc "A failure code associated with the request."];
      failureMessage: String_.t option
        [@ocaml.doc "A message associated with the failure code."]}
    let make ?id =
      fun ?name ->
        fun ?vpcId ->
          fun ?subnetIds ->
            fun ?securityGroupIds ->
              fun ?status ->
                fun ?createdDate ->
                  fun ?failureCode ->
                    fun ?failureMessage ->
                      fun () ->
                        {
                          id;
                          name;
                          vpcId;
                          subnetIds;
                          securityGroupIds;
                          status;
                          createdDate;
                          failureCode;
                          failureMessage
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:VpcEndpointId.to_value));
        ("name", (Option.map x.name ~f:VpcEndpointName.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value));
        ("status", (Option.map x.status ~f:VpcEndpointStatus.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let name =
        (Option.map ~f:VpcEndpointName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:VpcEndpointId.of_xml) (Xml.child xml_arg0 "id") in
      make ?failureMessage ?failureCode ?createdDate ?status
        ?securityGroupIds ?subnetIds ?vpcId ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let status = field_map json__ "status" VpcEndpointStatus.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupIds.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let name = field_map json__ "name" VpcEndpointName.of_json in
      let id = field_map json__ "id" VpcEndpointId.of_json in
      make ?failureMessage ?failureCode ?createdDate ?status
        ?securityGroupIds ?subnetIds ?vpcId ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about an OpenSearch Serverless-managed interface endpoint."]
module VpcEndpointErrorDetail =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the VPC endpoint."];
      errorMessage: String_.t option
        [@ocaml.doc
          "An error message describing the reason for the failure."];
      errorCode: String_.t option
        [@ocaml.doc "The error code for the failed request."]}
    let make ?id =
      fun ?errorMessage ->
        fun ?errorCode -> fun () -> { id; errorMessage; errorCode }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:VpcEndpointId.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let id = (Option.map ~f:VpcEndpointId.of_xml) (Xml.child xml_arg0 "id") in
      make ?errorCode ?errorMessage ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let id = field_map json__ "id" VpcEndpointId.of_json in
      make ?errorCode ?errorMessage ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Error information for a failed BatchGetVpcEndpoint request."]
module LifecyclePolicyDetail =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t option
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t option
        [@ocaml.doc "The name of the lifecycle policy."];
      policyVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the lifecycle policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "The description of the lifecycle policy."];
      policy: Document.t option
        [@ocaml.doc "The JSON policy document without any whitespaces."];
      createdDate: Long.t option
        [@ocaml.doc "The date the lifecycle policy was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The timestamp of when the lifecycle policy was last modified."]}
    let make ?type_ =
      fun ?name ->
        fun ?policyVersion ->
          fun ?description ->
            fun ?policy ->
              fun ?createdDate ->
                fun ?lastModifiedDate ->
                  fun () ->
                    {
                      type_;
                      name;
                      policyVersion;
                      description;
                      policy;
                      createdDate;
                      lastModifiedDate
                    }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:LifecyclePolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("policyVersion",
          (Option.map x.policyVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Option.map x.policy ~f:Document.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let policy =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "policyVersion") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:LifecyclePolicyType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?lastModifiedDate ?createdDate ?policy ?description ?policyVersion
        ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let policy = field_map json__ "policy" Document.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" LifecyclePolicyType.of_json in
      make ?lastModifiedDate ?createdDate ?policy ?description ?policyVersion
        ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about an OpenSearch Serverless lifecycle policy."]
module LifecyclePolicyErrorDetail =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t option
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t option
        [@ocaml.doc "The name of the lifecycle policy."];
      errorMessage: String_.t option
        [@ocaml.doc
          "A description of the error. For example, The specified Lifecycle Policy is not found."];
      errorCode: String_.t option
        [@ocaml.doc
          "The error code for the request. For example, NOT_FOUND."]}
    let make ?type_ =
      fun ?name ->
        fun ?errorMessage ->
          fun ?errorCode ->
            fun () -> { type_; name; errorMessage; errorCode }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:LifecyclePolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:LifecyclePolicyType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?errorCode ?errorMessage ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" LifecyclePolicyType.of_json in
      make ?errorCode ?errorMessage ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error information for an OpenSearch Serverless request."]
module LifecyclePolicyIdentifier =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t [@ocaml.doc "The name of the lifecycle policy."]}
    let context_ = "LifecyclePolicyIdentifier"
    let make ~type_ = fun ~name -> fun () -> { type_; name }
    let to_value x =
      structure_to_value
        [("type", (Some (LifecyclePolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        LifecyclePolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" LifecyclePolicyType.of_json in
      make ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The unique identifiers of policy types and policy names."]
module EffectiveLifecyclePolicyDetail =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t option
        [@ocaml.doc "The type of lifecycle policy."];
      resource: Resource.t option
        [@ocaml.doc "The name of the OpenSearch Serverless index resource."];
      policyName: PolicyName.t option
        [@ocaml.doc "The name of the lifecycle policy."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of OpenSearch Serverless resource. Currently, the only supported resource is index."];
      retentionPeriod: String_.t option
        [@ocaml.doc
          "The minimum number of index retention in days or hours. This is an optional parameter that will return only if it\226\128\153s set."];
      noMinRetentionPeriod: Boolean.t option
        [@ocaml.doc
          "The minimum number of index retention days set. That is an optional param that will return as true if the minimum number of days or hours is not set to a index resource."]}
    let make ?type_ =
      fun ?resource ->
        fun ?policyName ->
          fun ?resourceType ->
            fun ?retentionPeriod ->
              fun ?noMinRetentionPeriod ->
                fun () ->
                  {
                    type_;
                    resource;
                    policyName;
                    resourceType;
                    retentionPeriod;
                    noMinRetentionPeriod
                  }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:LifecyclePolicyType.to_value));
        ("resource", (Option.map x.resource ~f:Resource.to_value));
        ("policyName", (Option.map x.policyName ~f:PolicyName.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("retentionPeriod",
          (Option.map x.retentionPeriod ~f:String_.to_value));
        ("noMinRetentionPeriod",
          (Option.map x.noMinRetentionPeriod ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noMinRetentionPeriod =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "noMinRetentionPeriod") in
      let retentionPeriod =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "retentionPeriod") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let policyName =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "policyName") in
      let resource =
        (Option.map ~f:Resource.of_xml) (Xml.child xml_arg0 "resource") in
      let type_ =
        (Option.map ~f:LifecyclePolicyType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?noMinRetentionPeriod ?retentionPeriod ?resourceType ?policyName
        ?resource ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noMinRetentionPeriod =
        field_map json__ "noMinRetentionPeriod" Boolean.of_json in
      let retentionPeriod =
        field_map json__ "retentionPeriod" String_.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let policyName = field_map json__ "policyName" PolicyName.of_json in
      let resource = field_map json__ "resource" Resource.of_json in
      let type_ = field_map json__ "type" LifecyclePolicyType.of_json in
      make ?noMinRetentionPeriod ?retentionPeriod ?resourceType ?policyName
        ?resource ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error information for an OpenSearch Serverless request."]
module EffectiveLifecyclePolicyErrorDetail =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t option
        [@ocaml.doc "The type of lifecycle policy."];
      resource: Resource.t option
        [@ocaml.doc "The name of OpenSearch Serverless index resource."];
      errorMessage: String_.t option
        [@ocaml.doc
          "A description of the error. For example, The specified Index resource is not found."];
      errorCode: String_.t option
        [@ocaml.doc "The error code for the request."]}
    let make ?type_ =
      fun ?resource ->
        fun ?errorMessage ->
          fun ?errorCode ->
            fun () -> { type_; resource; errorMessage; errorCode }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:LifecyclePolicyType.to_value));
        ("resource", (Option.map x.resource ~f:Resource.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let resource =
        (Option.map ~f:Resource.of_xml) (Xml.child xml_arg0 "resource") in
      let type_ =
        (Option.map ~f:LifecyclePolicyType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?errorCode ?errorMessage ?resource ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let resource = field_map json__ "resource" Resource.of_json in
      let type_ = field_map json__ "type" LifecyclePolicyType.of_json in
      make ?errorCode ?errorMessage ?resource ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error information for an OpenSearch Serverless request."]
module LifecyclePolicyResourceIdentifier =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t
        [@ocaml.doc "The type of lifecycle policy."];
      resource: ResourceName.t
        [@ocaml.doc "The name of the OpenSearch Serverless ilndex resource."]}
    let context_ = "LifecyclePolicyResourceIdentifier"
    let make ~type_ = fun ~resource -> fun () -> { type_; resource }
    let to_value x =
      structure_to_value
        [("type", (Some (LifecyclePolicyType.to_value x.type_)));
        ("resource", (Some (ResourceName.to_value x.resource)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resource =
        ResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource") in
      let type_ =
        LifecyclePolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~resource ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resource = field_map_exn json__ "resource" ResourceName.of_json in
      let type_ = field_map_exn json__ "type" LifecyclePolicyType.of_json in
      make ~resource ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The unique identifiers of policy types and resource names."]
module CollectionDetail =
  struct
    type nonrec t =
      {
      id: CollectionId.t option
        [@ocaml.doc "A unique identifier for the collection."];
      name: CollectionName.t option
        [@ocaml.doc "The name of the collection."];
      status: CollectionStatus.t option
        [@ocaml.doc "The current status of the collection."];
      type_: CollectionType.t option [@ocaml.doc "The type of collection."];
      description: String_.t option
        [@ocaml.doc "A description of the collection."];
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the collection."];
      kmsKeyArn: String_.t option
        [@ocaml.doc
          "The ARN of the Amazon Web Services KMS key used to encrypt the collection."];
      standbyReplicas: StandbyReplicas.t option
        [@ocaml.doc "Details about an OpenSearch Serverless collection."];
      vectorOptions: VectorOptions.t option
        [@ocaml.doc
          "Configuration options for vector search capabilities in the collection."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the collection was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The date and time when the collection was last modified."];
      collectionEndpoint: String_.t option
        [@ocaml.doc
          "Collection-specific endpoint used to submit index, search, and data upload requests to an OpenSearch Serverless collection."];
      dashboardEndpoint: String_.t option
        [@ocaml.doc
          "Collection-specific endpoint used to access OpenSearch Dashboards."];
      fipsEndpoints: FipsEndpoints.t option
        [@ocaml.doc
          "FIPS-compliant endpoints for the collection. These endpoints use FIPS 140-3 validated cryptographic modules and are required for federal government workloads that must comply with FedRAMP security standards."];
      failureCode: String_.t option
        [@ocaml.doc "A failure code associated with the request."];
      failureMessage: String_.t option
        [@ocaml.doc "A message associated with the failure code."];
      collectionGroupName: CollectionGroupName.t option
        [@ocaml.doc
          "The name of the collection group that contains this collection."]}
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?type_ ->
            fun ?description ->
              fun ?arn ->
                fun ?kmsKeyArn ->
                  fun ?standbyReplicas ->
                    fun ?vectorOptions ->
                      fun ?createdDate ->
                        fun ?lastModifiedDate ->
                          fun ?collectionEndpoint ->
                            fun ?dashboardEndpoint ->
                              fun ?fipsEndpoints ->
                                fun ?failureCode ->
                                  fun ?failureMessage ->
                                    fun ?collectionGroupName ->
                                      fun () ->
                                        {
                                          id;
                                          name;
                                          status;
                                          type_;
                                          description;
                                          arn;
                                          kmsKeyArn;
                                          standbyReplicas;
                                          vectorOptions;
                                          createdDate;
                                          lastModifiedDate;
                                          collectionEndpoint;
                                          dashboardEndpoint;
                                          fipsEndpoints;
                                          failureCode;
                                          failureMessage;
                                          collectionGroupName
                                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionId.to_value));
        ("name", (Option.map x.name ~f:CollectionName.to_value));
        ("status", (Option.map x.status ~f:CollectionStatus.to_value));
        ("type", (Option.map x.type_ ~f:CollectionType.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:String_.to_value));
        ("standbyReplicas",
          (Option.map x.standbyReplicas ~f:StandbyReplicas.to_value));
        ("vectorOptions",
          (Option.map x.vectorOptions ~f:VectorOptions.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value));
        ("collectionEndpoint",
          (Option.map x.collectionEndpoint ~f:String_.to_value));
        ("dashboardEndpoint",
          (Option.map x.dashboardEndpoint ~f:String_.to_value));
        ("fipsEndpoints",
          (Option.map x.fipsEndpoints ~f:FipsEndpoints.to_value));
        ("failureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("failureMessage", (Option.map x.failureMessage ~f:String_.to_value));
        ("collectionGroupName",
          (Option.map x.collectionGroupName ~f:CollectionGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let collectionGroupName =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "collectionGroupName") in
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureMessage") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureCode") in
      let fipsEndpoints =
        (Option.map ~f:FipsEndpoints.of_xml)
          (Xml.child xml_arg0 "fipsEndpoints") in
      let dashboardEndpoint =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "dashboardEndpoint") in
      let collectionEndpoint =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "collectionEndpoint") in
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let vectorOptions =
        (Option.map ~f:VectorOptions.of_xml)
          (Xml.child xml_arg0 "vectorOptions") in
      let standbyReplicas =
        (Option.map ~f:StandbyReplicas.of_xml)
          (Xml.child xml_arg0 "standbyReplicas") in
      let kmsKeyArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let type_ =
        (Option.map ~f:CollectionType.of_xml) (Xml.child xml_arg0 "type") in
      let status =
        (Option.map ~f:CollectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:CollectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?collectionGroupName ?failureMessage ?failureCode ?fipsEndpoints
        ?dashboardEndpoint ?collectionEndpoint ?lastModifiedDate ?createdDate
        ?vectorOptions ?standbyReplicas ?kmsKeyArn ?arn ?description ?type_
        ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let collectionGroupName =
        field_map json__ "collectionGroupName" CollectionGroupName.of_json in
      let failureMessage = field_map json__ "failureMessage" String_.of_json in
      let failureCode = field_map json__ "failureCode" String_.of_json in
      let fipsEndpoints =
        field_map json__ "fipsEndpoints" FipsEndpoints.of_json in
      let dashboardEndpoint =
        field_map json__ "dashboardEndpoint" String_.of_json in
      let collectionEndpoint =
        field_map json__ "collectionEndpoint" String_.of_json in
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let vectorOptions =
        field_map json__ "vectorOptions" VectorOptions.of_json in
      let standbyReplicas =
        field_map json__ "standbyReplicas" StandbyReplicas.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let type_ = field_map json__ "type" CollectionType.of_json in
      let status = field_map json__ "status" CollectionStatus.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      let id = field_map json__ "id" CollectionId.of_json in
      make ?collectionGroupName ?failureMessage ?failureCode ?fipsEndpoints
        ?dashboardEndpoint ?collectionEndpoint ?lastModifiedDate ?createdDate
        ?vectorOptions ?standbyReplicas ?kmsKeyArn ?arn ?description ?type_
        ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about each OpenSearch Serverless collection, including the collection endpoint, the OpenSearch Dashboards endpoint, and FIPS-compliant endpoints for federal government workloads."]
module CollectionErrorDetail =
  struct
    type nonrec t =
      {
      id: CollectionId.t option
        [@ocaml.doc
          "If the request contains collection IDs, the response includes the IDs provided in the request."];
      name: CollectionName.t option
        [@ocaml.doc
          "If the request contains collection names, the response includes the names provided in the request."];
      errorMessage: String_.t option
        [@ocaml.doc
          "A description of the error. For example, The specified Collection is not found."];
      errorCode: String_.t option
        [@ocaml.doc
          "The error code for the request. For example, NOT_FOUND."]}
    let make ?id =
      fun ?name ->
        fun ?errorMessage ->
          fun ?errorCode -> fun () -> { id; name; errorMessage; errorCode }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionId.to_value));
        ("name", (Option.map x.name ~f:CollectionName.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:CollectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?errorCode ?errorMessage ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      let id = field_map json__ "id" CollectionId.of_json in
      make ?errorCode ?errorMessage ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error information for an OpenSearch Serverless request."]
module CollectionGroupDetail =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t option
        [@ocaml.doc "The unique identifier of the collection group."];
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the collection group."];
      name: CollectionGroupName.t option
        [@ocaml.doc "The name of the collection group."];
      standbyReplicas: StandbyReplicas.t option
        [@ocaml.doc
          "Indicates whether standby replicas are used for the collection group."];
      description: String_.t option
        [@ocaml.doc "The description of the collection group."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of key-value pairs associated with the collection group."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the collection group was created."];
      capacityLimits: CollectionGroupCapacityLimits.t option
        [@ocaml.doc
          "The capacity limits for the collection group, in OpenSearch Compute Units (OCUs)."];
      numberOfCollections: Integer.t option
        [@ocaml.doc
          "The number of collections associated with the collection group."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?standbyReplicas ->
            fun ?description ->
              fun ?tags ->
                fun ?createdDate ->
                  fun ?capacityLimits ->
                    fun ?numberOfCollections ->
                      fun () ->
                        {
                          id;
                          arn;
                          name;
                          standbyReplicas;
                          description;
                          tags;
                          createdDate;
                          capacityLimits;
                          numberOfCollections
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionGroupId.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:CollectionGroupName.to_value));
        ("standbyReplicas",
          (Option.map x.standbyReplicas ~f:StandbyReplicas.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("capacityLimits",
          (Option.map x.capacityLimits
             ~f:CollectionGroupCapacityLimits.to_value));
        ("numberOfCollections",
          (Option.map x.numberOfCollections ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberOfCollections =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfCollections") in
      let capacityLimits =
        (Option.map ~f:CollectionGroupCapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let standbyReplicas =
        (Option.map ~f:StandbyReplicas.of_xml)
          (Xml.child xml_arg0 "standbyReplicas") in
      let name =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:CollectionGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?numberOfCollections ?capacityLimits ?createdDate ?tags
        ?description ?standbyReplicas ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberOfCollections =
        field_map json__ "numberOfCollections" Integer.of_json in
      let capacityLimits =
        field_map json__ "capacityLimits"
          CollectionGroupCapacityLimits.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let description = field_map json__ "description" String_.of_json in
      let standbyReplicas =
        field_map json__ "standbyReplicas" StandbyReplicas.of_json in
      let name = field_map json__ "name" CollectionGroupName.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" CollectionGroupId.of_json in
      make ?numberOfCollections ?capacityLimits ?createdDate ?tags
        ?description ?standbyReplicas ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a collection group."]
module CollectionGroupErrorDetail =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t option
        [@ocaml.doc
          "If the request contains collection group IDs, the response includes the IDs provided in the request."];
      name: CollectionGroupName.t option
        [@ocaml.doc
          "If the request contains collection group names, the response includes the names provided in the request."];
      errorMessage: String_.t option
        [@ocaml.doc
          "A description of the error. For example, The specified Collection Group is not found."];
      errorCode: String_.t option
        [@ocaml.doc
          "The error code for the request. For example, NOT_FOUND."]}
    let make ?id =
      fun ?name ->
        fun ?errorMessage ->
          fun ?errorCode -> fun () -> { id; name; errorMessage; errorCode }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionGroupId.to_value));
        ("name", (Option.map x.name ~f:CollectionGroupName.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let name =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:CollectionGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?errorCode ?errorMessage ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let name = field_map json__ "name" CollectionGroupName.of_json in
      let id = field_map json__ "id" CollectionGroupId.of_json in
      make ?errorCode ?errorMessage ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Error details for a collection group operation."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When creating a resource, thrown when a resource with the same name already exists or is being created. When deleting a resource, thrown when the resource is not in the ACTIVE, FAILED, or UPDATE_FAILED state."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when an error internal to the service occurs while processing a request."]
module UpdateVpcEndpointDetail =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      name: VpcEndpointName.t option [@ocaml.doc "The name of the endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint update process."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "The ID of the subnets from which you access OpenSearch Serverless."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The unique identifiers of the security groups that define the ports, protocols, and sources for inbound traffic that you are authorizing into your endpoint."];
      lastModifiedDate: Long.t option
        [@ocaml.doc "The timestamp of when the endpoint was last modified."]}
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?subnetIds ->
            fun ?securityGroupIds ->
              fun ?lastModifiedDate ->
                fun () ->
                  {
                    id;
                    name;
                    status;
                    subnetIds;
                    securityGroupIds;
                    lastModifiedDate
                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:VpcEndpointId.to_value));
        ("name", (Option.map x.name ~f:VpcEndpointName.to_value));
        ("status", (Option.map x.status ~f:VpcEndpointStatus.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:VpcEndpointName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:VpcEndpointId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastModifiedDate ?securityGroupIds ?subnetIds ?status ?name ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupIds.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let status = field_map json__ "status" VpcEndpointStatus.of_json in
      let name = field_map json__ "name" VpcEndpointName.of_json in
      let id = field_map json__ "id" VpcEndpointId.of_json in
      make ?lastModifiedDate ?securityGroupIds ?subnetIds ?status ?name ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update details for an OpenSearch Serverless-managed interface endpoint."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when the HTTP request contains invalid input or is missing required input."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when accessing or deleting a resource that does not exist."]
module SecurityPolicyDetail =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t option
        [@ocaml.doc "The type of security policy."];
      name: PolicyName.t option [@ocaml.doc "The name of the policy."];
      policyVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "The description of the security policy."];
      policy: Document.t option
        [@ocaml.doc "The JSON policy document without any whitespaces."];
      createdDate: Long.t option
        [@ocaml.doc "The date the policy was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc "The timestamp of when the policy was last modified."]}
    let make ?type_ =
      fun ?name ->
        fun ?policyVersion ->
          fun ?description ->
            fun ?policy ->
              fun ?createdDate ->
                fun ?lastModifiedDate ->
                  fun () ->
                    {
                      type_;
                      name;
                      policyVersion;
                      description;
                      policy;
                      createdDate;
                      lastModifiedDate
                    }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:SecurityPolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("policyVersion",
          (Option.map x.policyVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Option.map x.policy ~f:Document.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let policy =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "policyVersion") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:SecurityPolicyType.of_xml) (Xml.child xml_arg0 "type") in
      make ?lastModifiedDate ?createdDate ?policy ?description ?policyVersion
        ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let policy = field_map json__ "policy" Document.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" SecurityPolicyType.of_json in
      make ?lastModifiedDate ?createdDate ?policy ?description ?policyVersion
        ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about an OpenSearch Serverless security policy."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "Description of the error."];
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource affected."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource affected."];
      serviceCode: String_.t option
        [@ocaml.doc
          "Service Quotas requirement to identify originating service."];
      quotaCode: String_.t option
        [@ocaml.doc
          "Service Quotas requirement to identify originating quota."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when you attempt to create more resources than the service allows based on service quotas."]
module PolicyDocument =
  struct
    type nonrec t = string
    let context_ = "PolicyDocument"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20480) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:".*[\\u0009\\u000A\\u000D\\u0020-\\u007E\\u00A1-\\u00FF]+.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PolicyDocument" j
    let to_json = simple_to_json to_value
  end
module SecurityConfigDetail =
  struct
    type nonrec t =
      {
      id: SecurityConfigId.t option
        [@ocaml.doc "The unique identifier of the security configuration."];
      type_: SecurityConfigType.t option
        [@ocaml.doc "The type of security configuration."];
      configVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the security configuration."];
      description: ConfigDescription.t option
        [@ocaml.doc "The description of the security configuration."];
      samlOptions: SamlConfigOptions.t option
        [@ocaml.doc
          "SAML options for the security configuration in the form of a key-value map."];
      iamIdentityCenterOptions: IamIdentityCenterConfigOptions.t option
        [@ocaml.doc
          "Describes IAM Identity Center options in the form of a key-value map."];
      iamFederationOptions: IamFederationConfigOptions.t option
        [@ocaml.doc
          "Describes IAM federation options in the form of a key-value map. Contains configuration details about how OpenSearch Serverless integrates with external identity providers through federation."];
      createdDate: Long.t option
        [@ocaml.doc "The date the configuration was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The timestamp of when the configuration was last modified."]}
    let make ?id =
      fun ?type_ ->
        fun ?configVersion ->
          fun ?description ->
            fun ?samlOptions ->
              fun ?iamIdentityCenterOptions ->
                fun ?iamFederationOptions ->
                  fun ?createdDate ->
                    fun ?lastModifiedDate ->
                      fun () ->
                        {
                          id;
                          type_;
                          configVersion;
                          description;
                          samlOptions;
                          iamIdentityCenterOptions;
                          iamFederationOptions;
                          createdDate;
                          lastModifiedDate
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SecurityConfigId.to_value));
        ("type", (Option.map x.type_ ~f:SecurityConfigType.to_value));
        ("configVersion",
          (Option.map x.configVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:ConfigDescription.to_value));
        ("samlOptions",
          (Option.map x.samlOptions ~f:SamlConfigOptions.to_value));
        ("iamIdentityCenterOptions",
          (Option.map x.iamIdentityCenterOptions
             ~f:IamIdentityCenterConfigOptions.to_value));
        ("iamFederationOptions",
          (Option.map x.iamFederationOptions
             ~f:IamFederationConfigOptions.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let iamFederationOptions =
        (Option.map ~f:IamFederationConfigOptions.of_xml)
          (Xml.child xml_arg0 "iamFederationOptions") in
      let iamIdentityCenterOptions =
        (Option.map ~f:IamIdentityCenterConfigOptions.of_xml)
          (Xml.child xml_arg0 "iamIdentityCenterOptions") in
      let samlOptions =
        (Option.map ~f:SamlConfigOptions.of_xml)
          (Xml.child xml_arg0 "samlOptions") in
      let description =
        (Option.map ~f:ConfigDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let configVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "configVersion") in
      let type_ =
        (Option.map ~f:SecurityConfigType.of_xml) (Xml.child xml_arg0 "type") in
      let id =
        (Option.map ~f:SecurityConfigId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastModifiedDate ?createdDate ?iamFederationOptions
        ?iamIdentityCenterOptions ?samlOptions ?description ?configVersion
        ?type_ ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let iamFederationOptions =
        field_map json__ "iamFederationOptions"
          IamFederationConfigOptions.of_json in
      let iamIdentityCenterOptions =
        field_map json__ "iamIdentityCenterOptions"
          IamIdentityCenterConfigOptions.of_json in
      let samlOptions =
        field_map json__ "samlOptions" SamlConfigOptions.of_json in
      let description =
        field_map json__ "description" ConfigDescription.of_json in
      let configVersion =
        field_map json__ "configVersion" PolicyVersion.of_json in
      let type_ = field_map json__ "type" SecurityConfigType.of_json in
      let id = field_map json__ "id" SecurityConfigId.of_json in
      make ?lastModifiedDate ?createdDate ?iamFederationOptions
        ?iamIdentityCenterOptions ?samlOptions ?description ?configVersion
        ?type_ ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about a security configuration for OpenSearch Serverless."]
module UpdateIamIdentityCenterConfigOptions =
  struct
    type nonrec t =
      {
      userAttribute: IamIdentityCenterUserAttribute.t option
        [@ocaml.doc
          "The user attribute for this IAM Identity Center integration. Defaults to UserId."];
      groupAttribute: IamIdentityCenterGroupAttribute.t option
        [@ocaml.doc
          "The group attribute for this IAM Identity Center integration. Defaults to GroupId."]}
    let make ?userAttribute =
      fun ?groupAttribute -> fun () -> { userAttribute; groupAttribute }
    let to_value x =
      structure_to_value
        [("userAttribute",
           (Option.map x.userAttribute
              ~f:IamIdentityCenterUserAttribute.to_value));
        ("groupAttribute",
          (Option.map x.groupAttribute
             ~f:IamIdentityCenterGroupAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupAttribute =
        (Option.map ~f:IamIdentityCenterGroupAttribute.of_xml)
          (Xml.child xml_arg0 "groupAttribute") in
      let userAttribute =
        (Option.map ~f:IamIdentityCenterUserAttribute.of_xml)
          (Xml.child xml_arg0 "userAttribute") in
      make ?groupAttribute ?userAttribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupAttribute =
        field_map json__ "groupAttribute"
          IamIdentityCenterGroupAttribute.of_json in
      let userAttribute =
        field_map json__ "userAttribute"
          IamIdentityCenterUserAttribute.of_json in
      make ?groupAttribute ?userAttribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes IAM Identity Center options for updating an OpenSearch Serverless security configuration in the form of a key-value map."]
module IndexName =
  struct
    type nonrec t = string
    let context_ = "IndexName"
    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:"IndexName" j
    let to_json = simple_to_json to_value
  end
module IndexSchema =
  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 UpdateCollectionDetail =
  struct
    type nonrec t =
      {
      id: CollectionId.t option
        [@ocaml.doc "The unique identifier of the collection."];
      name: CollectionName.t option
        [@ocaml.doc "The name of the collection."];
      status: CollectionStatus.t option
        [@ocaml.doc "The current status of the collection."];
      type_: CollectionType.t option [@ocaml.doc "The collection type."];
      description: String_.t option
        [@ocaml.doc "The description of the collection."];
      vectorOptions: VectorOptions.t option
        [@ocaml.doc
          "Configuration options for vector search capabilities in the collection."];
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the collection."];
      createdDate: Long.t option
        [@ocaml.doc "The date and time when the collection was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The date and time when the collection was last modified."]}
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?type_ ->
            fun ?description ->
              fun ?vectorOptions ->
                fun ?arn ->
                  fun ?createdDate ->
                    fun ?lastModifiedDate ->
                      fun () ->
                        {
                          id;
                          name;
                          status;
                          type_;
                          description;
                          vectorOptions;
                          arn;
                          createdDate;
                          lastModifiedDate
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionId.to_value));
        ("name", (Option.map x.name ~f:CollectionName.to_value));
        ("status", (Option.map x.status ~f:CollectionStatus.to_value));
        ("type", (Option.map x.type_ ~f:CollectionType.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("vectorOptions",
          (Option.map x.vectorOptions ~f:VectorOptions.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let vectorOptions =
        (Option.map ~f:VectorOptions.of_xml)
          (Xml.child xml_arg0 "vectorOptions") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let type_ =
        (Option.map ~f:CollectionType.of_xml) (Xml.child xml_arg0 "type") in
      let status =
        (Option.map ~f:CollectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:CollectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastModifiedDate ?createdDate ?arn ?vectorOptions ?description
        ?type_ ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let vectorOptions =
        field_map json__ "vectorOptions" VectorOptions.of_json in
      let description = field_map json__ "description" String_.of_json in
      let type_ = field_map json__ "type" CollectionType.of_json in
      let status = field_map json__ "status" CollectionStatus.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      let id = field_map json__ "id" CollectionId.of_json in
      make ?lastModifiedDate ?createdDate ?arn ?vectorOptions ?description
        ?type_ ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about an updated OpenSearch Serverless collection."]
module UpdateCollectionRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "UpdateCollectionRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"UpdateCollectionRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module UpdateCollectionGroupDetail =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t option
        [@ocaml.doc "The unique identifier of the collection group."];
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the collection group."];
      name: CollectionGroupName.t option
        [@ocaml.doc "The name of the collection group."];
      description: String_.t option
        [@ocaml.doc "The description of the collection group."];
      capacityLimits: CollectionGroupCapacityLimits.t option
        [@ocaml.doc
          "The capacity limits for the collection group, in OpenSearch Compute Units (OCUs)."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the collection group was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The date and time when the collection group was last modified."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?capacityLimits ->
              fun ?createdDate ->
                fun ?lastModifiedDate ->
                  fun () ->
                    {
                      id;
                      arn;
                      name;
                      description;
                      capacityLimits;
                      createdDate;
                      lastModifiedDate
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionGroupId.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:CollectionGroupName.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("capacityLimits",
          (Option.map x.capacityLimits
             ~f:CollectionGroupCapacityLimits.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let capacityLimits =
        (Option.map ~f:CollectionGroupCapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:CollectionGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastModifiedDate ?createdDate ?capacityLimits ?description ?name
        ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let capacityLimits =
        field_map json__ "capacityLimits"
          CollectionGroupCapacityLimits.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" CollectionGroupName.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" CollectionGroupId.of_json in
      make ?lastModifiedDate ?createdDate ?capacityLimits ?description ?name
        ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about the updated collection group."]
module UpdateCollectionGroupRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "UpdateCollectionGroupRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"UpdateCollectionGroupRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module AccountSettingsDetail =
  struct
    type nonrec t = {
      capacityLimits: CapacityLimits.t option }
    let make ?capacityLimits = fun () -> { capacityLimits }
    let to_value x =
      structure_to_value
        [("capacityLimits",
           (Option.map x.capacityLimits ~f:CapacityLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityLimits =
        (Option.map ~f:CapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      make ?capacityLimits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityLimits =
        field_map json__ "capacityLimits" CapacityLimits.of_json in
      make ?capacityLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "OpenSearch Serverless-related information for the current account."]
module AccessPolicyDetail =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t option
        [@ocaml.doc "The type of access policy."];
      name: PolicyName.t option [@ocaml.doc "The name of the policy."];
      policyVersion: PolicyVersion.t option
        [@ocaml.doc "The version of the policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "The description of the policy."];
      policy: Document.t option
        [@ocaml.doc "The JSON policy document without any whitespaces."];
      createdDate: Long.t option
        [@ocaml.doc "The date the policy was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc "The timestamp of when the policy was last modified."]}
    let make ?type_ =
      fun ?name ->
        fun ?policyVersion ->
          fun ?description ->
            fun ?policy ->
              fun ?createdDate ->
                fun ?lastModifiedDate ->
                  fun () ->
                    {
                      type_;
                      name;
                      policyVersion;
                      description;
                      policy;
                      createdDate;
                      lastModifiedDate
                    }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:AccessPolicyType.to_value));
        ("name", (Option.map x.name ~f:PolicyName.to_value));
        ("policyVersion",
          (Option.map x.policyVersion ~f:PolicyVersion.to_value));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Option.map x.policy ~f:Document.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let policy =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "policyVersion") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:AccessPolicyType.of_xml) (Xml.child xml_arg0 "type") in
      make ?lastModifiedDate ?createdDate ?policy ?description ?policyVersion
        ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let policy = field_map json__ "policy" Document.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map json__ "name" PolicyName.of_json in
      let type_ = field_map json__ "type" AccessPolicyType.of_json in
      make ?lastModifiedDate ?createdDate ?policy ?description ?policyVersion
        ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about an OpenSearch Serverless access policy."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"Arn" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f: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:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointSummaries =
  struct
    type nonrec t = VpcEndpointSummary.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:VpcEndpointSummary.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:VpcEndpointSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpointSummaries"
        ~of_json:VpcEndpointSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListVpcEndpointsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListVpcEndpointsRequestMaxResultsInteger"
           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 VpcEndpointFilters =
  struct
    type nonrec t =
      {
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:VpcEndpointStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" VpcEndpointStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filter the results of a ListVpcEndpoints request."]
module SecurityPolicySummaries =
  struct
    type nonrec t = SecurityPolicySummary.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:SecurityPolicySummary.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:SecurityPolicySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityPolicySummaries"
        ~of_json:SecurityPolicySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSecurityPoliciesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListSecurityPoliciesRequestMaxResultsInteger"
           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 ListSecurityPoliciesRequestResourceList =
  struct
    type nonrec t = Resource.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:Resource.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:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"ListSecurityPoliciesRequestResourceList"
        ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityConfigSummaries =
  struct
    type nonrec t = SecurityConfigSummary.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:SecurityConfigSummary.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:SecurityConfigSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityConfigSummaries"
        ~of_json:SecurityConfigSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSecurityConfigsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListSecurityConfigsRequestMaxResultsInteger"
           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 LifecyclePolicySummaries =
  struct
    type nonrec t = LifecyclePolicySummary.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:LifecyclePolicySummary.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:LifecyclePolicySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecyclePolicySummaries"
        ~of_json:LifecyclePolicySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListLifecyclePoliciesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListLifecyclePoliciesRequestMaxResultsInteger"
           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 ListLifecyclePoliciesRequestResourcesList =
  struct
    type nonrec t = LifecycleResource.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:LifecycleResource.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:LifecycleResource.of_xml)
    let of_json j =
      list_of_json ~kind:"ListLifecyclePoliciesRequestResourcesList"
        ~of_json:LifecycleResource.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionSummaries =
  struct
    type nonrec t = CollectionSummary.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:CollectionSummary.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:CollectionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionSummaries"
        ~of_json:CollectionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionFilters =
  struct
    type nonrec t =
      {
      name: CollectionName.t option
        [@ocaml.doc "The name of the collection."];
      status: CollectionStatus.t option
        [@ocaml.doc "The current status of the collection."];
      collectionGroupName: CollectionGroupName.t option
        [@ocaml.doc "The name of the collection group to filter by."]}
    let make ?name =
      fun ?status ->
        fun ?collectionGroupName ->
          fun () -> { name; status; collectionGroupName }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:CollectionName.to_value));
        ("status", (Option.map x.status ~f:CollectionStatus.to_value));
        ("collectionGroupName",
          (Option.map x.collectionGroupName ~f:CollectionGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let collectionGroupName =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "collectionGroupName") in
      let status =
        (Option.map ~f:CollectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      make ?collectionGroupName ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let collectionGroupName =
        field_map json__ "collectionGroupName" CollectionGroupName.of_json in
      let status = field_map json__ "status" CollectionStatus.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      make ?collectionGroupName ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of filter keys that you can use for LIST, UPDATE, and DELETE requests to OpenSearch Serverless collections."]
module ListCollectionsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListCollectionsRequestMaxResultsInteger"
           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 CollectionGroupSummaries =
  struct
    type nonrec t = CollectionGroupSummary.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:CollectionGroupSummary.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:CollectionGroupSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionGroupSummaries"
        ~of_json:CollectionGroupSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCollectionGroupsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListCollectionGroupsRequestMaxResultsInteger"
           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 AccessPolicySummaries =
  struct
    type nonrec t = AccessPolicySummary.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:AccessPolicySummary.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:AccessPolicySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessPolicySummaries"
        ~of_json:AccessPolicySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAccessPoliciesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 ListAccessPoliciesRequestMaxResultsInteger"
           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 ListAccessPoliciesRequestResourceList =
  struct
    type nonrec t = Resource.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:Resource.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:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"ListAccessPoliciesRequestResourceList"
        ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessPolicyStats =
  struct
    type nonrec t =
      {
      dataPolicyCount: Long.t option
        [@ocaml.doc
          "The number of data access policies in the current account."]}
    let make ?dataPolicyCount = fun () -> { dataPolicyCount }
    let to_value x =
      structure_to_value
        [("DataPolicyCount", (Option.map x.dataPolicyCount ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataPolicyCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "DataPolicyCount") in
      make ?dataPolicyCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataPolicyCount = field_map json__ "DataPolicyCount" Long.of_json in
      make ?dataPolicyCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Statistics for an OpenSearch Serverless access policy."]
module LifecyclePolicyStats =
  struct
    type nonrec t =
      {
      retentionPolicyCount: Long.t option
        [@ocaml.doc
          "The number of retention lifecycle policies in the current account."]}
    let make ?retentionPolicyCount = fun () -> { retentionPolicyCount }
    let to_value x =
      structure_to_value
        [("RetentionPolicyCount",
           (Option.map x.retentionPolicyCount ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retentionPolicyCount =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "RetentionPolicyCount") in
      make ?retentionPolicyCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retentionPolicyCount =
        field_map json__ "RetentionPolicyCount" Long.of_json in
      make ?retentionPolicyCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Statistics for an OpenSearch Serverless lifecycle policy."]
module SecurityConfigStats =
  struct
    type nonrec t =
      {
      samlConfigCount: Long.t option
        [@ocaml.doc
          "The number of security configurations in the current account."]}
    let make ?samlConfigCount = fun () -> { samlConfigCount }
    let to_value x =
      structure_to_value
        [("SamlConfigCount", (Option.map x.samlConfigCount ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let samlConfigCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "SamlConfigCount") in
      make ?samlConfigCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let samlConfigCount = field_map json__ "SamlConfigCount" Long.of_json in
      make ?samlConfigCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Statistics for an OpenSearch Serverless security configuration."]
module SecurityPolicyStats =
  struct
    type nonrec t =
      {
      encryptionPolicyCount: Long.t option
        [@ocaml.doc
          "The number of encryption policies in the current account."];
      networkPolicyCount: Long.t option
        [@ocaml.doc "The number of network policies in the current account."]}
    let make ?encryptionPolicyCount =
      fun ?networkPolicyCount ->
        fun () -> { encryptionPolicyCount; networkPolicyCount }
    let to_value x =
      structure_to_value
        [("EncryptionPolicyCount",
           (Option.map x.encryptionPolicyCount ~f:Long.to_value));
        ("NetworkPolicyCount",
          (Option.map x.networkPolicyCount ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkPolicyCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "NetworkPolicyCount") in
      let encryptionPolicyCount =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "EncryptionPolicyCount") in
      make ?networkPolicyCount ?encryptionPolicyCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkPolicyCount =
        field_map json__ "NetworkPolicyCount" Long.of_json in
      let encryptionPolicyCount =
        field_map json__ "EncryptionPolicyCount" Long.of_json in
      make ?networkPolicyCount ?encryptionPolicyCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Statistics for an OpenSearch Serverless security policy."]
module DeleteVpcEndpointDetail =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      name: VpcEndpointName.t option [@ocaml.doc "The name of the endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint deletion process."]}
    let make ?id = fun ?name -> fun ?status -> fun () -> { id; name; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:VpcEndpointId.to_value));
        ("name", (Option.map x.name ~f:VpcEndpointName.to_value));
        ("status", (Option.map x.status ~f:VpcEndpointStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:VpcEndpointName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:VpcEndpointId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" VpcEndpointStatus.of_json in
      let name = field_map json__ "name" VpcEndpointName.of_json in
      let id = field_map json__ "id" VpcEndpointId.of_json in
      make ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletion details for an OpenSearch Serverless-managed interface endpoint."]
module DeleteCollectionDetail =
  struct
    type nonrec t =
      {
      id: CollectionId.t option
        [@ocaml.doc "The unique identifier of the collection."];
      name: CollectionName.t option
        [@ocaml.doc "The name of the collection."];
      status: CollectionStatus.t option
        [@ocaml.doc "The current status of the collection."]}
    let make ?id = fun ?name -> fun ?status -> fun () -> { id; name; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionId.to_value));
        ("name", (Option.map x.name ~f:CollectionName.to_value));
        ("status", (Option.map x.status ~f:CollectionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CollectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:CollectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" CollectionStatus.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      let id = field_map json__ "id" CollectionId.of_json in
      make ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about a deleted OpenSearch Serverless collection."]
module CreateVpcEndpointDetail =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      name: VpcEndpointName.t option [@ocaml.doc "The name of the endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status in the endpoint creation process."]}
    let make ?id = fun ?name -> fun ?status -> fun () -> { id; name; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:VpcEndpointId.to_value));
        ("name", (Option.map x.name ~f:VpcEndpointName.to_value));
        ("status", (Option.map x.status ~f:VpcEndpointStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:VpcEndpointName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:VpcEndpointId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" VpcEndpointStatus.of_json in
      let name = field_map json__ "name" VpcEndpointName.of_json in
      let id = field_map json__ "id" VpcEndpointId.of_json in
      make ?status ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creation details for an OpenSearch Serverless-managed interface endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module ConfigName =
  struct
    type nonrec t = string
    let context_ = "ConfigName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z][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:"ConfigName" j
    let to_json = simple_to_json to_value
  end
module CreateIamIdentityCenterConfigOptions =
  struct
    type nonrec t =
      {
      instanceArn: IamIdentityCenterInstanceArn.t
        [@ocaml.doc
          "The ARN of the IAM Identity Center instance used to integrate with OpenSearch Serverless."];
      userAttribute: IamIdentityCenterUserAttribute.t option
        [@ocaml.doc
          "The user attribute for this IAM Identity Center integration. Defaults to UserId."];
      groupAttribute: IamIdentityCenterGroupAttribute.t option
        [@ocaml.doc
          "The group attribute for this IAM Identity Center integration. Defaults to GroupId."]}
    let context_ = "CreateIamIdentityCenterConfigOptions"
    let make ?userAttribute =
      fun ?groupAttribute ->
        fun ~instanceArn ->
          fun () -> { userAttribute; groupAttribute; instanceArn }
    let to_value x =
      structure_to_value
        [("instanceArn",
           (Some (IamIdentityCenterInstanceArn.to_value x.instanceArn)));
        ("userAttribute",
          (Option.map x.userAttribute
             ~f:IamIdentityCenterUserAttribute.to_value));
        ("groupAttribute",
          (Option.map x.groupAttribute
             ~f:IamIdentityCenterGroupAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupAttribute =
        (Option.map ~f:IamIdentityCenterGroupAttribute.of_xml)
          (Xml.child xml_arg0 "groupAttribute") in
      let userAttribute =
        (Option.map ~f:IamIdentityCenterUserAttribute.of_xml)
          (Xml.child xml_arg0 "userAttribute") in
      let instanceArn =
        IamIdentityCenterInstanceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instanceArn") in
      make ?groupAttribute ?userAttribute ~instanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupAttribute =
        field_map json__ "groupAttribute"
          IamIdentityCenterGroupAttribute.of_json in
      let userAttribute =
        field_map json__ "userAttribute"
          IamIdentityCenterUserAttribute.of_json in
      let instanceArn =
        field_map_exn json__ "instanceArn"
          IamIdentityCenterInstanceArn.of_json in
      make ?groupAttribute ?userAttribute ~instanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes IAM Identity Center options for creating an OpenSearch Serverless security configuration in the form of a key-value map."]
module CreateCollectionDetail =
  struct
    type nonrec t =
      {
      id: CollectionId.t option
        [@ocaml.doc "The unique identifier of the collection."];
      name: CollectionName.t option
        [@ocaml.doc "The name of the collection."];
      status: CollectionStatus.t option
        [@ocaml.doc "The current status of the collection."];
      type_: CollectionType.t option [@ocaml.doc "The type of collection."];
      description: String_.t option
        [@ocaml.doc "A description of the collection."];
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the collection."];
      kmsKeyArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the KMS key with which to encrypt the collection."];
      standbyReplicas: StandbyReplicas.t option
        [@ocaml.doc
          "Creates details about an OpenSearch Serverless collection."];
      vectorOptions: VectorOptions.t option
        [@ocaml.doc
          "Configuration options for vector search capabilities in the collection."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the collection was created."];
      lastModifiedDate: Long.t option
        [@ocaml.doc
          "The date and time when the collection was last modified."];
      collectionGroupName: CollectionGroupName.t option
        [@ocaml.doc
          "The name of the collection group that contains this collection."]}
    let make ?id =
      fun ?name ->
        fun ?status ->
          fun ?type_ ->
            fun ?description ->
              fun ?arn ->
                fun ?kmsKeyArn ->
                  fun ?standbyReplicas ->
                    fun ?vectorOptions ->
                      fun ?createdDate ->
                        fun ?lastModifiedDate ->
                          fun ?collectionGroupName ->
                            fun () ->
                              {
                                id;
                                name;
                                status;
                                type_;
                                description;
                                arn;
                                kmsKeyArn;
                                standbyReplicas;
                                vectorOptions;
                                createdDate;
                                lastModifiedDate;
                                collectionGroupName
                              }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionId.to_value));
        ("name", (Option.map x.name ~f:CollectionName.to_value));
        ("status", (Option.map x.status ~f:CollectionStatus.to_value));
        ("type", (Option.map x.type_ ~f:CollectionType.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:String_.to_value));
        ("standbyReplicas",
          (Option.map x.standbyReplicas ~f:StandbyReplicas.to_value));
        ("vectorOptions",
          (Option.map x.vectorOptions ~f:VectorOptions.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Long.to_value));
        ("collectionGroupName",
          (Option.map x.collectionGroupName ~f:CollectionGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let collectionGroupName =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "collectionGroupName") in
      let lastModifiedDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedDate") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let vectorOptions =
        (Option.map ~f:VectorOptions.of_xml)
          (Xml.child xml_arg0 "vectorOptions") in
      let standbyReplicas =
        (Option.map ~f:StandbyReplicas.of_xml)
          (Xml.child xml_arg0 "standbyReplicas") in
      let kmsKeyArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let type_ =
        (Option.map ~f:CollectionType.of_xml) (Xml.child xml_arg0 "type") in
      let status =
        (Option.map ~f:CollectionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:CollectionName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:CollectionId.of_xml) (Xml.child xml_arg0 "id") in
      make ?collectionGroupName ?lastModifiedDate ?createdDate ?vectorOptions
        ?standbyReplicas ?kmsKeyArn ?arn ?description ?type_ ?status ?name
        ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let collectionGroupName =
        field_map json__ "collectionGroupName" CollectionGroupName.of_json in
      let lastModifiedDate = field_map json__ "lastModifiedDate" Long.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let vectorOptions =
        field_map json__ "vectorOptions" VectorOptions.of_json in
      let standbyReplicas =
        field_map json__ "standbyReplicas" StandbyReplicas.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let type_ = field_map json__ "type" CollectionType.of_json in
      let status = field_map json__ "status" CollectionStatus.of_json in
      let name = field_map json__ "name" CollectionName.of_json in
      let id = field_map json__ "id" CollectionId.of_json in
      make ?collectionGroupName ?lastModifiedDate ?createdDate ?vectorOptions
        ?standbyReplicas ?kmsKeyArn ?arn ?description ?type_ ?status ?name
        ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the created OpenSearch Serverless collection."]
module OcuLimitExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "Description of the error."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when the collection you're attempting to create results in a number of search or indexing OCUs that exceeds the account limit."]
module CreateCollectionRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "CreateCollectionRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"CreateCollectionRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module EncryptionConfig =
  struct
    type nonrec t =
      {
      aWSOwnedKey: Boolean.t option
        [@ocaml.doc
          "Indicates whether to use an Amazon Web Services-owned key for encryption."];
      kmsKeyArn: EncryptionConfigKmsKeyArnString.t option
        [@ocaml.doc
          "The ARN of the Amazon Web Services Key Management Service key used to encrypt the collection."]}
    let make ?aWSOwnedKey =
      fun ?kmsKeyArn -> fun () -> { aWSOwnedKey; kmsKeyArn }
    let to_value x =
      structure_to_value
        [("aWSOwnedKey", (Option.map x.aWSOwnedKey ~f:Boolean.to_value));
        ("kmsKeyArn",
          (Option.map x.kmsKeyArn ~f:EncryptionConfigKmsKeyArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyArn =
        (Option.map ~f:EncryptionConfigKmsKeyArnString.of_xml)
          (Xml.child xml_arg0 "kmsKeyArn") in
      let aWSOwnedKey =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "aWSOwnedKey") in
      make ?kmsKeyArn ?aWSOwnedKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyArn =
        field_map json__ "kmsKeyArn" EncryptionConfigKmsKeyArnString.of_json in
      let aWSOwnedKey = field_map json__ "aWSOwnedKey" Boolean.of_json in
      make ?kmsKeyArn ?aWSOwnedKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Encryption settings for a collection."]
module CreateCollectionGroupDetail =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t option
        [@ocaml.doc "The unique identifier of the collection group."];
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the collection group."];
      name: CollectionGroupName.t option
        [@ocaml.doc "The name of the collection group."];
      standbyReplicas: StandbyReplicas.t option
        [@ocaml.doc
          "Indicates whether standby replicas are used for the collection group."];
      description: String_.t option
        [@ocaml.doc "The description of the collection group."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of key-value pairs associated with the collection group."];
      createdDate: Long.t option
        [@ocaml.doc "The Epoch time when the collection group was created."];
      capacityLimits: CollectionGroupCapacityLimits.t option
        [@ocaml.doc
          "The capacity limits for the collection group, in OpenSearch Compute Units (OCUs)."]}
    let make ?id =
      fun ?arn ->
        fun ?name ->
          fun ?standbyReplicas ->
            fun ?description ->
              fun ?tags ->
                fun ?createdDate ->
                  fun ?capacityLimits ->
                    fun () ->
                      {
                        id;
                        arn;
                        name;
                        standbyReplicas;
                        description;
                        tags;
                        createdDate;
                        capacityLimits
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CollectionGroupId.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:CollectionGroupName.to_value));
        ("standbyReplicas",
          (Option.map x.standbyReplicas ~f:StandbyReplicas.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Long.to_value));
        ("capacityLimits",
          (Option.map x.capacityLimits
             ~f:CollectionGroupCapacityLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityLimits =
        (Option.map ~f:CollectionGroupCapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      let createdDate =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdDate") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let standbyReplicas =
        (Option.map ~f:StandbyReplicas.of_xml)
          (Xml.child xml_arg0 "standbyReplicas") in
      let name =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:CollectionGroupId.of_xml) (Xml.child xml_arg0 "id") in
      make ?capacityLimits ?createdDate ?tags ?description ?standbyReplicas
        ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityLimits =
        field_map json__ "capacityLimits"
          CollectionGroupCapacityLimits.of_json in
      let createdDate = field_map json__ "createdDate" Long.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let description = field_map json__ "description" String_.of_json in
      let standbyReplicas =
        field_map json__ "standbyReplicas" StandbyReplicas.of_json in
      let name = field_map json__ "name" CollectionGroupName.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" CollectionGroupId.of_json in
      make ?capacityLimits ?createdDate ?tags ?description ?standbyReplicas
        ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about the created collection group."]
module CreateCollectionGroupRequestDescriptionString =
  struct
    type nonrec t = string
    let context_ = "CreateCollectionGroupRequestDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"CreateCollectionGroupRequestDescriptionString" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointDetails =
  struct
    type nonrec t = VpcEndpointDetail.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:VpcEndpointDetail.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:VpcEndpointDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpointDetails"
        ~of_json:VpcEndpointDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointErrorDetails =
  struct
    type nonrec t = VpcEndpointErrorDetail.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:VpcEndpointErrorDetail.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:VpcEndpointErrorDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpointErrorDetails"
        ~of_json:VpcEndpointErrorDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointIds =
  struct
    type nonrec t = VpcEndpointId.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:VpcEndpointId.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:VpcEndpointId.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpointIds" ~of_json:VpcEndpointId.of_json j
    let to_json v = composed_to_json to_value v
  end
module LifecyclePolicyDetails =
  struct
    type nonrec t = LifecyclePolicyDetail.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:LifecyclePolicyDetail.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:LifecyclePolicyDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecyclePolicyDetails"
        ~of_json:LifecyclePolicyDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module LifecyclePolicyErrorDetails =
  struct
    type nonrec t = LifecyclePolicyErrorDetail.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:LifecyclePolicyErrorDetail.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:LifecyclePolicyErrorDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecyclePolicyErrorDetails"
        ~of_json:LifecyclePolicyErrorDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module LifecyclePolicyIdentifiers =
  struct
    type nonrec t = LifecyclePolicyIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:40) >>= (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:LifecyclePolicyIdentifier.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:LifecyclePolicyIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecyclePolicyIdentifiers"
        ~of_json:LifecyclePolicyIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module EffectiveLifecyclePolicyDetails =
  struct
    type nonrec t = EffectiveLifecyclePolicyDetail.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:EffectiveLifecyclePolicyDetail.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:EffectiveLifecyclePolicyDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"EffectiveLifecyclePolicyDetails"
        ~of_json:EffectiveLifecyclePolicyDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module EffectiveLifecyclePolicyErrorDetails =
  struct
    type nonrec t = EffectiveLifecyclePolicyErrorDetail.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:EffectiveLifecyclePolicyErrorDetail.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:EffectiveLifecyclePolicyErrorDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"EffectiveLifecyclePolicyErrorDetails"
        ~of_json:EffectiveLifecyclePolicyErrorDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module LifecyclePolicyResourceIdentifiers =
  struct
    type nonrec t = LifecyclePolicyResourceIdentifier.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:LifecyclePolicyResourceIdentifier.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:LifecyclePolicyResourceIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecyclePolicyResourceIdentifiers"
        ~of_json:LifecyclePolicyResourceIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionDetails =
  struct
    type nonrec t = CollectionDetail.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:CollectionDetail.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:CollectionDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionDetails"
        ~of_json:CollectionDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionErrorDetails =
  struct
    type nonrec t = CollectionErrorDetail.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:CollectionErrorDetail.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:CollectionErrorDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionErrorDetails"
        ~of_json:CollectionErrorDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionIds =
  struct
    type nonrec t = CollectionId.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:CollectionId.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:CollectionId.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionIds" ~of_json:CollectionId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionNames =
  struct
    type nonrec t = CollectionName.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:CollectionName.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:CollectionName.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionNames" ~of_json:CollectionName.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionGroupDetails =
  struct
    type nonrec t = CollectionGroupDetail.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:CollectionGroupDetail.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:CollectionGroupDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionGroupDetails"
        ~of_json:CollectionGroupDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionGroupErrorDetails =
  struct
    type nonrec t = CollectionGroupErrorDetail.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:CollectionGroupErrorDetail.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:CollectionGroupErrorDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionGroupErrorDetails"
        ~of_json:CollectionGroupErrorDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionGroupIds =
  struct
    type nonrec t = CollectionGroupId.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:CollectionGroupId.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:CollectionGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionGroupIds"
        ~of_json:CollectionGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CollectionGroupNames =
  struct
    type nonrec t = CollectionGroupName.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:CollectionGroupName.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:CollectionGroupName.of_xml)
    let of_json j =
      list_of_json ~kind:"CollectionGroupNames"
        ~of_json:CollectionGroupName.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateVpcEndpointResponse =
  struct
    type nonrec t =
      {
      updateVpcEndpointDetail: UpdateVpcEndpointDetail.t option
        [@ocaml.doc "Details about the updated VPC endpoint."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateVpcEndpointDetail = fun () -> { updateVpcEndpointDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("UpdateVpcEndpointDetail",
           (Option.map x.updateVpcEndpointDetail
              ~f:UpdateVpcEndpointDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateVpcEndpointDetail =
        (Option.map ~f:UpdateVpcEndpointDetail.of_xml)
          (Xml.child xml_arg0 "UpdateVpcEndpointDetail") in
      make ?updateVpcEndpointDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateVpcEndpointDetail =
        field_map json__ "UpdateVpcEndpointDetail"
          UpdateVpcEndpointDetail.of_json in
      make ?updateVpcEndpointDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless-managed interface endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module UpdateVpcEndpointRequest =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t
        [@ocaml.doc
          "The unique identifier of the interface endpoint to update."];
      addSubnetIds: SubnetIds.t option
        [@ocaml.doc "The ID of one or more subnets to add to the endpoint."];
      removeSubnetIds: SubnetIds.t option
        [@ocaml.doc
          "The unique identifiers of the subnets to remove from the endpoint."];
      addSecurityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The unique identifiers of the security groups to add to the endpoint. Security groups define the ports, protocols, and sources for inbound traffic that you are authorizing into your endpoint."];
      removeSecurityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The unique identifiers of the security groups to remove from the endpoint."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateVpcEndpointRequest"
    let make ?addSubnetIds =
      fun ?removeSubnetIds ->
        fun ?addSecurityGroupIds ->
          fun ?removeSecurityGroupIds ->
            fun ?clientToken ->
              fun ~id ->
                fun () ->
                  {
                    addSubnetIds;
                    removeSubnetIds;
                    addSecurityGroupIds;
                    removeSecurityGroupIds;
                    clientToken;
                    id
                  }
    let to_value x =
      structure_to_value
        [("id", (Some (VpcEndpointId.to_value x.id)));
        ("addSubnetIds", (Option.map x.addSubnetIds ~f:SubnetIds.to_value));
        ("removeSubnetIds",
          (Option.map x.removeSubnetIds ~f:SubnetIds.to_value));
        ("addSecurityGroupIds",
          (Option.map x.addSecurityGroupIds ~f:SecurityGroupIds.to_value));
        ("removeSecurityGroupIds",
          (Option.map x.removeSecurityGroupIds ~f:SecurityGroupIds.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let removeSecurityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "removeSecurityGroupIds") in
      let addSecurityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "addSecurityGroupIds") in
      let removeSubnetIds =
        (Option.map ~f:SubnetIds.of_xml)
          (Xml.child xml_arg0 "removeSubnetIds") in
      let addSubnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "addSubnetIds") in
      let id =
        VpcEndpointId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ?removeSecurityGroupIds ?addSecurityGroupIds
        ?removeSubnetIds ?addSubnetIds ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let removeSecurityGroupIds =
        field_map json__ "removeSecurityGroupIds" SecurityGroupIds.of_json in
      let addSecurityGroupIds =
        field_map json__ "addSecurityGroupIds" SecurityGroupIds.of_json in
      let removeSubnetIds =
        field_map json__ "removeSubnetIds" SubnetIds.of_json in
      let addSubnetIds = field_map json__ "addSubnetIds" SubnetIds.of_json in
      let id = field_map_exn json__ "id" VpcEndpointId.of_json in
      make ?clientToken ?removeSecurityGroupIds ?addSecurityGroupIds
        ?removeSubnetIds ?addSubnetIds ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless-managed interface endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module UpdateSecurityPolicyResponse =
  struct
    type nonrec t =
      {
      securityPolicyDetail: SecurityPolicyDetail.t option
        [@ocaml.doc "Details about the updated security policy."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityPolicyDetail = fun () -> { securityPolicyDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("securityPolicyDetail",
           (Option.map x.securityPolicyDetail
              ~f:SecurityPolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityPolicyDetail =
        (Option.map ~f:SecurityPolicyDetail.of_xml)
          (Xml.child xml_arg0 "securityPolicyDetail") in
      make ?securityPolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityPolicyDetail =
        field_map json__ "securityPolicyDetail" SecurityPolicyDetail.of_json in
      make ?securityPolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless security policy. For more information, see Network access for Amazon OpenSearch Serverless and Encryption at rest for Amazon OpenSearch Serverless."]
module UpdateSecurityPolicyRequest =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t [@ocaml.doc "The type of access policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy."];
      policyVersion: PolicyVersion.t
        [@ocaml.doc "The version of the policy being updated."];
      description: PolicyDescription.t option
        [@ocaml.doc
          "A description of the policy. Typically used to store information about the permissions defined in the policy."];
      policy: PolicyDocument.t option
        [@ocaml.doc
          "The JSON policy document to use as the content for the new policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateSecurityPolicyRequest"
    let make ?description =
      fun ?policy ->
        fun ?clientToken ->
          fun ~type_ ->
            fun ~name ->
              fun ~policyVersion ->
                fun () ->
                  {
                    description;
                    policy;
                    clientToken;
                    type_;
                    name;
                    policyVersion
                  }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("policyVersion", (Some (PolicyVersion.to_value x.policyVersion)));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Option.map x.policy ~f:PolicyDocument.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let policy =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        PolicyVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersion") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        SecurityPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ?policy ?description ~policyVersion ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let policy = field_map json__ "policy" PolicyDocument.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map_exn json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" SecurityPolicyType.of_json in
      make ?clientToken ?policy ?description ~policyVersion ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless security policy. For more information, see Network access for Amazon OpenSearch Serverless and Encryption at rest for Amazon OpenSearch Serverless."]
module UpdateSecurityConfigResponse =
  struct
    type nonrec t =
      {
      securityConfigDetail: SecurityConfigDetail.t option
        [@ocaml.doc "Details about the updated security configuration."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityConfigDetail = fun () -> { securityConfigDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("securityConfigDetail",
           (Option.map x.securityConfigDetail
              ~f:SecurityConfigDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityConfigDetail =
        (Option.map ~f:SecurityConfigDetail.of_xml)
          (Xml.child xml_arg0 "securityConfigDetail") in
      make ?securityConfigDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityConfigDetail =
        field_map json__ "securityConfigDetail" SecurityConfigDetail.of_json in
      make ?securityConfigDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a security configuration for OpenSearch Serverless. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module UpdateSecurityConfigRequest =
  struct
    type nonrec t =
      {
      id: SecurityConfigId.t
        [@ocaml.doc
          "The security configuration identifier. For SAML the ID will be saml/<accountId>/<idpProviderName>. For example, saml/123456789123/OKTADev."];
      configVersion: PolicyVersion.t
        [@ocaml.doc
          "The version of the security configuration to be updated. You can find the most recent version of a security configuration using the GetSecurityPolicy command."];
      description: ConfigDescription.t option
        [@ocaml.doc "A description of the security configuration."];
      samlOptions: SamlConfigOptions.t option
        [@ocaml.doc "SAML options in in the form of a key-value map."];
      iamIdentityCenterOptionsUpdates:
        UpdateIamIdentityCenterConfigOptions.t option
        [@ocaml.doc
          "Describes IAM Identity Center options in the form of a key-value map."];
      iamFederationOptions: IamFederationConfigOptions.t option
        [@ocaml.doc
          "Describes IAM federation options in the form of a key-value map for updating an existing security configuration. Use this field to modify IAM federation settings for the security configuration."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateSecurityConfigRequest"
    let make ?description =
      fun ?samlOptions ->
        fun ?iamIdentityCenterOptionsUpdates ->
          fun ?iamFederationOptions ->
            fun ?clientToken ->
              fun ~id ->
                fun ~configVersion ->
                  fun () ->
                    {
                      description;
                      samlOptions;
                      iamIdentityCenterOptionsUpdates;
                      iamFederationOptions;
                      clientToken;
                      id;
                      configVersion
                    }
    let to_value x =
      structure_to_value
        [("id", (Some (SecurityConfigId.to_value x.id)));
        ("configVersion", (Some (PolicyVersion.to_value x.configVersion)));
        ("description",
          (Option.map x.description ~f:ConfigDescription.to_value));
        ("samlOptions",
          (Option.map x.samlOptions ~f:SamlConfigOptions.to_value));
        ("iamIdentityCenterOptionsUpdates",
          (Option.map x.iamIdentityCenterOptionsUpdates
             ~f:UpdateIamIdentityCenterConfigOptions.to_value));
        ("iamFederationOptions",
          (Option.map x.iamFederationOptions
             ~f:IamFederationConfigOptions.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let iamFederationOptions =
        (Option.map ~f:IamFederationConfigOptions.of_xml)
          (Xml.child xml_arg0 "iamFederationOptions") in
      let iamIdentityCenterOptionsUpdates =
        (Option.map ~f:UpdateIamIdentityCenterConfigOptions.of_xml)
          (Xml.child xml_arg0 "iamIdentityCenterOptionsUpdates") in
      let samlOptions =
        (Option.map ~f:SamlConfigOptions.of_xml)
          (Xml.child xml_arg0 "samlOptions") in
      let description =
        (Option.map ~f:ConfigDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let configVersion =
        PolicyVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configVersion") in
      let id =
        SecurityConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ?iamFederationOptions
        ?iamIdentityCenterOptionsUpdates ?samlOptions ?description
        ~configVersion ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let iamFederationOptions =
        field_map json__ "iamFederationOptions"
          IamFederationConfigOptions.of_json in
      let iamIdentityCenterOptionsUpdates =
        field_map json__ "iamIdentityCenterOptionsUpdates"
          UpdateIamIdentityCenterConfigOptions.of_json in
      let samlOptions =
        field_map json__ "samlOptions" SamlConfigOptions.of_json in
      let description =
        field_map json__ "description" ConfigDescription.of_json in
      let configVersion =
        field_map_exn json__ "configVersion" PolicyVersion.of_json in
      let id = field_map_exn json__ "id" SecurityConfigId.of_json in
      make ?clientToken ?iamFederationOptions
        ?iamIdentityCenterOptionsUpdates ?samlOptions ?description
        ~configVersion ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a security configuration for OpenSearch Serverless. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module UpdateLifecyclePolicyResponse =
  struct
    type nonrec t =
      {
      lifecyclePolicyDetail: LifecyclePolicyDetail.t option
        [@ocaml.doc "Details about the updated lifecycle policy."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lifecyclePolicyDetail = fun () -> { lifecyclePolicyDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("lifecyclePolicyDetail",
           (Option.map x.lifecyclePolicyDetail
              ~f:LifecyclePolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecyclePolicyDetail =
        (Option.map ~f:LifecyclePolicyDetail.of_xml)
          (Xml.child xml_arg0 "lifecyclePolicyDetail") in
      make ?lifecyclePolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecyclePolicyDetail =
        field_map json__ "lifecyclePolicyDetail"
          LifecyclePolicyDetail.of_json in
      make ?lifecyclePolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless access policy. For more information, see Updating data lifecycle policies."]
module UpdateLifecyclePolicyRequest =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy."];
      policyVersion: PolicyVersion.t
        [@ocaml.doc "The version of the policy being updated."];
      description: PolicyDescription.t option
        [@ocaml.doc "A description of the lifecycle policy."];
      policy: PolicyDocument.t option
        [@ocaml.doc
          "The JSON policy document to use as the content for the lifecycle policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateLifecyclePolicyRequest"
    let make ?description =
      fun ?policy ->
        fun ?clientToken ->
          fun ~type_ ->
            fun ~name ->
              fun ~policyVersion ->
                fun () ->
                  {
                    description;
                    policy;
                    clientToken;
                    type_;
                    name;
                    policyVersion
                  }
    let to_value x =
      structure_to_value
        [("type", (Some (LifecyclePolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("policyVersion", (Some (PolicyVersion.to_value x.policyVersion)));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Option.map x.policy ~f:PolicyDocument.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let policy =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        PolicyVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersion") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        LifecyclePolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ?policy ?description ~policyVersion ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let policy = field_map json__ "policy" PolicyDocument.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map_exn json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" LifecyclePolicyType.of_json in
      make ?clientToken ?policy ?description ~policyVersion ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless access policy. For more information, see Updating data lifecycle policies."]
module UpdateIndexResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Updates an existing index in an OpenSearch Serverless collection. This operation allows you to modify the index schema, including adding new fields or changing field mappings. You can also enable automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment."]
module UpdateIndexRequest =
  struct
    type nonrec t =
      {
      id: CollectionId.t
        [@ocaml.doc
          "The unique identifier of the collection containing the index to update."];
      indexName: IndexName.t [@ocaml.doc "The name of the index to update."];
      indexSchema: IndexSchema.t option
        [@ocaml.doc
          "The updated JSON schema definition for the index, including field mappings and settings."]}
    let context_ = "UpdateIndexRequest"
    let make ?indexSchema =
      fun ~id -> fun ~indexName -> fun () -> { indexSchema; id; indexName }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionId.to_value x.id)));
        ("indexName", (Some (IndexName.to_value x.indexName)));
        ("indexSchema", (Option.map x.indexSchema ~f:IndexSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexSchema =
        (Option.map ~f:IndexSchema.of_xml) (Xml.child xml_arg0 "indexSchema") in
      let indexName =
        IndexName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "indexName") in
      let id =
        CollectionId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?indexSchema ~indexName ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexSchema = field_map json__ "indexSchema" IndexSchema.of_json in
      let indexName = field_map_exn json__ "indexName" IndexName.of_json in
      let id = field_map_exn json__ "id" CollectionId.of_json in
      make ?indexSchema ~indexName ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing index in an OpenSearch Serverless collection. This operation allows you to modify the index schema, including adding new fields or changing field mappings. You can also enable automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment."]
module UpdateCollectionResponse =
  struct
    type nonrec t =
      {
      updateCollectionDetail: UpdateCollectionDetail.t option
        [@ocaml.doc "Details about the updated collection."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateCollectionDetail = fun () -> { updateCollectionDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("updateCollectionDetail",
           (Option.map x.updateCollectionDetail
              ~f:UpdateCollectionDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateCollectionDetail =
        (Option.map ~f:UpdateCollectionDetail.of_xml)
          (Xml.child xml_arg0 "updateCollectionDetail") in
      make ?updateCollectionDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateCollectionDetail =
        field_map json__ "updateCollectionDetail"
          UpdateCollectionDetail.of_json in
      make ?updateCollectionDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an OpenSearch Serverless collection."]
module UpdateCollectionRequest =
  struct
    type nonrec t =
      {
      id: CollectionId.t
        [@ocaml.doc "The unique identifier of the collection."];
      description: UpdateCollectionRequestDescriptionString.t option
        [@ocaml.doc "A description of the collection."];
      vectorOptions: VectorOptions.t option
        [@ocaml.doc
          "Configuration options for vector search capabilities in the collection."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateCollectionRequest"
    let make ?description =
      fun ?vectorOptions ->
        fun ?clientToken ->
          fun ~id ->
            fun () -> { description; vectorOptions; clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionId.to_value x.id)));
        ("description",
          (Option.map x.description
             ~f:UpdateCollectionRequestDescriptionString.to_value));
        ("vectorOptions",
          (Option.map x.vectorOptions ~f:VectorOptions.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let vectorOptions =
        (Option.map ~f:VectorOptions.of_xml)
          (Xml.child xml_arg0 "vectorOptions") in
      let description =
        (Option.map ~f:UpdateCollectionRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let id =
        CollectionId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ?vectorOptions ?description ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let vectorOptions =
        field_map json__ "vectorOptions" VectorOptions.of_json in
      let description =
        field_map json__ "description"
          UpdateCollectionRequestDescriptionString.of_json in
      let id = field_map_exn json__ "id" CollectionId.of_json in
      make ?clientToken ?vectorOptions ?description ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an OpenSearch Serverless collection."]
module UpdateCollectionGroupResponse =
  struct
    type nonrec t =
      {
      updateCollectionGroupDetail: UpdateCollectionGroupDetail.t option
        [@ocaml.doc "Details about the updated collection group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateCollectionGroupDetail =
      fun () -> { updateCollectionGroupDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("updateCollectionGroupDetail",
           (Option.map x.updateCollectionGroupDetail
              ~f:UpdateCollectionGroupDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateCollectionGroupDetail =
        (Option.map ~f:UpdateCollectionGroupDetail.of_xml)
          (Xml.child xml_arg0 "updateCollectionGroupDetail") in
      make ?updateCollectionGroupDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateCollectionGroupDetail =
        field_map json__ "updateCollectionGroupDetail"
          UpdateCollectionGroupDetail.of_json in
      make ?updateCollectionGroupDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the description and capacity limits of a collection group."]
module UpdateCollectionGroupRequest =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t
        [@ocaml.doc
          "The unique identifier of the collection group to update."];
      description: UpdateCollectionGroupRequestDescriptionString.t option
        [@ocaml.doc "A new description for the collection group."];
      capacityLimits: CollectionGroupCapacityLimits.t option
        [@ocaml.doc
          "Updated capacity limits for the collection group, in OpenSearch Compute Units (OCUs)."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateCollectionGroupRequest"
    let make ?description =
      fun ?capacityLimits ->
        fun ?clientToken ->
          fun ~id ->
            fun () -> { description; capacityLimits; clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionGroupId.to_value x.id)));
        ("description",
          (Option.map x.description
             ~f:UpdateCollectionGroupRequestDescriptionString.to_value));
        ("capacityLimits",
          (Option.map x.capacityLimits
             ~f:CollectionGroupCapacityLimits.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let capacityLimits =
        (Option.map ~f:CollectionGroupCapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      let description =
        (Option.map ~f:UpdateCollectionGroupRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let id =
        CollectionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ?capacityLimits ?description ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let capacityLimits =
        field_map json__ "capacityLimits"
          CollectionGroupCapacityLimits.of_json in
      let description =
        field_map json__ "description"
          UpdateCollectionGroupRequestDescriptionString.of_json in
      let id = field_map_exn json__ "id" CollectionGroupId.of_json in
      make ?clientToken ?capacityLimits ?description ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the description and capacity limits of a collection group."]
module UpdateAccountSettingsResponse =
  struct
    type nonrec t =
      {
      accountSettingsDetail: AccountSettingsDetail.t option
        [@ocaml.doc
          "OpenSearch Serverless-related settings for the current Amazon Web Services account."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountSettingsDetail = fun () -> { accountSettingsDetail }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("accountSettingsDetail",
           (Option.map x.accountSettingsDetail
              ~f:AccountSettingsDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountSettingsDetail =
        (Option.map ~f:AccountSettingsDetail.of_xml)
          (Xml.child xml_arg0 "accountSettingsDetail") in
      make ?accountSettingsDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountSettingsDetail =
        field_map json__ "accountSettingsDetail"
          AccountSettingsDetail.of_json in
      make ?accountSettingsDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update the OpenSearch Serverless settings for the current Amazon Web Services account. For more information, see Managing capacity limits for Amazon OpenSearch Serverless."]
module UpdateAccountSettingsRequest =
  struct
    type nonrec t = {
      capacityLimits: CapacityLimits.t option }
    let make ?capacityLimits = fun () -> { capacityLimits }
    let to_value x =
      structure_to_value
        [("capacityLimits",
           (Option.map x.capacityLimits ~f:CapacityLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityLimits =
        (Option.map ~f:CapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      make ?capacityLimits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityLimits =
        field_map json__ "capacityLimits" CapacityLimits.of_json in
      make ?capacityLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update the OpenSearch Serverless settings for the current Amazon Web Services account. For more information, see Managing capacity limits for Amazon OpenSearch Serverless."]
module UpdateAccessPolicyResponse =
  struct
    type nonrec t =
      {
      accessPolicyDetail: AccessPolicyDetail.t option
        [@ocaml.doc "Details about the updated access policy."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessPolicyDetail = fun () -> { accessPolicyDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("accessPolicyDetail",
           (Option.map x.accessPolicyDetail ~f:AccessPolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPolicyDetail =
        (Option.map ~f:AccessPolicyDetail.of_xml)
          (Xml.child xml_arg0 "accessPolicyDetail") in
      make ?accessPolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPolicyDetail =
        field_map json__ "accessPolicyDetail" AccessPolicyDetail.of_json in
      make ?accessPolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless access policy. For more information, see Data access control for Amazon OpenSearch Serverless."]
module UpdateAccessPolicyRequest =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t [@ocaml.doc "The type of policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy."];
      policyVersion: PolicyVersion.t
        [@ocaml.doc "The version of the policy being updated."];
      description: PolicyDescription.t option
        [@ocaml.doc
          "A description of the policy. Typically used to store information about the permissions defined in the policy."];
      policy: PolicyDocument.t option
        [@ocaml.doc
          "The JSON policy document to use as the content for the policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "UpdateAccessPolicyRequest"
    let make ?description =
      fun ?policy ->
        fun ?clientToken ->
          fun ~type_ ->
            fun ~name ->
              fun ~policyVersion ->
                fun () ->
                  {
                    description;
                    policy;
                    clientToken;
                    type_;
                    name;
                    policyVersion
                  }
    let to_value x =
      structure_to_value
        [("type", (Some (AccessPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("policyVersion", (Some (PolicyVersion.to_value x.policyVersion)));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Option.map x.policy ~f:PolicyDocument.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let policy =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let policyVersion =
        PolicyVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyVersion") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        AccessPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ?policy ?description ~policyVersion ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let policy = field_map json__ "policy" PolicyDocument.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let policyVersion =
        field_map_exn json__ "policyVersion" PolicyVersion.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" AccessPolicyType.of_json in
      make ?clientToken ?policy ?description ~policyVersion ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an OpenSearch Serverless access policy. For more information, see Data access control for Amazon OpenSearch Serverless."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 a tag or set of tags from an OpenSearch Serverless resource. For more information, see Tagging Amazon OpenSearch Serverless collections."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to remove tags from. The resource must be active (not in the DELETING state), and must be owned by the account ID included in the request."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "The tag or set of tags to remove from the resource. All tag keys in the request must be unique."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.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" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a tag or set of tags from an OpenSearch Serverless resource. For more information, see Tagging Amazon OpenSearch Serverless collections."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
       "Associates tags with an OpenSearch Serverless resource. For more information, see Tagging Amazon OpenSearch Serverless collections."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. The resource must be active (not in the DELETING state), and must be owned by the account ID included in the request."];
      tags: Tags.t
        [@ocaml.doc
          "A list of tags (key-value pairs) to add to the resource. All tag keys in the request must be unique."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates tags with an OpenSearch Serverless resource. For more information, see Tagging Amazon OpenSearch Serverless collections."]
module ListVpcEndpointsResponse =
  struct
    type nonrec t =
      {
      vpcEndpointSummaries: VpcEndpointSummaries.t option
        [@ocaml.doc
          "Details about each VPC endpoint, including the name and current status."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointSummaries =
      fun ?nextToken -> fun () -> { vpcEndpointSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("vpcEndpointSummaries",
           (Option.map x.vpcEndpointSummaries
              ~f:VpcEndpointSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let vpcEndpointSummaries =
        (Option.map ~f:VpcEndpointSummaries.of_xml)
          (Xml.child xml_arg0 "vpcEndpointSummaries") in
      make ?nextToken ?vpcEndpointSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let vpcEndpointSummaries =
        field_map json__ "vpcEndpointSummaries" VpcEndpointSummaries.of_json in
      make ?nextToken ?vpcEndpointSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the OpenSearch Serverless-managed interface VPC endpoints associated with the current account. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module ListVpcEndpointsRequest =
  struct
    type nonrec t =
      {
      vpcEndpointFilters: VpcEndpointFilters.t option
        [@ocaml.doc
          "Filter the results according to the current status of the VPC endpoint. Possible statuses are CREATING, DELETING, UPDATING, ACTIVE, and FAILED."];
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListVpcEndpoints operation returns a nextToken, you can include the returned nextToken in subsequent ListVpcEndpoints operations, which returns results in the next page."];
      maxResults: ListVpcEndpointsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "An optional parameter that specifies the maximum number of results to return. You can use nextToken to get the next page of results. The default is 20."]}
    let make ?vpcEndpointFilters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { vpcEndpointFilters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("vpcEndpointFilters",
           (Option.map x.vpcEndpointFilters ~f:VpcEndpointFilters.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListVpcEndpointsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListVpcEndpointsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let vpcEndpointFilters =
        (Option.map ~f:VpcEndpointFilters.of_xml)
          (Xml.child xml_arg0 "vpcEndpointFilters") in
      make ?maxResults ?nextToken ?vpcEndpointFilters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListVpcEndpointsRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let vpcEndpointFilters =
        field_map json__ "vpcEndpointFilters" VpcEndpointFilters.of_json in
      make ?maxResults ?nextToken ?vpcEndpointFilters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the OpenSearch Serverless-managed interface VPC endpoints associated with the current account. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc "The tags associated with the resource."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the tags for an OpenSearch Serverless resource. For more information, see Tagging Amazon OpenSearch Serverless collections."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. The resource must be active (not in the DELETING state), and must be owned by the account ID included in the request."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.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" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the tags for an OpenSearch Serverless resource. For more information, see Tagging Amazon OpenSearch Serverless collections."]
module ListSecurityPoliciesResponse =
  struct
    type nonrec t =
      {
      securityPolicySummaries: SecurityPolicySummaries.t option
        [@ocaml.doc "Details about the security policies in your account."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityPolicySummaries =
      fun ?nextToken -> fun () -> { securityPolicySummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("securityPolicySummaries",
           (Option.map x.securityPolicySummaries
              ~f:SecurityPolicySummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let securityPolicySummaries =
        (Option.map ~f:SecurityPolicySummaries.of_xml)
          (Xml.child xml_arg0 "securityPolicySummaries") in
      make ?nextToken ?securityPolicySummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let securityPolicySummaries =
        field_map json__ "securityPolicySummaries"
          SecurityPolicySummaries.of_json in
      make ?nextToken ?securityPolicySummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about configured OpenSearch Serverless security policies."]
module ListSecurityPoliciesRequest =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t [@ocaml.doc "The type of policy."];
      resource: ListSecurityPoliciesRequestResourceList.t option
        [@ocaml.doc
          "Resource filters (can be collection or indexes) that policies can apply to."];
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListSecurityPolicies operation returns a nextToken, you can include the returned nextToken in subsequent ListSecurityPolicies operations, which returns results in the next page."];
      maxResults: ListSecurityPoliciesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "An optional parameter that specifies the maximum number of results to return. You can use nextToken to get the next page of results. The default is 20."]}
    let context_ = "ListSecurityPoliciesRequest"
    let make ?resource =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~type_ -> fun () -> { resource; nextToken; maxResults; type_ }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityPolicyType.to_value x.type_)));
        ("resource",
          (Option.map x.resource
             ~f:ListSecurityPoliciesRequestResourceList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListSecurityPoliciesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListSecurityPoliciesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resource =
        (Option.map ~f:ListSecurityPoliciesRequestResourceList.of_xml)
          (Xml.child xml_arg0 "resource") in
      let type_ =
        SecurityPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?maxResults ?nextToken ?resource ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListSecurityPoliciesRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let resource =
        field_map json__ "resource"
          ListSecurityPoliciesRequestResourceList.of_json in
      let type_ = field_map_exn json__ "type" SecurityPolicyType.of_json in
      make ?maxResults ?nextToken ?resource ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about configured OpenSearch Serverless security policies."]
module ListSecurityConfigsResponse =
  struct
    type nonrec t =
      {
      securityConfigSummaries: SecurityConfigSummaries.t option
        [@ocaml.doc
          "Details about the security configurations in your account."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityConfigSummaries =
      fun ?nextToken -> fun () -> { securityConfigSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("securityConfigSummaries",
           (Option.map x.securityConfigSummaries
              ~f:SecurityConfigSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let securityConfigSummaries =
        (Option.map ~f:SecurityConfigSummaries.of_xml)
          (Xml.child xml_arg0 "securityConfigSummaries") in
      make ?nextToken ?securityConfigSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let securityConfigSummaries =
        field_map json__ "securityConfigSummaries"
          SecurityConfigSummaries.of_json in
      make ?nextToken ?securityConfigSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about configured OpenSearch Serverless security configurations. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module ListSecurityConfigsRequest =
  struct
    type nonrec t =
      {
      type_: SecurityConfigType.t
        [@ocaml.doc "The type of security configuration."];
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListSecurityConfigs operation returns a nextToken, you can include the returned nextToken in subsequent ListSecurityConfigs operations, which returns results in the next page."];
      maxResults: ListSecurityConfigsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "An optional parameter that specifies the maximum number of results to return. You can use nextToken to get the next page of results. The default is 20."]}
    let context_ = "ListSecurityConfigsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~type_ -> fun () -> { nextToken; maxResults; type_ }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityConfigType.to_value x.type_)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListSecurityConfigsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListSecurityConfigsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let type_ =
        SecurityConfigType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?maxResults ?nextToken ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListSecurityConfigsRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let type_ = field_map_exn json__ "type" SecurityConfigType.of_json in
      make ?maxResults ?nextToken ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about configured OpenSearch Serverless security configurations. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module ListLifecyclePoliciesResponse =
  struct
    type nonrec t =
      {
      lifecyclePolicySummaries: LifecyclePolicySummaries.t option
        [@ocaml.doc "Details about the requested lifecycle policies."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lifecyclePolicySummaries =
      fun ?nextToken -> fun () -> { lifecyclePolicySummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("lifecyclePolicySummaries",
           (Option.map x.lifecyclePolicySummaries
              ~f:LifecyclePolicySummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let lifecyclePolicySummaries =
        (Option.map ~f:LifecyclePolicySummaries.of_xml)
          (Xml.child xml_arg0 "lifecyclePolicySummaries") in
      make ?nextToken ?lifecyclePolicySummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let lifecyclePolicySummaries =
        field_map json__ "lifecyclePolicySummaries"
          LifecyclePolicySummaries.of_json in
      make ?nextToken ?lifecyclePolicySummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of OpenSearch Serverless lifecycle policies. For more information, see Viewing data lifecycle policies."]
module ListLifecyclePoliciesRequest =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t
        [@ocaml.doc "The type of lifecycle policy."];
      resources: ListLifecyclePoliciesRequestResourcesList.t option
        [@ocaml.doc
          "Resource filters that policies can apply to. Currently, the only supported resource type is index."];
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListLifecyclePolicies operation returns a nextToken, you can include the returned nextToken in subsequent ListLifecyclePolicies operations, which returns results in the next page."];
      maxResults: ListLifecyclePoliciesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "An optional parameter that specifies the maximum number of results to return. You can use use nextToken to get the next page of results. The default is 10."]}
    let context_ = "ListLifecyclePoliciesRequest"
    let make ?resources =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~type_ -> fun () -> { resources; nextToken; maxResults; type_ }
    let to_value x =
      structure_to_value
        [("type", (Some (LifecyclePolicyType.to_value x.type_)));
        ("resources",
          (Option.map x.resources
             ~f:ListLifecyclePoliciesRequestResourcesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListLifecyclePoliciesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListLifecyclePoliciesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resources =
        (Option.map ~f:ListLifecyclePoliciesRequestResourcesList.of_xml)
          (Xml.child xml_arg0 "resources") in
      let type_ =
        LifecyclePolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?maxResults ?nextToken ?resources ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListLifecyclePoliciesRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let resources =
        field_map json__ "resources"
          ListLifecyclePoliciesRequestResourcesList.of_json in
      let type_ = field_map_exn json__ "type" LifecyclePolicyType.of_json in
      make ?maxResults ?nextToken ?resources ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of OpenSearch Serverless lifecycle policies. For more information, see Viewing data lifecycle policies."]
module ListCollectionsResponse =
  struct
    type nonrec t =
      {
      collectionSummaries: CollectionSummaries.t option
        [@ocaml.doc "Details about each collection."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?collectionSummaries =
      fun ?nextToken -> fun () -> { collectionSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("collectionSummaries",
           (Option.map x.collectionSummaries ~f:CollectionSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let collectionSummaries =
        (Option.map ~f:CollectionSummaries.of_xml)
          (Xml.child xml_arg0 "collectionSummaries") in
      make ?nextToken ?collectionSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let collectionSummaries =
        field_map json__ "collectionSummaries" CollectionSummaries.of_json in
      make ?nextToken ?collectionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all OpenSearch Serverless collections. For more information, see Creating and managing Amazon OpenSearch Serverless collections. Make sure to include an empty request body \\{\\} if you don't include any collection filters in the request."]
module ListCollectionsRequest =
  struct
    type nonrec t =
      {
      collectionFilters: CollectionFilters.t option
        [@ocaml.doc
          "A list of filter names and values that you can use for requests."];
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListCollections operation returns a nextToken, you can include the returned nextToken in subsequent ListCollections operations, which returns results in the next page."];
      maxResults: ListCollectionsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return. Default is 20. You can use nextToken to get the next page of results."]}
    let make ?collectionFilters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { collectionFilters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("collectionFilters",
           (Option.map x.collectionFilters ~f:CollectionFilters.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCollectionsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListCollectionsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let collectionFilters =
        (Option.map ~f:CollectionFilters.of_xml)
          (Xml.child xml_arg0 "collectionFilters") in
      make ?maxResults ?nextToken ?collectionFilters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListCollectionsRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let collectionFilters =
        field_map json__ "collectionFilters" CollectionFilters.of_json in
      make ?maxResults ?nextToken ?collectionFilters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all OpenSearch Serverless collections. For more information, see Creating and managing Amazon OpenSearch Serverless collections. Make sure to include an empty request body \\{\\} if you don't include any collection filters in the request."]
module ListCollectionGroupsResponse =
  struct
    type nonrec t =
      {
      collectionGroupSummaries: CollectionGroupSummaries.t option
        [@ocaml.doc "Details about each collection group."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?collectionGroupSummaries =
      fun ?nextToken -> fun () -> { collectionGroupSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("collectionGroupSummaries",
           (Option.map x.collectionGroupSummaries
              ~f:CollectionGroupSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let collectionGroupSummaries =
        (Option.map ~f:CollectionGroupSummaries.of_xml)
          (Xml.child xml_arg0 "collectionGroupSummaries") in
      make ?nextToken ?collectionGroupSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let collectionGroupSummaries =
        field_map json__ "collectionGroupSummaries"
          CollectionGroupSummaries.of_json in
      make ?nextToken ?collectionGroupSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of collection groups. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module ListCollectionGroupsRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListCollectionGroups operation returns a nextToken, you can include the returned nextToken in subsequent ListCollectionGroups operations, which returns results in the next page."];
      maxResults: ListCollectionGroupsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return. Default is 20. You can use nextToken to get the next page of results."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCollectionGroupsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListCollectionGroupsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListCollectionGroupsRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of collection groups. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module ListAccessPoliciesResponse =
  struct
    type nonrec t =
      {
      accessPolicySummaries: AccessPolicySummaries.t option
        [@ocaml.doc "Details about the requested access policies."];
      nextToken: String_.t option
        [@ocaml.doc
          "When nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessPolicySummaries =
      fun ?nextToken -> fun () -> { accessPolicySummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("accessPolicySummaries",
           (Option.map x.accessPolicySummaries
              ~f:AccessPolicySummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let accessPolicySummaries =
        (Option.map ~f:AccessPolicySummaries.of_xml)
          (Xml.child xml_arg0 "accessPolicySummaries") in
      make ?nextToken ?accessPolicySummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let accessPolicySummaries =
        field_map json__ "accessPolicySummaries"
          AccessPolicySummaries.of_json in
      make ?nextToken ?accessPolicySummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a list of OpenSearch Serverless access policies."]
module ListAccessPoliciesRequest =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t [@ocaml.doc "The type of access policy."];
      resource: ListAccessPoliciesRequestResourceList.t option
        [@ocaml.doc
          "Resource filters (can be collections or indexes) that policies can apply to."];
      nextToken: String_.t option
        [@ocaml.doc
          "If your initial ListAccessPolicies operation returns a nextToken, you can include the returned nextToken in subsequent ListAccessPolicies operations, which returns results in the next page."];
      maxResults: ListAccessPoliciesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "An optional parameter that specifies the maximum number of results to return. You can use nextToken to get the next page of results. The default is 20."]}
    let context_ = "ListAccessPoliciesRequest"
    let make ?resource =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~type_ -> fun () -> { resource; nextToken; maxResults; type_ }
    let to_value x =
      structure_to_value
        [("type", (Some (AccessPolicyType.to_value x.type_)));
        ("resource",
          (Option.map x.resource
             ~f:ListAccessPoliciesRequestResourceList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAccessPoliciesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListAccessPoliciesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resource =
        (Option.map ~f:ListAccessPoliciesRequestResourceList.of_xml)
          (Xml.child xml_arg0 "resource") in
      let type_ =
        AccessPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?maxResults ?nextToken ?resource ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListAccessPoliciesRequestMaxResultsInteger.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let resource =
        field_map json__ "resource"
          ListAccessPoliciesRequestResourceList.of_json in
      let type_ = field_map_exn json__ "type" AccessPolicyType.of_json in
      make ?maxResults ?nextToken ?resource ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a list of OpenSearch Serverless access policies."]
module GetSecurityPolicyResponse =
  struct
    type nonrec t =
      {
      securityPolicyDetail: SecurityPolicyDetail.t option
        [@ocaml.doc "Details about the requested security policy."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityPolicyDetail = fun () -> { securityPolicyDetail }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("securityPolicyDetail",
           (Option.map x.securityPolicyDetail
              ~f:SecurityPolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityPolicyDetail =
        (Option.map ~f:SecurityPolicyDetail.of_xml)
          (Xml.child xml_arg0 "securityPolicyDetail") in
      make ?securityPolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityPolicyDetail =
        field_map json__ "securityPolicyDetail" SecurityPolicyDetail.of_json in
      make ?securityPolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a configured OpenSearch Serverless security policy. For more information, see Network access for Amazon OpenSearch Serverless and Encryption at rest for Amazon OpenSearch Serverless."]
module GetSecurityPolicyRequest =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t [@ocaml.doc "The type of security policy."];
      name: PolicyName.t [@ocaml.doc "The name of the security policy."]}
    let context_ = "GetSecurityPolicyRequest"
    let make ~type_ = fun ~name -> fun () -> { type_; name }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        SecurityPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" SecurityPolicyType.of_json in
      make ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a configured OpenSearch Serverless security policy. For more information, see Network access for Amazon OpenSearch Serverless and Encryption at rest for Amazon OpenSearch Serverless."]
module GetSecurityConfigResponse =
  struct
    type nonrec t =
      {
      securityConfigDetail: SecurityConfigDetail.t option
        [@ocaml.doc "Details of the requested security configuration."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityConfigDetail = fun () -> { securityConfigDetail }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("securityConfigDetail",
           (Option.map x.securityConfigDetail
              ~f:SecurityConfigDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityConfigDetail =
        (Option.map ~f:SecurityConfigDetail.of_xml)
          (Xml.child xml_arg0 "securityConfigDetail") in
      make ?securityConfigDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityConfigDetail =
        field_map json__ "securityConfigDetail" SecurityConfigDetail.of_json in
      make ?securityConfigDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an OpenSearch Serverless security configuration. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module GetSecurityConfigRequest =
  struct
    type nonrec t =
      {
      id: SecurityConfigId.t
        [@ocaml.doc "The unique identifier of the security configuration."]}
    let context_ = "GetSecurityConfigRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (SecurityConfigId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        SecurityConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" SecurityConfigId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an OpenSearch Serverless security configuration. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module GetPoliciesStatsResponse =
  struct
    type nonrec t =
      {
      accessPolicyStats: AccessPolicyStats.t option
        [@ocaml.doc
          "Information about the data access policies in your account."];
      securityPolicyStats: SecurityPolicyStats.t option
        [@ocaml.doc
          "Information about the security policies in your account."];
      securityConfigStats: SecurityConfigStats.t option
        [@ocaml.doc
          "Information about the security configurations in your account."];
      lifecyclePolicyStats: LifecyclePolicyStats.t option
        [@ocaml.doc
          "Information about the lifecycle policies in your account."];
      totalPolicyCount: Long.t option
        [@ocaml.doc
          "The total number of OpenSearch Serverless security policies and configurations in your account."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessPolicyStats =
      fun ?securityPolicyStats ->
        fun ?securityConfigStats ->
          fun ?lifecyclePolicyStats ->
            fun ?totalPolicyCount ->
              fun () ->
                {
                  accessPolicyStats;
                  securityPolicyStats;
                  securityConfigStats;
                  lifecyclePolicyStats;
                  totalPolicyCount
                }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("AccessPolicyStats",
           (Option.map x.accessPolicyStats ~f:AccessPolicyStats.to_value));
        ("SecurityPolicyStats",
          (Option.map x.securityPolicyStats ~f:SecurityPolicyStats.to_value));
        ("SecurityConfigStats",
          (Option.map x.securityConfigStats ~f:SecurityConfigStats.to_value));
        ("LifecyclePolicyStats",
          (Option.map x.lifecyclePolicyStats ~f:LifecyclePolicyStats.to_value));
        ("TotalPolicyCount",
          (Option.map x.totalPolicyCount ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalPolicyCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalPolicyCount") in
      let lifecyclePolicyStats =
        (Option.map ~f:LifecyclePolicyStats.of_xml)
          (Xml.child xml_arg0 "LifecyclePolicyStats") in
      let securityConfigStats =
        (Option.map ~f:SecurityConfigStats.of_xml)
          (Xml.child xml_arg0 "SecurityConfigStats") in
      let securityPolicyStats =
        (Option.map ~f:SecurityPolicyStats.of_xml)
          (Xml.child xml_arg0 "SecurityPolicyStats") in
      let accessPolicyStats =
        (Option.map ~f:AccessPolicyStats.of_xml)
          (Xml.child xml_arg0 "AccessPolicyStats") in
      make ?totalPolicyCount ?lifecyclePolicyStats ?securityConfigStats
        ?securityPolicyStats ?accessPolicyStats ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalPolicyCount = field_map json__ "TotalPolicyCount" Long.of_json in
      let lifecyclePolicyStats =
        field_map json__ "LifecyclePolicyStats" LifecyclePolicyStats.of_json in
      let securityConfigStats =
        field_map json__ "SecurityConfigStats" SecurityConfigStats.of_json in
      let securityPolicyStats =
        field_map json__ "SecurityPolicyStats" SecurityPolicyStats.of_json in
      let accessPolicyStats =
        field_map json__ "AccessPolicyStats" AccessPolicyStats.of_json in
      make ?totalPolicyCount ?lifecyclePolicyStats ?securityConfigStats
        ?securityPolicyStats ?accessPolicyStats ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns statistical information about your OpenSearch Serverless access policies, security configurations, and security policies."]
module GetPoliciesStatsRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns statistical information about your OpenSearch Serverless access policies, security configurations, and security policies."]
module GetIndexResponse =
  struct
    type nonrec t =
      {
      indexSchema: IndexSchema.t option
        [@ocaml.doc
          "The JSON schema definition for the index, including field mappings and settings."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexSchema = fun () -> { indexSchema }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("indexSchema", (Option.map x.indexSchema ~f:IndexSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexSchema =
        (Option.map ~f:IndexSchema.of_xml) (Xml.child xml_arg0 "indexSchema") in
      make ?indexSchema ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexSchema = field_map json__ "indexSchema" IndexSchema.of_json in
      make ?indexSchema ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about an index in an OpenSearch Serverless collection, including its schema definition. The index might be configured to conduct automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment."]
module GetIndexRequest =
  struct
    type nonrec t =
      {
      id: CollectionId.t
        [@ocaml.doc
          "The unique identifier of the collection containing the index."];
      indexName: IndexName.t
        [@ocaml.doc "The name of the index to retrieve information about."]}
    let context_ = "GetIndexRequest"
    let make ~id = fun ~indexName -> fun () -> { id; indexName }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionId.to_value x.id)));
        ("indexName", (Some (IndexName.to_value x.indexName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexName =
        IndexName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "indexName") in
      let id =
        CollectionId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~indexName ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexName = field_map_exn json__ "indexName" IndexName.of_json in
      let id = field_map_exn json__ "id" CollectionId.of_json in
      make ~indexName ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about an index in an OpenSearch Serverless collection, including its schema definition. The index might be configured to conduct automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment."]
module GetAccountSettingsResponse =
  struct
    type nonrec t =
      {
      accountSettingsDetail: AccountSettingsDetail.t option
        [@ocaml.doc
          "OpenSearch Serverless-related details for the current account."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountSettingsDetail = fun () -> { accountSettingsDetail }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("accountSettingsDetail",
           (Option.map x.accountSettingsDetail
              ~f:AccountSettingsDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountSettingsDetail =
        (Option.map ~f:AccountSettingsDetail.of_xml)
          (Xml.child xml_arg0 "accountSettingsDetail") in
      make ?accountSettingsDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountSettingsDetail =
        field_map json__ "accountSettingsDetail"
          AccountSettingsDetail.of_json in
      make ?accountSettingsDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns account-level settings related to OpenSearch Serverless."]
module GetAccountSettingsRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns account-level settings related to OpenSearch Serverless."]
module GetAccessPolicyResponse =
  struct
    type nonrec t =
      {
      accessPolicyDetail: AccessPolicyDetail.t option
        [@ocaml.doc "Details about the requested access policy."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessPolicyDetail = fun () -> { accessPolicyDetail }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("accessPolicyDetail",
           (Option.map x.accessPolicyDetail ~f:AccessPolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPolicyDetail =
        (Option.map ~f:AccessPolicyDetail.of_xml)
          (Xml.child xml_arg0 "accessPolicyDetail") in
      make ?accessPolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPolicyDetail =
        field_map json__ "accessPolicyDetail" AccessPolicyDetail.of_json in
      make ?accessPolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an OpenSearch Serverless access policy. For more information, see Data access control for Amazon OpenSearch Serverless."]
module GetAccessPolicyRequest =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t
        [@ocaml.doc
          "Tye type of policy. Currently, the only supported value is data."];
      name: PolicyName.t [@ocaml.doc "The name of the access policy."]}
    let context_ = "GetAccessPolicyRequest"
    let make ~type_ = fun ~name -> fun () -> { type_; name }
    let to_value x =
      structure_to_value
        [("type", (Some (AccessPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        AccessPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" AccessPolicyType.of_json in
      make ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an OpenSearch Serverless access policy. For more information, see Data access control for Amazon OpenSearch Serverless."]
module DeleteVpcEndpointResponse =
  struct
    type nonrec t =
      {
      deleteVpcEndpointDetail: DeleteVpcEndpointDetail.t option
        [@ocaml.doc "Details about the deleted endpoint."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deleteVpcEndpointDetail = fun () -> { deleteVpcEndpointDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("deleteVpcEndpointDetail",
           (Option.map x.deleteVpcEndpointDetail
              ~f:DeleteVpcEndpointDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteVpcEndpointDetail =
        (Option.map ~f:DeleteVpcEndpointDetail.of_xml)
          (Xml.child xml_arg0 "deleteVpcEndpointDetail") in
      make ?deleteVpcEndpointDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteVpcEndpointDetail =
        field_map json__ "deleteVpcEndpointDetail"
          DeleteVpcEndpointDetail.of_json in
      make ?deleteVpcEndpointDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an OpenSearch Serverless-managed interface endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module DeleteVpcEndpointRequest =
  struct
    type nonrec t =
      {
      id: VpcEndpointId.t [@ocaml.doc "The VPC endpoint identifier."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteVpcEndpointRequest"
    let make ?clientToken = fun ~id -> fun () -> { clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (VpcEndpointId.to_value x.id)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let id =
        VpcEndpointId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let id = field_map_exn json__ "id" VpcEndpointId.of_json in
      make ?clientToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an OpenSearch Serverless-managed interface endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module DeleteSecurityPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 an OpenSearch Serverless security policy."]
module DeleteSecurityPolicyRequest =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t [@ocaml.doc "The type of policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteSecurityPolicyRequest"
    let make ?clientToken =
      fun ~type_ -> fun ~name -> fun () -> { clientToken; type_; name }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        SecurityPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" SecurityPolicyType.of_json in
      make ?clientToken ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an OpenSearch Serverless security policy."]
module DeleteSecurityConfigResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 security configuration for OpenSearch Serverless. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module DeleteSecurityConfigRequest =
  struct
    type nonrec t =
      {
      id: SecurityConfigId.t
        [@ocaml.doc
          "The security configuration identifier. For SAML the ID will be saml/<accountId>/<idpProviderName>. For example, saml/123456789123/OKTADev."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteSecurityConfigRequest"
    let make ?clientToken = fun ~id -> fun () -> { clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (SecurityConfigId.to_value x.id)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let id =
        SecurityConfigId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let id = field_map_exn json__ "id" SecurityConfigId.of_json in
      make ?clientToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a security configuration for OpenSearch Serverless. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module DeleteLifecyclePolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 an OpenSearch Serverless lifecycle policy. For more information, see Deleting data lifecycle policies."]
module DeleteLifecyclePolicyRequest =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteLifecyclePolicyRequest"
    let make ?clientToken =
      fun ~type_ -> fun ~name -> fun () -> { clientToken; type_; name }
    let to_value x =
      structure_to_value
        [("type", (Some (LifecyclePolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        LifecyclePolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" LifecyclePolicyType.of_json in
      make ?clientToken ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an OpenSearch Serverless lifecycle policy. For more information, see Deleting data lifecycle policies."]
module DeleteIndexResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 an index from an OpenSearch Serverless collection. Be aware that the index might be configured to conduct automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment."]
module DeleteIndexRequest =
  struct
    type nonrec t =
      {
      id: CollectionId.t
        [@ocaml.doc
          "The unique identifier of the collection containing the index to delete."];
      indexName: IndexName.t [@ocaml.doc "The name of the index to delete."]}
    let context_ = "DeleteIndexRequest"
    let make ~id = fun ~indexName -> fun () -> { id; indexName }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionId.to_value x.id)));
        ("indexName", (Some (IndexName.to_value x.indexName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexName =
        IndexName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "indexName") in
      let id =
        CollectionId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~indexName ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexName = field_map_exn json__ "indexName" IndexName.of_json in
      let id = field_map_exn json__ "id" CollectionId.of_json in
      make ~indexName ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an index from an OpenSearch Serverless collection. Be aware that the index might be configured to conduct automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment."]
module DeleteCollectionResponse =
  struct
    type nonrec t =
      {
      deleteCollectionDetail: DeleteCollectionDetail.t option
        [@ocaml.doc "Details of the deleted collection."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deleteCollectionDetail = fun () -> { deleteCollectionDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("deleteCollectionDetail",
           (Option.map x.deleteCollectionDetail
              ~f:DeleteCollectionDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteCollectionDetail =
        (Option.map ~f:DeleteCollectionDetail.of_xml)
          (Xml.child xml_arg0 "deleteCollectionDetail") in
      make ?deleteCollectionDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteCollectionDetail =
        field_map json__ "deleteCollectionDetail"
          DeleteCollectionDetail.of_json in
      make ?deleteCollectionDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an OpenSearch Serverless collection. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module DeleteCollectionRequest =
  struct
    type nonrec t =
      {
      id: CollectionId.t
        [@ocaml.doc
          "The unique identifier of the collection. For example, 1iu5usc406kd. The ID is part of the collection endpoint. You can also retrieve it using the ListCollections API."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteCollectionRequest"
    let make ?clientToken = fun ~id -> fun () -> { clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionId.to_value x.id)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let id =
        CollectionId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let id = field_map_exn json__ "id" CollectionId.of_json in
      make ?clientToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an OpenSearch Serverless collection. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module DeleteCollectionGroupResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 collection group. You can only delete empty collection groups that contain no collections. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module DeleteCollectionGroupRequest =
  struct
    type nonrec t =
      {
      id: CollectionGroupId.t
        [@ocaml.doc
          "The unique identifier of the collection group to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteCollectionGroupRequest"
    let make ?clientToken = fun ~id -> fun () -> { clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionGroupId.to_value x.id)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let id =
        CollectionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let id = field_map_exn json__ "id" CollectionGroupId.of_json in
      make ?clientToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a collection group. You can only delete empty collection groups that contain no collections. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module DeleteAccessPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 an OpenSearch Serverless access policy. For more information, see Data access control for Amazon OpenSearch Serverless."]
module DeleteAccessPolicyRequest =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t [@ocaml.doc "The type of policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteAccessPolicyRequest"
    let make ?clientToken =
      fun ~type_ -> fun ~name -> fun () -> { clientToken; type_; name }
    let to_value x =
      structure_to_value
        [("type", (Some (AccessPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        AccessPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" AccessPolicyType.of_json in
      make ?clientToken ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an OpenSearch Serverless access policy. For more information, see Data access control for Amazon OpenSearch Serverless."]
module CreateVpcEndpointResponse =
  struct
    type nonrec t =
      {
      createVpcEndpointDetail: CreateVpcEndpointDetail.t option
        [@ocaml.doc "Details about the created interface VPC endpoint."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?createVpcEndpointDetail = fun () -> { createVpcEndpointDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("createVpcEndpointDetail",
           (Option.map x.createVpcEndpointDetail
              ~f:CreateVpcEndpointDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createVpcEndpointDetail =
        (Option.map ~f:CreateVpcEndpointDetail.of_xml)
          (Xml.child xml_arg0 "createVpcEndpointDetail") in
      make ?createVpcEndpointDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createVpcEndpointDetail =
        field_map json__ "createVpcEndpointDetail"
          CreateVpcEndpointDetail.of_json in
      make ?createVpcEndpointDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an OpenSearch Serverless-managed interface VPC endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module CreateVpcEndpointRequest =
  struct
    type nonrec t =
      {
      name: VpcEndpointName.t
        [@ocaml.doc "The name of the interface endpoint."];
      vpcId: VpcId.t
        [@ocaml.doc
          "The ID of the VPC from which you'll access OpenSearch Serverless."];
      subnetIds: SubnetIds.t
        [@ocaml.doc
          "The ID of one or more subnets from which you'll access OpenSearch Serverless."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The unique identifiers of the security groups that define the ports, protocols, and sources for inbound traffic that you are authorizing into your endpoint."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateVpcEndpointRequest"
    let make ?securityGroupIds =
      fun ?clientToken ->
        fun ~name ->
          fun ~vpcId ->
            fun ~subnetIds ->
              fun () ->
                { securityGroupIds; clientToken; name; vpcId; subnetIds }
    let to_value x =
      structure_to_value
        [("name", (Some (VpcEndpointName.to_value x.name)));
        ("vpcId", (Some (VpcId.to_value x.vpcId)));
        ("subnetIds", (Some (SubnetIds.to_value x.subnetIds)));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        SubnetIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subnetIds") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vpcId") in
      let name =
        VpcEndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?clientToken ?securityGroupIds ~subnetIds ~vpcId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupIds.of_json in
      let subnetIds = field_map_exn json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map_exn json__ "vpcId" VpcId.of_json in
      let name = field_map_exn json__ "name" VpcEndpointName.of_json in
      make ?clientToken ?securityGroupIds ~subnetIds ~vpcId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an OpenSearch Serverless-managed interface VPC endpoint. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module CreateSecurityPolicyResponse =
  struct
    type nonrec t =
      {
      securityPolicyDetail: SecurityPolicyDetail.t option
        [@ocaml.doc "Details about the created security policy."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityPolicyDetail = fun () -> { securityPolicyDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("securityPolicyDetail",
           (Option.map x.securityPolicyDetail
              ~f:SecurityPolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityPolicyDetail =
        (Option.map ~f:SecurityPolicyDetail.of_xml)
          (Xml.child xml_arg0 "securityPolicyDetail") in
      make ?securityPolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityPolicyDetail =
        field_map json__ "securityPolicyDetail" SecurityPolicyDetail.of_json in
      make ?securityPolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a security policy to be used by one or more OpenSearch Serverless collections. Security policies provide access to a collection and its OpenSearch Dashboards endpoint from public networks or specific VPC endpoints. They also allow you to secure a collection with a KMS encryption key. For more information, see Network access for Amazon OpenSearch Serverless and Encryption at rest for Amazon OpenSearch Serverless."]
module CreateSecurityPolicyRequest =
  struct
    type nonrec t =
      {
      type_: SecurityPolicyType.t [@ocaml.doc "The type of security policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy."];
      description: PolicyDescription.t option
        [@ocaml.doc
          "A description of the policy. Typically used to store information about the permissions defined in the policy."];
      policy: PolicyDocument.t
        [@ocaml.doc
          "The JSON policy document to use as the content for the new policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateSecurityPolicyRequest"
    let make ?description =
      fun ?clientToken ->
        fun ~type_ ->
          fun ~name ->
            fun ~policy ->
              fun () -> { description; clientToken; type_; name; policy }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Some (PolicyDocument.to_value x.policy)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let policy =
        PolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        SecurityPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ~policy ?description ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let policy = field_map_exn json__ "policy" PolicyDocument.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" SecurityPolicyType.of_json in
      make ?clientToken ~policy ?description ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a security policy to be used by one or more OpenSearch Serverless collections. Security policies provide access to a collection and its OpenSearch Dashboards endpoint from public networks or specific VPC endpoints. They also allow you to secure a collection with a KMS encryption key. For more information, see Network access for Amazon OpenSearch Serverless and Encryption at rest for Amazon OpenSearch Serverless."]
module CreateSecurityConfigResponse =
  struct
    type nonrec t =
      {
      securityConfigDetail: SecurityConfigDetail.t option
        [@ocaml.doc "Details about the created security configuration."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityConfigDetail = fun () -> { securityConfigDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("securityConfigDetail",
           (Option.map x.securityConfigDetail
              ~f:SecurityConfigDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityConfigDetail =
        (Option.map ~f:SecurityConfigDetail.of_xml)
          (Xml.child xml_arg0 "securityConfigDetail") in
      make ?securityConfigDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityConfigDetail =
        field_map json__ "securityConfigDetail" SecurityConfigDetail.of_json in
      make ?securityConfigDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a security configuration for OpenSearch Serverless. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module CreateSecurityConfigRequest =
  struct
    type nonrec t =
      {
      type_: SecurityConfigType.t
        [@ocaml.doc "The type of security configuration."];
      name: ConfigName.t
        [@ocaml.doc "The name of the security configuration."];
      description: ConfigDescription.t option
        [@ocaml.doc "A description of the security configuration."];
      samlOptions: SamlConfigOptions.t option
        [@ocaml.doc
          "Describes SAML options in the form of a key-value map. This field is required if you specify SAML for the type parameter."];
      iamIdentityCenterOptions: CreateIamIdentityCenterConfigOptions.t option
        [@ocaml.doc
          "Describes IAM Identity Center options in the form of a key-value map. This field is required if you specify iamidentitycenter for the type parameter."];
      iamFederationOptions: IamFederationConfigOptions.t option
        [@ocaml.doc
          "Describes IAM federation options in the form of a key-value map. This field is required if you specify iamFederation for the type parameter."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateSecurityConfigRequest"
    let make ?description =
      fun ?samlOptions ->
        fun ?iamIdentityCenterOptions ->
          fun ?iamFederationOptions ->
            fun ?clientToken ->
              fun ~type_ ->
                fun ~name ->
                  fun () ->
                    {
                      description;
                      samlOptions;
                      iamIdentityCenterOptions;
                      iamFederationOptions;
                      clientToken;
                      type_;
                      name
                    }
    let to_value x =
      structure_to_value
        [("type", (Some (SecurityConfigType.to_value x.type_)));
        ("name", (Some (ConfigName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:ConfigDescription.to_value));
        ("samlOptions",
          (Option.map x.samlOptions ~f:SamlConfigOptions.to_value));
        ("iamIdentityCenterOptions",
          (Option.map x.iamIdentityCenterOptions
             ~f:CreateIamIdentityCenterConfigOptions.to_value));
        ("iamFederationOptions",
          (Option.map x.iamFederationOptions
             ~f:IamFederationConfigOptions.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let iamFederationOptions =
        (Option.map ~f:IamFederationConfigOptions.of_xml)
          (Xml.child xml_arg0 "iamFederationOptions") in
      let iamIdentityCenterOptions =
        (Option.map ~f:CreateIamIdentityCenterConfigOptions.of_xml)
          (Xml.child xml_arg0 "iamIdentityCenterOptions") in
      let samlOptions =
        (Option.map ~f:SamlConfigOptions.of_xml)
          (Xml.child xml_arg0 "samlOptions") in
      let description =
        (Option.map ~f:ConfigDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        ConfigName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        SecurityConfigType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ?iamFederationOptions ?iamIdentityCenterOptions
        ?samlOptions ?description ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let iamFederationOptions =
        field_map json__ "iamFederationOptions"
          IamFederationConfigOptions.of_json in
      let iamIdentityCenterOptions =
        field_map json__ "iamIdentityCenterOptions"
          CreateIamIdentityCenterConfigOptions.of_json in
      let samlOptions =
        field_map json__ "samlOptions" SamlConfigOptions.of_json in
      let description =
        field_map json__ "description" ConfigDescription.of_json in
      let name = field_map_exn json__ "name" ConfigName.of_json in
      let type_ = field_map_exn json__ "type" SecurityConfigType.of_json in
      make ?clientToken ?iamFederationOptions ?iamIdentityCenterOptions
        ?samlOptions ?description ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a security configuration for OpenSearch Serverless. For more information, see SAML authentication for Amazon OpenSearch Serverless."]
module CreateLifecyclePolicyResponse =
  struct
    type nonrec t =
      {
      lifecyclePolicyDetail: LifecyclePolicyDetail.t option
        [@ocaml.doc "Details about the created lifecycle policy."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lifecyclePolicyDetail = fun () -> { lifecyclePolicyDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("lifecyclePolicyDetail",
           (Option.map x.lifecyclePolicyDetail
              ~f:LifecyclePolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecyclePolicyDetail =
        (Option.map ~f:LifecyclePolicyDetail.of_xml)
          (Xml.child xml_arg0 "lifecyclePolicyDetail") in
      make ?lifecyclePolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecyclePolicyDetail =
        field_map json__ "lifecyclePolicyDetail"
          LifecyclePolicyDetail.of_json in
      make ?lifecyclePolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a lifecyle policy to be applied to OpenSearch Serverless indexes. Lifecycle policies define the number of days or hours to retain the data on an OpenSearch Serverless index. For more information, see Creating data lifecycle policies."]
module CreateLifecyclePolicyRequest =
  struct
    type nonrec t =
      {
      type_: LifecyclePolicyType.t
        [@ocaml.doc "The type of lifecycle policy."];
      name: PolicyName.t [@ocaml.doc "The name of the lifecycle policy."];
      description: PolicyDescription.t option
        [@ocaml.doc "A description of the lifecycle policy."];
      policy: PolicyDocument.t
        [@ocaml.doc
          "The JSON policy document to use as the content for the lifecycle policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateLifecyclePolicyRequest"
    let make ?description =
      fun ?clientToken ->
        fun ~type_ ->
          fun ~name ->
            fun ~policy ->
              fun () -> { description; clientToken; type_; name; policy }
    let to_value x =
      structure_to_value
        [("type", (Some (LifecyclePolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Some (PolicyDocument.to_value x.policy)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let policy =
        PolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        LifecyclePolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ~policy ?description ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let policy = field_map_exn json__ "policy" PolicyDocument.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" LifecyclePolicyType.of_json in
      make ?clientToken ~policy ?description ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a lifecyle policy to be applied to OpenSearch Serverless indexes. Lifecycle policies define the number of days or hours to retain the data on an OpenSearch Serverless index. For more information, see Creating data lifecycle policies."]
module CreateIndexResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 an index within an OpenSearch Serverless collection. Unlike other OpenSearch indexes, indexes created by this API are automatically configured to conduct automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment in the OpenSearch User Guide."]
module CreateIndexRequest =
  struct
    type nonrec t =
      {
      id: CollectionId.t
        [@ocaml.doc
          "The unique identifier of the collection in which to create the index."];
      indexName: IndexName.t
        [@ocaml.doc
          "The name of the index to create. Index names must be lowercase and can't begin with underscores (_) or hyphens (-)."];
      indexSchema: IndexSchema.t option
        [@ocaml.doc
          "The JSON schema definition for the index, including field mappings and settings."]}
    let context_ = "CreateIndexRequest"
    let make ?indexSchema =
      fun ~id -> fun ~indexName -> fun () -> { indexSchema; id; indexName }
    let to_value x =
      structure_to_value
        [("id", (Some (CollectionId.to_value x.id)));
        ("indexName", (Some (IndexName.to_value x.indexName)));
        ("indexSchema", (Option.map x.indexSchema ~f:IndexSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let indexSchema =
        (Option.map ~f:IndexSchema.of_xml) (Xml.child xml_arg0 "indexSchema") in
      let indexName =
        IndexName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "indexName") in
      let id =
        CollectionId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?indexSchema ~indexName ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let indexSchema = field_map json__ "indexSchema" IndexSchema.of_json in
      let indexName = field_map_exn json__ "indexName" IndexName.of_json in
      let id = field_map_exn json__ "id" CollectionId.of_json in
      make ?indexSchema ~indexName ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an index within an OpenSearch Serverless collection. Unlike other OpenSearch indexes, indexes created by this API are automatically configured to conduct automatic semantic enrichment ingestion and search. For more information, see About automatic semantic enrichment in the OpenSearch User Guide."]
module CreateCollectionResponse =
  struct
    type nonrec t =
      {
      createCollectionDetail: CreateCollectionDetail.t option
        [@ocaml.doc "Details about the collection."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `OcuLimitExceededException of OcuLimitExceededException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?createCollectionDetail = fun () -> { createCollectionDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "OcuLimitExceededException" ->
          `OcuLimitExceededException (OcuLimitExceededException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "OcuLimitExceededException" ->
          `OcuLimitExceededException (OcuLimitExceededException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `OcuLimitExceededException e ->
          `Assoc
            [("error", (`String "OcuLimitExceededException"));
            ("details", (OcuLimitExceededException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("createCollectionDetail",
           (Option.map x.createCollectionDetail
              ~f:CreateCollectionDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createCollectionDetail =
        (Option.map ~f:CreateCollectionDetail.of_xml)
          (Xml.child xml_arg0 "createCollectionDetail") in
      make ?createCollectionDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createCollectionDetail =
        field_map json__ "createCollectionDetail"
          CreateCollectionDetail.of_json in
      make ?createCollectionDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new OpenSearch Serverless collection. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module CreateCollectionRequest =
  struct
    type nonrec t =
      {
      name: CollectionName.t [@ocaml.doc "Name of the collection."];
      type_: CollectionType.t option [@ocaml.doc "The type of collection."];
      description: CreateCollectionRequestDescriptionString.t option
        [@ocaml.doc "Description of the collection."];
      tags: Tags.t option
        [@ocaml.doc
          "An arbitrary set of tags (key\226\128\147value pairs) to associate with the OpenSearch Serverless collection."];
      standbyReplicas: StandbyReplicas.t option
        [@ocaml.doc
          "Indicates whether standby replicas should be used for a collection."];
      vectorOptions: VectorOptions.t option
        [@ocaml.doc
          "Configuration options for vector search capabilities in the collection."];
      collectionGroupName: CollectionGroupName.t option
        [@ocaml.doc
          "The name of the collection group to associate with the collection."];
      encryptionConfig: EncryptionConfig.t option
        [@ocaml.doc "Encryption settings for the collection."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateCollectionRequest"
    let make ?type_ =
      fun ?description ->
        fun ?tags ->
          fun ?standbyReplicas ->
            fun ?vectorOptions ->
              fun ?collectionGroupName ->
                fun ?encryptionConfig ->
                  fun ?clientToken ->
                    fun ~name ->
                      fun () ->
                        {
                          type_;
                          description;
                          tags;
                          standbyReplicas;
                          vectorOptions;
                          collectionGroupName;
                          encryptionConfig;
                          clientToken;
                          name
                        }
    let to_value x =
      structure_to_value
        [("name", (Some (CollectionName.to_value x.name)));
        ("type", (Option.map x.type_ ~f:CollectionType.to_value));
        ("description",
          (Option.map x.description
             ~f:CreateCollectionRequestDescriptionString.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("standbyReplicas",
          (Option.map x.standbyReplicas ~f:StandbyReplicas.to_value));
        ("vectorOptions",
          (Option.map x.vectorOptions ~f:VectorOptions.to_value));
        ("collectionGroupName",
          (Option.map x.collectionGroupName ~f:CollectionGroupName.to_value));
        ("encryptionConfig",
          (Option.map x.encryptionConfig ~f:EncryptionConfig.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let encryptionConfig =
        (Option.map ~f:EncryptionConfig.of_xml)
          (Xml.child xml_arg0 "encryptionConfig") in
      let collectionGroupName =
        (Option.map ~f:CollectionGroupName.of_xml)
          (Xml.child xml_arg0 "collectionGroupName") in
      let vectorOptions =
        (Option.map ~f:VectorOptions.of_xml)
          (Xml.child xml_arg0 "vectorOptions") in
      let standbyReplicas =
        (Option.map ~f:StandbyReplicas.of_xml)
          (Xml.child xml_arg0 "standbyReplicas") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:CreateCollectionRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let type_ =
        (Option.map ~f:CollectionType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        CollectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?clientToken ?encryptionConfig ?collectionGroupName ?vectorOptions
        ?standbyReplicas ?tags ?description ?type_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let encryptionConfig =
        field_map json__ "encryptionConfig" EncryptionConfig.of_json in
      let collectionGroupName =
        field_map json__ "collectionGroupName" CollectionGroupName.of_json in
      let vectorOptions =
        field_map json__ "vectorOptions" VectorOptions.of_json in
      let standbyReplicas =
        field_map json__ "standbyReplicas" StandbyReplicas.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let description =
        field_map json__ "description"
          CreateCollectionRequestDescriptionString.of_json in
      let type_ = field_map json__ "type" CollectionType.of_json in
      let name = field_map_exn json__ "name" CollectionName.of_json in
      make ?clientToken ?encryptionConfig ?collectionGroupName ?vectorOptions
        ?standbyReplicas ?tags ?description ?type_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new OpenSearch Serverless collection. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module CreateCollectionGroupResponse =
  struct
    type nonrec t =
      {
      createCollectionGroupDetail: CreateCollectionGroupDetail.t option
        [@ocaml.doc "Details about the created collection group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?createCollectionGroupDetail =
      fun () -> { createCollectionGroupDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("createCollectionGroupDetail",
           (Option.map x.createCollectionGroupDetail
              ~f:CreateCollectionGroupDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createCollectionGroupDetail =
        (Option.map ~f:CreateCollectionGroupDetail.of_xml)
          (Xml.child xml_arg0 "createCollectionGroupDetail") in
      make ?createCollectionGroupDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createCollectionGroupDetail =
        field_map json__ "createCollectionGroupDetail"
          CreateCollectionGroupDetail.of_json in
      make ?createCollectionGroupDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a collection group within OpenSearch Serverless. Collection groups let you manage OpenSearch Compute Units (OCUs) at a group level, with multiple collections sharing the group's capacity limits. For more information, see Managing collection groups."]
module CreateCollectionGroupRequest =
  struct
    type nonrec t =
      {
      name: CollectionGroupName.t
        [@ocaml.doc "The name of the collection group."];
      standbyReplicas: StandbyReplicas.t
        [@ocaml.doc
          "Indicates whether standby replicas should be used for a collection group."];
      description: CreateCollectionGroupRequestDescriptionString.t option
        [@ocaml.doc "A description of the collection group."];
      tags: Tags.t option
        [@ocaml.doc
          "An arbitrary set of tags (key\226\128\147value pairs) to associate with the OpenSearch Serverless collection group."];
      capacityLimits: CollectionGroupCapacityLimits.t option
        [@ocaml.doc
          "The capacity limits for the collection group, in OpenSearch Compute Units (OCUs). These limits control the maximum and minimum capacity for collections within the group."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateCollectionGroupRequest"
    let make ?description =
      fun ?tags ->
        fun ?capacityLimits ->
          fun ?clientToken ->
            fun ~name ->
              fun ~standbyReplicas ->
                fun () ->
                  {
                    description;
                    tags;
                    capacityLimits;
                    clientToken;
                    name;
                    standbyReplicas
                  }
    let to_value x =
      structure_to_value
        [("name", (Some (CollectionGroupName.to_value x.name)));
        ("standbyReplicas",
          (Some (StandbyReplicas.to_value x.standbyReplicas)));
        ("description",
          (Option.map x.description
             ~f:CreateCollectionGroupRequestDescriptionString.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("capacityLimits",
          (Option.map x.capacityLimits
             ~f:CollectionGroupCapacityLimits.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let capacityLimits =
        (Option.map ~f:CollectionGroupCapacityLimits.of_xml)
          (Xml.child xml_arg0 "capacityLimits") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:CreateCollectionGroupRequestDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let standbyReplicas =
        StandbyReplicas.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "standbyReplicas") in
      let name =
        CollectionGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?clientToken ?capacityLimits ?tags ?description ~standbyReplicas
        ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let capacityLimits =
        field_map json__ "capacityLimits"
          CollectionGroupCapacityLimits.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let description =
        field_map json__ "description"
          CreateCollectionGroupRequestDescriptionString.of_json in
      let standbyReplicas =
        field_map_exn json__ "standbyReplicas" StandbyReplicas.of_json in
      let name = field_map_exn json__ "name" CollectionGroupName.of_json in
      make ?clientToken ?capacityLimits ?tags ?description ~standbyReplicas
        ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a collection group within OpenSearch Serverless. Collection groups let you manage OpenSearch Compute Units (OCUs) at a group level, with multiple collections sharing the group's capacity limits. For more information, see Managing collection groups."]
module CreateAccessPolicyResponse =
  struct
    type nonrec t =
      {
      accessPolicyDetail: AccessPolicyDetail.t option
        [@ocaml.doc "Details about the created access policy."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessPolicyDetail = fun () -> { accessPolicyDetail }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("accessPolicyDetail",
           (Option.map x.accessPolicyDetail ~f:AccessPolicyDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPolicyDetail =
        (Option.map ~f:AccessPolicyDetail.of_xml)
          (Xml.child xml_arg0 "accessPolicyDetail") in
      make ?accessPolicyDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPolicyDetail =
        field_map json__ "accessPolicyDetail" AccessPolicyDetail.of_json in
      make ?accessPolicyDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a data access policy for OpenSearch Serverless. Access policies limit access to collections and the resources within them, and allow a user to access that data irrespective of the access mechanism or network source. For more information, see Data access control for Amazon OpenSearch Serverless."]
module CreateAccessPolicyRequest =
  struct
    type nonrec t =
      {
      type_: AccessPolicyType.t [@ocaml.doc "The type of policy."];
      name: PolicyName.t [@ocaml.doc "The name of the policy."];
      description: PolicyDescription.t option
        [@ocaml.doc
          "A description of the policy. Typically used to store information about the permissions defined in the policy."];
      policy: PolicyDocument.t
        [@ocaml.doc
          "The JSON policy document to use as the content for the policy."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateAccessPolicyRequest"
    let make ?description =
      fun ?clientToken ->
        fun ~type_ ->
          fun ~name ->
            fun ~policy ->
              fun () -> { description; clientToken; type_; name; policy }
    let to_value x =
      structure_to_value
        [("type", (Some (AccessPolicyType.to_value x.type_)));
        ("name", (Some (PolicyName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:PolicyDescription.to_value));
        ("policy", (Some (PolicyDocument.to_value x.policy)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let policy =
        PolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policy") in
      let description =
        (Option.map ~f:PolicyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        PolicyName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let type_ =
        AccessPolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?clientToken ~policy ?description ~name ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let policy = field_map_exn json__ "policy" PolicyDocument.of_json in
      let description =
        field_map json__ "description" PolicyDescription.of_json in
      let name = field_map_exn json__ "name" PolicyName.of_json in
      let type_ = field_map_exn json__ "type" AccessPolicyType.of_json in
      make ?clientToken ~policy ?description ~name ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a data access policy for OpenSearch Serverless. Access policies limit access to collections and the resources within them, and allow a user to access that data irrespective of the access mechanism or network source. For more information, see Data access control for Amazon OpenSearch Serverless."]
module BatchGetVpcEndpointResponse =
  struct
    type nonrec t =
      {
      vpcEndpointDetails: VpcEndpointDetails.t option
        [@ocaml.doc "Details about the specified VPC endpoint."];
      vpcEndpointErrorDetails: VpcEndpointErrorDetails.t option
        [@ocaml.doc "Error information for a failed request."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointDetails =
      fun ?vpcEndpointErrorDetails ->
        fun () -> { vpcEndpointDetails; vpcEndpointErrorDetails }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("vpcEndpointDetails",
           (Option.map x.vpcEndpointDetails ~f:VpcEndpointDetails.to_value));
        ("vpcEndpointErrorDetails",
          (Option.map x.vpcEndpointErrorDetails
             ~f:VpcEndpointErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointErrorDetails =
        (Option.map ~f:VpcEndpointErrorDetails.of_xml)
          (Xml.child xml_arg0 "vpcEndpointErrorDetails") in
      let vpcEndpointDetails =
        (Option.map ~f:VpcEndpointDetails.of_xml)
          (Xml.child xml_arg0 "vpcEndpointDetails") in
      make ?vpcEndpointErrorDetails ?vpcEndpointDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointErrorDetails =
        field_map json__ "vpcEndpointErrorDetails"
          VpcEndpointErrorDetails.of_json in
      let vpcEndpointDetails =
        field_map json__ "vpcEndpointDetails" VpcEndpointDetails.of_json in
      make ?vpcEndpointErrorDetails ?vpcEndpointDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns attributes for one or more VPC endpoints associated with the current account. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module BatchGetVpcEndpointRequest =
  struct
    type nonrec t =
      {
      ids: VpcEndpointIds.t
        [@ocaml.doc "A list of VPC endpoint identifiers."]}
    let context_ = "BatchGetVpcEndpointRequest"
    let make ~ids = fun () -> { ids }
    let to_value x =
      structure_to_value [("ids", (Some (VpcEndpointIds.to_value x.ids)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ids =
        VpcEndpointIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ids") in
      make ~ids ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ids = field_map_exn json__ "ids" VpcEndpointIds.of_json in
      make ~ids ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns attributes for one or more VPC endpoints associated with the current account. For more information, see Access Amazon OpenSearch Serverless using an interface endpoint."]
module BatchGetLifecyclePolicyResponse =
  struct
    type nonrec t =
      {
      lifecyclePolicyDetails: LifecyclePolicyDetails.t option
        [@ocaml.doc
          "A list of lifecycle policies matched to the input policy name and policy type."];
      lifecyclePolicyErrorDetails: LifecyclePolicyErrorDetails.t option
        [@ocaml.doc
          "A list of lifecycle policy names and policy types for which retrieval failed."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lifecyclePolicyDetails =
      fun ?lifecyclePolicyErrorDetails ->
        fun () -> { lifecyclePolicyDetails; lifecyclePolicyErrorDetails }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("lifecyclePolicyDetails",
           (Option.map x.lifecyclePolicyDetails
              ~f:LifecyclePolicyDetails.to_value));
        ("lifecyclePolicyErrorDetails",
          (Option.map x.lifecyclePolicyErrorDetails
             ~f:LifecyclePolicyErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecyclePolicyErrorDetails =
        (Option.map ~f:LifecyclePolicyErrorDetails.of_xml)
          (Xml.child xml_arg0 "lifecyclePolicyErrorDetails") in
      let lifecyclePolicyDetails =
        (Option.map ~f:LifecyclePolicyDetails.of_xml)
          (Xml.child xml_arg0 "lifecyclePolicyDetails") in
      make ?lifecyclePolicyErrorDetails ?lifecyclePolicyDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecyclePolicyErrorDetails =
        field_map json__ "lifecyclePolicyErrorDetails"
          LifecyclePolicyErrorDetails.of_json in
      let lifecyclePolicyDetails =
        field_map json__ "lifecyclePolicyDetails"
          LifecyclePolicyDetails.of_json in
      make ?lifecyclePolicyErrorDetails ?lifecyclePolicyDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns one or more configured OpenSearch Serverless lifecycle policies. For more information, see Viewing data lifecycle policies."]
module BatchGetLifecyclePolicyRequest =
  struct
    type nonrec t =
      {
      identifiers: LifecyclePolicyIdentifiers.t
        [@ocaml.doc
          "The unique identifiers of policy types and policy names."]}
    let context_ = "BatchGetLifecyclePolicyRequest"
    let make ~identifiers = fun () -> { identifiers }
    let to_value x =
      structure_to_value
        [("identifiers",
           (Some (LifecyclePolicyIdentifiers.to_value x.identifiers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifiers =
        LifecyclePolicyIdentifiers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifiers") in
      make ~identifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifiers =
        field_map_exn json__ "identifiers" LifecyclePolicyIdentifiers.of_json in
      make ~identifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns one or more configured OpenSearch Serverless lifecycle policies. For more information, see Viewing data lifecycle policies."]
module BatchGetEffectiveLifecyclePolicyResponse =
  struct
    type nonrec t =
      {
      effectiveLifecyclePolicyDetails:
        EffectiveLifecyclePolicyDetails.t option
        [@ocaml.doc
          "A list of lifecycle policies applied to the OpenSearch Serverless indexes."];
      effectiveLifecyclePolicyErrorDetails:
        EffectiveLifecyclePolicyErrorDetails.t option
        [@ocaml.doc "A list of resources for which retrieval failed."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?effectiveLifecyclePolicyDetails =
      fun ?effectiveLifecyclePolicyErrorDetails ->
        fun () ->
          {
            effectiveLifecyclePolicyDetails;
            effectiveLifecyclePolicyErrorDetails
          }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("effectiveLifecyclePolicyDetails",
           (Option.map x.effectiveLifecyclePolicyDetails
              ~f:EffectiveLifecyclePolicyDetails.to_value));
        ("effectiveLifecyclePolicyErrorDetails",
          (Option.map x.effectiveLifecyclePolicyErrorDetails
             ~f:EffectiveLifecyclePolicyErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let effectiveLifecyclePolicyErrorDetails =
        (Option.map ~f:EffectiveLifecyclePolicyErrorDetails.of_xml)
          (Xml.child xml_arg0 "effectiveLifecyclePolicyErrorDetails") in
      let effectiveLifecyclePolicyDetails =
        (Option.map ~f:EffectiveLifecyclePolicyDetails.of_xml)
          (Xml.child xml_arg0 "effectiveLifecyclePolicyDetails") in
      make ?effectiveLifecyclePolicyErrorDetails
        ?effectiveLifecyclePolicyDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let effectiveLifecyclePolicyErrorDetails =
        field_map json__ "effectiveLifecyclePolicyErrorDetails"
          EffectiveLifecyclePolicyErrorDetails.of_json in
      let effectiveLifecyclePolicyDetails =
        field_map json__ "effectiveLifecyclePolicyDetails"
          EffectiveLifecyclePolicyDetails.of_json in
      make ?effectiveLifecyclePolicyErrorDetails
        ?effectiveLifecyclePolicyDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of successful and failed retrievals for the OpenSearch Serverless indexes. For more information, see Viewing data lifecycle policies."]
module BatchGetEffectiveLifecyclePolicyRequest =
  struct
    type nonrec t =
      {
      resourceIdentifiers: LifecyclePolicyResourceIdentifiers.t
        [@ocaml.doc
          "The unique identifiers of policy types and resource names."]}
    let context_ = "BatchGetEffectiveLifecyclePolicyRequest"
    let make ~resourceIdentifiers = fun () -> { resourceIdentifiers }
    let to_value x =
      structure_to_value
        [("resourceIdentifiers",
           (Some
              (LifecyclePolicyResourceIdentifiers.to_value
                 x.resourceIdentifiers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdentifiers =
        LifecyclePolicyResourceIdentifiers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceIdentifiers") in
      make ~resourceIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdentifiers =
        field_map_exn json__ "resourceIdentifiers"
          LifecyclePolicyResourceIdentifiers.of_json in
      make ~resourceIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of successful and failed retrievals for the OpenSearch Serverless indexes. For more information, see Viewing data lifecycle policies."]
module BatchGetCollectionResponse =
  struct
    type nonrec t =
      {
      collectionDetails: CollectionDetails.t option
        [@ocaml.doc "Details about each collection."];
      collectionErrorDetails: CollectionErrorDetails.t option
        [@ocaml.doc "Error information for the request."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?collectionDetails =
      fun ?collectionErrorDetails ->
        fun () -> { collectionDetails; collectionErrorDetails }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("collectionDetails",
           (Option.map x.collectionDetails ~f:CollectionDetails.to_value));
        ("collectionErrorDetails",
          (Option.map x.collectionErrorDetails
             ~f:CollectionErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let collectionErrorDetails =
        (Option.map ~f:CollectionErrorDetails.of_xml)
          (Xml.child xml_arg0 "collectionErrorDetails") in
      let collectionDetails =
        (Option.map ~f:CollectionDetails.of_xml)
          (Xml.child xml_arg0 "collectionDetails") in
      make ?collectionErrorDetails ?collectionDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let collectionErrorDetails =
        field_map json__ "collectionErrorDetails"
          CollectionErrorDetails.of_json in
      let collectionDetails =
        field_map json__ "collectionDetails" CollectionDetails.of_json in
      make ?collectionErrorDetails ?collectionDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns attributes for one or more collections, including the collection endpoint, the OpenSearch Dashboards endpoint, and FIPS-compliant endpoints. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module BatchGetCollectionRequest =
  struct
    type nonrec t =
      {
      ids: CollectionIds.t option
        [@ocaml.doc
          "A list of collection IDs. You can't provide names and IDs in the same request. The ID is part of the collection endpoint. You can also retrieve it using the ListCollections API."];
      names: CollectionNames.t option
        [@ocaml.doc
          "A list of collection names. You can't provide names and IDs in the same request."]}
    let make ?ids = fun ?names -> fun () -> { ids; names }
    let to_value x =
      structure_to_value
        [("ids", (Option.map x.ids ~f:CollectionIds.to_value));
        ("names", (Option.map x.names ~f:CollectionNames.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let names =
        (Option.map ~f:CollectionNames.of_xml) (Xml.child xml_arg0 "names") in
      let ids =
        (Option.map ~f:CollectionIds.of_xml) (Xml.child xml_arg0 "ids") in
      make ?names ?ids ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let names = field_map json__ "names" CollectionNames.of_json in
      let ids = field_map json__ "ids" CollectionIds.of_json in
      make ?names ?ids ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns attributes for one or more collections, including the collection endpoint, the OpenSearch Dashboards endpoint, and FIPS-compliant endpoints. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module BatchGetCollectionGroupResponse =
  struct
    type nonrec t =
      {
      collectionGroupDetails: CollectionGroupDetails.t option
        [@ocaml.doc "Details about each collection group."];
      collectionGroupErrorDetails: CollectionGroupErrorDetails.t option
        [@ocaml.doc "Error information for the request."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?collectionGroupDetails =
      fun ?collectionGroupErrorDetails ->
        fun () -> { collectionGroupDetails; collectionGroupErrorDetails }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("collectionGroupDetails",
           (Option.map x.collectionGroupDetails
              ~f:CollectionGroupDetails.to_value));
        ("collectionGroupErrorDetails",
          (Option.map x.collectionGroupErrorDetails
             ~f:CollectionGroupErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let collectionGroupErrorDetails =
        (Option.map ~f:CollectionGroupErrorDetails.of_xml)
          (Xml.child xml_arg0 "collectionGroupErrorDetails") in
      let collectionGroupDetails =
        (Option.map ~f:CollectionGroupDetails.of_xml)
          (Xml.child xml_arg0 "collectionGroupDetails") in
      make ?collectionGroupErrorDetails ?collectionGroupDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let collectionGroupErrorDetails =
        field_map json__ "collectionGroupErrorDetails"
          CollectionGroupErrorDetails.of_json in
      let collectionGroupDetails =
        field_map json__ "collectionGroupDetails"
          CollectionGroupDetails.of_json in
      make ?collectionGroupErrorDetails ?collectionGroupDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns attributes for one or more collection groups, including capacity limits and the number of collections in each group. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]
module BatchGetCollectionGroupRequest =
  struct
    type nonrec t =
      {
      ids: CollectionGroupIds.t option
        [@ocaml.doc
          "A list of collection group IDs. You can't provide names and IDs in the same request."];
      names: CollectionGroupNames.t option
        [@ocaml.doc
          "A list of collection group names. You can't provide names and IDs in the same request."]}
    let make ?ids = fun ?names -> fun () -> { ids; names }
    let to_value x =
      structure_to_value
        [("ids", (Option.map x.ids ~f:CollectionGroupIds.to_value));
        ("names", (Option.map x.names ~f:CollectionGroupNames.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let names =
        (Option.map ~f:CollectionGroupNames.of_xml)
          (Xml.child xml_arg0 "names") in
      let ids =
        (Option.map ~f:CollectionGroupIds.of_xml) (Xml.child xml_arg0 "ids") in
      make ?names ?ids ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let names = field_map json__ "names" CollectionGroupNames.of_json in
      let ids = field_map json__ "ids" CollectionGroupIds.of_json in
      make ?names ?ids ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns attributes for one or more collection groups, including capacity limits and the number of collections in each group. For more information, see Creating and managing Amazon OpenSearch Serverless collections."]