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.es
let apiVersion = "2015-01-01"
let endpointPrefix = "es"
let serviceFullName = "Amazon Elasticsearch Service"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module LimitValue =
  struct
    type nonrec t = string
    let context_ = "LimitValue"
    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:"LimitValue" j
    let to_json = simple_to_json to_value
  end
module DurationValue =
  struct
    type nonrec t = Int64.t[@@ocaml.doc
                             "Integer to specify the value of a maintenance schedule duration. See the Developer Guide for more information."]
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:24L) >>=
             (fun () -> check_int64_min i ~min:1L));
        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[@@ocaml.doc
       "Integer to specify the value of a maintenance schedule duration. See the Developer Guide for more information."]
module TimeUnit =
  struct
    type nonrec t =
      | HOURS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | HOURS -> "HOURS" | Non_static_id s -> s
    let of_string = function | "HOURS" -> HOURS | 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 TimeUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TimeUnit" j)
    let to_json = simple_to_json to_value
  end
module LimitName =
  struct
    type nonrec t = string
    let context_ = "LimitName"
    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:"LimitName" j
    let to_json = simple_to_json to_value
  end
module LimitValueList =
  struct
    type nonrec t = LimitValue.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:LimitValue.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:LimitValue.of_xml)
    let of_json j =
      list_of_json ~kind:"LimitValueList" ~of_json:LimitValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SAMLEntityId =
  struct
    type nonrec t = string
    let context_ = "SAMLEntityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:8));
        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:"SAMLEntityId" 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_max i ~max:1048576) >>=
             (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:"SAMLMetadata" j
    let to_json = simple_to_json to_value
  end
module Duration =
  struct
    type nonrec t =
      {
      value: DurationValue.t option
        [@ocaml.doc
          "Integer to specify the value of a maintenance schedule duration. See the Developer Guide for more information."];
      unit: TimeUnit.t option
        [@ocaml.doc
          "Specifies the unit of a maintenance schedule duration. Valid value is HOURS. See the Developer Guide for more information."]}
    let make ?value = fun ?unit -> fun () -> { value; unit }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:DurationValue.to_value));
        ("Unit", (Option.map x.unit ~f:TimeUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unit = (Option.map ~f:TimeUnit.of_xml) (Xml.child xml_arg0 "Unit") in
      let value =
        (Option.map ~f:DurationValue.of_xml) (Xml.child xml_arg0 "Value") in
      make ?unit ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unit = field_map json__ "Unit" TimeUnit.of_json in
      let value = field_map json__ "Value" DurationValue.of_json in
      make ?unit ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies maintenance schedule duration: duration value and duration unit. See the Developer Guide for more information."]
module StartAt =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module 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 Issue =
  struct
    type nonrec t = string
    let context_ = "Issue"
    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:"Issue" j
    let to_json = simple_to_json to_value
  end
module StorageTypeLimit =
  struct
    type nonrec t =
      {
      limitName: LimitName.t option
        [@ocaml.doc
          "Name of storage limits that are applicable for given storage type. If StorageType is ebs, following storage options are applicable MinimumVolumeSize Minimum amount of volume size that is applicable for given storage type.It can be empty if it is not applicable. MaximumVolumeSize Maximum amount of volume size that is applicable for given storage type.It can be empty if it is not applicable. MaximumIops Maximum amount of Iops that is applicable for given storage type.It can be empty if it is not applicable. MinimumIops Minimum amount of Iops that is applicable for given storage type.It can be empty if it is not applicable. MaximumThroughput Maximum amount of Throughput that is applicable for given storage type.It can be empty if it is not applicable. MinimumThroughput Minimum amount of Throughput that is applicable for given storage type.It can be empty if it is not applicable."];
      limitValues: LimitValueList.t option
        [@ocaml.doc "Values for the StorageTypeLimit$LimitName ."]}
    let make ?limitName =
      fun ?limitValues -> fun () -> { limitName; limitValues }
    let to_value x =
      structure_to_value
        [("LimitName", (Option.map x.limitName ~f:LimitName.to_value));
        ("LimitValues",
          (Option.map x.limitValues ~f:LimitValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limitValues =
        (Option.map ~f:LimitValueList.of_xml)
          (Xml.child xml_arg0 "LimitValues") in
      let limitName =
        (Option.map ~f:LimitName.of_xml) (Xml.child xml_arg0 "LimitName") in
      make ?limitValues ?limitName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limitValues = field_map json__ "LimitValues" LimitValueList.of_json in
      let limitName = field_map json__ "LimitName" LimitName.of_json in
      make ?limitValues ?limitName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Limits that are applicable for given storage type."]
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 IntegerClass =
  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 IntegerClass" 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 SAMLIdp =
  struct
    type nonrec t =
      {
      metadataContent: SAMLMetadata.t
        [@ocaml.doc "The Metadata of the SAML application in xml format."];
      entityId: SAMLEntityId.t
        [@ocaml.doc
          "The unique Entity ID of the application in SAML Identity Provider."]}
    let context_ = "SAMLIdp"
    let make ~metadataContent =
      fun ~entityId -> fun () -> { metadataContent; entityId }
    let to_value x =
      structure_to_value
        [("MetadataContent",
           (Some (SAMLMetadata.to_value x.metadataContent)));
        ("EntityId", (Some (SAMLEntityId.to_value x.entityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entityId =
        SAMLEntityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EntityId") in
      let metadataContent =
        SAMLMetadata.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MetadataContent") in
      make ~entityId ~metadataContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entityId = field_map_exn json__ "EntityId" SAMLEntityId.of_json in
      let metadataContent =
        field_map_exn json__ "MetadataContent" SAMLMetadata.of_json in
      make ~entityId ~metadataContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the SAML Identity Provider's information."]
module AutoTuneMaintenanceSchedule =
  struct
    type nonrec t =
      {
      startAt: StartAt.t option
        [@ocaml.doc
          "Specifies timestamp at which Auto-Tune maintenance schedule start."];
      duration: Duration.t option
        [@ocaml.doc
          "Specifies maintenance schedule duration: duration value and duration unit. See the Developer Guide for more information."];
      cronExpressionForRecurrence: String_.t option
        [@ocaml.doc
          "Specifies cron expression for a recurring maintenance schedule. See the Developer Guide for more information."]}
    let make ?startAt =
      fun ?duration ->
        fun ?cronExpressionForRecurrence ->
          fun () -> { startAt; duration; cronExpressionForRecurrence }
    let to_value x =
      structure_to_value
        [("StartAt", (Option.map x.startAt ~f:StartAt.to_value));
        ("Duration", (Option.map x.duration ~f:Duration.to_value));
        ("CronExpressionForRecurrence",
          (Option.map x.cronExpressionForRecurrence ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cronExpressionForRecurrence =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CronExpressionForRecurrence") in
      let duration =
        (Option.map ~f:Duration.of_xml) (Xml.child xml_arg0 "Duration") in
      let startAt =
        (Option.map ~f:StartAt.of_xml) (Xml.child xml_arg0 "StartAt") in
      make ?cronExpressionForRecurrence ?duration ?startAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cronExpressionForRecurrence =
        field_map json__ "CronExpressionForRecurrence" String_.of_json in
      let duration = field_map json__ "Duration" Duration.of_json in
      let startAt = field_map json__ "StartAt" StartAt.of_json in
      make ?cronExpressionForRecurrence ?duration ?startAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies Auto-Tune maitenance schedule. See the Developer Guide for more information."]
module CloudWatchLogsLogGroupArn =
  struct
    type nonrec t = string[@@ocaml.doc
                            "ARN of the Cloudwatch log group to which log needs to be published."]
    let context_ = "CloudWatchLogsLogGroupArn"
    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:"CloudWatchLogsLogGroupArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "ARN of the Cloudwatch log group to which log needs to be published."]
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module Issues =
  struct
    type nonrec t = Issue.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:Issue.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:Issue.of_xml)
    let of_json j = list_of_json ~kind:"Issues" ~of_json:Issue.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpgradeStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | SUCCEEDED 
      | SUCCEEDED_WITH_ISSUES 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCEEDED -> "SUCCEEDED"
      | SUCCEEDED_WITH_ISSUES -> "SUCCEEDED_WITH_ISSUES"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCEEDED" -> SUCCEEDED
      | "SUCCEEDED_WITH_ISSUES" -> SUCCEEDED_WITH_ISSUES
      | "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 UpgradeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpgradeStatus" j)
    let to_json = simple_to_json to_value
  end
module UpgradeStep =
  struct
    type nonrec t =
      | PRE_UPGRADE_CHECK 
      | SNAPSHOT 
      | UPGRADE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRE_UPGRADE_CHECK -> "PRE_UPGRADE_CHECK"
      | SNAPSHOT -> "SNAPSHOT"
      | UPGRADE -> "UPGRADE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRE_UPGRADE_CHECK" -> PRE_UPGRADE_CHECK
      | "SNAPSHOT" -> SNAPSHOT
      | "UPGRADE" -> UPGRADE
      | 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 UpgradeStep" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpgradeStep" j)
    let to_json = simple_to_json to_value
  end
module MaximumInstanceCount =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Maximum number of Instances that can be instantiated for given InstanceType."]
    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 MaximumInstanceCount" 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[@@ocaml.doc
       "Maximum number of Instances that can be instantiated for given InstanceType."]
module MinimumInstanceCount =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Minimum number of Instances that can be instantiated for given InstanceType."]
    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 MinimumInstanceCount" 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[@@ocaml.doc
       "Minimum number of Instances that can be instantiated for given InstanceType."]
module StorageSubTypeName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "SubType of the given storage type. List of available sub-storage options: For \"instance\" storageType we wont have any storageSubType, in case of \"ebs\" storageType we will have following valid storageSubTypes standard gp2 gp3 io1 Refer VolumeType for more information regarding above EBS storage options."]
    let context_ = "StorageSubTypeName"
    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:"StorageSubTypeName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "SubType of the given storage type. List of available sub-storage options: For \"instance\" storageType we wont have any storageSubType, in case of \"ebs\" storageType we will have following valid storageSubTypes standard gp2 gp3 io1 Refer VolumeType for more information regarding above EBS storage options."]
module StorageTypeLimitList =
  struct
    type nonrec t = StorageTypeLimit.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:StorageTypeLimit.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:StorageTypeLimit.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageTypeLimitList"
        ~of_json:StorageTypeLimit.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageTypeName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Type of the storage. List of available storage options: instance Inbuilt storage available for the given Instance ebs Elastic block storage that would be attached to the given Instance"]
    let context_ = "StorageTypeName"
    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:"StorageTypeName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Type of the storage. List of available storage options: instance Inbuilt storage available for the given Instance ebs Elastic block storage that would be attached to the given Instance"]
module PropertyValueType =
  struct
    type nonrec t =
      | PLAIN_TEXT 
      | STRINGIFIED_JSON 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PLAIN_TEXT -> "PLAIN_TEXT"
      | STRINGIFIED_JSON -> "STRINGIFIED_JSON"
      | Non_static_id s -> s
    let of_string =
      function
      | "PLAIN_TEXT" -> PLAIN_TEXT
      | "STRINGIFIED_JSON" -> STRINGIFIED_JSON
      | 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 PropertyValueType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PropertyValueType" j)
    let to_json = simple_to_json to_value
  end
module AutoTuneDate =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies timestamp for the Auto-Tune action scheduled for the domain."]
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies timestamp for the Auto-Tune action scheduled for the domain."]
module ScheduledAutoTuneActionType =
  struct
    type nonrec t =
      | JVM_HEAP_SIZE_TUNING 
      | JVM_YOUNG_GEN_TUNING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | JVM_HEAP_SIZE_TUNING -> "JVM_HEAP_SIZE_TUNING"
      | JVM_YOUNG_GEN_TUNING -> "JVM_YOUNG_GEN_TUNING"
      | Non_static_id s -> s
    let of_string =
      function
      | "JVM_HEAP_SIZE_TUNING" -> JVM_HEAP_SIZE_TUNING
      | "JVM_YOUNG_GEN_TUNING" -> JVM_YOUNG_GEN_TUNING
      | 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 ScheduledAutoTuneActionType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ScheduledAutoTuneActionType" j)
    let to_json = simple_to_json to_value
  end
module ScheduledAutoTuneDescription =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies Auto-Tune action description."]
    let context_ = "ScheduledAutoTuneDescription"
    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:"ScheduledAutoTuneDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Specifies Auto-Tune action description."]
module ScheduledAutoTuneSeverityType =
  struct
    type nonrec t =
      | LOW 
      | MEDIUM 
      | HIGH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LOW -> "LOW"
      | MEDIUM -> "MEDIUM"
      | HIGH -> "HIGH"
      | Non_static_id s -> s
    let of_string =
      function
      | "LOW" -> LOW
      | "MEDIUM" -> MEDIUM
      | "HIGH" -> HIGH
      | 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 ScheduledAutoTuneSeverityType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ScheduledAutoTuneSeverityType" j)
    let to_json = simple_to_json to_value
  end
module OptionState =
  struct
    type nonrec t =
      | RequiresIndexDocuments 
      | Processing 
      | Active 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RequiresIndexDocuments -> "RequiresIndexDocuments"
      | Processing -> "Processing"
      | Active -> "Active"
      | Non_static_id s -> s
    let of_string =
      function
      | "RequiresIndexDocuments" -> RequiresIndexDocuments
      | "Processing" -> Processing
      | "Active" -> Active
      | 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 OptionState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OptionState" j)
    let to_json = simple_to_json to_value
  end
module UIntValue =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for UIntValue" 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 UpdateTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DisableTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module SAMLOptionsOutput =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option [@ocaml.doc "True if SAML is enabled."];
      idp: SAMLIdp.t option
        [@ocaml.doc "Describes the SAML Identity Provider's information."];
      subjectKey: String_.t option
        [@ocaml.doc "The key used for matching the SAML Subject attribute."];
      rolesKey: String_.t option
        [@ocaml.doc "The key used for matching the SAML Roles attribute."];
      sessionTimeoutMinutes: IntegerClass.t option
        [@ocaml.doc
          "The duration, in minutes, after which a user session becomes inactive."]}
    let make ?enabled =
      fun ?idp ->
        fun ?subjectKey ->
          fun ?rolesKey ->
            fun ?sessionTimeoutMinutes ->
              fun () ->
                { enabled; idp; subjectKey; rolesKey; sessionTimeoutMinutes }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("Idp", (Option.map x.idp ~f:SAMLIdp.to_value));
        ("SubjectKey", (Option.map x.subjectKey ~f:String_.to_value));
        ("RolesKey", (Option.map x.rolesKey ~f:String_.to_value));
        ("SessionTimeoutMinutes",
          (Option.map x.sessionTimeoutMinutes ~f:IntegerClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionTimeoutMinutes =
        (Option.map ~f:IntegerClass.of_xml)
          (Xml.child xml_arg0 "SessionTimeoutMinutes") in
      let rolesKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RolesKey") in
      let subjectKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SubjectKey") in
      let idp = (Option.map ~f:SAMLIdp.of_xml) (Xml.child xml_arg0 "Idp") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?sessionTimeoutMinutes ?rolesKey ?subjectKey ?idp ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionTimeoutMinutes =
        field_map json__ "SessionTimeoutMinutes" IntegerClass.of_json in
      let rolesKey = field_map json__ "RolesKey" String_.of_json in
      let subjectKey = field_map json__ "SubjectKey" String_.of_json in
      let idp = field_map json__ "Idp" SAMLIdp.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?sessionTimeoutMinutes ?rolesKey ?subjectKey ?idp ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the SAML application configured for the domain."]
module AutoTuneDesiredState =
  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 AutoTuneDesiredState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AutoTuneDesiredState" j)
    let to_json = simple_to_json to_value
  end
module AutoTuneMaintenanceScheduleList =
  struct
    type nonrec t = AutoTuneMaintenanceSchedule.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:100); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AutoTuneMaintenanceSchedule.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:AutoTuneMaintenanceSchedule.of_xml)
    let of_json j =
      list_of_json ~kind:"AutoTuneMaintenanceScheduleList"
        ~of_json:AutoTuneMaintenanceSchedule.of_json j
    let to_json v = composed_to_json to_value v
  end
module RollbackOnDisable =
  struct
    type nonrec t =
      | NO_ROLLBACK 
      | DEFAULT_ROLLBACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NO_ROLLBACK -> "NO_ROLLBACK"
      | DEFAULT_ROLLBACK -> "DEFAULT_ROLLBACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "NO_ROLLBACK" -> NO_ROLLBACK
      | "DEFAULT_ROLLBACK" -> DEFAULT_ROLLBACK
      | 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 RollbackOnDisable" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RollbackOnDisable" j)
    let to_json = simple_to_json to_value
  end
module AutoTuneState =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | ENABLE_IN_PROGRESS 
      | DISABLE_IN_PROGRESS 
      | DISABLED_AND_ROLLBACK_SCHEDULED 
      | DISABLED_AND_ROLLBACK_IN_PROGRESS 
      | DISABLED_AND_ROLLBACK_COMPLETE 
      | DISABLED_AND_ROLLBACK_ERROR 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | ENABLE_IN_PROGRESS -> "ENABLE_IN_PROGRESS"
      | DISABLE_IN_PROGRESS -> "DISABLE_IN_PROGRESS"
      | DISABLED_AND_ROLLBACK_SCHEDULED -> "DISABLED_AND_ROLLBACK_SCHEDULED"
      | DISABLED_AND_ROLLBACK_IN_PROGRESS ->
          "DISABLED_AND_ROLLBACK_IN_PROGRESS"
      | DISABLED_AND_ROLLBACK_COMPLETE -> "DISABLED_AND_ROLLBACK_COMPLETE"
      | DISABLED_AND_ROLLBACK_ERROR -> "DISABLED_AND_ROLLBACK_ERROR"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "ENABLE_IN_PROGRESS" -> ENABLE_IN_PROGRESS
      | "DISABLE_IN_PROGRESS" -> DISABLE_IN_PROGRESS
      | "DISABLED_AND_ROLLBACK_SCHEDULED" -> DISABLED_AND_ROLLBACK_SCHEDULED
      | "DISABLED_AND_ROLLBACK_IN_PROGRESS" ->
          DISABLED_AND_ROLLBACK_IN_PROGRESS
      | "DISABLED_AND_ROLLBACK_COMPLETE" -> DISABLED_AND_ROLLBACK_COMPLETE
      | "DISABLED_AND_ROLLBACK_ERROR" -> DISABLED_AND_ROLLBACK_ERROR
      | "ERROR" -> ERROR
      | 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 AutoTuneState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AutoTuneState" j)
    let to_json = simple_to_json to_value
  end
module PauseState =
  struct
    type nonrec t =
      | Active 
      | Completed 
      | Scheduled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Completed -> "Completed"
      | Scheduled -> "Scheduled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Completed" -> Completed
      | "Scheduled" -> Scheduled
      | "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 PauseState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PauseState" j)
    let to_json = simple_to_json to_value
  end
module IdentityPoolId =
  struct
    type nonrec t = string
    let context_ = "IdentityPoolId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:55) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+:[0-9a-f-]+")));
        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:"IdentityPoolId" j
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:20));
        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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module UserPoolId =
  struct
    type nonrec t = string
    let context_ = "UserPoolId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:55) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+_[0-9a-zA-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:"UserPoolId" j
    let to_json = simple_to_json to_value
  end
module DeploymentStrategy =
  struct
    type nonrec t =
      | Default 
      | CapacityOptimized 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "Default"
      | CapacityOptimized -> "CapacityOptimized"
      | Non_static_id s -> s
    let of_string =
      function
      | "Default" -> Default
      | "CapacityOptimized" -> CapacityOptimized
      | 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 DeploymentStrategy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeploymentStrategy" j)
    let to_json = simple_to_json to_value
  end
module ARN =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The Amazon Resource Name (ARN) of the Elasticsearch domain. See Identifiers for IAM Entities in Using AWS Identity and Access Management for more information."]
    let context_ = "ARN"
    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:"ARN" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) of the Elasticsearch domain. See Identifiers for IAM Entities in Using AWS Identity and Access Management for more information."]
module DomainNameFqdn =
  struct
    type nonrec t = string
    let context_ = "DomainNameFqdn"
    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:"^(((?!-)[A-Za-z0-9-]{0,62}[A-Za-z0-9])\\.)+((?!-)[A-Za-z0-9-]{1,62}[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:"DomainNameFqdn" j
    let to_json = simple_to_json to_value
  end
module TLSSecurityPolicy =
  struct
    type nonrec t =
      | Policy_Min_TLS_1_0_2019_07 
      | Policy_Min_TLS_1_2_2019_07 
      | Policy_Min_TLS_1_2_PFS_2023_10 
      | Policy_Min_TLS_1_2_RFC9151_FIPS_2024_08 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Policy_Min_TLS_1_0_2019_07 -> "Policy-Min-TLS-1-0-2019-07"
      | Policy_Min_TLS_1_2_2019_07 -> "Policy-Min-TLS-1-2-2019-07"
      | Policy_Min_TLS_1_2_PFS_2023_10 -> "Policy-Min-TLS-1-2-PFS-2023-10"
      | Policy_Min_TLS_1_2_RFC9151_FIPS_2024_08 ->
          "Policy-Min-TLS-1-2-RFC9151-FIPS-2024-08"
      | Non_static_id s -> s
    let of_string =
      function
      | "Policy-Min-TLS-1-0-2019-07" -> Policy_Min_TLS_1_0_2019_07
      | "Policy-Min-TLS-1-2-2019-07" -> Policy_Min_TLS_1_2_2019_07
      | "Policy-Min-TLS-1-2-PFS-2023-10" -> Policy_Min_TLS_1_2_PFS_2023_10
      | "Policy-Min-TLS-1-2-RFC9151-FIPS-2024-08" ->
          Policy_Min_TLS_1_2_RFC9151_FIPS_2024_08
      | 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 TLSSecurityPolicy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TLSSecurityPolicy" j)
    let to_json = simple_to_json to_value
  end
module VolumeType =
  struct
    type nonrec t =
      | Standard 
      | Gp2 
      | Io1 
      | Gp3 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Gp2 -> "gp2"
      | Io1 -> "io1"
      | Gp3 -> "gp3"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "gp2" -> Gp2
      | "io1" -> Io1
      | "gp3" -> Gp3
      | 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 VolumeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VolumeType" j)
    let to_json = simple_to_json to_value
  end
module ColdStorageOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t
        [@ocaml.doc
          "Enable cold storage option. Accepted values true or false"]}
    let context_ = "ColdStorageOptions"
    let make ~enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value [("Enabled", (Some (Boolean.to_value x.enabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Enabled") in
      make ~enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map_exn json__ "Enabled" Boolean.of_json in
      make ~enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the configuration for cold storage options such as enabled"]
module ESPartitionInstanceType =
  struct
    type nonrec t =
      | M3_medium_elasticsearch 
      | M3_large_elasticsearch 
      | M3_xlarge_elasticsearch 
      | M3_2xlarge_elasticsearch 
      | M4_large_elasticsearch 
      | M4_xlarge_elasticsearch 
      | M4_2xlarge_elasticsearch 
      | M4_4xlarge_elasticsearch 
      | M4_10xlarge_elasticsearch 
      | M5_large_elasticsearch 
      | M5_xlarge_elasticsearch 
      | M5_2xlarge_elasticsearch 
      | M5_4xlarge_elasticsearch 
      | M5_12xlarge_elasticsearch 
      | R5_large_elasticsearch 
      | R5_xlarge_elasticsearch 
      | R5_2xlarge_elasticsearch 
      | R5_4xlarge_elasticsearch 
      | R5_12xlarge_elasticsearch 
      | C5_large_elasticsearch 
      | C5_xlarge_elasticsearch 
      | C5_2xlarge_elasticsearch 
      | C5_4xlarge_elasticsearch 
      | C5_9xlarge_elasticsearch 
      | C5_18xlarge_elasticsearch 
      | Ultrawarm1_medium_elasticsearch 
      | Ultrawarm1_large_elasticsearch 
      | T2_micro_elasticsearch 
      | T2_small_elasticsearch 
      | T2_medium_elasticsearch 
      | R3_large_elasticsearch 
      | R3_xlarge_elasticsearch 
      | R3_2xlarge_elasticsearch 
      | R3_4xlarge_elasticsearch 
      | R3_8xlarge_elasticsearch 
      | I2_xlarge_elasticsearch 
      | I2_2xlarge_elasticsearch 
      | D2_xlarge_elasticsearch 
      | D2_2xlarge_elasticsearch 
      | D2_4xlarge_elasticsearch 
      | D2_8xlarge_elasticsearch 
      | C4_large_elasticsearch 
      | C4_xlarge_elasticsearch 
      | C4_2xlarge_elasticsearch 
      | C4_4xlarge_elasticsearch 
      | C4_8xlarge_elasticsearch 
      | R4_large_elasticsearch 
      | R4_xlarge_elasticsearch 
      | R4_2xlarge_elasticsearch 
      | R4_4xlarge_elasticsearch 
      | R4_8xlarge_elasticsearch 
      | R4_16xlarge_elasticsearch 
      | I3_large_elasticsearch 
      | I3_xlarge_elasticsearch 
      | I3_2xlarge_elasticsearch 
      | I3_4xlarge_elasticsearch 
      | I3_8xlarge_elasticsearch 
      | I3_16xlarge_elasticsearch 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | M3_medium_elasticsearch -> "m3.medium.elasticsearch"
      | M3_large_elasticsearch -> "m3.large.elasticsearch"
      | M3_xlarge_elasticsearch -> "m3.xlarge.elasticsearch"
      | M3_2xlarge_elasticsearch -> "m3.2xlarge.elasticsearch"
      | M4_large_elasticsearch -> "m4.large.elasticsearch"
      | M4_xlarge_elasticsearch -> "m4.xlarge.elasticsearch"
      | M4_2xlarge_elasticsearch -> "m4.2xlarge.elasticsearch"
      | M4_4xlarge_elasticsearch -> "m4.4xlarge.elasticsearch"
      | M4_10xlarge_elasticsearch -> "m4.10xlarge.elasticsearch"
      | M5_large_elasticsearch -> "m5.large.elasticsearch"
      | M5_xlarge_elasticsearch -> "m5.xlarge.elasticsearch"
      | M5_2xlarge_elasticsearch -> "m5.2xlarge.elasticsearch"
      | M5_4xlarge_elasticsearch -> "m5.4xlarge.elasticsearch"
      | M5_12xlarge_elasticsearch -> "m5.12xlarge.elasticsearch"
      | R5_large_elasticsearch -> "r5.large.elasticsearch"
      | R5_xlarge_elasticsearch -> "r5.xlarge.elasticsearch"
      | R5_2xlarge_elasticsearch -> "r5.2xlarge.elasticsearch"
      | R5_4xlarge_elasticsearch -> "r5.4xlarge.elasticsearch"
      | R5_12xlarge_elasticsearch -> "r5.12xlarge.elasticsearch"
      | C5_large_elasticsearch -> "c5.large.elasticsearch"
      | C5_xlarge_elasticsearch -> "c5.xlarge.elasticsearch"
      | C5_2xlarge_elasticsearch -> "c5.2xlarge.elasticsearch"
      | C5_4xlarge_elasticsearch -> "c5.4xlarge.elasticsearch"
      | C5_9xlarge_elasticsearch -> "c5.9xlarge.elasticsearch"
      | C5_18xlarge_elasticsearch -> "c5.18xlarge.elasticsearch"
      | Ultrawarm1_medium_elasticsearch -> "ultrawarm1.medium.elasticsearch"
      | Ultrawarm1_large_elasticsearch -> "ultrawarm1.large.elasticsearch"
      | T2_micro_elasticsearch -> "t2.micro.elasticsearch"
      | T2_small_elasticsearch -> "t2.small.elasticsearch"
      | T2_medium_elasticsearch -> "t2.medium.elasticsearch"
      | R3_large_elasticsearch -> "r3.large.elasticsearch"
      | R3_xlarge_elasticsearch -> "r3.xlarge.elasticsearch"
      | R3_2xlarge_elasticsearch -> "r3.2xlarge.elasticsearch"
      | R3_4xlarge_elasticsearch -> "r3.4xlarge.elasticsearch"
      | R3_8xlarge_elasticsearch -> "r3.8xlarge.elasticsearch"
      | I2_xlarge_elasticsearch -> "i2.xlarge.elasticsearch"
      | I2_2xlarge_elasticsearch -> "i2.2xlarge.elasticsearch"
      | D2_xlarge_elasticsearch -> "d2.xlarge.elasticsearch"
      | D2_2xlarge_elasticsearch -> "d2.2xlarge.elasticsearch"
      | D2_4xlarge_elasticsearch -> "d2.4xlarge.elasticsearch"
      | D2_8xlarge_elasticsearch -> "d2.8xlarge.elasticsearch"
      | C4_large_elasticsearch -> "c4.large.elasticsearch"
      | C4_xlarge_elasticsearch -> "c4.xlarge.elasticsearch"
      | C4_2xlarge_elasticsearch -> "c4.2xlarge.elasticsearch"
      | C4_4xlarge_elasticsearch -> "c4.4xlarge.elasticsearch"
      | C4_8xlarge_elasticsearch -> "c4.8xlarge.elasticsearch"
      | R4_large_elasticsearch -> "r4.large.elasticsearch"
      | R4_xlarge_elasticsearch -> "r4.xlarge.elasticsearch"
      | R4_2xlarge_elasticsearch -> "r4.2xlarge.elasticsearch"
      | R4_4xlarge_elasticsearch -> "r4.4xlarge.elasticsearch"
      | R4_8xlarge_elasticsearch -> "r4.8xlarge.elasticsearch"
      | R4_16xlarge_elasticsearch -> "r4.16xlarge.elasticsearch"
      | I3_large_elasticsearch -> "i3.large.elasticsearch"
      | I3_xlarge_elasticsearch -> "i3.xlarge.elasticsearch"
      | I3_2xlarge_elasticsearch -> "i3.2xlarge.elasticsearch"
      | I3_4xlarge_elasticsearch -> "i3.4xlarge.elasticsearch"
      | I3_8xlarge_elasticsearch -> "i3.8xlarge.elasticsearch"
      | I3_16xlarge_elasticsearch -> "i3.16xlarge.elasticsearch"
      | Non_static_id s -> s
    let of_string =
      function
      | "m3.medium.elasticsearch" -> M3_medium_elasticsearch
      | "m3.large.elasticsearch" -> M3_large_elasticsearch
      | "m3.xlarge.elasticsearch" -> M3_xlarge_elasticsearch
      | "m3.2xlarge.elasticsearch" -> M3_2xlarge_elasticsearch
      | "m4.large.elasticsearch" -> M4_large_elasticsearch
      | "m4.xlarge.elasticsearch" -> M4_xlarge_elasticsearch
      | "m4.2xlarge.elasticsearch" -> M4_2xlarge_elasticsearch
      | "m4.4xlarge.elasticsearch" -> M4_4xlarge_elasticsearch
      | "m4.10xlarge.elasticsearch" -> M4_10xlarge_elasticsearch
      | "m5.large.elasticsearch" -> M5_large_elasticsearch
      | "m5.xlarge.elasticsearch" -> M5_xlarge_elasticsearch
      | "m5.2xlarge.elasticsearch" -> M5_2xlarge_elasticsearch
      | "m5.4xlarge.elasticsearch" -> M5_4xlarge_elasticsearch
      | "m5.12xlarge.elasticsearch" -> M5_12xlarge_elasticsearch
      | "r5.large.elasticsearch" -> R5_large_elasticsearch
      | "r5.xlarge.elasticsearch" -> R5_xlarge_elasticsearch
      | "r5.2xlarge.elasticsearch" -> R5_2xlarge_elasticsearch
      | "r5.4xlarge.elasticsearch" -> R5_4xlarge_elasticsearch
      | "r5.12xlarge.elasticsearch" -> R5_12xlarge_elasticsearch
      | "c5.large.elasticsearch" -> C5_large_elasticsearch
      | "c5.xlarge.elasticsearch" -> C5_xlarge_elasticsearch
      | "c5.2xlarge.elasticsearch" -> C5_2xlarge_elasticsearch
      | "c5.4xlarge.elasticsearch" -> C5_4xlarge_elasticsearch
      | "c5.9xlarge.elasticsearch" -> C5_9xlarge_elasticsearch
      | "c5.18xlarge.elasticsearch" -> C5_18xlarge_elasticsearch
      | "ultrawarm1.medium.elasticsearch" -> Ultrawarm1_medium_elasticsearch
      | "ultrawarm1.large.elasticsearch" -> Ultrawarm1_large_elasticsearch
      | "t2.micro.elasticsearch" -> T2_micro_elasticsearch
      | "t2.small.elasticsearch" -> T2_small_elasticsearch
      | "t2.medium.elasticsearch" -> T2_medium_elasticsearch
      | "r3.large.elasticsearch" -> R3_large_elasticsearch
      | "r3.xlarge.elasticsearch" -> R3_xlarge_elasticsearch
      | "r3.2xlarge.elasticsearch" -> R3_2xlarge_elasticsearch
      | "r3.4xlarge.elasticsearch" -> R3_4xlarge_elasticsearch
      | "r3.8xlarge.elasticsearch" -> R3_8xlarge_elasticsearch
      | "i2.xlarge.elasticsearch" -> I2_xlarge_elasticsearch
      | "i2.2xlarge.elasticsearch" -> I2_2xlarge_elasticsearch
      | "d2.xlarge.elasticsearch" -> D2_xlarge_elasticsearch
      | "d2.2xlarge.elasticsearch" -> D2_2xlarge_elasticsearch
      | "d2.4xlarge.elasticsearch" -> D2_4xlarge_elasticsearch
      | "d2.8xlarge.elasticsearch" -> D2_8xlarge_elasticsearch
      | "c4.large.elasticsearch" -> C4_large_elasticsearch
      | "c4.xlarge.elasticsearch" -> C4_xlarge_elasticsearch
      | "c4.2xlarge.elasticsearch" -> C4_2xlarge_elasticsearch
      | "c4.4xlarge.elasticsearch" -> C4_4xlarge_elasticsearch
      | "c4.8xlarge.elasticsearch" -> C4_8xlarge_elasticsearch
      | "r4.large.elasticsearch" -> R4_large_elasticsearch
      | "r4.xlarge.elasticsearch" -> R4_xlarge_elasticsearch
      | "r4.2xlarge.elasticsearch" -> R4_2xlarge_elasticsearch
      | "r4.4xlarge.elasticsearch" -> R4_4xlarge_elasticsearch
      | "r4.8xlarge.elasticsearch" -> R4_8xlarge_elasticsearch
      | "r4.16xlarge.elasticsearch" -> R4_16xlarge_elasticsearch
      | "i3.large.elasticsearch" -> I3_large_elasticsearch
      | "i3.xlarge.elasticsearch" -> I3_xlarge_elasticsearch
      | "i3.2xlarge.elasticsearch" -> I3_2xlarge_elasticsearch
      | "i3.4xlarge.elasticsearch" -> I3_4xlarge_elasticsearch
      | "i3.8xlarge.elasticsearch" -> I3_8xlarge_elasticsearch
      | "i3.16xlarge.elasticsearch" -> I3_16xlarge_elasticsearch
      | 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 ESPartitionInstanceType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ESPartitionInstanceType" j)
    let to_json = simple_to_json to_value
  end
module ESWarmPartitionInstanceType =
  struct
    type nonrec t =
      | Ultrawarm1_medium_elasticsearch 
      | Ultrawarm1_large_elasticsearch 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ultrawarm1_medium_elasticsearch -> "ultrawarm1.medium.elasticsearch"
      | Ultrawarm1_large_elasticsearch -> "ultrawarm1.large.elasticsearch"
      | Non_static_id s -> s
    let of_string =
      function
      | "ultrawarm1.medium.elasticsearch" -> Ultrawarm1_medium_elasticsearch
      | "ultrawarm1.large.elasticsearch" -> Ultrawarm1_large_elasticsearch
      | 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 ESWarmPartitionInstanceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ESWarmPartitionInstanceType" j)
    let to_json = simple_to_json to_value
  end
module ZoneAwarenessConfig =
  struct
    type nonrec t =
      {
      availabilityZoneCount: IntegerClass.t option
        [@ocaml.doc
          "An integer value to indicate the number of availability zones for a domain when zone awareness is enabled. This should be equal to number of subnets if VPC endpoints is enabled"]}
    let make ?availabilityZoneCount = fun () -> { availabilityZoneCount }
    let to_value x =
      structure_to_value
        [("AvailabilityZoneCount",
           (Option.map x.availabilityZoneCount ~f:IntegerClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneCount =
        (Option.map ~f:IntegerClass.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneCount") in
      make ?availabilityZoneCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneCount =
        field_map json__ "AvailabilityZoneCount" IntegerClass.of_json in
      make ?availabilityZoneCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the zone awareness configuration for the domain cluster, such as the number of availability zones."]
module KmsKeyId =
  struct
    type nonrec t = string
    let context_ = "KmsKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end
module LogPublishingOption =
  struct
    type nonrec t =
      {
      cloudWatchLogsLogGroupArn: CloudWatchLogsLogGroupArn.t option ;
      enabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether given log publishing option is enabled or not."]}
    let make ?cloudWatchLogsLogGroupArn =
      fun ?enabled -> fun () -> { cloudWatchLogsLogGroupArn; enabled }
    let to_value x =
      structure_to_value
        [("CloudWatchLogsLogGroupArn",
           (Option.map x.cloudWatchLogsLogGroupArn
              ~f:CloudWatchLogsLogGroupArn.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let cloudWatchLogsLogGroupArn =
        (Option.map ~f:CloudWatchLogsLogGroupArn.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsLogGroupArn") in
      make ?enabled ?cloudWatchLogsLogGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let cloudWatchLogsLogGroupArn =
        field_map json__ "CloudWatchLogsLogGroupArn"
          CloudWatchLogsLogGroupArn.of_json in
      make ?enabled ?cloudWatchLogsLogGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Log Publishing option that is set for given domain. Attributes and their details: CloudWatchLogsLogGroupArn: ARN of the Cloudwatch log group to which log needs to be published. Enabled: Whether the log publishing for given log type is enabled or not"]
module LogType =
  struct
    type nonrec t =
      | INDEX_SLOW_LOGS 
      | SEARCH_SLOW_LOGS 
      | ES_APPLICATION_LOGS 
      | AUDIT_LOGS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INDEX_SLOW_LOGS -> "INDEX_SLOW_LOGS"
      | SEARCH_SLOW_LOGS -> "SEARCH_SLOW_LOGS"
      | ES_APPLICATION_LOGS -> "ES_APPLICATION_LOGS"
      | AUDIT_LOGS -> "AUDIT_LOGS"
      | Non_static_id s -> s
    let of_string =
      function
      | "INDEX_SLOW_LOGS" -> INDEX_SLOW_LOGS
      | "SEARCH_SLOW_LOGS" -> SEARCH_SLOW_LOGS
      | "ES_APPLICATION_LOGS" -> ES_APPLICATION_LOGS
      | "AUDIT_LOGS" -> AUDIT_LOGS
      | 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 LogType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LogType" j)
    let to_json = simple_to_json to_value
  end
module StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ErrorType =
  struct
    type nonrec t = string
    let context_ = "ErrorType"
    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:"ErrorType" j
    let to_json = simple_to_json to_value
  end
module UpgradeStepItem =
  struct
    type nonrec t =
      {
      upgradeStep: UpgradeStep.t option
        [@ocaml.doc
          "Represents one of 3 steps that an Upgrade or Upgrade Eligibility Check does through: PreUpgradeCheck Snapshot Upgrade"];
      upgradeStepStatus: UpgradeStatus.t option
        [@ocaml.doc
          "The status of a particular step during an upgrade. The status can take one of the following values: In Progress Succeeded Succeeded with Issues Failed"];
      issues: Issues.t option
        [@ocaml.doc
          "A list of strings containing detailed information about the errors encountered in a particular step."];
      progressPercent: Double.t option
        [@ocaml.doc
          "The Floating point value representing progress percentage of a particular step."]}
    let make ?upgradeStep =
      fun ?upgradeStepStatus ->
        fun ?issues ->
          fun ?progressPercent ->
            fun () ->
              { upgradeStep; upgradeStepStatus; issues; progressPercent }
    let to_value x =
      structure_to_value
        [("UpgradeStep", (Option.map x.upgradeStep ~f:UpgradeStep.to_value));
        ("UpgradeStepStatus",
          (Option.map x.upgradeStepStatus ~f:UpgradeStatus.to_value));
        ("Issues", (Option.map x.issues ~f:Issues.to_value));
        ("ProgressPercent",
          (Option.map x.progressPercent ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let progressPercent =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "ProgressPercent") in
      let issues =
        (Option.map ~f:Issues.of_xml) (Xml.child xml_arg0 "Issues") in
      let upgradeStepStatus =
        (Option.map ~f:UpgradeStatus.of_xml)
          (Xml.child xml_arg0 "UpgradeStepStatus") in
      let upgradeStep =
        (Option.map ~f:UpgradeStep.of_xml) (Xml.child xml_arg0 "UpgradeStep") in
      make ?progressPercent ?issues ?upgradeStepStatus ?upgradeStep ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let progressPercent = field_map json__ "ProgressPercent" Double.of_json in
      let issues = field_map json__ "Issues" Issues.of_json in
      let upgradeStepStatus =
        field_map json__ "UpgradeStepStatus" UpgradeStatus.of_json in
      let upgradeStep = field_map json__ "UpgradeStep" UpgradeStep.of_json in
      make ?progressPercent ?issues ?upgradeStepStatus ?upgradeStep ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a single step of the Upgrade or Upgrade Eligibility Check workflow."]
module ElasticsearchVersionString =
  struct
    type nonrec t = string
    let context_ = "ElasticsearchVersionString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^[0-9]{1}\\.[0-9]{1,2}$|^OpenSearch_[0-9]{1,2}\\.[0-9]{1,2}$|^OS_[0-9]{1,2}\\.[0-9]{1,2}$");
        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:"ElasticsearchVersionString" j
    let to_json = simple_to_json to_value
  end
module RecurringCharge =
  struct
    type nonrec t =
      {
      recurringChargeAmount: Double.t option
        [@ocaml.doc "The monetary amount of the recurring charge."];
      recurringChargeFrequency: String_.t option
        [@ocaml.doc "The frequency of the recurring charge."]}
    let make ?recurringChargeAmount =
      fun ?recurringChargeFrequency ->
        fun () -> { recurringChargeAmount; recurringChargeFrequency }
    let to_value x =
      structure_to_value
        [("RecurringChargeAmount",
           (Option.map x.recurringChargeAmount ~f:Double.to_value));
        ("RecurringChargeFrequency",
          (Option.map x.recurringChargeFrequency ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurringChargeFrequency =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RecurringChargeFrequency") in
      let recurringChargeAmount =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "RecurringChargeAmount") in
      make ?recurringChargeFrequency ?recurringChargeAmount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurringChargeFrequency =
        field_map json__ "RecurringChargeFrequency" String_.of_json in
      let recurringChargeAmount =
        field_map json__ "RecurringChargeAmount" Double.of_json in
      make ?recurringChargeFrequency ?recurringChargeAmount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the specific price and frequency of a recurring charges for a reserved Elasticsearch instance, or for a reserved Elasticsearch instance offering."]
module DescribePackagesFilterValue =
  struct
    type nonrec t = string
    let context_ = "DescribePackagesFilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[0-9a-zA-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:"DescribePackagesFilterValue" j
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of an Elasticsearch domain. Domain names are unique across the domains owned by an account within an AWS region. Domain names start with a letter or number and can contain the following characters: a-z (lowercase), 0-9, and - (hyphen)."]
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:28) >>=
                  (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:"DomainName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of an Elasticsearch domain. Domain names are unique across the domains owned by an account within an AWS region. Domain names start with a letter or number and can contain the following characters: a-z (lowercase), 0-9, and - (hyphen)."]
module OwnerId =
  struct
    type nonrec t = string
    let context_ = "OwnerId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:12) >>=
             (fun () -> check_string_min i ~min: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:"OwnerId" j
    let to_json = simple_to_json to_value
  end
module Region =
  struct
    type nonrec t = string
    let context_ = "Region"
    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:"Region" j
    let to_json = simple_to_json to_value
  end
module CrossClusterSearchConnectionStatusMessage =
  struct
    type nonrec t = string
    let context_ = "CrossClusterSearchConnectionStatusMessage"
    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:"CrossClusterSearchConnectionStatusMessage" j
    let to_json = simple_to_json to_value
  end
module OutboundCrossClusterSearchConnectionStatusCode =
  struct
    type nonrec t =
      | PENDING_ACCEPTANCE 
      | VALIDATING 
      | VALIDATION_FAILED 
      | PROVISIONING 
      | ACTIVE 
      | REJECTED 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_ACCEPTANCE -> "PENDING_ACCEPTANCE"
      | VALIDATING -> "VALIDATING"
      | VALIDATION_FAILED -> "VALIDATION_FAILED"
      | PROVISIONING -> "PROVISIONING"
      | ACTIVE -> "ACTIVE"
      | REJECTED -> "REJECTED"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_ACCEPTANCE" -> PENDING_ACCEPTANCE
      | "VALIDATING" -> VALIDATING
      | "VALIDATION_FAILED" -> VALIDATION_FAILED
      | "PROVISIONING" -> PROVISIONING
      | "ACTIVE" -> ACTIVE
      | "REJECTED" -> REJECTED
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | 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 OutboundCrossClusterSearchConnectionStatusCode"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json
           ~kind:"OutboundCrossClusterSearchConnectionStatusCode" j)
    let to_json = simple_to_json to_value
  end
module NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    let make i =
      let open Result in ok_or_failwith (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:"NonEmptyString" j
    let to_json = simple_to_json to_value
  end
module InboundCrossClusterSearchConnectionStatusCode =
  struct
    type nonrec t =
      | PENDING_ACCEPTANCE 
      | APPROVED 
      | REJECTING 
      | REJECTED 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_ACCEPTANCE -> "PENDING_ACCEPTANCE"
      | APPROVED -> "APPROVED"
      | REJECTING -> "REJECTING"
      | REJECTED -> "REJECTED"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_ACCEPTANCE" -> PENDING_ACCEPTANCE
      | "APPROVED" -> APPROVED
      | "REJECTING" -> REJECTING
      | "REJECTED" -> REJECTED
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | 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 InboundCrossClusterSearchConnectionStatusCode"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"InboundCrossClusterSearchConnectionStatusCode"
           j)
    let to_json = simple_to_json to_value
  end
module AdditionalLimit =
  struct
    type nonrec t =
      {
      limitName: LimitName.t option
        [@ocaml.doc
          "Name of Additional Limit is specific to a given InstanceType and for each of it's InstanceRole etc. Attributes and their details: MaximumNumberOfDataNodesSupported This attribute will be present in Master node only to specify how much data nodes upto which given ESPartitionInstanceType can support as master node. MaximumNumberOfDataNodesWithoutMasterNode This attribute will be present in Data node only to specify how much data nodes of given ESPartitionInstanceType upto which you don't need any master nodes to govern them."];
      limitValues: LimitValueList.t option
        [@ocaml.doc "Value for given AdditionalLimit$LimitName ."]}
    let make ?limitName =
      fun ?limitValues -> fun () -> { limitName; limitValues }
    let to_value x =
      structure_to_value
        [("LimitName", (Option.map x.limitName ~f:LimitName.to_value));
        ("LimitValues",
          (Option.map x.limitValues ~f:LimitValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limitValues =
        (Option.map ~f:LimitValueList.of_xml)
          (Xml.child xml_arg0 "LimitValues") in
      let limitName =
        (Option.map ~f:LimitName.of_xml) (Xml.child xml_arg0 "LimitName") in
      make ?limitValues ?limitName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limitValues = field_map json__ "LimitValues" LimitValueList.of_json in
      let limitName = field_map json__ "LimitName" LimitName.of_json in
      make ?limitValues ?limitName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List of limits that are specific to a given InstanceType and for each of it's InstanceRole ."]
module InstanceCountLimits =
  struct
    type nonrec t =
      {
      minimumInstanceCount: MinimumInstanceCount.t option ;
      maximumInstanceCount: MaximumInstanceCount.t option }
    let make ?minimumInstanceCount =
      fun ?maximumInstanceCount ->
        fun () -> { minimumInstanceCount; maximumInstanceCount }
    let to_value x =
      structure_to_value
        [("MinimumInstanceCount",
           (Option.map x.minimumInstanceCount
              ~f:MinimumInstanceCount.to_value));
        ("MaximumInstanceCount",
          (Option.map x.maximumInstanceCount ~f:MaximumInstanceCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumInstanceCount =
        (Option.map ~f:MaximumInstanceCount.of_xml)
          (Xml.child xml_arg0 "MaximumInstanceCount") in
      let minimumInstanceCount =
        (Option.map ~f:MinimumInstanceCount.of_xml)
          (Xml.child xml_arg0 "MinimumInstanceCount") in
      make ?maximumInstanceCount ?minimumInstanceCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumInstanceCount =
        field_map json__ "MaximumInstanceCount" MaximumInstanceCount.of_json in
      let minimumInstanceCount =
        field_map json__ "MinimumInstanceCount" MinimumInstanceCount.of_json in
      make ?maximumInstanceCount ?minimumInstanceCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "InstanceCountLimits represents the limits on number of instances that be created in Amazon Elasticsearch for given InstanceType."]
module StorageType =
  struct
    type nonrec t =
      {
      storageTypeName: StorageTypeName.t option ;
      storageSubTypeName: StorageSubTypeName.t option ;
      storageTypeLimits: StorageTypeLimitList.t option
        [@ocaml.doc
          "List of limits that are applicable for given storage type."]}
    let make ?storageTypeName =
      fun ?storageSubTypeName ->
        fun ?storageTypeLimits ->
          fun () ->
            { storageTypeName; storageSubTypeName; storageTypeLimits }
    let to_value x =
      structure_to_value
        [("StorageTypeName",
           (Option.map x.storageTypeName ~f:StorageTypeName.to_value));
        ("StorageSubTypeName",
          (Option.map x.storageSubTypeName ~f:StorageSubTypeName.to_value));
        ("StorageTypeLimits",
          (Option.map x.storageTypeLimits ~f:StorageTypeLimitList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageTypeLimits =
        (Option.map ~f:StorageTypeLimitList.of_xml)
          (Xml.child xml_arg0 "StorageTypeLimits") in
      let storageSubTypeName =
        (Option.map ~f:StorageSubTypeName.of_xml)
          (Xml.child xml_arg0 "StorageSubTypeName") in
      let storageTypeName =
        (Option.map ~f:StorageTypeName.of_xml)
          (Xml.child xml_arg0 "StorageTypeName") in
      make ?storageTypeLimits ?storageSubTypeName ?storageTypeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageTypeLimits =
        field_map json__ "StorageTypeLimits" StorageTypeLimitList.of_json in
      let storageSubTypeName =
        field_map json__ "StorageSubTypeName" StorageSubTypeName.of_json in
      let storageTypeName =
        field_map json__ "StorageTypeName" StorageTypeName.of_json in
      make ?storageTypeLimits ?storageSubTypeName ?storageTypeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "StorageTypes represents the list of storage related types and their attributes that are available for given InstanceType."]
module ConfigChangeStatus =
  struct
    type nonrec t =
      | Pending 
      | Initializing 
      | Validating 
      | ValidationFailed 
      | ApplyingChanges 
      | Completed 
      | PendingUserInput 
      | Cancelled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "Pending"
      | Initializing -> "Initializing"
      | Validating -> "Validating"
      | ValidationFailed -> "ValidationFailed"
      | ApplyingChanges -> "ApplyingChanges"
      | Completed -> "Completed"
      | PendingUserInput -> "PendingUserInput"
      | Cancelled -> "Cancelled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Pending" -> Pending
      | "Initializing" -> Initializing
      | "Validating" -> Validating
      | "ValidationFailed" -> ValidationFailed
      | "ApplyingChanges" -> ApplyingChanges
      | "Completed" -> Completed
      | "PendingUserInput" -> PendingUserInput
      | "Cancelled" -> Cancelled
      | 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 ConfigChangeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConfigChangeStatus" j)
    let to_json = simple_to_json to_value
  end
module GUID =
  struct
    type nonrec t = string
    let context_ = "GUID"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"\\p{XDigit}{8}-\\p{XDigit}{4}-\\p{XDigit}{4}-\\p{XDigit}{4}-\\p{XDigit}{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:"GUID" j
    let to_json = simple_to_json to_value
  end
module InitiatedBy =
  struct
    type nonrec t =
      | CUSTOMER 
      | SERVICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOMER -> "CUSTOMER"
      | SERVICE -> "SERVICE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOMER" -> CUSTOMER
      | "SERVICE" -> SERVICE
      | 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 InitiatedBy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InitiatedBy" j)
    let to_json = simple_to_json to_value
  end
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"Message" j
    let to_json = simple_to_json to_value
  end
module ServiceUrl =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The endpoint to which service requests are submitted. For example, search-imdb-movies-oopcnjfn6ugofer3zx5iadxxca.eu-west-1.es.amazonaws.com or doc-imdb-movies-oopcnjfn6ugofer3zx5iadxxca.eu-west-1.es.amazonaws.com."]
    let context_ = "ServiceUrl"
    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:"ServiceUrl" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The endpoint to which service requests are submitted. For example, search-imdb-movies-oopcnjfn6ugofer3zx5iadxxca.eu-west-1.es.amazonaws.com or doc-imdb-movies-oopcnjfn6ugofer3zx5iadxxca.eu-west-1.es.amazonaws.com."]
module ModifyingProperties =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc
          "The name of the property that is currently being modified."];
      activeValue: String_.t option
        [@ocaml.doc
          "The current value of the domain property that is being modified."];
      pendingValue: String_.t option
        [@ocaml.doc
          "The value that the property that is currently being modified will eventually have."];
      valueType: PropertyValueType.t option
        [@ocaml.doc
          "The type of value that is currently being modified. Properties can have two types: PLAIN_TEXT: Contain direct values such as \"1\", \"True\", or \"c5.large.search\". STRINGIFIED_JSON: Contain content in JSON format, such as \\{\"Enabled\":\"True\"\\}\"."]}
    let make ?name =
      fun ?activeValue ->
        fun ?pendingValue ->
          fun ?valueType ->
            fun () -> { name; activeValue; pendingValue; valueType }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("ActiveValue", (Option.map x.activeValue ~f:String_.to_value));
        ("PendingValue", (Option.map x.pendingValue ~f:String_.to_value));
        ("ValueType", (Option.map x.valueType ~f:PropertyValueType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let valueType =
        (Option.map ~f:PropertyValueType.of_xml)
          (Xml.child xml_arg0 "ValueType") in
      let pendingValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PendingValue") in
      let activeValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ActiveValue") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?valueType ?pendingValue ?activeValue ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let valueType = field_map json__ "ValueType" PropertyValueType.of_json in
      let pendingValue = field_map json__ "PendingValue" String_.of_json in
      let activeValue = field_map json__ "ActiveValue" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?valueType ?pendingValue ?activeValue ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the domain properties that are currently being modified."]
module DeploymentCloseDateTimeStamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DeploymentStatus =
  struct
    type nonrec t =
      | PENDING_UPDATE 
      | IN_PROGRESS 
      | COMPLETED 
      | NOT_ELIGIBLE 
      | ELIGIBLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_UPDATE -> "PENDING_UPDATE"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | NOT_ELIGIBLE -> "NOT_ELIGIBLE"
      | ELIGIBLE -> "ELIGIBLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_UPDATE" -> PENDING_UPDATE
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | "NOT_ELIGIBLE" -> NOT_ELIGIBLE
      | "ELIGIBLE" -> ELIGIBLE
      | 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 DeploymentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeploymentStatus" j)
    let to_json = simple_to_json to_value
  end
module ChangeProgressStageName =
  struct
    type nonrec t = string
    let context_ = "ChangeProgressStageName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChangeProgressStageName" j
    let to_json = simple_to_json to_value
  end
module ChangeProgressStageStatus =
  struct
    type nonrec t = string
    let context_ = "ChangeProgressStageStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChangeProgressStageStatus" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    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:"Description" j
    let to_json = simple_to_json to_value
  end
module LastUpdated =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ScheduledAutoTuneDetails =
  struct
    type nonrec t =
      {
      date: AutoTuneDate.t option
        [@ocaml.doc
          "Specifies timestamp for the Auto-Tune action scheduled for the domain."];
      actionType: ScheduledAutoTuneActionType.t option
        [@ocaml.doc
          "Specifies Auto-Tune action type. Valid values are JVM_HEAP_SIZE_TUNING and JVM_YOUNG_GEN_TUNING."];
      action: ScheduledAutoTuneDescription.t option
        [@ocaml.doc "Specifies Auto-Tune action description."];
      severity: ScheduledAutoTuneSeverityType.t option
        [@ocaml.doc
          "Specifies Auto-Tune action severity. Valid values are LOW, MEDIUM and HIGH."]}
    let make ?date =
      fun ?actionType ->
        fun ?action ->
          fun ?severity -> fun () -> { date; actionType; action; severity }
    let to_value x =
      structure_to_value
        [("Date", (Option.map x.date ~f:AutoTuneDate.to_value));
        ("ActionType",
          (Option.map x.actionType ~f:ScheduledAutoTuneActionType.to_value));
        ("Action",
          (Option.map x.action ~f:ScheduledAutoTuneDescription.to_value));
        ("Severity",
          (Option.map x.severity ~f:ScheduledAutoTuneSeverityType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let severity =
        (Option.map ~f:ScheduledAutoTuneSeverityType.of_xml)
          (Xml.child xml_arg0 "Severity") in
      let action =
        (Option.map ~f:ScheduledAutoTuneDescription.of_xml)
          (Xml.child xml_arg0 "Action") in
      let actionType =
        (Option.map ~f:ScheduledAutoTuneActionType.of_xml)
          (Xml.child xml_arg0 "ActionType") in
      let date =
        (Option.map ~f:AutoTuneDate.of_xml) (Xml.child xml_arg0 "Date") in
      make ?severity ?action ?actionType ?date ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let severity =
        field_map json__ "Severity" ScheduledAutoTuneSeverityType.of_json in
      let action =
        field_map json__ "Action" ScheduledAutoTuneDescription.of_json in
      let actionType =
        field_map json__ "ActionType" ScheduledAutoTuneActionType.of_json in
      let date = field_map json__ "Date" AutoTuneDate.of_json in
      make ?severity ?action ?actionType ?date ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies details of the scheduled Auto-Tune action. See the Developer Guide for more information."]
module OptionStatus =
  struct
    type nonrec t =
      {
      creationDate: UpdateTimestamp.t option
        [@ocaml.doc
          "Timestamp which tells the creation date for the entity."];
      updateDate: UpdateTimestamp.t option
        [@ocaml.doc
          "Timestamp which tells the last updated time for the entity."];
      updateVersion: UIntValue.t option
        [@ocaml.doc "Specifies the latest version for the entity."];
      state: OptionState.t option
        [@ocaml.doc "Provides the OptionState for the Elasticsearch domain."];
      pendingDeletion: Boolean.t option
        [@ocaml.doc
          "Indicates whether the Elasticsearch domain is being deleted."]}
    let make ?creationDate =
      fun ?updateDate ->
        fun ?updateVersion ->
          fun ?state ->
            fun ?pendingDeletion ->
              fun () ->
                {
                  creationDate;
                  updateDate;
                  updateVersion;
                  state;
                  pendingDeletion
                }
    let to_value x =
      structure_to_value
        [("CreationDate",
           (Option.map x.creationDate ~f:UpdateTimestamp.to_value));
        ("UpdateDate", (Option.map x.updateDate ~f:UpdateTimestamp.to_value));
        ("UpdateVersion", (Option.map x.updateVersion ~f:UIntValue.to_value));
        ("State", (Option.map x.state ~f:OptionState.to_value));
        ("PendingDeletion",
          (Option.map x.pendingDeletion ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingDeletion =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "PendingDeletion") in
      let state =
        (Option.map ~f:OptionState.of_xml) (Xml.child xml_arg0 "State") in
      let updateVersion =
        (Option.map ~f:UIntValue.of_xml) (Xml.child xml_arg0 "UpdateVersion") in
      let updateDate =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "UpdateDate") in
      let creationDate =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      make ?pendingDeletion ?state ?updateVersion ?updateDate ?creationDate
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingDeletion =
        field_map json__ "PendingDeletion" Boolean.of_json in
      let state = field_map json__ "State" OptionState.of_json in
      let updateVersion = field_map json__ "UpdateVersion" UIntValue.of_json in
      let updateDate = field_map json__ "UpdateDate" UpdateTimestamp.of_json in
      let creationDate =
        field_map json__ "CreationDate" UpdateTimestamp.of_json in
      make ?pendingDeletion ?state ?updateVersion ?updateDate ?creationDate
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the current status of the entity."]
module PolicyDocument =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Access policy rules for an Elasticsearch domain service endpoints. For more information, see Configuring Access Policies in the Amazon Elasticsearch Service Developer Guide. The maximum size of a policy document is 100 KB."]
    let context_ = "PolicyDocument"
    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:"PolicyDocument" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Access policy rules for an Elasticsearch domain service endpoints. For more information, see Configuring Access Policies in the Amazon Elasticsearch Service Developer Guide. The maximum size of a policy document is 100 KB."]
module AdvancedOptions =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module AdvancedSecurityOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "True if advanced security is enabled."];
      internalUserDatabaseEnabled: Boolean.t option
        [@ocaml.doc "True if the internal user database is enabled."];
      sAMLOptions: SAMLOptionsOutput.t option
        [@ocaml.doc
          "Describes the SAML application configured for a domain."];
      anonymousAuthDisableDate: DisableTimestamp.t option
        [@ocaml.doc
          "Specifies the Anonymous Auth Disable Date when Anonymous Auth is enabled."];
      anonymousAuthEnabled: Boolean.t option
        [@ocaml.doc
          "True if Anonymous auth is enabled. Anonymous auth can be enabled only when AdvancedSecurity is enabled on existing domains."]}
    let make ?enabled =
      fun ?internalUserDatabaseEnabled ->
        fun ?sAMLOptions ->
          fun ?anonymousAuthDisableDate ->
            fun ?anonymousAuthEnabled ->
              fun () ->
                {
                  enabled;
                  internalUserDatabaseEnabled;
                  sAMLOptions;
                  anonymousAuthDisableDate;
                  anonymousAuthEnabled
                }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("InternalUserDatabaseEnabled",
          (Option.map x.internalUserDatabaseEnabled ~f:Boolean.to_value));
        ("SAMLOptions",
          (Option.map x.sAMLOptions ~f:SAMLOptionsOutput.to_value));
        ("AnonymousAuthDisableDate",
          (Option.map x.anonymousAuthDisableDate ~f:DisableTimestamp.to_value));
        ("AnonymousAuthEnabled",
          (Option.map x.anonymousAuthEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let anonymousAuthEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AnonymousAuthEnabled") in
      let anonymousAuthDisableDate =
        (Option.map ~f:DisableTimestamp.of_xml)
          (Xml.child xml_arg0 "AnonymousAuthDisableDate") in
      let sAMLOptions =
        (Option.map ~f:SAMLOptionsOutput.of_xml)
          (Xml.child xml_arg0 "SAMLOptions") in
      let internalUserDatabaseEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "InternalUserDatabaseEnabled") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?anonymousAuthEnabled ?anonymousAuthDisableDate ?sAMLOptions
        ?internalUserDatabaseEnabled ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let anonymousAuthEnabled =
        field_map json__ "AnonymousAuthEnabled" Boolean.of_json in
      let anonymousAuthDisableDate =
        field_map json__ "AnonymousAuthDisableDate" DisableTimestamp.of_json in
      let sAMLOptions =
        field_map json__ "SAMLOptions" SAMLOptionsOutput.of_json in
      let internalUserDatabaseEnabled =
        field_map json__ "InternalUserDatabaseEnabled" Boolean.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?anonymousAuthEnabled ?anonymousAuthDisableDate ?sAMLOptions
        ?internalUserDatabaseEnabled ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the advanced security configuration: whether advanced security is enabled, whether the internal database option is enabled."]
module AutoTuneOptions =
  struct
    type nonrec t =
      {
      desiredState: AutoTuneDesiredState.t option
        [@ocaml.doc
          "Specifies the Auto-Tune desired state. Valid values are ENABLED, DISABLED."];
      rollbackOnDisable: RollbackOnDisable.t option
        [@ocaml.doc
          "Specifies the rollback state while disabling Auto-Tune for the domain. Valid values are NO_ROLLBACK, DEFAULT_ROLLBACK."];
      maintenanceSchedules: AutoTuneMaintenanceScheduleList.t option
        [@ocaml.doc
          "Specifies list of maitenance schedules. See the Developer Guide for more information."]}
    let make ?desiredState =
      fun ?rollbackOnDisable ->
        fun ?maintenanceSchedules ->
          fun () -> { desiredState; rollbackOnDisable; maintenanceSchedules }
    let to_value x =
      structure_to_value
        [("DesiredState",
           (Option.map x.desiredState ~f:AutoTuneDesiredState.to_value));
        ("RollbackOnDisable",
          (Option.map x.rollbackOnDisable ~f:RollbackOnDisable.to_value));
        ("MaintenanceSchedules",
          (Option.map x.maintenanceSchedules
             ~f:AutoTuneMaintenanceScheduleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maintenanceSchedules =
        (Option.map ~f:AutoTuneMaintenanceScheduleList.of_xml)
          (Xml.child xml_arg0 "MaintenanceSchedules") in
      let rollbackOnDisable =
        (Option.map ~f:RollbackOnDisable.of_xml)
          (Xml.child xml_arg0 "RollbackOnDisable") in
      let desiredState =
        (Option.map ~f:AutoTuneDesiredState.of_xml)
          (Xml.child xml_arg0 "DesiredState") in
      make ?maintenanceSchedules ?rollbackOnDisable ?desiredState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maintenanceSchedules =
        field_map json__ "MaintenanceSchedules"
          AutoTuneMaintenanceScheduleList.of_json in
      let rollbackOnDisable =
        field_map json__ "RollbackOnDisable" RollbackOnDisable.of_json in
      let desiredState =
        field_map json__ "DesiredState" AutoTuneDesiredState.of_json in
      make ?maintenanceSchedules ?rollbackOnDisable ?desiredState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the Auto-Tune options: the Auto-Tune desired state for the domain, rollback state when disabling Auto-Tune options and list of maintenance schedules."]
module AutoTuneStatus =
  struct
    type nonrec t =
      {
      creationDate: UpdateTimestamp.t option
        [@ocaml.doc
          "Timestamp which tells Auto-Tune options creation date ."];
      updateDate: UpdateTimestamp.t option
        [@ocaml.doc
          "Timestamp which tells Auto-Tune options last updated time."];
      updateVersion: UIntValue.t option
        [@ocaml.doc "Specifies the Auto-Tune options latest version."];
      state: AutoTuneState.t option
        [@ocaml.doc
          "Specifies the AutoTuneState for the Elasticsearch domain."];
      errorMessage: String_.t option
        [@ocaml.doc
          "Specifies the error message while enabling or disabling the Auto-Tune options."];
      pendingDeletion: Boolean.t option
        [@ocaml.doc
          "Indicates whether the Elasticsearch domain is being deleted."]}
    let make ?creationDate =
      fun ?updateDate ->
        fun ?updateVersion ->
          fun ?state ->
            fun ?errorMessage ->
              fun ?pendingDeletion ->
                fun () ->
                  {
                    creationDate;
                    updateDate;
                    updateVersion;
                    state;
                    errorMessage;
                    pendingDeletion
                  }
    let to_value x =
      structure_to_value
        [("CreationDate",
           (Option.map x.creationDate ~f:UpdateTimestamp.to_value));
        ("UpdateDate", (Option.map x.updateDate ~f:UpdateTimestamp.to_value));
        ("UpdateVersion", (Option.map x.updateVersion ~f:UIntValue.to_value));
        ("State", (Option.map x.state ~f:AutoTuneState.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("PendingDeletion",
          (Option.map x.pendingDeletion ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingDeletion =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "PendingDeletion") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let state =
        (Option.map ~f:AutoTuneState.of_xml) (Xml.child xml_arg0 "State") in
      let updateVersion =
        (Option.map ~f:UIntValue.of_xml) (Xml.child xml_arg0 "UpdateVersion") in
      let updateDate =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "UpdateDate") in
      let creationDate =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      make ?pendingDeletion ?errorMessage ?state ?updateVersion ?updateDate
        ?creationDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingDeletion =
        field_map json__ "PendingDeletion" Boolean.of_json in
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let state = field_map json__ "State" AutoTuneState.of_json in
      let updateVersion = field_map json__ "UpdateVersion" UIntValue.of_json in
      let updateDate = field_map json__ "UpdateDate" UpdateTimestamp.of_json in
      let creationDate =
        field_map json__ "CreationDate" UpdateTimestamp.of_json in
      make ?pendingDeletion ?errorMessage ?state ?updateVersion ?updateDate
        ?creationDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the current status of the Auto-Tune options."]
module AutomatedSnapshotPauseOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc
          "Whether automated snapshot pause is enabled for the domain."];
      startTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The timestamp at which the automated snapshot pause begins."];
      endTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The timestamp at which the automated snapshot pause ends."];
      state: PauseState.t option
        [@ocaml.doc
          "The current state of the automated snapshot pause. Valid values are Active, Completed, Scheduled, and Disabled."]}
    let make ?enabled =
      fun ?startTime ->
        fun ?endTime ->
          fun ?state -> fun () -> { enabled; startTime; endTime; state }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("StartTime", (Option.map x.startTime ~f:UpdateTimestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:UpdateTimestamp.to_value));
        ("State", (Option.map x.state ~f:PauseState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:PauseState.of_xml) (Xml.child xml_arg0 "State") in
      let endTime =
        (Option.map ~f:UpdateTimestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?state ?endTime ?startTime ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" PauseState.of_json in
      let endTime = field_map json__ "EndTime" UpdateTimestamp.of_json in
      let startTime = field_map json__ "StartTime" UpdateTimestamp.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?state ?endTime ?startTime ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the automated snapshot pause options for the domain. These options allow you to temporarily pause automated snapshots for a specified time period."]
module CognitoOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc
          "Specifies the option to enable Cognito for Kibana authentication."];
      userPoolId: UserPoolId.t option
        [@ocaml.doc
          "Specifies the Cognito user pool ID for Kibana authentication."];
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "Specifies the Cognito identity pool ID for Kibana authentication."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "Specifies the role ARN that provides Elasticsearch permissions for accessing Cognito resources."]}
    let make ?enabled =
      fun ?userPoolId ->
        fun ?identityPoolId ->
          fun ?roleArn ->
            fun () -> { enabled; userPoolId; identityPoolId; roleArn }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("UserPoolId", (Option.map x.userPoolId ~f:UserPoolId.to_value));
        ("IdentityPoolId",
          (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      let userPoolId =
        (Option.map ~f:UserPoolId.of_xml) (Xml.child xml_arg0 "UserPoolId") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?roleArn ?identityPoolId ?userPoolId ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      let userPoolId = field_map json__ "UserPoolId" UserPoolId.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?roleArn ?identityPoolId ?userPoolId ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see Amazon Cognito Authentication for Kibana."]
module DeploymentStrategyOptions =
  struct
    type nonrec t =
      {
      deploymentStrategy: DeploymentStrategy.t
        [@ocaml.doc
          "Specifies the deployment strategy for the domain. Valid values are Default and CapacityOptimized."]}
    let context_ = "DeploymentStrategyOptions"
    let make ~deploymentStrategy = fun () -> { deploymentStrategy }
    let to_value x =
      structure_to_value
        [("DeploymentStrategy",
           (Some (DeploymentStrategy.to_value x.deploymentStrategy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentStrategy =
        DeploymentStrategy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeploymentStrategy") in
      make ~deploymentStrategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentStrategy =
        field_map_exn json__ "DeploymentStrategy" DeploymentStrategy.of_json in
      make ~deploymentStrategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the deployment strategy options for the domain."]
module DomainEndpointOptions =
  struct
    type nonrec t =
      {
      enforceHTTPS: Boolean.t option
        [@ocaml.doc
          "Specify if only HTTPS endpoint should be enabled for the Elasticsearch domain."];
      tLSSecurityPolicy: TLSSecurityPolicy.t option
        [@ocaml.doc
          "Specify the TLS security policy that needs to be applied to the HTTPS endpoint of Elasticsearch domain. It can be one of the following values: Policy-Min-TLS-1-0-2019-07: TLS security policy that supports TLS version 1.0 to TLS version 1.2 Policy-Min-TLS-1-2-2019-07: TLS security policy that supports only TLS version 1.2 Policy-Min-TLS-1-2-PFS-2023-10: TLS security policy that supports TLS version 1.2 to TLS version 1.3 with perfect forward secrecy cipher suites Policy-Min-TLS-1-2-RFC9151-FIPS-2024-08: TLS security policy that supports TLS version 1.3 with FIPS"];
      customEndpointEnabled: Boolean.t option
        [@ocaml.doc
          "Specify if custom endpoint should be enabled for the Elasticsearch domain."];
      customEndpoint: DomainNameFqdn.t option
        [@ocaml.doc
          "Specify the fully qualified domain for your custom endpoint."];
      customEndpointCertificateArn: ARN.t option
        [@ocaml.doc "Specify ACM certificate ARN for your custom endpoint."]}
    let make ?enforceHTTPS =
      fun ?tLSSecurityPolicy ->
        fun ?customEndpointEnabled ->
          fun ?customEndpoint ->
            fun ?customEndpointCertificateArn ->
              fun () ->
                {
                  enforceHTTPS;
                  tLSSecurityPolicy;
                  customEndpointEnabled;
                  customEndpoint;
                  customEndpointCertificateArn
                }
    let to_value x =
      structure_to_value
        [("EnforceHTTPS", (Option.map x.enforceHTTPS ~f:Boolean.to_value));
        ("TLSSecurityPolicy",
          (Option.map x.tLSSecurityPolicy ~f:TLSSecurityPolicy.to_value));
        ("CustomEndpointEnabled",
          (Option.map x.customEndpointEnabled ~f:Boolean.to_value));
        ("CustomEndpoint",
          (Option.map x.customEndpoint ~f:DomainNameFqdn.to_value));
        ("CustomEndpointCertificateArn",
          (Option.map x.customEndpointCertificateArn ~f:ARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customEndpointCertificateArn =
        (Option.map ~f:ARN.of_xml)
          (Xml.child xml_arg0 "CustomEndpointCertificateArn") in
      let customEndpoint =
        (Option.map ~f:DomainNameFqdn.of_xml)
          (Xml.child xml_arg0 "CustomEndpoint") in
      let customEndpointEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "CustomEndpointEnabled") in
      let tLSSecurityPolicy =
        (Option.map ~f:TLSSecurityPolicy.of_xml)
          (Xml.child xml_arg0 "TLSSecurityPolicy") in
      let enforceHTTPS =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EnforceHTTPS") in
      make ?customEndpointCertificateArn ?customEndpoint
        ?customEndpointEnabled ?tLSSecurityPolicy ?enforceHTTPS ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customEndpointCertificateArn =
        field_map json__ "CustomEndpointCertificateArn" ARN.of_json in
      let customEndpoint =
        field_map json__ "CustomEndpoint" DomainNameFqdn.of_json in
      let customEndpointEnabled =
        field_map json__ "CustomEndpointEnabled" Boolean.of_json in
      let tLSSecurityPolicy =
        field_map json__ "TLSSecurityPolicy" TLSSecurityPolicy.of_json in
      let enforceHTTPS = field_map json__ "EnforceHTTPS" Boolean.of_json in
      make ?customEndpointCertificateArn ?customEndpoint
        ?customEndpointEnabled ?tLSSecurityPolicy ?enforceHTTPS ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Options to configure endpoint for the Elasticsearch domain."]
module EBSOptions =
  struct
    type nonrec t =
      {
      eBSEnabled: Boolean.t option
        [@ocaml.doc "Specifies whether EBS-based storage is enabled."];
      volumeType: VolumeType.t option
        [@ocaml.doc "Specifies the volume type for EBS-based storage."];
      volumeSize: IntegerClass.t option
        [@ocaml.doc "Integer to specify the size of an EBS volume."];
      iops: IntegerClass.t option
        [@ocaml.doc
          "Specifies the IOPS for Provisioned IOPS And GP3 EBS volume (SSD)."];
      throughput: IntegerClass.t option
        [@ocaml.doc "Specifies the Throughput for GP3 EBS volume (SSD)."]}
    let make ?eBSEnabled =
      fun ?volumeType ->
        fun ?volumeSize ->
          fun ?iops ->
            fun ?throughput ->
              fun () ->
                { eBSEnabled; volumeType; volumeSize; iops; throughput }
    let to_value x =
      structure_to_value
        [("EBSEnabled", (Option.map x.eBSEnabled ~f:Boolean.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:VolumeType.to_value));
        ("VolumeSize", (Option.map x.volumeSize ~f:IntegerClass.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerClass.to_value));
        ("Throughput", (Option.map x.throughput ~f:IntegerClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let throughput =
        (Option.map ~f:IntegerClass.of_xml) (Xml.child xml_arg0 "Throughput") in
      let iops =
        (Option.map ~f:IntegerClass.of_xml) (Xml.child xml_arg0 "Iops") in
      let volumeSize =
        (Option.map ~f:IntegerClass.of_xml) (Xml.child xml_arg0 "VolumeSize") in
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "VolumeType") in
      let eBSEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EBSEnabled") in
      make ?throughput ?iops ?volumeSize ?volumeType ?eBSEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let throughput = field_map json__ "Throughput" IntegerClass.of_json in
      let iops = field_map json__ "Iops" IntegerClass.of_json in
      let volumeSize = field_map json__ "VolumeSize" IntegerClass.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let eBSEnabled = field_map json__ "EBSEnabled" Boolean.of_json in
      make ?throughput ?iops ?volumeSize ?volumeType ?eBSEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Options to enable, disable, and specify the properties of EBS storage volumes. For more information, see Configuring EBS-based Storage."]
module ElasticsearchClusterConfig =
  struct
    type nonrec t =
      {
      instanceType: ESPartitionInstanceType.t option
        [@ocaml.doc
          "The instance type for an Elasticsearch cluster. UltraWarm instance types are not supported for data instances."];
      instanceCount: IntegerClass.t option
        [@ocaml.doc
          "The number of instances in the specified domain cluster."];
      dedicatedMasterEnabled: Boolean.t option
        [@ocaml.doc
          "A boolean value to indicate whether a dedicated master node is enabled. See About Dedicated Master Nodes for more information."];
      zoneAwarenessEnabled: Boolean.t option
        [@ocaml.doc
          "A boolean value to indicate whether zone awareness is enabled. See About Zone Awareness for more information."];
      zoneAwarenessConfig: ZoneAwarenessConfig.t option
        [@ocaml.doc
          "Specifies the zone awareness configuration for a domain when zone awareness is enabled."];
      dedicatedMasterType: ESPartitionInstanceType.t option
        [@ocaml.doc "The instance type for a dedicated master node."];
      dedicatedMasterCount: IntegerClass.t option
        [@ocaml.doc
          "Total number of dedicated master nodes, active and on standby, for the cluster."];
      warmEnabled: Boolean.t option
        [@ocaml.doc "True to enable warm storage."];
      warmType: ESWarmPartitionInstanceType.t option
        [@ocaml.doc
          "The instance type for the Elasticsearch cluster's warm nodes."];
      warmCount: IntegerClass.t option
        [@ocaml.doc "The number of warm nodes in the cluster."];
      coldStorageOptions: ColdStorageOptions.t option
        [@ocaml.doc
          "Specifies the ColdStorageOptions config for Elasticsearch Domain"]}
    let make ?instanceType =
      fun ?instanceCount ->
        fun ?dedicatedMasterEnabled ->
          fun ?zoneAwarenessEnabled ->
            fun ?zoneAwarenessConfig ->
              fun ?dedicatedMasterType ->
                fun ?dedicatedMasterCount ->
                  fun ?warmEnabled ->
                    fun ?warmType ->
                      fun ?warmCount ->
                        fun ?coldStorageOptions ->
                          fun () ->
                            {
                              instanceType;
                              instanceCount;
                              dedicatedMasterEnabled;
                              zoneAwarenessEnabled;
                              zoneAwarenessConfig;
                              dedicatedMasterType;
                              dedicatedMasterCount;
                              warmEnabled;
                              warmType;
                              warmCount;
                              coldStorageOptions
                            }
    let to_value x =
      structure_to_value
        [("InstanceType",
           (Option.map x.instanceType ~f:ESPartitionInstanceType.to_value));
        ("InstanceCount",
          (Option.map x.instanceCount ~f:IntegerClass.to_value));
        ("DedicatedMasterEnabled",
          (Option.map x.dedicatedMasterEnabled ~f:Boolean.to_value));
        ("ZoneAwarenessEnabled",
          (Option.map x.zoneAwarenessEnabled ~f:Boolean.to_value));
        ("ZoneAwarenessConfig",
          (Option.map x.zoneAwarenessConfig ~f:ZoneAwarenessConfig.to_value));
        ("DedicatedMasterType",
          (Option.map x.dedicatedMasterType
             ~f:ESPartitionInstanceType.to_value));
        ("DedicatedMasterCount",
          (Option.map x.dedicatedMasterCount ~f:IntegerClass.to_value));
        ("WarmEnabled", (Option.map x.warmEnabled ~f:Boolean.to_value));
        ("WarmType",
          (Option.map x.warmType ~f:ESWarmPartitionInstanceType.to_value));
        ("WarmCount", (Option.map x.warmCount ~f:IntegerClass.to_value));
        ("ColdStorageOptions",
          (Option.map x.coldStorageOptions ~f:ColdStorageOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coldStorageOptions =
        (Option.map ~f:ColdStorageOptions.of_xml)
          (Xml.child xml_arg0 "ColdStorageOptions") in
      let warmCount =
        (Option.map ~f:IntegerClass.of_xml) (Xml.child xml_arg0 "WarmCount") in
      let warmType =
        (Option.map ~f:ESWarmPartitionInstanceType.of_xml)
          (Xml.child xml_arg0 "WarmType") in
      let warmEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "WarmEnabled") in
      let dedicatedMasterCount =
        (Option.map ~f:IntegerClass.of_xml)
          (Xml.child xml_arg0 "DedicatedMasterCount") in
      let dedicatedMasterType =
        (Option.map ~f:ESPartitionInstanceType.of_xml)
          (Xml.child xml_arg0 "DedicatedMasterType") in
      let zoneAwarenessConfig =
        (Option.map ~f:ZoneAwarenessConfig.of_xml)
          (Xml.child xml_arg0 "ZoneAwarenessConfig") in
      let zoneAwarenessEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ZoneAwarenessEnabled") in
      let dedicatedMasterEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DedicatedMasterEnabled") in
      let instanceCount =
        (Option.map ~f:IntegerClass.of_xml)
          (Xml.child xml_arg0 "InstanceCount") in
      let instanceType =
        (Option.map ~f:ESPartitionInstanceType.of_xml)
          (Xml.child xml_arg0 "InstanceType") in
      make ?coldStorageOptions ?warmCount ?warmType ?warmEnabled
        ?dedicatedMasterCount ?dedicatedMasterType ?zoneAwarenessConfig
        ?zoneAwarenessEnabled ?dedicatedMasterEnabled ?instanceCount
        ?instanceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coldStorageOptions =
        field_map json__ "ColdStorageOptions" ColdStorageOptions.of_json in
      let warmCount = field_map json__ "WarmCount" IntegerClass.of_json in
      let warmType =
        field_map json__ "WarmType" ESWarmPartitionInstanceType.of_json in
      let warmEnabled = field_map json__ "WarmEnabled" Boolean.of_json in
      let dedicatedMasterCount =
        field_map json__ "DedicatedMasterCount" IntegerClass.of_json in
      let dedicatedMasterType =
        field_map json__ "DedicatedMasterType"
          ESPartitionInstanceType.of_json in
      let zoneAwarenessConfig =
        field_map json__ "ZoneAwarenessConfig" ZoneAwarenessConfig.of_json in
      let zoneAwarenessEnabled =
        field_map json__ "ZoneAwarenessEnabled" Boolean.of_json in
      let dedicatedMasterEnabled =
        field_map json__ "DedicatedMasterEnabled" Boolean.of_json in
      let instanceCount =
        field_map json__ "InstanceCount" IntegerClass.of_json in
      let instanceType =
        field_map json__ "InstanceType" ESPartitionInstanceType.of_json in
      make ?coldStorageOptions ?warmCount ?warmType ?warmEnabled
        ?dedicatedMasterCount ?dedicatedMasterType ?zoneAwarenessConfig
        ?zoneAwarenessEnabled ?dedicatedMasterEnabled ?instanceCount
        ?instanceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the configuration for the domain cluster, such as the type and number of instances."]
module EncryptionAtRestOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Specifies the option to enable Encryption At Rest."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "Specifies the KMS Key ID for Encryption At Rest options."]}
    let make ?enabled = fun ?kmsKeyId -> fun () -> { enabled; kmsKeyId }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?kmsKeyId ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?kmsKeyId ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the Encryption At Rest Options."]
module LogPublishingOptions =
  struct
    type nonrec t = (LogType.t * LogPublishingOption.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types LogType LogPublishingOption"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (LogType.to_value x) |>
                    (fun x ->
                       (LogPublishingOption.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:LogType.of_string
        ~of_json:LogPublishingOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module NodeToNodeEncryptionOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Specify true to enable node-to-node encryption."]}
    let make ?enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the node-to-node encryption options."]
module SnapshotOptions =
  struct
    type nonrec t =
      {
      automatedSnapshotStartHour: IntegerClass.t option
        [@ocaml.doc
          "Specifies the time, in UTC format, when the service takes a daily automated snapshot of the specified Elasticsearch domain. Default value is 0 hours."]}
    let make ?automatedSnapshotStartHour =
      fun () -> { automatedSnapshotStartHour }
    let to_value x =
      structure_to_value
        [("AutomatedSnapshotStartHour",
           (Option.map x.automatedSnapshotStartHour ~f:IntegerClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automatedSnapshotStartHour =
        (Option.map ~f:IntegerClass.of_xml)
          (Xml.child xml_arg0 "AutomatedSnapshotStartHour") in
      make ?automatedSnapshotStartHour ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automatedSnapshotStartHour =
        field_map json__ "AutomatedSnapshotStartHour" IntegerClass.of_json in
      make ?automatedSnapshotStartHour ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the time, in UTC format, when the service takes a daily automated snapshot of the specified Elasticsearch domain. Default value is 0 hours."]
module VPCDerivedInfo =
  struct
    type nonrec t =
      {
      vPCId: String_.t option
        [@ocaml.doc
          "The VPC Id for the Elasticsearch domain. Exists only if the domain was created with VPCOptions."];
      subnetIds: StringList.t option
        [@ocaml.doc "Specifies the subnets for VPC endpoint."];
      availabilityZones: StringList.t option
        [@ocaml.doc
          "The availability zones for the Elasticsearch domain. Exists only if the domain was created with VPCOptions."];
      securityGroupIds: StringList.t option
        [@ocaml.doc "Specifies the security groups for VPC endpoint."]}
    let make ?vPCId =
      fun ?subnetIds ->
        fun ?availabilityZones ->
          fun ?securityGroupIds ->
            fun () ->
              { vPCId; subnetIds; availabilityZones; securityGroupIds }
    let to_value x =
      structure_to_value
        [("VPCId", (Option.map x.vPCId ~f:String_.to_value));
        ("SubnetIds", (Option.map x.subnetIds ~f:StringList.to_value));
        ("AvailabilityZones",
          (Option.map x.availabilityZones ~f:StringList.to_value));
        ("SecurityGroupIds",
          (Option.map x.securityGroupIds ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupIds =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SecurityGroupIds") in
      let availabilityZones =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      let subnetIds =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      let vPCId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VPCId") in
      make ?securityGroupIds ?availabilityZones ?subnetIds ?vPCId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupIds =
        field_map json__ "SecurityGroupIds" StringList.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" StringList.of_json in
      let subnetIds = field_map json__ "SubnetIds" StringList.of_json in
      let vPCId = field_map json__ "VPCId" String_.of_json in
      make ?securityGroupIds ?availabilityZones ?subnetIds ?vPCId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Options to specify the subnets and security groups for VPC endpoint. For more information, see VPC Endpoints for Amazon Elasticsearch Service Domains."]
module Password =
  struct
    type nonrec t = string
    let context_ = "Password"
    let make i =
      let open Result in ok_or_failwith (check_string_min i ~min:8); 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:"Password" j
    let to_json = simple_to_json to_value
  end
module Username =
  struct
    type nonrec t = string
    let context_ = "Username"
    let make i =
      let open Result in ok_or_failwith (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:"Username" j
    let to_json = simple_to_json to_value
  end
module BackendRole =
  struct
    type nonrec t = string
    let context_ = "BackendRole"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BackendRole" j
    let to_json = simple_to_json to_value
  end
module DomainArn =
  struct
    type nonrec t = string
    let context_ = "DomainArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[a-z\\-]*:[a-z]+:[a-z0-9\\-]+:[0-9]+:domain\\/[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:"DomainArn" 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:5) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^aos-[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:"VpcEndpointId" j
    let to_json = simple_to_json to_value
  end
module VpcEndpointStatus =
  struct
    type nonrec t =
      | CREATING 
      | CREATE_FAILED 
      | ACTIVE 
      | UPDATING 
      | UPDATE_FAILED 
      | DELETING 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | ACTIVE -> "ACTIVE"
      | UPDATING -> "UPDATING"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | DELETING -> "DELETING"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "ACTIVE" -> ACTIVE
      | "UPDATING" -> UPDATING
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "DELETING" -> DELETING
      | "DELETE_FAILED" -> DELETE_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 PrincipalType =
  struct
    type nonrec t =
      | AWS_ACCOUNT 
      | AWS_SERVICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_ACCOUNT -> "AWS_ACCOUNT"
      | AWS_SERVICE -> "AWS_SERVICE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_ACCOUNT" -> AWS_ACCOUNT
      | "AWS_SERVICE" -> AWS_SERVICE
      | 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 PrincipalType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PrincipalType" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A string of length from 1 to 128 characters that specifies the key for a Tag. Tag keys must be unique for the Elasticsearch domain to which they are attached."]
    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[@@ocaml.doc
       "A string of length from 1 to 128 characters that specifies the key for a Tag. Tag keys must be unique for the Elasticsearch domain to which they are attached."]
module TagValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A string of length from 0 to 256 characters that specifies the value for a Tag. Tag values can be null and do not have to be unique in a tag set."]
    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[@@ocaml.doc
       "A string of length from 0 to 256 characters that specifies the value for a Tag. Tag values can be null and do not have to be unique in a tag set."]
module DomainPackageStatus =
  struct
    type nonrec t =
      | ASSOCIATING 
      | ASSOCIATION_FAILED 
      | ACTIVE 
      | DISSOCIATING 
      | DISSOCIATION_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATING -> "ASSOCIATING"
      | ASSOCIATION_FAILED -> "ASSOCIATION_FAILED"
      | ACTIVE -> "ACTIVE"
      | DISSOCIATING -> "DISSOCIATING"
      | DISSOCIATION_FAILED -> "DISSOCIATION_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATING" -> ASSOCIATING
      | "ASSOCIATION_FAILED" -> ASSOCIATION_FAILED
      | "ACTIVE" -> ACTIVE
      | "DISSOCIATING" -> DISSOCIATING
      | "DISSOCIATION_FAILED" -> DISSOCIATION_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 DomainPackageStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DomainPackageStatus" j)
    let to_json = simple_to_json to_value
  end
module ErrorDetails =
  struct
    type nonrec t =
      {
      errorType: ErrorType.t option ;
      errorMessage: ErrorMessage.t option }
    let make ?errorType =
      fun ?errorMessage -> fun () -> { errorType; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorType", (Option.map x.errorType ~f:ErrorType.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorType =
        (Option.map ~f:ErrorType.of_xml) (Xml.child xml_arg0 "ErrorType") in
      make ?errorMessage ?errorType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorType = field_map json__ "ErrorType" ErrorType.of_json in
      make ?errorMessage ?errorType ()
    let to_json v = composed_to_json to_value v
  end
module PackageID =
  struct
    type nonrec t = string
    let context_ = "PackageID"
    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:"PackageID" j
    let to_json = simple_to_json to_value
  end
module PackageName =
  struct
    type nonrec t = string
    let context_ = "PackageName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:28) >>=
                  (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:"PackageName" j
    let to_json = simple_to_json to_value
  end
module PackageType =
  struct
    type nonrec t =
      | TXT_DICTIONARY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TXT_DICTIONARY -> "TXT-DICTIONARY" | Non_static_id s -> s
    let of_string =
      function | "TXT-DICTIONARY" -> TXT_DICTIONARY | 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 PackageType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PackageType" j)
    let to_json = simple_to_json to_value
  end
module PackageVersion =
  struct
    type nonrec t = string
    let context_ = "PackageVersion"
    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:"PackageVersion" j
    let to_json = simple_to_json to_value
  end
module ReferencePath =
  struct
    type nonrec t = string
    let context_ = "ReferencePath"
    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:"ReferencePath" j
    let to_json = simple_to_json to_value
  end
module EngineType =
  struct
    type nonrec t =
      | OpenSearch 
      | Elasticsearch 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OpenSearch -> "OpenSearch"
      | Elasticsearch -> "Elasticsearch"
      | Non_static_id s -> s
    let of_string =
      function
      | "OpenSearch" -> OpenSearch
      | "Elasticsearch" -> Elasticsearch
      | 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 EngineType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EngineType" j)
    let to_json = simple_to_json to_value
  end
module StartTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UpgradeName =
  struct
    type nonrec t = string
    let context_ = "UpgradeName"
    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:"UpgradeName" j
    let to_json = simple_to_json to_value
  end
module UpgradeStepsList =
  struct
    type nonrec t = UpgradeStepItem.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:UpgradeStepItem.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:UpgradeStepItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UpgradeStepsList" ~of_json:UpgradeStepItem.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CommitMessage =
  struct
    type nonrec t = string
    let context_ = "CommitMessage"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:160); 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:"CommitMessage" j
    let to_json = simple_to_json to_value
  end
module CreatedAt =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ElasticsearchVersionList =
  struct
    type nonrec t = ElasticsearchVersionString.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:ElasticsearchVersionString.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:ElasticsearchVersionString.of_xml)
    let of_json j =
      list_of_json ~kind:"ElasticsearchVersionList"
        ~of_json:ElasticsearchVersionString.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointErrorCode =
  struct
    type nonrec t =
      | ENDPOINT_NOT_FOUND 
      | SERVER_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENDPOINT_NOT_FOUND -> "ENDPOINT_NOT_FOUND"
      | SERVER_ERROR -> "SERVER_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENDPOINT_NOT_FOUND" -> ENDPOINT_NOT_FOUND
      | "SERVER_ERROR" -> SERVER_ERROR
      | 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 VpcEndpointErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VpcEndpointErrorCode" j)
    let to_json = simple_to_json to_value
  end
module AWSAccount =
  struct
    type nonrec t = string
    let context_ = "AWSAccount"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[0-9]+$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AWSAccount" j
    let to_json = simple_to_json to_value
  end
module Endpoint =
  struct
    type nonrec t = string
    let context_ = "Endpoint"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[A-Za-z0-9\\-\\.]+$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Endpoint" 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 RecurringChargeList =
  struct
    type nonrec t = RecurringCharge.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:RecurringCharge.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:RecurringCharge.of_xml)
    let of_json j =
      list_of_json ~kind:"RecurringChargeList"
        ~of_json:RecurringCharge.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReservationToken =
  struct
    type nonrec t = string
    let context_ = "ReservationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:5));
        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:"ReservationToken" j
    let to_json = simple_to_json to_value
  end
module ReservedElasticsearchInstancePaymentOption =
  struct
    type nonrec t =
      | ALL_UPFRONT 
      | PARTIAL_UPFRONT 
      | NO_UPFRONT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL_UPFRONT -> "ALL_UPFRONT"
      | PARTIAL_UPFRONT -> "PARTIAL_UPFRONT"
      | NO_UPFRONT -> "NO_UPFRONT"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL_UPFRONT" -> ALL_UPFRONT
      | "PARTIAL_UPFRONT" -> PARTIAL_UPFRONT
      | "NO_UPFRONT" -> NO_UPFRONT
      | 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 ReservedElasticsearchInstancePaymentOption"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ReservedElasticsearchInstancePaymentOption" j)
    let to_json = simple_to_json to_value
  end
module PackageDescription =
  struct
    type nonrec t = string
    let context_ = "PackageDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PackageDescription" j
    let to_json = simple_to_json to_value
  end
module PackageStatus =
  struct
    type nonrec t =
      | COPYING 
      | COPY_FAILED 
      | VALIDATING 
      | VALIDATION_FAILED 
      | AVAILABLE 
      | DELETING 
      | DELETED 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COPYING -> "COPYING"
      | COPY_FAILED -> "COPY_FAILED"
      | VALIDATING -> "VALIDATING"
      | VALIDATION_FAILED -> "VALIDATION_FAILED"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COPYING" -> COPYING
      | "COPY_FAILED" -> COPY_FAILED
      | "VALIDATING" -> VALIDATING
      | "VALIDATION_FAILED" -> VALIDATION_FAILED
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | "DELETE_FAILED" -> DELETE_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 PackageStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PackageStatus" j)
    let to_json = simple_to_json to_value
  end
module DescribePackagesFilterName =
  struct
    type nonrec t =
      | PackageID 
      | PackageName 
      | PackageStatus 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PackageID -> "PackageID"
      | PackageName -> "PackageName"
      | PackageStatus -> "PackageStatus"
      | Non_static_id s -> s
    let of_string =
      function
      | "PackageID" -> PackageID
      | "PackageName" -> PackageName
      | "PackageStatus" -> PackageStatus
      | 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 DescribePackagesFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DescribePackagesFilterName" j)
    let to_json = simple_to_json to_value
  end
module DescribePackagesFilterValues =
  struct
    type nonrec t = DescribePackagesFilterValue.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:DescribePackagesFilterValue.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:DescribePackagesFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribePackagesFilterValues"
        ~of_json:DescribePackagesFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionAlias =
  struct
    type nonrec t = string
    let context_ = "ConnectionAlias"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:20); 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:"ConnectionAlias" j
    let to_json = simple_to_json to_value
  end
module CrossClusterSearchConnectionId =
  struct
    type nonrec t = string
    let context_ = "CrossClusterSearchConnectionId"
    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:"CrossClusterSearchConnectionId" j
    let to_json = simple_to_json to_value
  end
module DomainInformation =
  struct
    type nonrec t =
      {
      ownerId: OwnerId.t option ;
      domainName: DomainName.t ;
      region: Region.t option }
    let context_ = "DomainInformation"
    let make ?ownerId =
      fun ?region ->
        fun ~domainName -> fun () -> { ownerId; region; domainName }
    let to_value x =
      structure_to_value
        [("OwnerId", (Option.map x.ownerId ~f:OwnerId.to_value));
        ("DomainName", (Some (DomainName.to_value x.domainName)));
        ("Region", (Option.map x.region ~f:Region.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "Region") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      let ownerId =
        (Option.map ~f:OwnerId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      make ?region ~domainName ?ownerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map json__ "Region" Region.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      let ownerId = field_map json__ "OwnerId" OwnerId.of_json in
      make ?region ~domainName ?ownerId ()
    let to_json v = composed_to_json to_value v
  end
module OutboundCrossClusterSearchConnectionStatus =
  struct
    type nonrec t =
      {
      statusCode: OutboundCrossClusterSearchConnectionStatusCode.t option
        [@ocaml.doc
          "The state code for outbound connection. This can be one of the following: VALIDATING: The outbound connection request is being validated. VALIDATION_FAILED: Validation failed for the connection request. PENDING_ACCEPTANCE: Outbound connection request is validated and is not yet accepted by destination domain owner. PROVISIONING: Outbound connection request is in process. ACTIVE: Outbound connection is active and ready to use. REJECTED: Outbound connection request is rejected by destination domain owner. DELETING: Outbound connection deletion is in progress. DELETED: Outbound connection is deleted and cannot be used further."];
      message: CrossClusterSearchConnectionStatusMessage.t option
        [@ocaml.doc
          "Specifies verbose information for the outbound connection status."]}
    let make ?statusCode = fun ?message -> fun () -> { statusCode; message }
    let to_value x =
      structure_to_value
        [("StatusCode",
           (Option.map x.statusCode
              ~f:OutboundCrossClusterSearchConnectionStatusCode.to_value));
        ("Message",
          (Option.map x.message
             ~f:CrossClusterSearchConnectionStatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:CrossClusterSearchConnectionStatusMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      let statusCode =
        (Option.map ~f:OutboundCrossClusterSearchConnectionStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      make ?message ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message =
        field_map json__ "Message"
          CrossClusterSearchConnectionStatusMessage.of_json in
      let statusCode =
        field_map json__ "StatusCode"
          OutboundCrossClusterSearchConnectionStatusCode.of_json in
      make ?message ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the connection status of an outbound cross-cluster search connection."]
module ValueStringList =
  struct
    type nonrec t = NonEmptyString.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:NonEmptyString.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:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"ValueStringList" ~of_json:NonEmptyString.of_json j
    let to_json v = composed_to_json to_value v
  end
module InboundCrossClusterSearchConnectionStatus =
  struct
    type nonrec t =
      {
      statusCode: InboundCrossClusterSearchConnectionStatusCode.t option
        [@ocaml.doc
          "The state code for inbound connection. This can be one of the following: PENDING_ACCEPTANCE: Inbound connection is not yet accepted by destination domain owner. APPROVED: Inbound connection is pending acceptance by destination domain owner. REJECTING: Inbound connection rejection is in process. REJECTED: Inbound connection is rejected. DELETING: Inbound connection deletion is in progress. DELETED: Inbound connection is deleted and cannot be used further."];
      message: CrossClusterSearchConnectionStatusMessage.t option
        [@ocaml.doc
          "Specifies verbose information for the inbound connection status."]}
    let make ?statusCode = fun ?message -> fun () -> { statusCode; message }
    let to_value x =
      structure_to_value
        [("StatusCode",
           (Option.map x.statusCode
              ~f:InboundCrossClusterSearchConnectionStatusCode.to_value));
        ("Message",
          (Option.map x.message
             ~f:CrossClusterSearchConnectionStatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:CrossClusterSearchConnectionStatusMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      let statusCode =
        (Option.map ~f:InboundCrossClusterSearchConnectionStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      make ?message ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message =
        field_map json__ "Message"
          CrossClusterSearchConnectionStatusMessage.of_json in
      let statusCode =
        field_map json__ "StatusCode"
          InboundCrossClusterSearchConnectionStatusCode.of_json in
      make ?message ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the coonection status of an inbound cross-cluster search connection."]
module AdditionalLimitList =
  struct
    type nonrec t = AdditionalLimit.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:AdditionalLimit.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:AdditionalLimit.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalLimitList"
        ~of_json:AdditionalLimit.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceLimits =
  struct
    type nonrec t = {
      instanceCountLimits: InstanceCountLimits.t option }
    let make ?instanceCountLimits = fun () -> { instanceCountLimits }
    let to_value x =
      structure_to_value
        [("InstanceCountLimits",
           (Option.map x.instanceCountLimits ~f:InstanceCountLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceCountLimits =
        (Option.map ~f:InstanceCountLimits.of_xml)
          (Xml.child xml_arg0 "InstanceCountLimits") in
      make ?instanceCountLimits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceCountLimits =
        field_map json__ "InstanceCountLimits" InstanceCountLimits.of_json in
      make ?instanceCountLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "InstanceLimits represents the list of instance related attributes that are available for given InstanceType."]
module StorageTypeList =
  struct
    type nonrec t = StorageType.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:StorageType.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:StorageType.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageTypeList" ~of_json:StorageType.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutoTuneOptionsOutput =
  struct
    type nonrec t =
      {
      state: AutoTuneState.t option
        [@ocaml.doc
          "Specifies the AutoTuneState for the Elasticsearch domain."];
      errorMessage: String_.t option
        [@ocaml.doc
          "Specifies the error message while enabling or disabling the Auto-Tune."]}
    let make ?state = fun ?errorMessage -> fun () -> { state; errorMessage }
    let to_value x =
      structure_to_value
        [("State", (Option.map x.state ~f:AutoTuneState.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let state =
        (Option.map ~f:AutoTuneState.of_xml) (Xml.child xml_arg0 "State") in
      make ?errorMessage ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let state = field_map json__ "State" AutoTuneState.of_json in
      make ?errorMessage ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the Auto-Tune options: the Auto-Tune desired state for the domain and list of maintenance schedules."]
module ChangeProgressDetails =
  struct
    type nonrec t =
      {
      changeId: GUID.t option
        [@ocaml.doc
          "The unique change identifier associated with a specific domain configuration change."];
      message: Message.t option
        [@ocaml.doc
          "Contains an optional message associated with the domain configuration change."];
      configChangeStatus: ConfigChangeStatus.t option
        [@ocaml.doc "The current status of the configuration change."];
      startTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The time that the configuration change was initiated, in Universal Coordinated Time (UTC)."];
      lastUpdatedTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The last time that the configuration change was updated."];
      initiatedBy: InitiatedBy.t option
        [@ocaml.doc
          "The IAM principal who initiated the configuration change."]}
    let make ?changeId =
      fun ?message ->
        fun ?configChangeStatus ->
          fun ?startTime ->
            fun ?lastUpdatedTime ->
              fun ?initiatedBy ->
                fun () ->
                  {
                    changeId;
                    message;
                    configChangeStatus;
                    startTime;
                    lastUpdatedTime;
                    initiatedBy
                  }
    let to_value x =
      structure_to_value
        [("ChangeId", (Option.map x.changeId ~f:GUID.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value));
        ("ConfigChangeStatus",
          (Option.map x.configChangeStatus ~f:ConfigChangeStatus.to_value));
        ("StartTime", (Option.map x.startTime ~f:UpdateTimestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:UpdateTimestamp.to_value));
        ("InitiatedBy", (Option.map x.initiatedBy ~f:InitiatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiatedBy =
        (Option.map ~f:InitiatedBy.of_xml) (Xml.child xml_arg0 "InitiatedBy") in
      let lastUpdatedTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let startTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let configChangeStatus =
        (Option.map ~f:ConfigChangeStatus.of_xml)
          (Xml.child xml_arg0 "ConfigChangeStatus") in
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let changeId =
        (Option.map ~f:GUID.of_xml) (Xml.child xml_arg0 "ChangeId") in
      make ?initiatedBy ?lastUpdatedTime ?startTime ?configChangeStatus
        ?message ?changeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiatedBy = field_map json__ "InitiatedBy" InitiatedBy.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" UpdateTimestamp.of_json in
      let startTime = field_map json__ "StartTime" UpdateTimestamp.of_json in
      let configChangeStatus =
        field_map json__ "ConfigChangeStatus" ConfigChangeStatus.of_json in
      let message = field_map json__ "Message" Message.of_json in
      let changeId = field_map json__ "ChangeId" GUID.of_json in
      make ?initiatedBy ?lastUpdatedTime ?startTime ?configChangeStatus
        ?message ?changeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies change details of the domain configuration change."]
module DomainId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Unique identifier for an Elasticsearch domain."]
    let context_ = "DomainId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Unique identifier for an Elasticsearch domain."]
module DomainProcessingStatusType =
  struct
    type nonrec t =
      | Creating 
      | Active 
      | Modifying 
      | UpgradingEngineVersion 
      | UpdatingServiceSoftware 
      | Isolated 
      | Deleting 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "Creating"
      | Active -> "Active"
      | Modifying -> "Modifying"
      | UpgradingEngineVersion -> "UpgradingEngineVersion"
      | UpdatingServiceSoftware -> "UpdatingServiceSoftware"
      | Isolated -> "Isolated"
      | Deleting -> "Deleting"
      | Non_static_id s -> s
    let of_string =
      function
      | "Creating" -> Creating
      | "Active" -> Active
      | "Modifying" -> Modifying
      | "UpgradingEngineVersion" -> UpgradingEngineVersion
      | "UpdatingServiceSoftware" -> UpdatingServiceSoftware
      | "Isolated" -> Isolated
      | "Deleting" -> Deleting
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DomainProcessingStatusType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DomainProcessingStatusType" j)
    let to_json = simple_to_json to_value
  end
module EndpointsMap =
  struct
    type nonrec t = (String_.t * ServiceUrl.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (ServiceUrl.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (ServiceUrl.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:ServiceUrl.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModifyingPropertiesList =
  struct
    type nonrec t = ModifyingProperties.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:ModifyingProperties.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:ModifyingProperties.of_xml)
    let of_json j =
      list_of_json ~kind:"ModifyingPropertiesList"
        ~of_json:ModifyingProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceSoftwareOptions =
  struct
    type nonrec t =
      {
      currentVersion: String_.t option
        [@ocaml.doc
          "The current service software version that is present on the domain."];
      newVersion: String_.t option
        [@ocaml.doc "The new service software version if one is available."];
      updateAvailable: Boolean.t option
        [@ocaml.doc
          "True if you are able to update you service software version. False if you are not able to update your service software version."];
      cancellable: Boolean.t option
        [@ocaml.doc
          "True if you are able to cancel your service software version update. False if you are not able to cancel your service software version."];
      updateStatus: DeploymentStatus.t option
        [@ocaml.doc
          "The status of your service software update. This field can take the following values: ELIGIBLE, PENDING_UPDATE, IN_PROGRESS, COMPLETED, and NOT_ELIGIBLE."];
      description: String_.t option
        [@ocaml.doc "The description of the UpdateStatus."];
      automatedUpdateDate: DeploymentCloseDateTimeStamp.t option
        [@ocaml.doc
          "Timestamp, in Epoch time, until which you can manually request a service software update. After this date, we automatically update your service software."];
      optionalDeployment: Boolean.t option
        [@ocaml.doc
          "True if a service software is never automatically updated. False if a service software is automatically updated after AutomatedUpdateDate."]}
    let make ?currentVersion =
      fun ?newVersion ->
        fun ?updateAvailable ->
          fun ?cancellable ->
            fun ?updateStatus ->
              fun ?description ->
                fun ?automatedUpdateDate ->
                  fun ?optionalDeployment ->
                    fun () ->
                      {
                        currentVersion;
                        newVersion;
                        updateAvailable;
                        cancellable;
                        updateStatus;
                        description;
                        automatedUpdateDate;
                        optionalDeployment
                      }
    let to_value x =
      structure_to_value
        [("CurrentVersion",
           (Option.map x.currentVersion ~f:String_.to_value));
        ("NewVersion", (Option.map x.newVersion ~f:String_.to_value));
        ("UpdateAvailable",
          (Option.map x.updateAvailable ~f:Boolean.to_value));
        ("Cancellable", (Option.map x.cancellable ~f:Boolean.to_value));
        ("UpdateStatus",
          (Option.map x.updateStatus ~f:DeploymentStatus.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("AutomatedUpdateDate",
          (Option.map x.automatedUpdateDate
             ~f:DeploymentCloseDateTimeStamp.to_value));
        ("OptionalDeployment",
          (Option.map x.optionalDeployment ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optionalDeployment =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "OptionalDeployment") in
      let automatedUpdateDate =
        (Option.map ~f:DeploymentCloseDateTimeStamp.of_xml)
          (Xml.child xml_arg0 "AutomatedUpdateDate") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let updateStatus =
        (Option.map ~f:DeploymentStatus.of_xml)
          (Xml.child xml_arg0 "UpdateStatus") in
      let cancellable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Cancellable") in
      let updateAvailable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "UpdateAvailable") in
      let newVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NewVersion") in
      let currentVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CurrentVersion") in
      make ?optionalDeployment ?automatedUpdateDate ?description
        ?updateStatus ?cancellable ?updateAvailable ?newVersion
        ?currentVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optionalDeployment =
        field_map json__ "OptionalDeployment" Boolean.of_json in
      let automatedUpdateDate =
        field_map json__ "AutomatedUpdateDate"
          DeploymentCloseDateTimeStamp.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let updateStatus =
        field_map json__ "UpdateStatus" DeploymentStatus.of_json in
      let cancellable = field_map json__ "Cancellable" Boolean.of_json in
      let updateAvailable =
        field_map json__ "UpdateAvailable" Boolean.of_json in
      let newVersion = field_map json__ "NewVersion" String_.of_json in
      let currentVersion = field_map json__ "CurrentVersion" String_.of_json in
      make ?optionalDeployment ?automatedUpdateDate ?description
        ?updateStatus ?cancellable ?updateAvailable ?newVersion
        ?currentVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The current options of an Elasticsearch domain service software options."]
module ChangeProgressStage =
  struct
    type nonrec t =
      {
      name: ChangeProgressStageName.t option
        [@ocaml.doc "The name of the specific progress stage."];
      status: ChangeProgressStageStatus.t option
        [@ocaml.doc "The overall status of a specific progress stage."];
      description: Description.t option
        [@ocaml.doc "The description of the progress stage."];
      lastUpdated: LastUpdated.t option
        [@ocaml.doc "The last updated timestamp of the progress stage."]}
    let make ?name =
      fun ?status ->
        fun ?description ->
          fun ?lastUpdated ->
            fun () -> { name; status; description; lastUpdated }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ChangeProgressStageName.to_value));
        ("Status",
          (Option.map x.status ~f:ChangeProgressStageStatus.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("LastUpdated", (Option.map x.lastUpdated ~f:LastUpdated.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:LastUpdated.of_xml) (Xml.child xml_arg0 "LastUpdated") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let status =
        (Option.map ~f:ChangeProgressStageStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:ChangeProgressStageName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?lastUpdated ?description ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "LastUpdated" LastUpdated.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let status =
        field_map json__ "Status" ChangeProgressStageStatus.of_json in
      let name = field_map json__ "Name" ChangeProgressStageName.of_json in
      make ?lastUpdated ?description ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A progress stage details of a specific domain configuration change."]
module AutoTuneDetails =
  struct
    type nonrec t =
      {
      scheduledAutoTuneDetails: ScheduledAutoTuneDetails.t option }
    let make ?scheduledAutoTuneDetails =
      fun () -> { scheduledAutoTuneDetails }
    let to_value x =
      structure_to_value
        [("ScheduledAutoTuneDetails",
           (Option.map x.scheduledAutoTuneDetails
              ~f:ScheduledAutoTuneDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scheduledAutoTuneDetails =
        (Option.map ~f:ScheduledAutoTuneDetails.of_xml)
          (Xml.child xml_arg0 "ScheduledAutoTuneDetails") in
      make ?scheduledAutoTuneDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scheduledAutoTuneDetails =
        field_map json__ "ScheduledAutoTuneDetails"
          ScheduledAutoTuneDetails.of_json in
      make ?scheduledAutoTuneDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies details of the Auto-Tune action. See the Developer Guide for more information."]
module AutoTuneType =
  struct
    type nonrec t =
      | SCHEDULED_ACTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SCHEDULED_ACTION -> "SCHEDULED_ACTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "SCHEDULED_ACTION" -> SCHEDULED_ACTION
      | 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 AutoTuneType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AutoTuneType" j)
    let to_json = simple_to_json to_value
  end
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module S3Key =
  struct
    type nonrec t = string
    let context_ = "S3Key"
    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:"S3Key" j
    let to_json = simple_to_json to_value
  end
module DeploymentType =
  struct
    type nonrec t = string
    let context_ = "DeploymentType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:2));
        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:"DeploymentType" j
    let to_json = simple_to_json to_value
  end
module AccessPoliciesStatus =
  struct
    type nonrec t =
      {
      options: PolicyDocument.t option
        [@ocaml.doc
          "The access policy configured for the Elasticsearch domain. Access policies may be resource-based, IP-based, or IAM-based. See Configuring Access Policiesfor more information."];
      status: OptionStatus.t option
        [@ocaml.doc
          "The status of the access policy for the Elasticsearch domain. See OptionStatus for the status information that's included."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:PolicyDocument.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" PolicyDocument.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configured access rules for the domain's document and search endpoints, and the current status of those rules."]
module AdvancedOptionsStatus =
  struct
    type nonrec t =
      {
      options: AdvancedOptions.t option
        [@ocaml.doc
          "Specifies the status of advanced options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of OptionStatus for advanced options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:AdvancedOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:AdvancedOptions.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" AdvancedOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the advanced options for the specified Elasticsearch domain. Currently, the following advanced options are available: Option to allow references to indices in an HTTP request body. Must be false when configuring access to individual sub-resources. By default, the value is true. See Configuration Advanced Options for more information. Option to specify the percentage of heap space that is allocated to field data. By default, this setting is unbounded. For more information, see Configuring Advanced Options."]
module AdvancedSecurityOptionsStatus =
  struct
    type nonrec t =
      {
      options: AdvancedSecurityOptions.t option
        [@ocaml.doc
          "Specifies advanced security options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Status of the advanced security options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:AdvancedSecurityOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:AdvancedSecurityOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" AdvancedSecurityOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the status of advanced security options for the specified Elasticsearch domain."]
module AutoTuneOptionsStatus =
  struct
    type nonrec t =
      {
      options: AutoTuneOptions.t option
        [@ocaml.doc
          "Specifies Auto-Tune options for the specified Elasticsearch domain."];
      status: AutoTuneStatus.t option
        [@ocaml.doc
          "Specifies Status of the Auto-Tune options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:AutoTuneOptions.to_value));
        ("Status", (Option.map x.status ~f:AutoTuneStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:AutoTuneStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:AutoTuneOptions.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" AutoTuneStatus.of_json in
      let options = field_map json__ "Options" AutoTuneOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the status of Auto-Tune options for the specified Elasticsearch domain."]
module AutomatedSnapshotPauseOptionsStatus =
  struct
    type nonrec t =
      {
      options: AutomatedSnapshotPauseOptions.t option
        [@ocaml.doc
          "Automated snapshot pause options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "The current status of the automated snapshot pause options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:AutomatedSnapshotPauseOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:AutomatedSnapshotPauseOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" AutomatedSnapshotPauseOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The status of automated snapshot pause options for the specified Elasticsearch domain."]
module CognitoOptionsStatus =
  struct
    type nonrec t =
      {
      options: CognitoOptions.t option
        [@ocaml.doc
          "Specifies the Cognito options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the Cognito options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:CognitoOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:CognitoOptions.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" CognitoOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the Cognito options for the specified Elasticsearch domain."]
module DeploymentStrategyOptionsStatus =
  struct
    type nonrec t =
      {
      options: DeploymentStrategyOptions.t option
        [@ocaml.doc
          "Specifies deployment strategy options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the deployment strategy options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:DeploymentStrategyOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:DeploymentStrategyOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" DeploymentStrategyOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the status of deployment strategy options for the specified Elasticsearch domain."]
module DomainEndpointOptionsStatus =
  struct
    type nonrec t =
      {
      options: DomainEndpointOptions.t option
        [@ocaml.doc
          "Options to configure endpoint for the Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "The status of the endpoint options for the Elasticsearch domain. See OptionStatus for the status information that's included."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:DomainEndpointOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:DomainEndpointOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" DomainEndpointOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configured endpoint options for the domain and their current status."]
module EBSOptionsStatus =
  struct
    type nonrec t =
      {
      options: EBSOptions.t option
        [@ocaml.doc
          "Specifies the EBS options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the EBS options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:EBSOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:EBSOptions.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" EBSOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the EBS options for the specified Elasticsearch domain."]
module ElasticsearchClusterConfigStatus =
  struct
    type nonrec t =
      {
      options: ElasticsearchClusterConfig.t option
        [@ocaml.doc
          "Specifies the cluster configuration for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the configuration for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:ElasticsearchClusterConfig.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:ElasticsearchClusterConfig.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" ElasticsearchClusterConfig.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the configuration status for the specified Elasticsearch domain."]
module ElasticsearchVersionStatus =
  struct
    type nonrec t =
      {
      options: ElasticsearchVersionString.t option
        [@ocaml.doc
          "Specifies the Elasticsearch version for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the Elasticsearch version options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:ElasticsearchVersionString.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:ElasticsearchVersionString.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" ElasticsearchVersionString.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the Elasticsearch version options for the specified Elasticsearch domain."]
module EncryptionAtRestOptionsStatus =
  struct
    type nonrec t =
      {
      options: EncryptionAtRestOptions.t option
        [@ocaml.doc
          "Specifies the Encryption At Rest options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the Encryption At Rest options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:EncryptionAtRestOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:EncryptionAtRestOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" EncryptionAtRestOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the Encryption At Rest options for the specified Elasticsearch domain."]
module LogPublishingOptionsStatus =
  struct
    type nonrec t =
      {
      options: LogPublishingOptions.t option
        [@ocaml.doc
          "The log publishing options configured for the Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "The status of the log publishing options for the Elasticsearch domain. See OptionStatus for the status information that's included."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:LogPublishingOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:LogPublishingOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" LogPublishingOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configured log publishing options for the domain and their current status."]
module NodeToNodeEncryptionOptionsStatus =
  struct
    type nonrec t =
      {
      options: NodeToNodeEncryptionOptions.t option
        [@ocaml.doc
          "Specifies the node-to-node encryption options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the node-to-node encryption options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options",
           (Option.map x.options ~f:NodeToNodeEncryptionOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:NodeToNodeEncryptionOptions.of_xml)
          (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options =
        field_map json__ "Options" NodeToNodeEncryptionOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the node-to-node encryption options for the specified Elasticsearch domain."]
module SnapshotOptionsStatus =
  struct
    type nonrec t =
      {
      options: SnapshotOptions.t option
        [@ocaml.doc
          "Specifies the daily snapshot options specified for the Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc "Specifies the status of a daily automated snapshot."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:SnapshotOptions.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:SnapshotOptions.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" SnapshotOptions.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Status of a daily automated snapshot."]
module VPCDerivedInfoStatus =
  struct
    type nonrec t =
      {
      options: VPCDerivedInfo.t option
        [@ocaml.doc
          "Specifies the VPC options for the specified Elasticsearch domain."];
      status: OptionStatus.t option
        [@ocaml.doc
          "Specifies the status of the VPC options for the specified Elasticsearch domain."]}
    let make ?options = fun ?status -> fun () -> { options; status }
    let to_value x =
      structure_to_value
        [("Options", (Option.map x.options ~f:VPCDerivedInfo.to_value));
        ("Status", (Option.map x.status ~f:OptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OptionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let options =
        (Option.map ~f:VPCDerivedInfo.of_xml) (Xml.child xml_arg0 "Options") in
      make ?status ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OptionStatus.of_json in
      let options = field_map json__ "Options" VPCDerivedInfo.of_json in
      make ?status ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Status of the VPC options for the specified Elasticsearch domain."]
module MasterUserOptions =
  struct
    type nonrec t =
      {
      masterUserARN: ARN.t option
        [@ocaml.doc "ARN for the master user (if IAM is enabled)."];
      masterUserName: Username.t option
        [@ocaml.doc
          "The master user's username, which is stored in the Amazon Elasticsearch Service domain's internal database."];
      masterUserPassword: Password.t option
        [@ocaml.doc
          "The master user's password, which is stored in the Amazon Elasticsearch Service domain's internal database."]}
    let make ?masterUserARN =
      fun ?masterUserName ->
        fun ?masterUserPassword ->
          fun () -> { masterUserARN; masterUserName; masterUserPassword }
    let to_value x =
      structure_to_value
        [("MasterUserARN", (Option.map x.masterUserARN ~f:ARN.to_value));
        ("MasterUserName",
          (Option.map x.masterUserName ~f:Username.to_value));
        ("MasterUserPassword",
          (Option.map x.masterUserPassword ~f:Password.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let masterUserPassword =
        (Option.map ~f:Password.of_xml)
          (Xml.child xml_arg0 "MasterUserPassword") in
      let masterUserName =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "MasterUserName") in
      let masterUserARN =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "MasterUserARN") in
      make ?masterUserPassword ?masterUserName ?masterUserARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let masterUserPassword =
        field_map json__ "MasterUserPassword" Password.of_json in
      let masterUserName = field_map json__ "MasterUserName" Username.of_json in
      let masterUserARN = field_map json__ "MasterUserARN" ARN.of_json in
      make ?masterUserPassword ?masterUserName ?masterUserARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Credentials for the master user: username and password, ARN, or both."]
module SAMLOptionsInput =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option [@ocaml.doc "True if SAML is enabled."];
      idp: SAMLIdp.t option
        [@ocaml.doc "Specifies the SAML Identity Provider's information."];
      masterUserName: Username.t option
        [@ocaml.doc
          "The SAML master username, which is stored in the Amazon Elasticsearch Service domain's internal database."];
      masterBackendRole: BackendRole.t option
        [@ocaml.doc
          "The backend role to which the SAML master user is mapped to."];
      subjectKey: String_.t option
        [@ocaml.doc
          "The key to use for matching the SAML Subject attribute."];
      rolesKey: String_.t option
        [@ocaml.doc "The key to use for matching the SAML Roles attribute."];
      sessionTimeoutMinutes: IntegerClass.t option
        [@ocaml.doc
          "The duration, in minutes, after which a user session becomes inactive. Acceptable values are between 1 and 1440, and the default value is 60."]}
    let make ?enabled =
      fun ?idp ->
        fun ?masterUserName ->
          fun ?masterBackendRole ->
            fun ?subjectKey ->
              fun ?rolesKey ->
                fun ?sessionTimeoutMinutes ->
                  fun () ->
                    {
                      enabled;
                      idp;
                      masterUserName;
                      masterBackendRole;
                      subjectKey;
                      rolesKey;
                      sessionTimeoutMinutes
                    }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("Idp", (Option.map x.idp ~f:SAMLIdp.to_value));
        ("MasterUserName",
          (Option.map x.masterUserName ~f:Username.to_value));
        ("MasterBackendRole",
          (Option.map x.masterBackendRole ~f:BackendRole.to_value));
        ("SubjectKey", (Option.map x.subjectKey ~f:String_.to_value));
        ("RolesKey", (Option.map x.rolesKey ~f:String_.to_value));
        ("SessionTimeoutMinutes",
          (Option.map x.sessionTimeoutMinutes ~f:IntegerClass.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionTimeoutMinutes =
        (Option.map ~f:IntegerClass.of_xml)
          (Xml.child xml_arg0 "SessionTimeoutMinutes") in
      let rolesKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RolesKey") in
      let subjectKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SubjectKey") in
      let masterBackendRole =
        (Option.map ~f:BackendRole.of_xml)
          (Xml.child xml_arg0 "MasterBackendRole") in
      let masterUserName =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "MasterUserName") in
      let idp = (Option.map ~f:SAMLIdp.of_xml) (Xml.child xml_arg0 "Idp") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?sessionTimeoutMinutes ?rolesKey ?subjectKey ?masterBackendRole
        ?masterUserName ?idp ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionTimeoutMinutes =
        field_map json__ "SessionTimeoutMinutes" IntegerClass.of_json in
      let rolesKey = field_map json__ "RolesKey" String_.of_json in
      let subjectKey = field_map json__ "SubjectKey" String_.of_json in
      let masterBackendRole =
        field_map json__ "MasterBackendRole" BackendRole.of_json in
      let masterUserName = field_map json__ "MasterUserName" Username.of_json in
      let idp = field_map json__ "Idp" SAMLIdp.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?sessionTimeoutMinutes ?rolesKey ?subjectKey ?masterBackendRole
        ?masterUserName ?idp ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the SAML application configuration for the domain."]
module VpcEndpointSummary =
  struct
    type nonrec t =
      {
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      vpcEndpointOwner: String_.t option
        [@ocaml.doc "The creator of the endpoint."];
      domainArn: DomainArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the domain associated with the endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint."]}
    let make ?vpcEndpointId =
      fun ?vpcEndpointOwner ->
        fun ?domainArn ->
          fun ?status ->
            fun () -> { vpcEndpointId; vpcEndpointOwner; domainArn; status }
    let to_value x =
      structure_to_value
        [("VpcEndpointId",
           (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("VpcEndpointOwner",
          (Option.map x.vpcEndpointOwner ~f:String_.to_value));
        ("DomainArn", (Option.map x.domainArn ~f:DomainArn.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 domainArn =
        (Option.map ~f:DomainArn.of_xml) (Xml.child xml_arg0 "DomainArn") in
      let vpcEndpointOwner =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VpcEndpointOwner") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      make ?status ?domainArn ?vpcEndpointOwner ?vpcEndpointId ()
    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 domainArn = field_map json__ "DomainArn" DomainArn.of_json in
      let vpcEndpointOwner =
        field_map json__ "VpcEndpointOwner" String_.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      make ?status ?domainArn ?vpcEndpointOwner ?vpcEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information for an Amazon OpenSearch Service-managed VPC endpoint."]
module AuthorizedPrincipal =
  struct
    type nonrec t =
      {
      principalType: PrincipalType.t option
        [@ocaml.doc "The type of principal."];
      principal: String_.t option
        [@ocaml.doc
          "The IAM principal that is allowed access to the domain."]}
    let make ?principalType =
      fun ?principal -> fun () -> { principalType; principal }
    let to_value x =
      structure_to_value
        [("PrincipalType",
           (Option.map x.principalType ~f:PrincipalType.to_value));
        ("Principal", (Option.map x.principal ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principal =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Principal") in
      let principalType =
        (Option.map ~f:PrincipalType.of_xml)
          (Xml.child xml_arg0 "PrincipalType") in
      make ?principal ?principalType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principal = field_map json__ "Principal" String_.of_json in
      let principalType =
        field_map json__ "PrincipalType" PrincipalType.of_json in
      make ?principal ?principalType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an account or service that has access to an Amazon OpenSearch Service domain through the use of an interface VPC endpoint."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "Specifies the TagKey, the name of the tag. Tag keys must be unique for the Elasticsearch domain to which they are attached."];
      value: TagValue.t
        [@ocaml.doc
          "Specifies the TagValue, the value assigned to the corresponding tag key. Tag values can be null and do not have to be unique in a tag set. For example, you can have a key value pair in a tag set of project : Trinity and cost-center : Trinity"]}
    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 "Specifies a key value pair for a resource tag."]
module DomainPackageDetails =
  struct
    type nonrec t =
      {
      packageID: PackageID.t option
        [@ocaml.doc "Internal ID of the package."];
      packageName: PackageName.t option
        [@ocaml.doc "User specified name of the package."];
      packageType: PackageType.t option
        [@ocaml.doc "Currently supports only TXT-DICTIONARY."];
      lastUpdated: LastUpdated.t option
        [@ocaml.doc
          "Timestamp of the most-recent update to the association status."];
      domainName: DomainName.t option
        [@ocaml.doc "Name of the domain you've associated a package with."];
      domainPackageStatus: DomainPackageStatus.t option
        [@ocaml.doc
          "State of the association. Values are ASSOCIATING/ASSOCIATION_FAILED/ACTIVE/DISSOCIATING/DISSOCIATION_FAILED."];
      packageVersion: PackageVersion.t option ;
      referencePath: ReferencePath.t option
        [@ocaml.doc
          "The relative path on Amazon ES nodes, which can be used as synonym_path when the package is synonym file."];
      errorDetails: ErrorDetails.t option
        [@ocaml.doc
          "Additional information if the package is in an error state. Null otherwise."]}
    let make ?packageID =
      fun ?packageName ->
        fun ?packageType ->
          fun ?lastUpdated ->
            fun ?domainName ->
              fun ?domainPackageStatus ->
                fun ?packageVersion ->
                  fun ?referencePath ->
                    fun ?errorDetails ->
                      fun () ->
                        {
                          packageID;
                          packageName;
                          packageType;
                          lastUpdated;
                          domainName;
                          domainPackageStatus;
                          packageVersion;
                          referencePath;
                          errorDetails
                        }
    let to_value x =
      structure_to_value
        [("PackageID", (Option.map x.packageID ~f:PackageID.to_value));
        ("PackageName", (Option.map x.packageName ~f:PackageName.to_value));
        ("PackageType", (Option.map x.packageType ~f:PackageType.to_value));
        ("LastUpdated", (Option.map x.lastUpdated ~f:LastUpdated.to_value));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("DomainPackageStatus",
          (Option.map x.domainPackageStatus ~f:DomainPackageStatus.to_value));
        ("PackageVersion",
          (Option.map x.packageVersion ~f:PackageVersion.to_value));
        ("ReferencePath",
          (Option.map x.referencePath ~f:ReferencePath.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let referencePath =
        (Option.map ~f:ReferencePath.of_xml)
          (Xml.child xml_arg0 "ReferencePath") in
      let packageVersion =
        (Option.map ~f:PackageVersion.of_xml)
          (Xml.child xml_arg0 "PackageVersion") in
      let domainPackageStatus =
        (Option.map ~f:DomainPackageStatus.of_xml)
          (Xml.child xml_arg0 "DomainPackageStatus") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let lastUpdated =
        (Option.map ~f:LastUpdated.of_xml) (Xml.child xml_arg0 "LastUpdated") in
      let packageType =
        (Option.map ~f:PackageType.of_xml) (Xml.child xml_arg0 "PackageType") in
      let packageName =
        (Option.map ~f:PackageName.of_xml) (Xml.child xml_arg0 "PackageName") in
      let packageID =
        (Option.map ~f:PackageID.of_xml) (Xml.child xml_arg0 "PackageID") in
      make ?errorDetails ?referencePath ?packageVersion ?domainPackageStatus
        ?domainName ?lastUpdated ?packageType ?packageName ?packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "ErrorDetails" ErrorDetails.of_json in
      let referencePath =
        field_map json__ "ReferencePath" ReferencePath.of_json in
      let packageVersion =
        field_map json__ "PackageVersion" PackageVersion.of_json in
      let domainPackageStatus =
        field_map json__ "DomainPackageStatus" DomainPackageStatus.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let lastUpdated = field_map json__ "LastUpdated" LastUpdated.of_json in
      let packageType = field_map json__ "PackageType" PackageType.of_json in
      let packageName = field_map json__ "PackageName" PackageName.of_json in
      let packageID = field_map json__ "PackageID" PackageID.of_json in
      make ?errorDetails ?referencePath ?packageVersion ?domainPackageStatus
        ?domainName ?lastUpdated ?packageType ?packageName ?packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information on a package that is associated with a domain."]
module DomainInfo =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc "Specifies the DomainName."];
      engineType: EngineType.t option
        [@ocaml.doc "Specifies the EngineType of the domain."]}
    let make ?domainName =
      fun ?engineType -> fun () -> { domainName; engineType }
    let to_value x =
      structure_to_value
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("EngineType", (Option.map x.engineType ~f:EngineType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engineType =
        (Option.map ~f:EngineType.of_xml) (Xml.child xml_arg0 "EngineType") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?engineType ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engineType = field_map json__ "EngineType" EngineType.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?engineType ?domainName ()
    let to_json v = composed_to_json to_value v
  end
module UpgradeHistory =
  struct
    type nonrec t =
      {
      upgradeName: UpgradeName.t option
        [@ocaml.doc "A string that describes the update briefly"];
      startTimestamp: StartTimestamp.t option
        [@ocaml.doc
          "UTC Timestamp at which the Upgrade API call was made in \"yyyy-MM-ddTHH:mm:ssZ\" format."];
      upgradeStatus: UpgradeStatus.t option
        [@ocaml.doc
          "The overall status of the update. The status can take one of the following values: In Progress Succeeded Succeeded with Issues Failed"];
      stepsList: UpgradeStepsList.t option
        [@ocaml.doc
          "A list of UpgradeStepItem s representing information about each step performed as pard of a specific Upgrade or Upgrade Eligibility Check."]}
    let make ?upgradeName =
      fun ?startTimestamp ->
        fun ?upgradeStatus ->
          fun ?stepsList ->
            fun () ->
              { upgradeName; startTimestamp; upgradeStatus; stepsList }
    let to_value x =
      structure_to_value
        [("UpgradeName", (Option.map x.upgradeName ~f:UpgradeName.to_value));
        ("StartTimestamp",
          (Option.map x.startTimestamp ~f:StartTimestamp.to_value));
        ("UpgradeStatus",
          (Option.map x.upgradeStatus ~f:UpgradeStatus.to_value));
        ("StepsList", (Option.map x.stepsList ~f:UpgradeStepsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stepsList =
        (Option.map ~f:UpgradeStepsList.of_xml)
          (Xml.child xml_arg0 "StepsList") in
      let upgradeStatus =
        (Option.map ~f:UpgradeStatus.of_xml)
          (Xml.child xml_arg0 "UpgradeStatus") in
      let startTimestamp =
        (Option.map ~f:StartTimestamp.of_xml)
          (Xml.child xml_arg0 "StartTimestamp") in
      let upgradeName =
        (Option.map ~f:UpgradeName.of_xml) (Xml.child xml_arg0 "UpgradeName") in
      make ?stepsList ?upgradeStatus ?startTimestamp ?upgradeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stepsList = field_map json__ "StepsList" UpgradeStepsList.of_json in
      let upgradeStatus =
        field_map json__ "UpgradeStatus" UpgradeStatus.of_json in
      let startTimestamp =
        field_map json__ "StartTimestamp" StartTimestamp.of_json in
      let upgradeName = field_map json__ "UpgradeName" UpgradeName.of_json in
      make ?stepsList ?upgradeStatus ?startTimestamp ?upgradeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "History of the last 10 Upgrades and Upgrade Eligibility Checks."]
module PackageVersionHistory =
  struct
    type nonrec t =
      {
      packageVersion: PackageVersion.t option
        [@ocaml.doc "Version of the package."];
      commitMessage: CommitMessage.t option
        [@ocaml.doc "A message associated with the version."];
      createdAt: CreatedAt.t option
        [@ocaml.doc
          "Timestamp which tells creation time of the package version."]}
    let make ?packageVersion =
      fun ?commitMessage ->
        fun ?createdAt ->
          fun () -> { packageVersion; commitMessage; createdAt }
    let to_value x =
      structure_to_value
        [("PackageVersion",
           (Option.map x.packageVersion ~f:PackageVersion.to_value));
        ("CommitMessage",
          (Option.map x.commitMessage ~f:CommitMessage.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreatedAt.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreatedAt.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let commitMessage =
        (Option.map ~f:CommitMessage.of_xml)
          (Xml.child xml_arg0 "CommitMessage") in
      let packageVersion =
        (Option.map ~f:PackageVersion.of_xml)
          (Xml.child xml_arg0 "PackageVersion") in
      make ?createdAt ?commitMessage ?packageVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "CreatedAt" CreatedAt.of_json in
      let commitMessage =
        field_map json__ "CommitMessage" CommitMessage.of_json in
      let packageVersion =
        field_map json__ "PackageVersion" PackageVersion.of_json in
      make ?createdAt ?commitMessage ?packageVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details of a package version."]
module CompatibleVersionsMap =
  struct
    type nonrec t =
      {
      sourceVersion: ElasticsearchVersionString.t option
        [@ocaml.doc
          "The current version of Elasticsearch on which a domain is."];
      targetVersions: ElasticsearchVersionList.t option }
    let make ?sourceVersion =
      fun ?targetVersions -> fun () -> { sourceVersion; targetVersions }
    let to_value x =
      structure_to_value
        [("SourceVersion",
           (Option.map x.sourceVersion ~f:ElasticsearchVersionString.to_value));
        ("TargetVersions",
          (Option.map x.targetVersions ~f:ElasticsearchVersionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetVersions =
        (Option.map ~f:ElasticsearchVersionList.of_xml)
          (Xml.child xml_arg0 "TargetVersions") in
      let sourceVersion =
        (Option.map ~f:ElasticsearchVersionString.of_xml)
          (Xml.child xml_arg0 "SourceVersion") in
      make ?targetVersions ?sourceVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetVersions =
        field_map json__ "TargetVersions" ElasticsearchVersionList.of_json in
      let sourceVersion =
        field_map json__ "SourceVersion" ElasticsearchVersionString.of_json in
      make ?targetVersions ?sourceVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A map from an ElasticsearchVersion to a list of compatible ElasticsearchVersion s to which the domain can be upgraded."]
module VpcEndpointError =
  struct
    type nonrec t =
      {
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      errorCode: VpcEndpointErrorCode.t option
        [@ocaml.doc "The code associated with the error."];
      errorMessage: String_.t option
        [@ocaml.doc "A message describing the error."]}
    let make ?vpcEndpointId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { vpcEndpointId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("VpcEndpointId",
           (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("ErrorCode",
          (Option.map x.errorCode ~f:VpcEndpointErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:VpcEndpointErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      make ?errorMessage ?errorCode ?vpcEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let errorCode =
        field_map json__ "ErrorCode" VpcEndpointErrorCode.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      make ?errorMessage ?errorCode ?vpcEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Error information when attempting to describe an Amazon OpenSearch Service-managed VPC endpoint."]
module VpcEndpoint =
  struct
    type nonrec t =
      {
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The unique identifier of the endpoint."];
      vpcEndpointOwner: AWSAccount.t option
        [@ocaml.doc "The creator of the endpoint."];
      domainArn: DomainArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the domain associated with the endpoint."];
      vpcOptions: VPCDerivedInfo.t option
        [@ocaml.doc
          "Options to specify the subnets and security groups for an Amazon OpenSearch Service VPC endpoint."];
      status: VpcEndpointStatus.t option
        [@ocaml.doc "The current status of the endpoint."];
      endpoint: Endpoint.t option
        [@ocaml.doc
          "The connection endpoint ID for connecting to the domain."]}
    let make ?vpcEndpointId =
      fun ?vpcEndpointOwner ->
        fun ?domainArn ->
          fun ?vpcOptions ->
            fun ?status ->
              fun ?endpoint ->
                fun () ->
                  {
                    vpcEndpointId;
                    vpcEndpointOwner;
                    domainArn;
                    vpcOptions;
                    status;
                    endpoint
                  }
    let to_value x =
      structure_to_value
        [("VpcEndpointId",
           (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value));
        ("VpcEndpointOwner",
          (Option.map x.vpcEndpointOwner ~f:AWSAccount.to_value));
        ("DomainArn", (Option.map x.domainArn ~f:DomainArn.to_value));
        ("VpcOptions", (Option.map x.vpcOptions ~f:VPCDerivedInfo.to_value));
        ("Status", (Option.map x.status ~f:VpcEndpointStatus.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:Endpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoint =
        (Option.map ~f:Endpoint.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let status =
        (Option.map ~f:VpcEndpointStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let vpcOptions =
        (Option.map ~f:VPCDerivedInfo.of_xml)
          (Xml.child xml_arg0 "VpcOptions") in
      let domainArn =
        (Option.map ~f:DomainArn.of_xml) (Xml.child xml_arg0 "DomainArn") in
      let vpcEndpointOwner =
        (Option.map ~f:AWSAccount.of_xml)
          (Xml.child xml_arg0 "VpcEndpointOwner") in
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      make ?endpoint ?status ?vpcOptions ?domainArn ?vpcEndpointOwner
        ?vpcEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoint = field_map json__ "Endpoint" Endpoint.of_json in
      let status = field_map json__ "Status" VpcEndpointStatus.of_json in
      let vpcOptions = field_map json__ "VpcOptions" VPCDerivedInfo.of_json in
      let domainArn = field_map json__ "DomainArn" DomainArn.of_json in
      let vpcEndpointOwner =
        field_map json__ "VpcEndpointOwner" AWSAccount.of_json in
      let vpcEndpointId =
        field_map json__ "VpcEndpointId" VpcEndpointId.of_json in
      make ?endpoint ?status ?vpcOptions ?domainArn ?vpcEndpointOwner
        ?vpcEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The connection endpoint for connecting to an Amazon OpenSearch Service domain through a proxy."]
module ReservedElasticsearchInstance =
  struct
    type nonrec t =
      {
      reservationName: ReservationToken.t option
        [@ocaml.doc
          "The customer-specified identifier to track this reservation."];
      reservedElasticsearchInstanceId: GUID.t option
        [@ocaml.doc "The unique identifier for the reservation."];
      reservedElasticsearchInstanceOfferingId: String_.t option
        [@ocaml.doc "The offering identifier."];
      elasticsearchInstanceType: ESPartitionInstanceType.t option
        [@ocaml.doc
          "The Elasticsearch instance type offered by the reserved instance offering."];
      startTime: UpdateTimestamp.t option
        [@ocaml.doc "The time the reservation started."];
      duration: Integer.t option
        [@ocaml.doc
          "The duration, in seconds, for which the Elasticsearch instance is reserved."];
      fixedPrice: Double.t option
        [@ocaml.doc
          "The upfront fixed charge you will paid to purchase the specific reserved Elasticsearch instance offering."];
      usagePrice: Double.t option
        [@ocaml.doc
          "The rate you are charged for each hour for the domain that is using this reserved instance."];
      currencyCode: String_.t option
        [@ocaml.doc
          "The currency code for the reserved Elasticsearch instance offering."];
      elasticsearchInstanceCount: Integer.t option
        [@ocaml.doc
          "The number of Elasticsearch instances that have been reserved."];
      state: String_.t option
        [@ocaml.doc "The state of the reserved Elasticsearch instance."];
      paymentOption: ReservedElasticsearchInstancePaymentOption.t option
        [@ocaml.doc
          "The payment option as defined in the reserved Elasticsearch instance offering."];
      recurringCharges: RecurringChargeList.t option
        [@ocaml.doc
          "The charge to your account regardless of whether you are creating any domains using the instance offering."]}
    let make ?reservationName =
      fun ?reservedElasticsearchInstanceId ->
        fun ?reservedElasticsearchInstanceOfferingId ->
          fun ?elasticsearchInstanceType ->
            fun ?startTime ->
              fun ?duration ->
                fun ?fixedPrice ->
                  fun ?usagePrice ->
                    fun ?currencyCode ->
                      fun ?elasticsearchInstanceCount ->
                        fun ?state ->
                          fun ?paymentOption ->
                            fun ?recurringCharges ->
                              fun () ->
                                {
                                  reservationName;
                                  reservedElasticsearchInstanceId;
                                  reservedElasticsearchInstanceOfferingId;
                                  elasticsearchInstanceType;
                                  startTime;
                                  duration;
                                  fixedPrice;
                                  usagePrice;
                                  currencyCode;
                                  elasticsearchInstanceCount;
                                  state;
                                  paymentOption;
                                  recurringCharges
                                }
    let to_value x =
      structure_to_value
        [("ReservationName",
           (Option.map x.reservationName ~f:ReservationToken.to_value));
        ("ReservedElasticsearchInstanceId",
          (Option.map x.reservedElasticsearchInstanceId ~f:GUID.to_value));
        ("ReservedElasticsearchInstanceOfferingId",
          (Option.map x.reservedElasticsearchInstanceOfferingId
             ~f:String_.to_value));
        ("ElasticsearchInstanceType",
          (Option.map x.elasticsearchInstanceType
             ~f:ESPartitionInstanceType.to_value));
        ("StartTime", (Option.map x.startTime ~f:UpdateTimestamp.to_value));
        ("Duration", (Option.map x.duration ~f:Integer.to_value));
        ("FixedPrice", (Option.map x.fixedPrice ~f:Double.to_value));
        ("UsagePrice", (Option.map x.usagePrice ~f:Double.to_value));
        ("CurrencyCode", (Option.map x.currencyCode ~f:String_.to_value));
        ("ElasticsearchInstanceCount",
          (Option.map x.elasticsearchInstanceCount ~f:Integer.to_value));
        ("State", (Option.map x.state ~f:String_.to_value));
        ("PaymentOption",
          (Option.map x.paymentOption
             ~f:ReservedElasticsearchInstancePaymentOption.to_value));
        ("RecurringCharges",
          (Option.map x.recurringCharges ~f:RecurringChargeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurringCharges =
        (Option.map ~f:RecurringChargeList.of_xml)
          (Xml.child xml_arg0 "RecurringCharges") in
      let paymentOption =
        (Option.map ~f:ReservedElasticsearchInstancePaymentOption.of_xml)
          (Xml.child xml_arg0 "PaymentOption") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "State") in
      let elasticsearchInstanceCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "ElasticsearchInstanceCount") in
      let currencyCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CurrencyCode") in
      let usagePrice =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "UsagePrice") in
      let fixedPrice =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "FixedPrice") in
      let duration =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Duration") in
      let startTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let elasticsearchInstanceType =
        (Option.map ~f:ESPartitionInstanceType.of_xml)
          (Xml.child xml_arg0 "ElasticsearchInstanceType") in
      let reservedElasticsearchInstanceOfferingId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReservedElasticsearchInstanceOfferingId") in
      let reservedElasticsearchInstanceId =
        (Option.map ~f:GUID.of_xml)
          (Xml.child xml_arg0 "ReservedElasticsearchInstanceId") in
      let reservationName =
        (Option.map ~f:ReservationToken.of_xml)
          (Xml.child xml_arg0 "ReservationName") in
      make ?recurringCharges ?paymentOption ?state
        ?elasticsearchInstanceCount ?currencyCode ?usagePrice ?fixedPrice
        ?duration ?startTime ?elasticsearchInstanceType
        ?reservedElasticsearchInstanceOfferingId
        ?reservedElasticsearchInstanceId ?reservationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurringCharges =
        field_map json__ "RecurringCharges" RecurringChargeList.of_json in
      let paymentOption =
        field_map json__ "PaymentOption"
          ReservedElasticsearchInstancePaymentOption.of_json in
      let state = field_map json__ "State" String_.of_json in
      let elasticsearchInstanceCount =
        field_map json__ "ElasticsearchInstanceCount" Integer.of_json in
      let currencyCode = field_map json__ "CurrencyCode" String_.of_json in
      let usagePrice = field_map json__ "UsagePrice" Double.of_json in
      let fixedPrice = field_map json__ "FixedPrice" Double.of_json in
      let duration = field_map json__ "Duration" Integer.of_json in
      let startTime = field_map json__ "StartTime" UpdateTimestamp.of_json in
      let elasticsearchInstanceType =
        field_map json__ "ElasticsearchInstanceType"
          ESPartitionInstanceType.of_json in
      let reservedElasticsearchInstanceOfferingId =
        field_map json__ "ReservedElasticsearchInstanceOfferingId"
          String_.of_json in
      let reservedElasticsearchInstanceId =
        field_map json__ "ReservedElasticsearchInstanceId" GUID.of_json in
      let reservationName =
        field_map json__ "ReservationName" ReservationToken.of_json in
      make ?recurringCharges ?paymentOption ?state
        ?elasticsearchInstanceCount ?currencyCode ?usagePrice ?fixedPrice
        ?duration ?startTime ?elasticsearchInstanceType
        ?reservedElasticsearchInstanceOfferingId
        ?reservedElasticsearchInstanceId ?reservationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details of a reserved Elasticsearch instance."]
module ReservedElasticsearchInstanceOffering =
  struct
    type nonrec t =
      {
      reservedElasticsearchInstanceOfferingId: GUID.t option
        [@ocaml.doc
          "The Elasticsearch reserved instance offering identifier."];
      elasticsearchInstanceType: ESPartitionInstanceType.t option
        [@ocaml.doc
          "The Elasticsearch instance type offered by the reserved instance offering."];
      duration: Integer.t option
        [@ocaml.doc
          "The duration, in seconds, for which the offering will reserve the Elasticsearch instance."];
      fixedPrice: Double.t option
        [@ocaml.doc
          "The upfront fixed charge you will pay to purchase the specific reserved Elasticsearch instance offering."];
      usagePrice: Double.t option
        [@ocaml.doc
          "The rate you are charged for each hour the domain that is using the offering is running."];
      currencyCode: String_.t option
        [@ocaml.doc
          "The currency code for the reserved Elasticsearch instance offering."];
      paymentOption: ReservedElasticsearchInstancePaymentOption.t option
        [@ocaml.doc
          "Payment option for the reserved Elasticsearch instance offering"];
      recurringCharges: RecurringChargeList.t option
        [@ocaml.doc
          "The charge to your account regardless of whether you are creating any domains using the instance offering."]}
    let make ?reservedElasticsearchInstanceOfferingId =
      fun ?elasticsearchInstanceType ->
        fun ?duration ->
          fun ?fixedPrice ->
            fun ?usagePrice ->
              fun ?currencyCode ->
                fun ?paymentOption ->
                  fun ?recurringCharges ->
                    fun () ->
                      {
                        reservedElasticsearchInstanceOfferingId;
                        elasticsearchInstanceType;
                        duration;
                        fixedPrice;
                        usagePrice;
                        currencyCode;
                        paymentOption;
                        recurringCharges
                      }
    let to_value x =
      structure_to_value
        [("ReservedElasticsearchInstanceOfferingId",
           (Option.map x.reservedElasticsearchInstanceOfferingId
              ~f:GUID.to_value));
        ("ElasticsearchInstanceType",
          (Option.map x.elasticsearchInstanceType
             ~f:ESPartitionInstanceType.to_value));
        ("Duration", (Option.map x.duration ~f:Integer.to_value));
        ("FixedPrice", (Option.map x.fixedPrice ~f:Double.to_value));
        ("UsagePrice", (Option.map x.usagePrice ~f:Double.to_value));
        ("CurrencyCode", (Option.map x.currencyCode ~f:String_.to_value));
        ("PaymentOption",
          (Option.map x.paymentOption
             ~f:ReservedElasticsearchInstancePaymentOption.to_value));
        ("RecurringCharges",
          (Option.map x.recurringCharges ~f:RecurringChargeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurringCharges =
        (Option.map ~f:RecurringChargeList.of_xml)
          (Xml.child xml_arg0 "RecurringCharges") in
      let paymentOption =
        (Option.map ~f:ReservedElasticsearchInstancePaymentOption.of_xml)
          (Xml.child xml_arg0 "PaymentOption") in
      let currencyCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CurrencyCode") in
      let usagePrice =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "UsagePrice") in
      let fixedPrice =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "FixedPrice") in
      let duration =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Duration") in
      let elasticsearchInstanceType =
        (Option.map ~f:ESPartitionInstanceType.of_xml)
          (Xml.child xml_arg0 "ElasticsearchInstanceType") in
      let reservedElasticsearchInstanceOfferingId =
        (Option.map ~f:GUID.of_xml)
          (Xml.child xml_arg0 "ReservedElasticsearchInstanceOfferingId") in
      make ?recurringCharges ?paymentOption ?currencyCode ?usagePrice
        ?fixedPrice ?duration ?elasticsearchInstanceType
        ?reservedElasticsearchInstanceOfferingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurringCharges =
        field_map json__ "RecurringCharges" RecurringChargeList.of_json in
      let paymentOption =
        field_map json__ "PaymentOption"
          ReservedElasticsearchInstancePaymentOption.of_json in
      let currencyCode = field_map json__ "CurrencyCode" String_.of_json in
      let usagePrice = field_map json__ "UsagePrice" Double.of_json in
      let fixedPrice = field_map json__ "FixedPrice" Double.of_json in
      let duration = field_map json__ "Duration" Integer.of_json in
      let elasticsearchInstanceType =
        field_map json__ "ElasticsearchInstanceType"
          ESPartitionInstanceType.of_json in
      let reservedElasticsearchInstanceOfferingId =
        field_map json__ "ReservedElasticsearchInstanceOfferingId"
          GUID.of_json in
      make ?recurringCharges ?paymentOption ?currencyCode ?usagePrice
        ?fixedPrice ?duration ?elasticsearchInstanceType
        ?reservedElasticsearchInstanceOfferingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details of a reserved Elasticsearch instance offering."]
module PackageDetails =
  struct
    type nonrec t =
      {
      packageID: PackageID.t option
        [@ocaml.doc "Internal ID of the package."];
      packageName: PackageName.t option
        [@ocaml.doc "User specified name of the package."];
      packageType: PackageType.t option
        [@ocaml.doc "Currently supports only TXT-DICTIONARY."];
      packageDescription: PackageDescription.t option
        [@ocaml.doc "User-specified description of the package."];
      packageStatus: PackageStatus.t option
        [@ocaml.doc
          "Current state of the package. Values are COPYING/COPY_FAILED/AVAILABLE/DELETING/DELETE_FAILED"];
      createdAt: CreatedAt.t option
        [@ocaml.doc "Timestamp which tells creation date of the package."];
      lastUpdatedAt: LastUpdated.t option ;
      availablePackageVersion: PackageVersion.t option ;
      errorDetails: ErrorDetails.t option
        [@ocaml.doc
          "Additional information if the package is in an error state. Null otherwise."]}
    let make ?packageID =
      fun ?packageName ->
        fun ?packageType ->
          fun ?packageDescription ->
            fun ?packageStatus ->
              fun ?createdAt ->
                fun ?lastUpdatedAt ->
                  fun ?availablePackageVersion ->
                    fun ?errorDetails ->
                      fun () ->
                        {
                          packageID;
                          packageName;
                          packageType;
                          packageDescription;
                          packageStatus;
                          createdAt;
                          lastUpdatedAt;
                          availablePackageVersion;
                          errorDetails
                        }
    let to_value x =
      structure_to_value
        [("PackageID", (Option.map x.packageID ~f:PackageID.to_value));
        ("PackageName", (Option.map x.packageName ~f:PackageName.to_value));
        ("PackageType", (Option.map x.packageType ~f:PackageType.to_value));
        ("PackageDescription",
          (Option.map x.packageDescription ~f:PackageDescription.to_value));
        ("PackageStatus",
          (Option.map x.packageStatus ~f:PackageStatus.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:CreatedAt.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt ~f:LastUpdated.to_value));
        ("AvailablePackageVersion",
          (Option.map x.availablePackageVersion ~f:PackageVersion.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let availablePackageVersion =
        (Option.map ~f:PackageVersion.of_xml)
          (Xml.child xml_arg0 "AvailablePackageVersion") in
      let lastUpdatedAt =
        (Option.map ~f:LastUpdated.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let createdAt =
        (Option.map ~f:CreatedAt.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let packageStatus =
        (Option.map ~f:PackageStatus.of_xml)
          (Xml.child xml_arg0 "PackageStatus") in
      let packageDescription =
        (Option.map ~f:PackageDescription.of_xml)
          (Xml.child xml_arg0 "PackageDescription") in
      let packageType =
        (Option.map ~f:PackageType.of_xml) (Xml.child xml_arg0 "PackageType") in
      let packageName =
        (Option.map ~f:PackageName.of_xml) (Xml.child xml_arg0 "PackageName") in
      let packageID =
        (Option.map ~f:PackageID.of_xml) (Xml.child xml_arg0 "PackageID") in
      make ?errorDetails ?availablePackageVersion ?lastUpdatedAt ?createdAt
        ?packageStatus ?packageDescription ?packageType ?packageName
        ?packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "ErrorDetails" ErrorDetails.of_json in
      let availablePackageVersion =
        field_map json__ "AvailablePackageVersion" PackageVersion.of_json in
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" LastUpdated.of_json in
      let createdAt = field_map json__ "CreatedAt" CreatedAt.of_json in
      let packageStatus =
        field_map json__ "PackageStatus" PackageStatus.of_json in
      let packageDescription =
        field_map json__ "PackageDescription" PackageDescription.of_json in
      let packageType = field_map json__ "PackageType" PackageType.of_json in
      let packageName = field_map json__ "PackageName" PackageName.of_json in
      let packageID = field_map json__ "PackageID" PackageID.of_json in
      make ?errorDetails ?availablePackageVersion ?lastUpdatedAt ?createdAt
        ?packageStatus ?packageDescription ?packageType ?packageName
        ?packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Basic information about a package."]
module DescribePackagesFilter =
  struct
    type nonrec t =
      {
      name: DescribePackagesFilterName.t option
        [@ocaml.doc "Any field from PackageDetails."];
      value: DescribePackagesFilterValues.t option
        [@ocaml.doc "A non-empty list of values for the specified field."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:DescribePackagesFilterName.to_value));
        ("Value",
          (Option.map x.value ~f:DescribePackagesFilterValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:DescribePackagesFilterValues.of_xml)
          (Xml.child xml_arg0 "Value") in
      let name =
        (Option.map ~f:DescribePackagesFilterName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map json__ "Value" DescribePackagesFilterValues.of_json in
      let name = field_map json__ "Name" DescribePackagesFilterName.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filter to apply in DescribePackage response."]
module OutboundCrossClusterSearchConnection =
  struct
    type nonrec t =
      {
      sourceDomainInfo: DomainInformation.t option
        [@ocaml.doc
          "Specifies the DomainInformation for the source Elasticsearch domain."];
      destinationDomainInfo: DomainInformation.t option
        [@ocaml.doc
          "Specifies the DomainInformation for the destination Elasticsearch domain."];
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t option
        [@ocaml.doc
          "Specifies the connection id for the outbound cross-cluster search connection."];
      connectionAlias: ConnectionAlias.t option
        [@ocaml.doc
          "Specifies the connection alias for the outbound cross-cluster search connection."];
      connectionStatus: OutboundCrossClusterSearchConnectionStatus.t option
        [@ocaml.doc
          "Specifies the OutboundCrossClusterSearchConnectionStatus for the outbound connection."]}
    let make ?sourceDomainInfo =
      fun ?destinationDomainInfo ->
        fun ?crossClusterSearchConnectionId ->
          fun ?connectionAlias ->
            fun ?connectionStatus ->
              fun () ->
                {
                  sourceDomainInfo;
                  destinationDomainInfo;
                  crossClusterSearchConnectionId;
                  connectionAlias;
                  connectionStatus
                }
    let to_value x =
      structure_to_value
        [("SourceDomainInfo",
           (Option.map x.sourceDomainInfo ~f:DomainInformation.to_value));
        ("DestinationDomainInfo",
          (Option.map x.destinationDomainInfo ~f:DomainInformation.to_value));
        ("CrossClusterSearchConnectionId",
          (Option.map x.crossClusterSearchConnectionId
             ~f:CrossClusterSearchConnectionId.to_value));
        ("ConnectionAlias",
          (Option.map x.connectionAlias ~f:ConnectionAlias.to_value));
        ("ConnectionStatus",
          (Option.map x.connectionStatus
             ~f:OutboundCrossClusterSearchConnectionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionStatus =
        (Option.map ~f:OutboundCrossClusterSearchConnectionStatus.of_xml)
          (Xml.child xml_arg0 "ConnectionStatus") in
      let connectionAlias =
        (Option.map ~f:ConnectionAlias.of_xml)
          (Xml.child xml_arg0 "ConnectionAlias") in
      let crossClusterSearchConnectionId =
        (Option.map ~f:CrossClusterSearchConnectionId.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnectionId") in
      let destinationDomainInfo =
        (Option.map ~f:DomainInformation.of_xml)
          (Xml.child xml_arg0 "DestinationDomainInfo") in
      let sourceDomainInfo =
        (Option.map ~f:DomainInformation.of_xml)
          (Xml.child xml_arg0 "SourceDomainInfo") in
      make ?connectionStatus ?connectionAlias ?crossClusterSearchConnectionId
        ?destinationDomainInfo ?sourceDomainInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionStatus =
        field_map json__ "ConnectionStatus"
          OutboundCrossClusterSearchConnectionStatus.of_json in
      let connectionAlias =
        field_map json__ "ConnectionAlias" ConnectionAlias.of_json in
      let crossClusterSearchConnectionId =
        field_map json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      let destinationDomainInfo =
        field_map json__ "DestinationDomainInfo" DomainInformation.of_json in
      let sourceDomainInfo =
        field_map json__ "SourceDomainInfo" DomainInformation.of_json in
      make ?connectionStatus ?connectionAlias ?crossClusterSearchConnectionId
        ?destinationDomainInfo ?sourceDomainInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies details of an outbound connection."]
module Filter =
  struct
    type nonrec t =
      {
      name: NonEmptyString.t option
        [@ocaml.doc "Specifies the name of the filter."];
      values: ValueStringList.t option
        [@ocaml.doc "Contains one or more values for the filter."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:NonEmptyString.to_value));
        ("Values", (Option.map x.values ~f:ValueStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:ValueStringList.of_xml) (Xml.child xml_arg0 "Values") in
      let name =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "Values" ValueStringList.of_json in
      let name = field_map json__ "Name" NonEmptyString.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter used to limit results when describing inbound or outbound cross-cluster search connections. Multiple values can be specified per filter. A cross-cluster search connection must match at least one of the specified values for it to be returned from an operation."]
module InboundCrossClusterSearchConnection =
  struct
    type nonrec t =
      {
      sourceDomainInfo: DomainInformation.t option
        [@ocaml.doc
          "Specifies the DomainInformation for the source Elasticsearch domain."];
      destinationDomainInfo: DomainInformation.t option
        [@ocaml.doc
          "Specifies the DomainInformation for the destination Elasticsearch domain."];
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t option
        [@ocaml.doc
          "Specifies the connection id for the inbound cross-cluster search connection."];
      connectionStatus: InboundCrossClusterSearchConnectionStatus.t option
        [@ocaml.doc
          "Specifies the InboundCrossClusterSearchConnectionStatus for the outbound connection."]}
    let make ?sourceDomainInfo =
      fun ?destinationDomainInfo ->
        fun ?crossClusterSearchConnectionId ->
          fun ?connectionStatus ->
            fun () ->
              {
                sourceDomainInfo;
                destinationDomainInfo;
                crossClusterSearchConnectionId;
                connectionStatus
              }
    let to_value x =
      structure_to_value
        [("SourceDomainInfo",
           (Option.map x.sourceDomainInfo ~f:DomainInformation.to_value));
        ("DestinationDomainInfo",
          (Option.map x.destinationDomainInfo ~f:DomainInformation.to_value));
        ("CrossClusterSearchConnectionId",
          (Option.map x.crossClusterSearchConnectionId
             ~f:CrossClusterSearchConnectionId.to_value));
        ("ConnectionStatus",
          (Option.map x.connectionStatus
             ~f:InboundCrossClusterSearchConnectionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionStatus =
        (Option.map ~f:InboundCrossClusterSearchConnectionStatus.of_xml)
          (Xml.child xml_arg0 "ConnectionStatus") in
      let crossClusterSearchConnectionId =
        (Option.map ~f:CrossClusterSearchConnectionId.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnectionId") in
      let destinationDomainInfo =
        (Option.map ~f:DomainInformation.of_xml)
          (Xml.child xml_arg0 "DestinationDomainInfo") in
      let sourceDomainInfo =
        (Option.map ~f:DomainInformation.of_xml)
          (Xml.child xml_arg0 "SourceDomainInfo") in
      make ?connectionStatus ?crossClusterSearchConnectionId
        ?destinationDomainInfo ?sourceDomainInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionStatus =
        field_map json__ "ConnectionStatus"
          InboundCrossClusterSearchConnectionStatus.of_json in
      let crossClusterSearchConnectionId =
        field_map json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      let destinationDomainInfo =
        field_map json__ "DestinationDomainInfo" DomainInformation.of_json in
      let sourceDomainInfo =
        field_map json__ "SourceDomainInfo" DomainInformation.of_json in
      make ?connectionStatus ?crossClusterSearchConnectionId
        ?destinationDomainInfo ?sourceDomainInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies details of an inbound connection."]
module InstanceRole =
  struct
    type nonrec t = string
    let context_ = "InstanceRole"
    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:"InstanceRole" j
    let to_json = simple_to_json to_value
  end
module Limits =
  struct
    type nonrec t =
      {
      storageTypes: StorageTypeList.t option
        [@ocaml.doc
          "StorageType represents the list of storage related types and attributes that are available for given InstanceType."];
      instanceLimits: InstanceLimits.t option ;
      additionalLimits: AdditionalLimitList.t option
        [@ocaml.doc
          "List of additional limits that are specific to a given InstanceType and for each of it's InstanceRole ."]}
    let make ?storageTypes =
      fun ?instanceLimits ->
        fun ?additionalLimits ->
          fun () -> { storageTypes; instanceLimits; additionalLimits }
    let to_value x =
      structure_to_value
        [("StorageTypes",
           (Option.map x.storageTypes ~f:StorageTypeList.to_value));
        ("InstanceLimits",
          (Option.map x.instanceLimits ~f:InstanceLimits.to_value));
        ("AdditionalLimits",
          (Option.map x.additionalLimits ~f:AdditionalLimitList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalLimits =
        (Option.map ~f:AdditionalLimitList.of_xml)
          (Xml.child xml_arg0 "AdditionalLimits") in
      let instanceLimits =
        (Option.map ~f:InstanceLimits.of_xml)
          (Xml.child xml_arg0 "InstanceLimits") in
      let storageTypes =
        (Option.map ~f:StorageTypeList.of_xml)
          (Xml.child xml_arg0 "StorageTypes") in
      make ?additionalLimits ?instanceLimits ?storageTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalLimits =
        field_map json__ "AdditionalLimits" AdditionalLimitList.of_json in
      let instanceLimits =
        field_map json__ "InstanceLimits" InstanceLimits.of_json in
      let storageTypes =
        field_map json__ "StorageTypes" StorageTypeList.of_json in
      make ?additionalLimits ?instanceLimits ?storageTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Limits for given InstanceType and for each of it's role. Limits contains following StorageTypes, InstanceLimits and AdditionalLimits"]
module ElasticsearchDomainStatus =
  struct
    type nonrec t =
      {
      domainId: DomainId.t option
        [@ocaml.doc
          "The unique identifier for the specified Elasticsearch domain."];
      domainName: DomainName.t option
        [@ocaml.doc
          "The name of an Elasticsearch domain. Domain names are unique across the domains owned by an account within an AWS region. Domain names start with a letter or number and can contain the following characters: a-z (lowercase), 0-9, and - (hyphen)."];
      aRN: ARN.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of an Elasticsearch domain. See Identifiers for IAM Entities in Using AWS Identity and Access Management for more information."];
      created: Boolean.t option
        [@ocaml.doc
          "The domain creation status. True if the creation of an Elasticsearch domain is complete. False if domain creation is still in progress."];
      deleted: Boolean.t option
        [@ocaml.doc
          "The domain deletion status. True if a delete request has been received for the domain but resource cleanup is still in progress. False if the domain has not been deleted. Once domain deletion is complete, the status of the domain is no longer returned."];
      endpoint: ServiceUrl.t option
        [@ocaml.doc
          "The Elasticsearch domain endpoint that you use to submit index and search requests."];
      endpoints: EndpointsMap.t option
        [@ocaml.doc
          "Map containing the Elasticsearch domain endpoints used to submit index and search requests. Example key, value: 'vpc','vpc-endpoint-h2dsd34efgyghrtguk5gt6j2foh4.us-east-1.es.amazonaws.com'."];
      processing: Boolean.t option
        [@ocaml.doc
          "The status of the Elasticsearch domain configuration. True if Amazon Elasticsearch Service is processing configuration changes. False if the configuration is active."];
      upgradeProcessing: Boolean.t option
        [@ocaml.doc
          "The status of an Elasticsearch domain version upgrade. True if Amazon Elasticsearch Service is undergoing a version upgrade. False if the configuration is active."];
      elasticsearchVersion: ElasticsearchVersionString.t option ;
      elasticsearchClusterConfig: ElasticsearchClusterConfig.t option
        [@ocaml.doc
          "The type and number of instances in the domain cluster."];
      eBSOptions: EBSOptions.t option
        [@ocaml.doc
          "The EBSOptions for the specified domain. See Configuring EBS-based Storage for more information."];
      accessPolicies: PolicyDocument.t option
        [@ocaml.doc "IAM access policy as a JSON-formatted string."];
      snapshotOptions: SnapshotOptions.t option
        [@ocaml.doc "Specifies the status of the SnapshotOptions"];
      vPCOptions: VPCDerivedInfo.t option
        [@ocaml.doc
          "The VPCOptions for the specified domain. For more information, see VPC Endpoints for Amazon Elasticsearch Service Domains."];
      cognitoOptions: CognitoOptions.t option
        [@ocaml.doc
          "The CognitoOptions for the specified domain. For more information, see Amazon Cognito Authentication for Kibana."];
      encryptionAtRestOptions: EncryptionAtRestOptions.t option
        [@ocaml.doc "Specifies the status of the EncryptionAtRestOptions."];
      nodeToNodeEncryptionOptions: NodeToNodeEncryptionOptions.t option
        [@ocaml.doc
          "Specifies the status of the NodeToNodeEncryptionOptions."];
      advancedOptions: AdvancedOptions.t option
        [@ocaml.doc "Specifies the status of the AdvancedOptions"];
      logPublishingOptions: LogPublishingOptions.t option
        [@ocaml.doc "Log publishing options for the given domain."];
      serviceSoftwareOptions: ServiceSoftwareOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch domain's service software."];
      domainEndpointOptions: DomainEndpointOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch domain's endpoint options."];
      advancedSecurityOptions: AdvancedSecurityOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch domain's advanced security options."];
      autoTuneOptions: AutoTuneOptionsOutput.t option
        [@ocaml.doc
          "The current status of the Elasticsearch domain's Auto-Tune options."];
      changeProgressDetails: ChangeProgressDetails.t option
        [@ocaml.doc
          "Specifies change details of the domain configuration change."];
      domainProcessingStatus: DomainProcessingStatusType.t option
        [@ocaml.doc
          "The status of any changes that are currently in progress for the domain."];
      modifyingProperties: ModifyingPropertiesList.t option
        [@ocaml.doc
          "Information about the domain properties that are currently being modified."];
      deploymentStrategyOptions: DeploymentStrategyOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch domain's deployment strategy options."];
      automatedSnapshotPauseOptions: AutomatedSnapshotPauseOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch domain's automated snapshot pause options."]}
    let make ?domainId =
      fun ?domainName ->
        fun ?aRN ->
          fun ?created ->
            fun ?deleted ->
              fun ?endpoint ->
                fun ?endpoints ->
                  fun ?processing ->
                    fun ?upgradeProcessing ->
                      fun ?elasticsearchVersion ->
                        fun ?elasticsearchClusterConfig ->
                          fun ?eBSOptions ->
                            fun ?accessPolicies ->
                              fun ?snapshotOptions ->
                                fun ?vPCOptions ->
                                  fun ?cognitoOptions ->
                                    fun ?encryptionAtRestOptions ->
                                      fun ?nodeToNodeEncryptionOptions ->
                                        fun ?advancedOptions ->
                                          fun ?logPublishingOptions ->
                                            fun ?serviceSoftwareOptions ->
                                              fun ?domainEndpointOptions ->
                                                fun ?advancedSecurityOptions
                                                  ->
                                                  fun ?autoTuneOptions ->
                                                    fun
                                                      ?changeProgressDetails
                                                      ->
                                                      fun
                                                        ?domainProcessingStatus
                                                        ->
                                                        fun
                                                          ?modifyingProperties
                                                          ->
                                                          fun
                                                            ?deploymentStrategyOptions
                                                            ->
                                                            fun
                                                              ?automatedSnapshotPauseOptions
                                                              ->
                                                              fun () ->
                                                                {
                                                                  domainId;
                                                                  domainName;
                                                                  aRN;
                                                                  created;
                                                                  deleted;
                                                                  endpoint;
                                                                  endpoints;
                                                                  processing;
                                                                  upgradeProcessing;
                                                                  elasticsearchVersion;
                                                                  elasticsearchClusterConfig;
                                                                  eBSOptions;
                                                                  accessPolicies;
                                                                  snapshotOptions;
                                                                  vPCOptions;
                                                                  cognitoOptions;
                                                                  encryptionAtRestOptions;
                                                                  nodeToNodeEncryptionOptions;
                                                                  advancedOptions;
                                                                  logPublishingOptions;
                                                                  serviceSoftwareOptions;
                                                                  domainEndpointOptions;
                                                                  advancedSecurityOptions;
                                                                  autoTuneOptions;
                                                                  changeProgressDetails;
                                                                  domainProcessingStatus;
                                                                  modifyingProperties;
                                                                  deploymentStrategyOptions;
                                                                  automatedSnapshotPauseOptions
                                                                }
    let to_value x =
      structure_to_value
        [("DomainId", (Option.map x.domainId ~f:DomainId.to_value));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("ARN", (Option.map x.aRN ~f:ARN.to_value));
        ("Created", (Option.map x.created ~f:Boolean.to_value));
        ("Deleted", (Option.map x.deleted ~f:Boolean.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:ServiceUrl.to_value));
        ("Endpoints", (Option.map x.endpoints ~f:EndpointsMap.to_value));
        ("Processing", (Option.map x.processing ~f:Boolean.to_value));
        ("UpgradeProcessing",
          (Option.map x.upgradeProcessing ~f:Boolean.to_value));
        ("ElasticsearchVersion",
          (Option.map x.elasticsearchVersion
             ~f:ElasticsearchVersionString.to_value));
        ("ElasticsearchClusterConfig",
          (Option.map x.elasticsearchClusterConfig
             ~f:ElasticsearchClusterConfig.to_value));
        ("EBSOptions", (Option.map x.eBSOptions ~f:EBSOptions.to_value));
        ("AccessPolicies",
          (Option.map x.accessPolicies ~f:PolicyDocument.to_value));
        ("SnapshotOptions",
          (Option.map x.snapshotOptions ~f:SnapshotOptions.to_value));
        ("VPCOptions", (Option.map x.vPCOptions ~f:VPCDerivedInfo.to_value));
        ("CognitoOptions",
          (Option.map x.cognitoOptions ~f:CognitoOptions.to_value));
        ("EncryptionAtRestOptions",
          (Option.map x.encryptionAtRestOptions
             ~f:EncryptionAtRestOptions.to_value));
        ("NodeToNodeEncryptionOptions",
          (Option.map x.nodeToNodeEncryptionOptions
             ~f:NodeToNodeEncryptionOptions.to_value));
        ("AdvancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value));
        ("LogPublishingOptions",
          (Option.map x.logPublishingOptions ~f:LogPublishingOptions.to_value));
        ("ServiceSoftwareOptions",
          (Option.map x.serviceSoftwareOptions
             ~f:ServiceSoftwareOptions.to_value));
        ("DomainEndpointOptions",
          (Option.map x.domainEndpointOptions
             ~f:DomainEndpointOptions.to_value));
        ("AdvancedSecurityOptions",
          (Option.map x.advancedSecurityOptions
             ~f:AdvancedSecurityOptions.to_value));
        ("AutoTuneOptions",
          (Option.map x.autoTuneOptions ~f:AutoTuneOptionsOutput.to_value));
        ("ChangeProgressDetails",
          (Option.map x.changeProgressDetails
             ~f:ChangeProgressDetails.to_value));
        ("DomainProcessingStatus",
          (Option.map x.domainProcessingStatus
             ~f:DomainProcessingStatusType.to_value));
        ("ModifyingProperties",
          (Option.map x.modifyingProperties
             ~f:ModifyingPropertiesList.to_value));
        ("DeploymentStrategyOptions",
          (Option.map x.deploymentStrategyOptions
             ~f:DeploymentStrategyOptions.to_value));
        ("AutomatedSnapshotPauseOptions",
          (Option.map x.automatedSnapshotPauseOptions
             ~f:AutomatedSnapshotPauseOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automatedSnapshotPauseOptions =
        (Option.map ~f:AutomatedSnapshotPauseOptions.of_xml)
          (Xml.child xml_arg0 "AutomatedSnapshotPauseOptions") in
      let deploymentStrategyOptions =
        (Option.map ~f:DeploymentStrategyOptions.of_xml)
          (Xml.child xml_arg0 "DeploymentStrategyOptions") in
      let modifyingProperties =
        (Option.map ~f:ModifyingPropertiesList.of_xml)
          (Xml.child xml_arg0 "ModifyingProperties") in
      let domainProcessingStatus =
        (Option.map ~f:DomainProcessingStatusType.of_xml)
          (Xml.child xml_arg0 "DomainProcessingStatus") in
      let changeProgressDetails =
        (Option.map ~f:ChangeProgressDetails.of_xml)
          (Xml.child xml_arg0 "ChangeProgressDetails") in
      let autoTuneOptions =
        (Option.map ~f:AutoTuneOptionsOutput.of_xml)
          (Xml.child xml_arg0 "AutoTuneOptions") in
      let advancedSecurityOptions =
        (Option.map ~f:AdvancedSecurityOptions.of_xml)
          (Xml.child xml_arg0 "AdvancedSecurityOptions") in
      let domainEndpointOptions =
        (Option.map ~f:DomainEndpointOptions.of_xml)
          (Xml.child xml_arg0 "DomainEndpointOptions") in
      let serviceSoftwareOptions =
        (Option.map ~f:ServiceSoftwareOptions.of_xml)
          (Xml.child xml_arg0 "ServiceSoftwareOptions") in
      let logPublishingOptions =
        (Option.map ~f:LogPublishingOptions.of_xml)
          (Xml.child xml_arg0 "LogPublishingOptions") in
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "AdvancedOptions") in
      let nodeToNodeEncryptionOptions =
        (Option.map ~f:NodeToNodeEncryptionOptions.of_xml)
          (Xml.child xml_arg0 "NodeToNodeEncryptionOptions") in
      let encryptionAtRestOptions =
        (Option.map ~f:EncryptionAtRestOptions.of_xml)
          (Xml.child xml_arg0 "EncryptionAtRestOptions") in
      let cognitoOptions =
        (Option.map ~f:CognitoOptions.of_xml)
          (Xml.child xml_arg0 "CognitoOptions") in
      let vPCOptions =
        (Option.map ~f:VPCDerivedInfo.of_xml)
          (Xml.child xml_arg0 "VPCOptions") in
      let snapshotOptions =
        (Option.map ~f:SnapshotOptions.of_xml)
          (Xml.child xml_arg0 "SnapshotOptions") in
      let accessPolicies =
        (Option.map ~f:PolicyDocument.of_xml)
          (Xml.child xml_arg0 "AccessPolicies") in
      let eBSOptions =
        (Option.map ~f:EBSOptions.of_xml) (Xml.child xml_arg0 "EBSOptions") in
      let elasticsearchClusterConfig =
        (Option.map ~f:ElasticsearchClusterConfig.of_xml)
          (Xml.child xml_arg0 "ElasticsearchClusterConfig") in
      let elasticsearchVersion =
        (Option.map ~f:ElasticsearchVersionString.of_xml)
          (Xml.child xml_arg0 "ElasticsearchVersion") in
      let upgradeProcessing =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "UpgradeProcessing") in
      let processing =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Processing") in
      let endpoints =
        (Option.map ~f:EndpointsMap.of_xml) (Xml.child xml_arg0 "Endpoints") in
      let endpoint =
        (Option.map ~f:ServiceUrl.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let deleted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Deleted") in
      let created =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Created") in
      let aRN = (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "ARN") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let domainId =
        (Option.map ~f:DomainId.of_xml) (Xml.child xml_arg0 "DomainId") in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions
        ?modifyingProperties ?domainProcessingStatus ?changeProgressDetails
        ?autoTuneOptions ?advancedSecurityOptions ?domainEndpointOptions
        ?serviceSoftwareOptions ?logPublishingOptions ?advancedOptions
        ?nodeToNodeEncryptionOptions ?encryptionAtRestOptions ?cognitoOptions
        ?vPCOptions ?snapshotOptions ?accessPolicies ?eBSOptions
        ?elasticsearchClusterConfig ?elasticsearchVersion ?upgradeProcessing
        ?processing ?endpoints ?endpoint ?deleted ?created ?aRN ?domainName
        ?domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automatedSnapshotPauseOptions =
        field_map json__ "AutomatedSnapshotPauseOptions"
          AutomatedSnapshotPauseOptions.of_json in
      let deploymentStrategyOptions =
        field_map json__ "DeploymentStrategyOptions"
          DeploymentStrategyOptions.of_json in
      let modifyingProperties =
        field_map json__ "ModifyingProperties"
          ModifyingPropertiesList.of_json in
      let domainProcessingStatus =
        field_map json__ "DomainProcessingStatus"
          DomainProcessingStatusType.of_json in
      let changeProgressDetails =
        field_map json__ "ChangeProgressDetails"
          ChangeProgressDetails.of_json in
      let autoTuneOptions =
        field_map json__ "AutoTuneOptions" AutoTuneOptionsOutput.of_json in
      let advancedSecurityOptions =
        field_map json__ "AdvancedSecurityOptions"
          AdvancedSecurityOptions.of_json in
      let domainEndpointOptions =
        field_map json__ "DomainEndpointOptions"
          DomainEndpointOptions.of_json in
      let serviceSoftwareOptions =
        field_map json__ "ServiceSoftwareOptions"
          ServiceSoftwareOptions.of_json in
      let logPublishingOptions =
        field_map json__ "LogPublishingOptions" LogPublishingOptions.of_json in
      let advancedOptions =
        field_map json__ "AdvancedOptions" AdvancedOptions.of_json in
      let nodeToNodeEncryptionOptions =
        field_map json__ "NodeToNodeEncryptionOptions"
          NodeToNodeEncryptionOptions.of_json in
      let encryptionAtRestOptions =
        field_map json__ "EncryptionAtRestOptions"
          EncryptionAtRestOptions.of_json in
      let cognitoOptions =
        field_map json__ "CognitoOptions" CognitoOptions.of_json in
      let vPCOptions = field_map json__ "VPCOptions" VPCDerivedInfo.of_json in
      let snapshotOptions =
        field_map json__ "SnapshotOptions" SnapshotOptions.of_json in
      let accessPolicies =
        field_map json__ "AccessPolicies" PolicyDocument.of_json in
      let eBSOptions = field_map json__ "EBSOptions" EBSOptions.of_json in
      let elasticsearchClusterConfig =
        field_map json__ "ElasticsearchClusterConfig"
          ElasticsearchClusterConfig.of_json in
      let elasticsearchVersion =
        field_map json__ "ElasticsearchVersion"
          ElasticsearchVersionString.of_json in
      let upgradeProcessing =
        field_map json__ "UpgradeProcessing" Boolean.of_json in
      let processing = field_map json__ "Processing" Boolean.of_json in
      let endpoints = field_map json__ "Endpoints" EndpointsMap.of_json in
      let endpoint = field_map json__ "Endpoint" ServiceUrl.of_json in
      let deleted = field_map json__ "Deleted" Boolean.of_json in
      let created = field_map json__ "Created" Boolean.of_json in
      let aRN = field_map json__ "ARN" ARN.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let domainId = field_map json__ "DomainId" DomainId.of_json in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions
        ?modifyingProperties ?domainProcessingStatus ?changeProgressDetails
        ?autoTuneOptions ?advancedSecurityOptions ?domainEndpointOptions
        ?serviceSoftwareOptions ?logPublishingOptions ?advancedOptions
        ?nodeToNodeEncryptionOptions ?encryptionAtRestOptions ?cognitoOptions
        ?vPCOptions ?snapshotOptions ?accessPolicies ?eBSOptions
        ?elasticsearchClusterConfig ?elasticsearchVersion ?upgradeProcessing
        ?processing ?endpoints ?endpoint ?deleted ?created ?aRN ?domainName
        ?domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The current status of an Elasticsearch domain."]
module ChangeProgressStageList =
  struct
    type nonrec t = ChangeProgressStage.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:ChangeProgressStage.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:ChangeProgressStage.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeProgressStageList"
        ~of_json:ChangeProgressStage.of_json j
    let to_json v = composed_to_json to_value v
  end
module OverallChangeStatus =
  struct
    type nonrec t =
      | PENDING 
      | PROCESSING 
      | COMPLETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | PROCESSING -> "PROCESSING"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "PROCESSING" -> PROCESSING
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration OverallChangeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OverallChangeStatus" j)
    let to_json = simple_to_json to_value
  end
module TotalNumberOfStages =
  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 TotalNumberOfStages" 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 AutoTune =
  struct
    type nonrec t =
      {
      autoTuneType: AutoTuneType.t option
        [@ocaml.doc
          "Specifies Auto-Tune type. Valid value is SCHEDULED_ACTION."];
      autoTuneDetails: AutoTuneDetails.t option
        [@ocaml.doc
          "Specifies details of the Auto-Tune action. See the Developer Guide for more information."]}
    let make ?autoTuneType =
      fun ?autoTuneDetails -> fun () -> { autoTuneType; autoTuneDetails }
    let to_value x =
      structure_to_value
        [("AutoTuneType",
           (Option.map x.autoTuneType ~f:AutoTuneType.to_value));
        ("AutoTuneDetails",
          (Option.map x.autoTuneDetails ~f:AutoTuneDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoTuneDetails =
        (Option.map ~f:AutoTuneDetails.of_xml)
          (Xml.child xml_arg0 "AutoTuneDetails") in
      let autoTuneType =
        (Option.map ~f:AutoTuneType.of_xml)
          (Xml.child xml_arg0 "AutoTuneType") in
      make ?autoTuneDetails ?autoTuneType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoTuneDetails =
        field_map json__ "AutoTuneDetails" AutoTuneDetails.of_json in
      let autoTuneType = field_map json__ "AutoTuneType" AutoTuneType.of_json in
      make ?autoTuneDetails ?autoTuneType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies Auto-Tune type and Auto-Tune action details."]
module CancelledChangeProperty =
  struct
    type nonrec t =
      {
      propertyName: String_.t option
        [@ocaml.doc "The name of the property whose change was cancelled."];
      cancelledValue: String_.t option
        [@ocaml.doc
          "The pending value of the property that was cancelled. This would have been the eventual value of the property if the chance had not been cancelled."];
      activeValue: String_.t option
        [@ocaml.doc
          "The current value of the property, after the change was cancelled."]}
    let make ?propertyName =
      fun ?cancelledValue ->
        fun ?activeValue ->
          fun () -> { propertyName; cancelledValue; activeValue }
    let to_value x =
      structure_to_value
        [("PropertyName", (Option.map x.propertyName ~f:String_.to_value));
        ("CancelledValue", (Option.map x.cancelledValue ~f:String_.to_value));
        ("ActiveValue", (Option.map x.activeValue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activeValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ActiveValue") in
      let cancelledValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CancelledValue") in
      let propertyName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PropertyName") in
      make ?activeValue ?cancelledValue ?propertyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activeValue = field_map json__ "ActiveValue" String_.of_json in
      let cancelledValue = field_map json__ "CancelledValue" String_.of_json in
      let propertyName = field_map json__ "PropertyName" String_.of_json in
      make ?activeValue ?cancelledValue ?propertyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A property change that was cancelled for an Amazon OpenSearch Service domain."]
module BaseException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc "A description of the error."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An error occurred while processing the request."]
module DisabledOperationException =
  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
       "An error occured because the client wanted to access a not supported operation. Gives http status code of 409."]
module InternalException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request processing has failed because of an unknown error, exception or failure (the failure is internal to the service) . Gives http status code of 500."]
module ResourceAlreadyExistsException =
  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
       "An exception for creating a resource that already exists. Gives http status code of 400."]
module ResourceNotFoundException =
  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
       "An exception for accessing or deleting a resource that does not exist. Gives http status code of 400."]
module ValidationException =
  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
       "An exception for missing / invalid input fields. Gives http status code of 400."]
module ConflictException =
  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
       "An error occurred because the client attempts to remove a resource that is currently in use. Returns HTTP status code 409."]
module VPCOptions =
  struct
    type nonrec t =
      {
      subnetIds: StringList.t option
        [@ocaml.doc "Specifies the subnets for VPC endpoint."];
      securityGroupIds: StringList.t option
        [@ocaml.doc "Specifies the security groups for VPC endpoint."]}
    let make ?subnetIds =
      fun ?securityGroupIds -> fun () -> { subnetIds; securityGroupIds }
    let to_value x =
      structure_to_value
        [("SubnetIds", (Option.map x.subnetIds ~f:StringList.to_value));
        ("SecurityGroupIds",
          (Option.map x.securityGroupIds ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupIds =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SecurityGroupIds") in
      let subnetIds =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      make ?securityGroupIds ?subnetIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupIds =
        field_map json__ "SecurityGroupIds" StringList.of_json in
      let subnetIds = field_map json__ "SubnetIds" StringList.of_json in
      make ?securityGroupIds ?subnetIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Options to specify the subnets and security groups for VPC endpoint. For more information, see VPC Endpoints for Amazon Elasticsearch Service Domains."]
module AccessDeniedException =
  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
       "An error occurred because user does not have permissions to access the resource. Returns HTTP status code 403."]
module LimitExceededException =
  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
       "An exception for trying to create more than allowed resources or sub-resources. Gives http status code of 409."]
module PackageSource =
  struct
    type nonrec t =
      {
      s3BucketName: S3BucketName.t option
        [@ocaml.doc "Name of the bucket containing the package."];
      s3Key: S3Key.t option [@ocaml.doc "Key (file name) of the package."]}
    let make ?s3BucketName = fun ?s3Key -> fun () -> { s3BucketName; s3Key }
    let to_value x =
      structure_to_value
        [("S3BucketName",
           (Option.map x.s3BucketName ~f:S3BucketName.to_value));
        ("S3Key", (Option.map x.s3Key ~f:S3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Key = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "S3Key") in
      let s3BucketName =
        (Option.map ~f:S3BucketName.of_xml)
          (Xml.child xml_arg0 "S3BucketName") in
      make ?s3Key ?s3BucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Key = field_map json__ "S3Key" S3Key.of_json in
      let s3BucketName = field_map json__ "S3BucketName" S3BucketName.of_json in
      make ?s3Key ?s3BucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The S3 location for importing the package specified as S3BucketName and S3Key"]
module DryRunResults =
  struct
    type nonrec t =
      {
      deploymentType: DeploymentType.t option
        [@ocaml.doc
          "Specifies the deployment mechanism through which the update shall be applied on the domain. Possible responses are Blue/Green (The update will require a blue/green deployment.) DynamicUpdate (The update can be applied in-place without a Blue/Green deployment required.) Undetermined (The domain is undergoing an update which needs to complete before the deployment type can be predicted.) None (The configuration change matches the current configuration and will not result in any update.)"];
      message: Message.t option
        [@ocaml.doc
          "Contains an optional message associated with the DryRunResults."]}
    let make ?deploymentType =
      fun ?message -> fun () -> { deploymentType; message }
    let to_value x =
      structure_to_value
        [("DeploymentType",
           (Option.map x.deploymentType ~f:DeploymentType.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let deploymentType =
        (Option.map ~f:DeploymentType.of_xml)
          (Xml.child xml_arg0 "DeploymentType") in
      make ?message ?deploymentType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      let deploymentType =
        field_map json__ "DeploymentType" DeploymentType.of_json in
      make ?message ?deploymentType ()
    let to_json v = composed_to_json to_value v
  end
module ElasticsearchDomainConfig =
  struct
    type nonrec t =
      {
      elasticsearchVersion: ElasticsearchVersionStatus.t option
        [@ocaml.doc
          "String of format X.Y to specify version for the Elasticsearch domain."];
      elasticsearchClusterConfig: ElasticsearchClusterConfigStatus.t option
        [@ocaml.doc
          "Specifies the ElasticsearchClusterConfig for the Elasticsearch domain."];
      eBSOptions: EBSOptionsStatus.t option
        [@ocaml.doc "Specifies the EBSOptions for the Elasticsearch domain."];
      accessPolicies: AccessPoliciesStatus.t option
        [@ocaml.doc "IAM access policy as a JSON-formatted string."];
      snapshotOptions: SnapshotOptionsStatus.t option
        [@ocaml.doc
          "Specifies the SnapshotOptions for the Elasticsearch domain."];
      vPCOptions: VPCDerivedInfoStatus.t option
        [@ocaml.doc
          "The VPCOptions for the specified domain. For more information, see VPC Endpoints for Amazon Elasticsearch Service Domains."];
      cognitoOptions: CognitoOptionsStatus.t option
        [@ocaml.doc
          "The CognitoOptions for the specified domain. For more information, see Amazon Cognito Authentication for Kibana."];
      encryptionAtRestOptions: EncryptionAtRestOptionsStatus.t option
        [@ocaml.doc
          "Specifies the EncryptionAtRestOptions for the Elasticsearch domain."];
      nodeToNodeEncryptionOptions: NodeToNodeEncryptionOptionsStatus.t option
        [@ocaml.doc
          "Specifies the NodeToNodeEncryptionOptions for the Elasticsearch domain."];
      advancedOptions: AdvancedOptionsStatus.t option
        [@ocaml.doc
          "Specifies the AdvancedOptions for the domain. See Configuring Advanced Options for more information."];
      logPublishingOptions: LogPublishingOptionsStatus.t option
        [@ocaml.doc "Log publishing options for the given domain."];
      domainEndpointOptions: DomainEndpointOptionsStatus.t option
        [@ocaml.doc
          "Specifies the DomainEndpointOptions for the Elasticsearch domain."];
      advancedSecurityOptions: AdvancedSecurityOptionsStatus.t option
        [@ocaml.doc "Specifies AdvancedSecurityOptions for the domain."];
      autoTuneOptions: AutoTuneOptionsStatus.t option
        [@ocaml.doc "Specifies AutoTuneOptions for the domain."];
      changeProgressDetails: ChangeProgressDetails.t option
        [@ocaml.doc
          "Specifies change details of the domain configuration change."];
      modifyingProperties: ModifyingPropertiesList.t option
        [@ocaml.doc
          "Information about the domain properties that are currently being modified."];
      deploymentStrategyOptions: DeploymentStrategyOptionsStatus.t option
        [@ocaml.doc "Specifies DeploymentStrategyOptions for the domain."];
      automatedSnapshotPauseOptions:
        AutomatedSnapshotPauseOptionsStatus.t option
        [@ocaml.doc
          "Specifies AutomatedSnapshotPauseOptions for the domain."]}
    let make ?elasticsearchVersion =
      fun ?elasticsearchClusterConfig ->
        fun ?eBSOptions ->
          fun ?accessPolicies ->
            fun ?snapshotOptions ->
              fun ?vPCOptions ->
                fun ?cognitoOptions ->
                  fun ?encryptionAtRestOptions ->
                    fun ?nodeToNodeEncryptionOptions ->
                      fun ?advancedOptions ->
                        fun ?logPublishingOptions ->
                          fun ?domainEndpointOptions ->
                            fun ?advancedSecurityOptions ->
                              fun ?autoTuneOptions ->
                                fun ?changeProgressDetails ->
                                  fun ?modifyingProperties ->
                                    fun ?deploymentStrategyOptions ->
                                      fun ?automatedSnapshotPauseOptions ->
                                        fun () ->
                                          {
                                            elasticsearchVersion;
                                            elasticsearchClusterConfig;
                                            eBSOptions;
                                            accessPolicies;
                                            snapshotOptions;
                                            vPCOptions;
                                            cognitoOptions;
                                            encryptionAtRestOptions;
                                            nodeToNodeEncryptionOptions;
                                            advancedOptions;
                                            logPublishingOptions;
                                            domainEndpointOptions;
                                            advancedSecurityOptions;
                                            autoTuneOptions;
                                            changeProgressDetails;
                                            modifyingProperties;
                                            deploymentStrategyOptions;
                                            automatedSnapshotPauseOptions
                                          }
    let to_value x =
      structure_to_value
        [("ElasticsearchVersion",
           (Option.map x.elasticsearchVersion
              ~f:ElasticsearchVersionStatus.to_value));
        ("ElasticsearchClusterConfig",
          (Option.map x.elasticsearchClusterConfig
             ~f:ElasticsearchClusterConfigStatus.to_value));
        ("EBSOptions",
          (Option.map x.eBSOptions ~f:EBSOptionsStatus.to_value));
        ("AccessPolicies",
          (Option.map x.accessPolicies ~f:AccessPoliciesStatus.to_value));
        ("SnapshotOptions",
          (Option.map x.snapshotOptions ~f:SnapshotOptionsStatus.to_value));
        ("VPCOptions",
          (Option.map x.vPCOptions ~f:VPCDerivedInfoStatus.to_value));
        ("CognitoOptions",
          (Option.map x.cognitoOptions ~f:CognitoOptionsStatus.to_value));
        ("EncryptionAtRestOptions",
          (Option.map x.encryptionAtRestOptions
             ~f:EncryptionAtRestOptionsStatus.to_value));
        ("NodeToNodeEncryptionOptions",
          (Option.map x.nodeToNodeEncryptionOptions
             ~f:NodeToNodeEncryptionOptionsStatus.to_value));
        ("AdvancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptionsStatus.to_value));
        ("LogPublishingOptions",
          (Option.map x.logPublishingOptions
             ~f:LogPublishingOptionsStatus.to_value));
        ("DomainEndpointOptions",
          (Option.map x.domainEndpointOptions
             ~f:DomainEndpointOptionsStatus.to_value));
        ("AdvancedSecurityOptions",
          (Option.map x.advancedSecurityOptions
             ~f:AdvancedSecurityOptionsStatus.to_value));
        ("AutoTuneOptions",
          (Option.map x.autoTuneOptions ~f:AutoTuneOptionsStatus.to_value));
        ("ChangeProgressDetails",
          (Option.map x.changeProgressDetails
             ~f:ChangeProgressDetails.to_value));
        ("ModifyingProperties",
          (Option.map x.modifyingProperties
             ~f:ModifyingPropertiesList.to_value));
        ("DeploymentStrategyOptions",
          (Option.map x.deploymentStrategyOptions
             ~f:DeploymentStrategyOptionsStatus.to_value));
        ("AutomatedSnapshotPauseOptions",
          (Option.map x.automatedSnapshotPauseOptions
             ~f:AutomatedSnapshotPauseOptionsStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automatedSnapshotPauseOptions =
        (Option.map ~f:AutomatedSnapshotPauseOptionsStatus.of_xml)
          (Xml.child xml_arg0 "AutomatedSnapshotPauseOptions") in
      let deploymentStrategyOptions =
        (Option.map ~f:DeploymentStrategyOptionsStatus.of_xml)
          (Xml.child xml_arg0 "DeploymentStrategyOptions") in
      let modifyingProperties =
        (Option.map ~f:ModifyingPropertiesList.of_xml)
          (Xml.child xml_arg0 "ModifyingProperties") in
      let changeProgressDetails =
        (Option.map ~f:ChangeProgressDetails.of_xml)
          (Xml.child xml_arg0 "ChangeProgressDetails") in
      let autoTuneOptions =
        (Option.map ~f:AutoTuneOptionsStatus.of_xml)
          (Xml.child xml_arg0 "AutoTuneOptions") in
      let advancedSecurityOptions =
        (Option.map ~f:AdvancedSecurityOptionsStatus.of_xml)
          (Xml.child xml_arg0 "AdvancedSecurityOptions") in
      let domainEndpointOptions =
        (Option.map ~f:DomainEndpointOptionsStatus.of_xml)
          (Xml.child xml_arg0 "DomainEndpointOptions") in
      let logPublishingOptions =
        (Option.map ~f:LogPublishingOptionsStatus.of_xml)
          (Xml.child xml_arg0 "LogPublishingOptions") in
      let advancedOptions =
        (Option.map ~f:AdvancedOptionsStatus.of_xml)
          (Xml.child xml_arg0 "AdvancedOptions") in
      let nodeToNodeEncryptionOptions =
        (Option.map ~f:NodeToNodeEncryptionOptionsStatus.of_xml)
          (Xml.child xml_arg0 "NodeToNodeEncryptionOptions") in
      let encryptionAtRestOptions =
        (Option.map ~f:EncryptionAtRestOptionsStatus.of_xml)
          (Xml.child xml_arg0 "EncryptionAtRestOptions") in
      let cognitoOptions =
        (Option.map ~f:CognitoOptionsStatus.of_xml)
          (Xml.child xml_arg0 "CognitoOptions") in
      let vPCOptions =
        (Option.map ~f:VPCDerivedInfoStatus.of_xml)
          (Xml.child xml_arg0 "VPCOptions") in
      let snapshotOptions =
        (Option.map ~f:SnapshotOptionsStatus.of_xml)
          (Xml.child xml_arg0 "SnapshotOptions") in
      let accessPolicies =
        (Option.map ~f:AccessPoliciesStatus.of_xml)
          (Xml.child xml_arg0 "AccessPolicies") in
      let eBSOptions =
        (Option.map ~f:EBSOptionsStatus.of_xml)
          (Xml.child xml_arg0 "EBSOptions") in
      let elasticsearchClusterConfig =
        (Option.map ~f:ElasticsearchClusterConfigStatus.of_xml)
          (Xml.child xml_arg0 "ElasticsearchClusterConfig") in
      let elasticsearchVersion =
        (Option.map ~f:ElasticsearchVersionStatus.of_xml)
          (Xml.child xml_arg0 "ElasticsearchVersion") in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions
        ?modifyingProperties ?changeProgressDetails ?autoTuneOptions
        ?advancedSecurityOptions ?domainEndpointOptions ?logPublishingOptions
        ?advancedOptions ?nodeToNodeEncryptionOptions
        ?encryptionAtRestOptions ?cognitoOptions ?vPCOptions ?snapshotOptions
        ?accessPolicies ?eBSOptions ?elasticsearchClusterConfig
        ?elasticsearchVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automatedSnapshotPauseOptions =
        field_map json__ "AutomatedSnapshotPauseOptions"
          AutomatedSnapshotPauseOptionsStatus.of_json in
      let deploymentStrategyOptions =
        field_map json__ "DeploymentStrategyOptions"
          DeploymentStrategyOptionsStatus.of_json in
      let modifyingProperties =
        field_map json__ "ModifyingProperties"
          ModifyingPropertiesList.of_json in
      let changeProgressDetails =
        field_map json__ "ChangeProgressDetails"
          ChangeProgressDetails.of_json in
      let autoTuneOptions =
        field_map json__ "AutoTuneOptions" AutoTuneOptionsStatus.of_json in
      let advancedSecurityOptions =
        field_map json__ "AdvancedSecurityOptions"
          AdvancedSecurityOptionsStatus.of_json in
      let domainEndpointOptions =
        field_map json__ "DomainEndpointOptions"
          DomainEndpointOptionsStatus.of_json in
      let logPublishingOptions =
        field_map json__ "LogPublishingOptions"
          LogPublishingOptionsStatus.of_json in
      let advancedOptions =
        field_map json__ "AdvancedOptions" AdvancedOptionsStatus.of_json in
      let nodeToNodeEncryptionOptions =
        field_map json__ "NodeToNodeEncryptionOptions"
          NodeToNodeEncryptionOptionsStatus.of_json in
      let encryptionAtRestOptions =
        field_map json__ "EncryptionAtRestOptions"
          EncryptionAtRestOptionsStatus.of_json in
      let cognitoOptions =
        field_map json__ "CognitoOptions" CognitoOptionsStatus.of_json in
      let vPCOptions =
        field_map json__ "VPCOptions" VPCDerivedInfoStatus.of_json in
      let snapshotOptions =
        field_map json__ "SnapshotOptions" SnapshotOptionsStatus.of_json in
      let accessPolicies =
        field_map json__ "AccessPolicies" AccessPoliciesStatus.of_json in
      let eBSOptions = field_map json__ "EBSOptions" EBSOptionsStatus.of_json in
      let elasticsearchClusterConfig =
        field_map json__ "ElasticsearchClusterConfig"
          ElasticsearchClusterConfigStatus.of_json in
      let elasticsearchVersion =
        field_map json__ "ElasticsearchVersion"
          ElasticsearchVersionStatus.of_json in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions
        ?modifyingProperties ?changeProgressDetails ?autoTuneOptions
        ?advancedSecurityOptions ?domainEndpointOptions ?logPublishingOptions
        ?advancedOptions ?nodeToNodeEncryptionOptions
        ?encryptionAtRestOptions ?cognitoOptions ?vPCOptions ?snapshotOptions
        ?accessPolicies ?eBSOptions ?elasticsearchClusterConfig
        ?elasticsearchVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration of an Elasticsearch domain."]
module InvalidTypeException =
  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
       "An exception for trying to create or access sub-resource that is either invalid or not supported. Gives http status code of 409."]
module AdvancedSecurityOptionsInput =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "True if advanced security is enabled."];
      internalUserDatabaseEnabled: Boolean.t option
        [@ocaml.doc "True if the internal user database is enabled."];
      masterUserOptions: MasterUserOptions.t option
        [@ocaml.doc
          "Credentials for the master user: username and password, ARN, or both."];
      sAMLOptions: SAMLOptionsInput.t option
        [@ocaml.doc
          "Specifies the SAML application configuration for the domain."];
      anonymousAuthEnabled: Boolean.t option
        [@ocaml.doc
          "True if Anonymous auth is enabled. Anonymous auth can be enabled only when AdvancedSecurity is enabled on existing domains."]}
    let make ?enabled =
      fun ?internalUserDatabaseEnabled ->
        fun ?masterUserOptions ->
          fun ?sAMLOptions ->
            fun ?anonymousAuthEnabled ->
              fun () ->
                {
                  enabled;
                  internalUserDatabaseEnabled;
                  masterUserOptions;
                  sAMLOptions;
                  anonymousAuthEnabled
                }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("InternalUserDatabaseEnabled",
          (Option.map x.internalUserDatabaseEnabled ~f:Boolean.to_value));
        ("MasterUserOptions",
          (Option.map x.masterUserOptions ~f:MasterUserOptions.to_value));
        ("SAMLOptions",
          (Option.map x.sAMLOptions ~f:SAMLOptionsInput.to_value));
        ("AnonymousAuthEnabled",
          (Option.map x.anonymousAuthEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let anonymousAuthEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AnonymousAuthEnabled") in
      let sAMLOptions =
        (Option.map ~f:SAMLOptionsInput.of_xml)
          (Xml.child xml_arg0 "SAMLOptions") in
      let masterUserOptions =
        (Option.map ~f:MasterUserOptions.of_xml)
          (Xml.child xml_arg0 "MasterUserOptions") in
      let internalUserDatabaseEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "InternalUserDatabaseEnabled") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?anonymousAuthEnabled ?sAMLOptions ?masterUserOptions
        ?internalUserDatabaseEnabled ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let anonymousAuthEnabled =
        field_map json__ "AnonymousAuthEnabled" Boolean.of_json in
      let sAMLOptions =
        field_map json__ "SAMLOptions" SAMLOptionsInput.of_json in
      let masterUserOptions =
        field_map json__ "MasterUserOptions" MasterUserOptions.of_json in
      let internalUserDatabaseEnabled =
        field_map json__ "InternalUserDatabaseEnabled" Boolean.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?anonymousAuthEnabled ?sAMLOptions ?masterUserOptions
        ?internalUserDatabaseEnabled ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the advanced security configuration: whether advanced security is enabled, whether the internal database option is enabled, master username and password (if internal database is enabled), and master user ARN (if IAM is enabled)."]
module AutomatedSnapshotPauseRequestOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t
        [@ocaml.doc
          "Whether to enable or disable automated snapshot pause for the domain."];
      startTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The timestamp at which the automated snapshot pause should begin."];
      endTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The timestamp at which the automated snapshot pause should end. The maximum allowed duration between StartTime and EndTime is 3 days."]}
    let context_ = "AutomatedSnapshotPauseRequestOptions"
    let make ?startTime =
      fun ?endTime ->
        fun ~enabled -> fun () -> { startTime; endTime; enabled }
    let to_value x =
      structure_to_value
        [("Enabled", (Some (Boolean.to_value x.enabled)));
        ("StartTime", (Option.map x.startTime ~f:UpdateTimestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:UpdateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:UpdateTimestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let enabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Enabled") in
      make ?endTime ?startTime ~enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "EndTime" UpdateTimestamp.of_json in
      let startTime = field_map json__ "StartTime" UpdateTimestamp.of_json in
      let enabled = field_map_exn json__ "Enabled" Boolean.of_json in
      make ?endTime ?startTime ~enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the automated snapshot pause request options for the domain. Suspending snapshots reduces data protection. You cannot restore your domain to points in time when snapshots are suspended. Use this feature only for short-term operational needs such as migrations or maintenance windows. Maximum suspension duration: 3 days."]
module DryRun =
  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 InstanceCount =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Specifies the number of EC2 instances in the Elasticsearch domain."]
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InstanceCount" 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[@@ocaml.doc
       "Specifies the number of EC2 instances in the Elasticsearch domain."]
module NextToken =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Paginated APIs accepts NextToken input to returns next page results and provides a NextToken output in the response which can be used by the client to retrieve more results."]
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Paginated APIs accepts NextToken input to returns next page results and provides a NextToken output in the response which can be used by the client to retrieve more results."]
module VpcEndpointSummaryList =
  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:"VpcEndpointSummaryList"
        ~of_json:VpcEndpointSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AuthorizedPrincipalList =
  struct
    type nonrec t = AuthorizedPrincipal.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:AuthorizedPrincipal.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:AuthorizedPrincipal.of_xml)
    let of_json j =
      list_of_json ~kind:"AuthorizedPrincipalList"
        ~of_json:AuthorizedPrincipal.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainPackageDetailsList =
  struct
    type nonrec t = DomainPackageDetails.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:DomainPackageDetails.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:DomainPackageDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainPackageDetailsList"
        ~of_json:DomainPackageDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Set this value to limit the number of results returned."]
    let make i =
      let open Result in ok_or_failwith (check_int_max i ~max:100); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Set this value to limit the number of results returned."]
module ElasticsearchInstanceTypeList =
  struct
    type nonrec t = ESPartitionInstanceType.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:ESPartitionInstanceType.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:ESPartitionInstanceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ElasticsearchInstanceTypeList"
        ~of_json:ESPartitionInstanceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainInfoList =
  struct
    type nonrec t = DomainInfo.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:DomainInfo.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:DomainInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainInfoList" ~of_json:DomainInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpgradeHistoryList =
  struct
    type nonrec t = UpgradeHistory.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:UpgradeHistory.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:UpgradeHistory.of_xml)
    let of_json j =
      list_of_json ~kind:"UpgradeHistoryList" ~of_json:UpgradeHistory.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PackageVersionHistoryList =
  struct
    type nonrec t = PackageVersionHistory.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:PackageVersionHistory.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:PackageVersionHistory.of_xml)
    let of_json j =
      list_of_json ~kind:"PackageVersionHistoryList"
        ~of_json:PackageVersionHistory.of_json j
    let to_json v = composed_to_json to_value v
  end
module CompatibleElasticsearchVersionsList =
  struct
    type nonrec t = CompatibleVersionsMap.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:CompatibleVersionsMap.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:CompatibleVersionsMap.of_xml)
    let of_json j =
      list_of_json ~kind:"CompatibleElasticsearchVersionsList"
        ~of_json:CompatibleVersionsMap.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointErrorList =
  struct
    type nonrec t = VpcEndpointError.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:VpcEndpointError.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:VpcEndpointError.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpointErrorList"
        ~of_json:VpcEndpointError.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpoints =
  struct
    type nonrec t = VpcEndpoint.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:VpcEndpoint.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:VpcEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcEndpoints" ~of_json:VpcEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointIdList =
  struct
    type nonrec t = VpcEndpointId.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: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:"VpcEndpointIdList" ~of_json:VpcEndpointId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReservedElasticsearchInstanceList =
  struct
    type nonrec t = ReservedElasticsearchInstance.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:ReservedElasticsearchInstance.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:ReservedElasticsearchInstance.of_xml)
    let of_json j =
      list_of_json ~kind:"ReservedElasticsearchInstanceList"
        ~of_json:ReservedElasticsearchInstance.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReservedElasticsearchInstanceOfferingList =
  struct
    type nonrec t = ReservedElasticsearchInstanceOffering.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:ReservedElasticsearchInstanceOffering.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:ReservedElasticsearchInstanceOffering.of_xml)
    let of_json j =
      list_of_json ~kind:"ReservedElasticsearchInstanceOfferingList"
        ~of_json:ReservedElasticsearchInstanceOffering.of_json j
    let to_json v = composed_to_json to_value v
  end
module PackageDetailsList =
  struct
    type nonrec t = PackageDetails.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:PackageDetails.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:PackageDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"PackageDetailsList" ~of_json:PackageDetails.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DescribePackagesFilterList =
  struct
    type nonrec t = DescribePackagesFilter.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:DescribePackagesFilter.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:DescribePackagesFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribePackagesFilterList"
        ~of_json:DescribePackagesFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidPaginationTokenException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request processing has failed because of invalid pagination token provided by customer. Returns an HTTP status code of 400."]
module OutboundCrossClusterSearchConnections =
  struct
    type nonrec t = OutboundCrossClusterSearchConnection.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:OutboundCrossClusterSearchConnection.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:OutboundCrossClusterSearchConnection.of_xml)
    let of_json j =
      list_of_json ~kind:"OutboundCrossClusterSearchConnections"
        ~of_json:OutboundCrossClusterSearchConnection.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterList =
  struct
    type nonrec t = Filter.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:Filter.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:Filter.of_xml)
    let of_json j = list_of_json ~kind:"FilterList" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module InboundCrossClusterSearchConnections =
  struct
    type nonrec t = InboundCrossClusterSearchConnection.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:InboundCrossClusterSearchConnection.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:InboundCrossClusterSearchConnection.of_xml)
    let of_json j =
      list_of_json ~kind:"InboundCrossClusterSearchConnections"
        ~of_json:InboundCrossClusterSearchConnection.of_json j
    let to_json v = composed_to_json to_value v
  end
module LimitsByRole =
  struct
    type nonrec t = (InstanceRole.t * Limits.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types InstanceRole Limits"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (InstanceRole.to_value x) |>
                    (fun x -> (Limits.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:InstanceRole.of_string
        ~of_json:Limits.of_json j
    let to_json v = composed_to_json to_value v
  end
module ElasticsearchDomainStatusList =
  struct
    type nonrec t = ElasticsearchDomainStatus.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:ElasticsearchDomainStatus.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:ElasticsearchDomainStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"ElasticsearchDomainStatusList"
        ~of_json:ElasticsearchDomainStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainNameList =
  struct
    type nonrec t = DomainName.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:DomainName.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:DomainName.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainNameList" ~of_json:DomainName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeProgressStatusDetails =
  struct
    type nonrec t =
      {
      changeId: GUID.t option
        [@ocaml.doc
          "The unique change identifier associated with a specific domain configuration change."];
      startTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The time at which the configuration change is made on the domain."];
      status: OverallChangeStatus.t option
        [@ocaml.doc
          "The overall status of the domain configuration change. This field can take the following values: PENDING, PROCESSING, COMPLETED and FAILED"];
      pendingProperties: StringList.t option
        [@ocaml.doc
          "The list of properties involved in the domain configuration change that are still in pending."];
      completedProperties: StringList.t option
        [@ocaml.doc
          "The list of properties involved in the domain configuration change that are completed."];
      totalNumberOfStages: TotalNumberOfStages.t option
        [@ocaml.doc
          "The total number of stages required for the configuration change."];
      changeProgressStages: ChangeProgressStageList.t option
        [@ocaml.doc
          "The specific stages that the domain is going through to perform the configuration change."];
      configChangeStatus: ConfigChangeStatus.t option
        [@ocaml.doc "The current status of the configuration change."];
      lastUpdatedTime: UpdateTimestamp.t option
        [@ocaml.doc
          "The last time that the status of the configuration change was updated."];
      initiatedBy: InitiatedBy.t option
        [@ocaml.doc
          "The IAM principal who initiated the configuration change."]}
    let make ?changeId =
      fun ?startTime ->
        fun ?status ->
          fun ?pendingProperties ->
            fun ?completedProperties ->
              fun ?totalNumberOfStages ->
                fun ?changeProgressStages ->
                  fun ?configChangeStatus ->
                    fun ?lastUpdatedTime ->
                      fun ?initiatedBy ->
                        fun () ->
                          {
                            changeId;
                            startTime;
                            status;
                            pendingProperties;
                            completedProperties;
                            totalNumberOfStages;
                            changeProgressStages;
                            configChangeStatus;
                            lastUpdatedTime;
                            initiatedBy
                          }
    let to_value x =
      structure_to_value
        [("ChangeId", (Option.map x.changeId ~f:GUID.to_value));
        ("StartTime", (Option.map x.startTime ~f:UpdateTimestamp.to_value));
        ("Status", (Option.map x.status ~f:OverallChangeStatus.to_value));
        ("PendingProperties",
          (Option.map x.pendingProperties ~f:StringList.to_value));
        ("CompletedProperties",
          (Option.map x.completedProperties ~f:StringList.to_value));
        ("TotalNumberOfStages",
          (Option.map x.totalNumberOfStages ~f:TotalNumberOfStages.to_value));
        ("ChangeProgressStages",
          (Option.map x.changeProgressStages
             ~f:ChangeProgressStageList.to_value));
        ("ConfigChangeStatus",
          (Option.map x.configChangeStatus ~f:ConfigChangeStatus.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:UpdateTimestamp.to_value));
        ("InitiatedBy", (Option.map x.initiatedBy ~f:InitiatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiatedBy =
        (Option.map ~f:InitiatedBy.of_xml) (Xml.child xml_arg0 "InitiatedBy") in
      let lastUpdatedTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let configChangeStatus =
        (Option.map ~f:ConfigChangeStatus.of_xml)
          (Xml.child xml_arg0 "ConfigChangeStatus") in
      let changeProgressStages =
        (Option.map ~f:ChangeProgressStageList.of_xml)
          (Xml.child xml_arg0 "ChangeProgressStages") in
      let totalNumberOfStages =
        (Option.map ~f:TotalNumberOfStages.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfStages") in
      let completedProperties =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "CompletedProperties") in
      let pendingProperties =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "PendingProperties") in
      let status =
        (Option.map ~f:OverallChangeStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let startTime =
        (Option.map ~f:UpdateTimestamp.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let changeId =
        (Option.map ~f:GUID.of_xml) (Xml.child xml_arg0 "ChangeId") in
      make ?initiatedBy ?lastUpdatedTime ?configChangeStatus
        ?changeProgressStages ?totalNumberOfStages ?completedProperties
        ?pendingProperties ?status ?startTime ?changeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiatedBy = field_map json__ "InitiatedBy" InitiatedBy.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" UpdateTimestamp.of_json in
      let configChangeStatus =
        field_map json__ "ConfigChangeStatus" ConfigChangeStatus.of_json in
      let changeProgressStages =
        field_map json__ "ChangeProgressStages"
          ChangeProgressStageList.of_json in
      let totalNumberOfStages =
        field_map json__ "TotalNumberOfStages" TotalNumberOfStages.of_json in
      let completedProperties =
        field_map json__ "CompletedProperties" StringList.of_json in
      let pendingProperties =
        field_map json__ "PendingProperties" StringList.of_json in
      let status = field_map json__ "Status" OverallChangeStatus.of_json in
      let startTime = field_map json__ "StartTime" UpdateTimestamp.of_json in
      let changeId = field_map json__ "ChangeId" GUID.of_json in
      make ?initiatedBy ?lastUpdatedTime ?configChangeStatus
        ?changeProgressStages ?totalNumberOfStages ?completedProperties
        ?pendingProperties ?status ?startTime ?changeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The progress details of a specific domain configuration change."]
module AutoTuneList =
  struct
    type nonrec t = AutoTune.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:AutoTune.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:AutoTune.of_xml)
    let of_json j =
      list_of_json ~kind:"AutoTuneList" ~of_json:AutoTune.of_json j
    let to_json v = composed_to_json to_value v
  end
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:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module AutoTuneOptionsInput =
  struct
    type nonrec t =
      {
      desiredState: AutoTuneDesiredState.t option
        [@ocaml.doc
          "Specifies the Auto-Tune desired state. Valid values are ENABLED, DISABLED."];
      maintenanceSchedules: AutoTuneMaintenanceScheduleList.t option
        [@ocaml.doc
          "Specifies list of maitenance schedules. See the Developer Guide for more information."]}
    let make ?desiredState =
      fun ?maintenanceSchedules ->
        fun () -> { desiredState; maintenanceSchedules }
    let to_value x =
      structure_to_value
        [("DesiredState",
           (Option.map x.desiredState ~f:AutoTuneDesiredState.to_value));
        ("MaintenanceSchedules",
          (Option.map x.maintenanceSchedules
             ~f:AutoTuneMaintenanceScheduleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maintenanceSchedules =
        (Option.map ~f:AutoTuneMaintenanceScheduleList.of_xml)
          (Xml.child xml_arg0 "MaintenanceSchedules") in
      let desiredState =
        (Option.map ~f:AutoTuneDesiredState.of_xml)
          (Xml.child xml_arg0 "DesiredState") in
      make ?maintenanceSchedules ?desiredState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maintenanceSchedules =
        field_map json__ "MaintenanceSchedules"
          AutoTuneMaintenanceScheduleList.of_json in
      let desiredState =
        field_map json__ "DesiredState" AutoTuneDesiredState.of_json in
      make ?maintenanceSchedules ?desiredState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the Auto-Tune options: the Auto-Tune desired state for the domain and list of maintenance schedules."]
module CancelledChangePropertyList =
  struct
    type nonrec t = CancelledChangeProperty.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:CancelledChangeProperty.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:CancelledChangeProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"CancelledChangePropertyList"
        ~of_json:CancelledChangeProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module GUIDList =
  struct
    type nonrec t = GUID.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:GUID.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:GUID.of_xml)
    let of_json j = list_of_json ~kind:"GUIDList" ~of_json:GUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpgradeElasticsearchDomainResponse =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option ;
      targetVersion: ElasticsearchVersionString.t option
        [@ocaml.doc
          "The version of Elasticsearch that you intend to upgrade the domain to."];
      performCheckOnly: Boolean.t option
        [@ocaml.doc
          "This flag, when set to True, indicates that an Upgrade Eligibility Check needs to be performed. This will not actually perform the Upgrade."];
      changeProgressDetails: ChangeProgressDetails.t option }
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainName =
      fun ?targetVersion ->
        fun ?performCheckOnly ->
          fun ?changeProgressDetails ->
            fun () ->
              {
                domainName;
                targetVersion;
                performCheckOnly;
                changeProgressDetails
              }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("TargetVersion",
          (Option.map x.targetVersion ~f:ElasticsearchVersionString.to_value));
        ("PerformCheckOnly",
          (Option.map x.performCheckOnly ~f:Boolean.to_value));
        ("ChangeProgressDetails",
          (Option.map x.changeProgressDetails
             ~f:ChangeProgressDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changeProgressDetails =
        (Option.map ~f:ChangeProgressDetails.of_xml)
          (Xml.child xml_arg0 "ChangeProgressDetails") in
      let performCheckOnly =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PerformCheckOnly") in
      let targetVersion =
        (Option.map ~f:ElasticsearchVersionString.of_xml)
          (Xml.child xml_arg0 "TargetVersion") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?changeProgressDetails ?performCheckOnly ?targetVersion
        ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changeProgressDetails =
        field_map json__ "ChangeProgressDetails"
          ChangeProgressDetails.of_json in
      let performCheckOnly =
        field_map json__ "PerformCheckOnly" Boolean.of_json in
      let targetVersion =
        field_map json__ "TargetVersion" ElasticsearchVersionString.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?changeProgressDetails ?performCheckOnly ?targetVersion
        ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by UpgradeElasticsearchDomain operation."]
module UpgradeElasticsearchDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t ;
      targetVersion: ElasticsearchVersionString.t
        [@ocaml.doc
          "The version of Elasticsearch that you intend to upgrade the domain to."];
      performCheckOnly: Boolean.t option
        [@ocaml.doc
          "This flag, when set to True, indicates that an Upgrade Eligibility Check needs to be performed. This will not actually perform the Upgrade."]}
    let context_ = "UpgradeElasticsearchDomainRequest"
    let make ?performCheckOnly =
      fun ~domainName ->
        fun ~targetVersion ->
          fun () -> { performCheckOnly; domainName; targetVersion }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("TargetVersion",
          (Some (ElasticsearchVersionString.to_value x.targetVersion)));
        ("PerformCheckOnly",
          (Option.map x.performCheckOnly ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performCheckOnly =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PerformCheckOnly") in
      let targetVersion =
        ElasticsearchVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetVersion") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?performCheckOnly ~targetVersion ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performCheckOnly =
        field_map json__ "PerformCheckOnly" Boolean.of_json in
      let targetVersion =
        field_map_exn json__ "TargetVersion"
          ElasticsearchVersionString.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?performCheckOnly ~targetVersion ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to UpgradeElasticsearchDomain operation."]
module UpdateVpcEndpointResponse =
  struct
    type nonrec t =
      {
      vpcEndpoint: VpcEndpoint.t option
        [@ocaml.doc "The endpoint to be updated."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `ConflictException of ConflictException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpoint = fun () -> { vpcEndpoint }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("VpcEndpoint", (Option.map x.vpcEndpoint ~f:VpcEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpoint =
        (Option.map ~f:VpcEndpoint.of_xml) (Xml.child xml_arg0 "VpcEndpoint") in
      make ?vpcEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpoint = field_map json__ "VpcEndpoint" VpcEndpoint.of_json in
      make ?vpcEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration and status of the VPC endpoint being updated."]
module UpdateVpcEndpointRequest =
  struct
    type nonrec t =
      {
      vpcEndpointId: VpcEndpointId.t
        [@ocaml.doc "Unique identifier of the VPC endpoint to be updated."];
      vpcOptions: VPCOptions.t
        [@ocaml.doc
          "The security groups and/or subnets to add, remove, or modify."]}
    let context_ = "UpdateVpcEndpointRequest"
    let make ~vpcEndpointId =
      fun ~vpcOptions -> fun () -> { vpcEndpointId; vpcOptions }
    let to_value x =
      structure_to_value
        [("VpcEndpointId", (Some (VpcEndpointId.to_value x.vpcEndpointId)));
        ("VpcOptions", (Some (VPCOptions.to_value x.vpcOptions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcOptions =
        VPCOptions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcOptions") in
      let vpcEndpointId =
        VpcEndpointId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcEndpointId") in
      make ~vpcOptions ~vpcEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcOptions = field_map_exn json__ "VpcOptions" VPCOptions.of_json in
      let vpcEndpointId =
        field_map_exn json__ "VpcEndpointId" VpcEndpointId.of_json in
      make ~vpcOptions ~vpcEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies an Amazon OpenSearch Service-managed interface VPC endpoint."]
module UpdatePackageResponse =
  struct
    type nonrec t =
      {
      packageDetails: PackageDetails.t option
        [@ocaml.doc "Information about the package PackageDetails."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?packageDetails = fun () -> { packageDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("PackageDetails",
           (Option.map x.packageDetails ~f:PackageDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packageDetails =
        (Option.map ~f:PackageDetails.of_xml)
          (Xml.child xml_arg0 "PackageDetails") in
      make ?packageDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packageDetails =
        field_map json__ "PackageDetails" PackageDetails.of_json in
      make ?packageDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by UpdatePackage operation."]
module UpdatePackageRequest =
  struct
    type nonrec t =
      {
      packageID: PackageID.t
        [@ocaml.doc "Unique identifier for the package."];
      packageSource: PackageSource.t ;
      packageDescription: PackageDescription.t option
        [@ocaml.doc "New description of the package."];
      commitMessage: CommitMessage.t option
        [@ocaml.doc
          "An info message for the new version which will be shown as part of GetPackageVersionHistoryResponse."]}
    let context_ = "UpdatePackageRequest"
    let make ?packageDescription =
      fun ?commitMessage ->
        fun ~packageID ->
          fun ~packageSource ->
            fun () ->
              { packageDescription; commitMessage; packageID; packageSource }
    let to_value x =
      structure_to_value
        [("PackageID", (Some (PackageID.to_value x.packageID)));
        ("PackageSource", (Some (PackageSource.to_value x.packageSource)));
        ("PackageDescription",
          (Option.map x.packageDescription ~f:PackageDescription.to_value));
        ("CommitMessage",
          (Option.map x.commitMessage ~f:CommitMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commitMessage =
        (Option.map ~f:CommitMessage.of_xml)
          (Xml.child xml_arg0 "CommitMessage") in
      let packageDescription =
        (Option.map ~f:PackageDescription.of_xml)
          (Xml.child xml_arg0 "PackageDescription") in
      let packageSource =
        PackageSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageSource") in
      let packageID =
        PackageID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageID") in
      make ?commitMessage ?packageDescription ~packageSource ~packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commitMessage =
        field_map json__ "CommitMessage" CommitMessage.of_json in
      let packageDescription =
        field_map json__ "PackageDescription" PackageDescription.of_json in
      let packageSource =
        field_map_exn json__ "PackageSource" PackageSource.of_json in
      let packageID = field_map_exn json__ "PackageID" PackageID.of_json in
      make ?commitMessage ?packageDescription ~packageSource ~packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to UpdatePackage operation."]
module UpdateElasticsearchDomainConfigResponse =
  struct
    type nonrec t =
      {
      domainConfig: ElasticsearchDomainConfig.t option
        [@ocaml.doc "The status of the updated Elasticsearch domain."];
      dryRunResults: DryRunResults.t option
        [@ocaml.doc "Contains result of DryRun."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `InvalidTypeException of InvalidTypeException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainConfig =
      fun ?dryRunResults -> fun () -> { domainConfig; dryRunResults }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidTypeException e ->
          `Assoc
            [("error", (`String "InvalidTypeException"));
            ("details", (InvalidTypeException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("DomainConfig",
           (Option.map x.domainConfig ~f:ElasticsearchDomainConfig.to_value));
        ("DryRunResults",
          (Option.map x.dryRunResults ~f:DryRunResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRunResults =
        (Option.map ~f:DryRunResults.of_xml)
          (Xml.child xml_arg0 "DryRunResults") in
      let domainConfig =
        (Option.map ~f:ElasticsearchDomainConfig.of_xml)
          (Xml.child xml_arg0 "DomainConfig") in
      make ?dryRunResults ?domainConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRunResults =
        field_map json__ "DryRunResults" DryRunResults.of_json in
      let domainConfig =
        field_map json__ "DomainConfig" ElasticsearchDomainConfig.of_json in
      make ?dryRunResults ?domainConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of an UpdateElasticsearchDomain request. Contains the status of the Elasticsearch domain being updated."]
module UpdateElasticsearchDomainConfigRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the Elasticsearch domain that you are updating."];
      elasticsearchClusterConfig: ElasticsearchClusterConfig.t option
        [@ocaml.doc
          "The type and number of instances to instantiate for the domain cluster."];
      eBSOptions: EBSOptions.t option
        [@ocaml.doc
          "Specify the type and size of the EBS volume that you want to use."];
      snapshotOptions: SnapshotOptions.t option
        [@ocaml.doc
          "Option to set the time, in UTC format, for the daily automated snapshot. Default value is 0 hours."];
      vPCOptions: VPCOptions.t option
        [@ocaml.doc
          "Options to specify the subnets and security groups for VPC endpoint. For more information, see Creating a VPC in VPC Endpoints for Amazon Elasticsearch Service Domains"];
      cognitoOptions: CognitoOptions.t option
        [@ocaml.doc
          "Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see Amazon Cognito Authentication for Kibana."];
      advancedOptions: AdvancedOptions.t option
        [@ocaml.doc
          "Modifies the advanced option to allow references to indices in an HTTP request body. Must be false when configuring access to individual sub-resources. By default, the value is true. See Configuration Advanced Options for more information."];
      accessPolicies: PolicyDocument.t option
        [@ocaml.doc "IAM access policy as a JSON-formatted string."];
      logPublishingOptions: LogPublishingOptions.t option
        [@ocaml.doc
          "Map of LogType and LogPublishingOption, each containing options to publish a given type of Elasticsearch log."];
      domainEndpointOptions: DomainEndpointOptions.t option
        [@ocaml.doc
          "Options to specify configuration that will be applied to the domain endpoint."];
      advancedSecurityOptions: AdvancedSecurityOptionsInput.t option
        [@ocaml.doc "Specifies advanced security options."];
      nodeToNodeEncryptionOptions: NodeToNodeEncryptionOptions.t option
        [@ocaml.doc "Specifies the NodeToNodeEncryptionOptions."];
      encryptionAtRestOptions: EncryptionAtRestOptions.t option
        [@ocaml.doc "Specifies the Encryption At Rest Options."];
      autoTuneOptions: AutoTuneOptions.t option
        [@ocaml.doc "Specifies Auto-Tune options."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "This flag, when set to True, specifies whether the UpdateElasticsearchDomain request should return the results of validation checks without actually applying the change. This flag, when set to True, specifies the deployment mechanism through which the update shall be applied on the domain. This will not actually perform the Update."];
      deploymentStrategyOptions: DeploymentStrategyOptions.t option
        [@ocaml.doc "Specifies the deployment strategy options."];
      automatedSnapshotPauseOptions:
        AutomatedSnapshotPauseRequestOptions.t option
        [@ocaml.doc
          "Specifies the automated snapshot pause options for the domain. Suspending snapshots reduces data protection. You cannot restore your domain to points in time when snapshots are suspended. Use this feature only for short-term operational needs such as migrations or maintenance windows. Maximum suspension duration: 3 days."]}
    let context_ = "UpdateElasticsearchDomainConfigRequest"
    let make ?elasticsearchClusterConfig =
      fun ?eBSOptions ->
        fun ?snapshotOptions ->
          fun ?vPCOptions ->
            fun ?cognitoOptions ->
              fun ?advancedOptions ->
                fun ?accessPolicies ->
                  fun ?logPublishingOptions ->
                    fun ?domainEndpointOptions ->
                      fun ?advancedSecurityOptions ->
                        fun ?nodeToNodeEncryptionOptions ->
                          fun ?encryptionAtRestOptions ->
                            fun ?autoTuneOptions ->
                              fun ?dryRun ->
                                fun ?deploymentStrategyOptions ->
                                  fun ?automatedSnapshotPauseOptions ->
                                    fun ~domainName ->
                                      fun () ->
                                        {
                                          elasticsearchClusterConfig;
                                          eBSOptions;
                                          snapshotOptions;
                                          vPCOptions;
                                          cognitoOptions;
                                          advancedOptions;
                                          accessPolicies;
                                          logPublishingOptions;
                                          domainEndpointOptions;
                                          advancedSecurityOptions;
                                          nodeToNodeEncryptionOptions;
                                          encryptionAtRestOptions;
                                          autoTuneOptions;
                                          dryRun;
                                          deploymentStrategyOptions;
                                          automatedSnapshotPauseOptions;
                                          domainName
                                        }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("ElasticsearchClusterConfig",
          (Option.map x.elasticsearchClusterConfig
             ~f:ElasticsearchClusterConfig.to_value));
        ("EBSOptions", (Option.map x.eBSOptions ~f:EBSOptions.to_value));
        ("SnapshotOptions",
          (Option.map x.snapshotOptions ~f:SnapshotOptions.to_value));
        ("VPCOptions", (Option.map x.vPCOptions ~f:VPCOptions.to_value));
        ("CognitoOptions",
          (Option.map x.cognitoOptions ~f:CognitoOptions.to_value));
        ("AdvancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value));
        ("AccessPolicies",
          (Option.map x.accessPolicies ~f:PolicyDocument.to_value));
        ("LogPublishingOptions",
          (Option.map x.logPublishingOptions ~f:LogPublishingOptions.to_value));
        ("DomainEndpointOptions",
          (Option.map x.domainEndpointOptions
             ~f:DomainEndpointOptions.to_value));
        ("AdvancedSecurityOptions",
          (Option.map x.advancedSecurityOptions
             ~f:AdvancedSecurityOptionsInput.to_value));
        ("NodeToNodeEncryptionOptions",
          (Option.map x.nodeToNodeEncryptionOptions
             ~f:NodeToNodeEncryptionOptions.to_value));
        ("EncryptionAtRestOptions",
          (Option.map x.encryptionAtRestOptions
             ~f:EncryptionAtRestOptions.to_value));
        ("AutoTuneOptions",
          (Option.map x.autoTuneOptions ~f:AutoTuneOptions.to_value));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value));
        ("DeploymentStrategyOptions",
          (Option.map x.deploymentStrategyOptions
             ~f:DeploymentStrategyOptions.to_value));
        ("AutomatedSnapshotPauseOptions",
          (Option.map x.automatedSnapshotPauseOptions
             ~f:AutomatedSnapshotPauseRequestOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automatedSnapshotPauseOptions =
        (Option.map ~f:AutomatedSnapshotPauseRequestOptions.of_xml)
          (Xml.child xml_arg0 "AutomatedSnapshotPauseOptions") in
      let deploymentStrategyOptions =
        (Option.map ~f:DeploymentStrategyOptions.of_xml)
          (Xml.child xml_arg0 "DeploymentStrategyOptions") in
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let autoTuneOptions =
        (Option.map ~f:AutoTuneOptions.of_xml)
          (Xml.child xml_arg0 "AutoTuneOptions") in
      let encryptionAtRestOptions =
        (Option.map ~f:EncryptionAtRestOptions.of_xml)
          (Xml.child xml_arg0 "EncryptionAtRestOptions") in
      let nodeToNodeEncryptionOptions =
        (Option.map ~f:NodeToNodeEncryptionOptions.of_xml)
          (Xml.child xml_arg0 "NodeToNodeEncryptionOptions") in
      let advancedSecurityOptions =
        (Option.map ~f:AdvancedSecurityOptionsInput.of_xml)
          (Xml.child xml_arg0 "AdvancedSecurityOptions") in
      let domainEndpointOptions =
        (Option.map ~f:DomainEndpointOptions.of_xml)
          (Xml.child xml_arg0 "DomainEndpointOptions") in
      let logPublishingOptions =
        (Option.map ~f:LogPublishingOptions.of_xml)
          (Xml.child xml_arg0 "LogPublishingOptions") in
      let accessPolicies =
        (Option.map ~f:PolicyDocument.of_xml)
          (Xml.child xml_arg0 "AccessPolicies") in
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "AdvancedOptions") in
      let cognitoOptions =
        (Option.map ~f:CognitoOptions.of_xml)
          (Xml.child xml_arg0 "CognitoOptions") in
      let vPCOptions =
        (Option.map ~f:VPCOptions.of_xml) (Xml.child xml_arg0 "VPCOptions") in
      let snapshotOptions =
        (Option.map ~f:SnapshotOptions.of_xml)
          (Xml.child xml_arg0 "SnapshotOptions") in
      let eBSOptions =
        (Option.map ~f:EBSOptions.of_xml) (Xml.child xml_arg0 "EBSOptions") in
      let elasticsearchClusterConfig =
        (Option.map ~f:ElasticsearchClusterConfig.of_xml)
          (Xml.child xml_arg0 "ElasticsearchClusterConfig") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions ?dryRun
        ?autoTuneOptions ?encryptionAtRestOptions
        ?nodeToNodeEncryptionOptions ?advancedSecurityOptions
        ?domainEndpointOptions ?logPublishingOptions ?accessPolicies
        ?advancedOptions ?cognitoOptions ?vPCOptions ?snapshotOptions
        ?eBSOptions ?elasticsearchClusterConfig ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automatedSnapshotPauseOptions =
        field_map json__ "AutomatedSnapshotPauseOptions"
          AutomatedSnapshotPauseRequestOptions.of_json in
      let deploymentStrategyOptions =
        field_map json__ "DeploymentStrategyOptions"
          DeploymentStrategyOptions.of_json in
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let autoTuneOptions =
        field_map json__ "AutoTuneOptions" AutoTuneOptions.of_json in
      let encryptionAtRestOptions =
        field_map json__ "EncryptionAtRestOptions"
          EncryptionAtRestOptions.of_json in
      let nodeToNodeEncryptionOptions =
        field_map json__ "NodeToNodeEncryptionOptions"
          NodeToNodeEncryptionOptions.of_json in
      let advancedSecurityOptions =
        field_map json__ "AdvancedSecurityOptions"
          AdvancedSecurityOptionsInput.of_json in
      let domainEndpointOptions =
        field_map json__ "DomainEndpointOptions"
          DomainEndpointOptions.of_json in
      let logPublishingOptions =
        field_map json__ "LogPublishingOptions" LogPublishingOptions.of_json in
      let accessPolicies =
        field_map json__ "AccessPolicies" PolicyDocument.of_json in
      let advancedOptions =
        field_map json__ "AdvancedOptions" AdvancedOptions.of_json in
      let cognitoOptions =
        field_map json__ "CognitoOptions" CognitoOptions.of_json in
      let vPCOptions = field_map json__ "VPCOptions" VPCOptions.of_json in
      let snapshotOptions =
        field_map json__ "SnapshotOptions" SnapshotOptions.of_json in
      let eBSOptions = field_map json__ "EBSOptions" EBSOptions.of_json in
      let elasticsearchClusterConfig =
        field_map json__ "ElasticsearchClusterConfig"
          ElasticsearchClusterConfig.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions ?dryRun
        ?autoTuneOptions ?encryptionAtRestOptions
        ?nodeToNodeEncryptionOptions ?advancedSecurityOptions
        ?domainEndpointOptions ?logPublishingOptions ?accessPolicies
        ?advancedOptions ?cognitoOptions ?vPCOptions ?snapshotOptions
        ?eBSOptions ?elasticsearchClusterConfig ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the UpdateElasticsearchDomain operation. Specifies the type and number of instances in the domain cluster."]
module StartElasticsearchServiceSoftwareUpdateResponse =
  struct
    type nonrec t =
      {
      serviceSoftwareOptions: ServiceSoftwareOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch service software update."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceSoftwareOptions = fun () -> { serviceSoftwareOptions }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("ServiceSoftwareOptions",
           (Option.map x.serviceSoftwareOptions
              ~f:ServiceSoftwareOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceSoftwareOptions =
        (Option.map ~f:ServiceSoftwareOptions.of_xml)
          (Xml.child xml_arg0 "ServiceSoftwareOptions") in
      make ?serviceSoftwareOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceSoftwareOptions =
        field_map json__ "ServiceSoftwareOptions"
          ServiceSoftwareOptions.of_json in
      make ?serviceSoftwareOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a StartElasticsearchServiceSoftwareUpdate operation. Contains the status of the update."]
module StartElasticsearchServiceSoftwareUpdateRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to update to the latest service software."]}
    let context_ = "StartElasticsearchServiceSoftwareUpdateRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the StartElasticsearchServiceSoftwareUpdate operation. Specifies the name of the Elasticsearch domain that you wish to schedule a service software update on."]
module RevokeVpcEndpointAccessResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
       "Container for response parameters to the RevokeVpcEndpointAccess operation. The response body for this operation is empty."]
module RevokeVpcEndpointAccessRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc "The name of the OpenSearch Service domain."];
      account: AWSAccount.t
        [@ocaml.doc "The account ID to revoke access from."]}
    let context_ = "RevokeVpcEndpointAccessRequest"
    let make ~domainName = fun ~account -> fun () -> { domainName; account }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("Account", (Some (AWSAccount.to_value x.account)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        AWSAccount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Account") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~account ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map_exn json__ "Account" AWSAccount.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~account ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Revokes access to an Amazon OpenSearch Service domain that was provided through an interface VPC endpoint."]
module RemoveTagsRequest =
  struct
    type nonrec t =
      {
      aRN: ARN.t
        [@ocaml.doc
          "Specifies the ARN for the Elasticsearch domain from which you want to delete the specified tags."];
      tagKeys: StringList.t
        [@ocaml.doc
          "Specifies the TagKey list which you want to remove from the Elasticsearch domain."]}
    let context_ = "RemoveTagsRequest"
    let make ~aRN = fun ~tagKeys -> fun () -> { aRN; tagKeys }
    let to_value x =
      structure_to_value
        [("ARN", (Some (ARN.to_value x.aRN)));
        ("TagKeys", (Some (StringList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let aRN = ARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ARN") in
      make ~tagKeys ~aRN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" StringList.of_json in
      let aRN = field_map_exn json__ "ARN" ARN.of_json in
      make ~tagKeys ~aRN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the RemoveTags operation. Specify the ARN for the Elasticsearch domain from which you want to remove the specified TagKey."]
module RejectInboundCrossClusterSearchConnectionResponse =
  struct
    type nonrec t =
      {
      crossClusterSearchConnection:
        InboundCrossClusterSearchConnection.t option
        [@ocaml.doc
          "Specifies the InboundCrossClusterSearchConnection of rejected inbound connection."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossClusterSearchConnection =
      fun () -> { crossClusterSearchConnection }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("CrossClusterSearchConnection",
           (Option.map x.crossClusterSearchConnection
              ~f:InboundCrossClusterSearchConnection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnection =
        (Option.map ~f:InboundCrossClusterSearchConnection.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnection") in
      make ?crossClusterSearchConnection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnection =
        field_map json__ "CrossClusterSearchConnection"
          InboundCrossClusterSearchConnection.of_json in
      make ?crossClusterSearchConnection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a RejectInboundCrossClusterSearchConnection operation. Contains details of rejected inbound connection."]
module RejectInboundCrossClusterSearchConnectionRequest =
  struct
    type nonrec t =
      {
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t
        [@ocaml.doc
          "The id of the inbound connection that you want to reject."]}
    let context_ = "RejectInboundCrossClusterSearchConnectionRequest"
    let make ~crossClusterSearchConnectionId =
      fun () -> { crossClusterSearchConnectionId }
    let to_value x =
      structure_to_value
        [("ConnectionId",
           (Some
              (CrossClusterSearchConnectionId.to_value
                 x.crossClusterSearchConnectionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnectionId =
        CrossClusterSearchConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionId") in
      make ~crossClusterSearchConnectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnectionId =
        field_map_exn json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      make ~crossClusterSearchConnectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the RejectInboundCrossClusterSearchConnection operation."]
module PurchaseReservedElasticsearchInstanceOfferingResponse =
  struct
    type nonrec t =
      {
      reservedElasticsearchInstanceId: GUID.t option
        [@ocaml.doc
          "Details of the reserved Elasticsearch instance which was purchased."];
      reservationName: ReservationToken.t option
        [@ocaml.doc
          "The customer-specified identifier used to track this reservation."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reservedElasticsearchInstanceId =
      fun ?reservationName ->
        fun () -> { reservedElasticsearchInstanceId; reservationName }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.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
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.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
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("ReservedElasticsearchInstanceId",
           (Option.map x.reservedElasticsearchInstanceId ~f:GUID.to_value));
        ("ReservationName",
          (Option.map x.reservationName ~f:ReservationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reservationName =
        (Option.map ~f:ReservationToken.of_xml)
          (Xml.child xml_arg0 "ReservationName") in
      let reservedElasticsearchInstanceId =
        (Option.map ~f:GUID.of_xml)
          (Xml.child xml_arg0 "ReservedElasticsearchInstanceId") in
      make ?reservationName ?reservedElasticsearchInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reservationName =
        field_map json__ "ReservationName" ReservationToken.of_json in
      let reservedElasticsearchInstanceId =
        field_map json__ "ReservedElasticsearchInstanceId" GUID.of_json in
      make ?reservationName ?reservedElasticsearchInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a PurchaseReservedElasticsearchInstanceOffering operation."]
module PurchaseReservedElasticsearchInstanceOfferingRequest =
  struct
    type nonrec t =
      {
      reservedElasticsearchInstanceOfferingId: GUID.t
        [@ocaml.doc
          "The ID of the reserved Elasticsearch instance offering to purchase."];
      reservationName: ReservationToken.t
        [@ocaml.doc
          "A customer-specified identifier to track this reservation."];
      instanceCount: InstanceCount.t option
        [@ocaml.doc "The number of Elasticsearch instances to reserve."]}
    let context_ = "PurchaseReservedElasticsearchInstanceOfferingRequest"
    let make ?instanceCount =
      fun ~reservedElasticsearchInstanceOfferingId ->
        fun ~reservationName ->
          fun () ->
            {
              instanceCount;
              reservedElasticsearchInstanceOfferingId;
              reservationName
            }
    let to_value x =
      structure_to_value
        [("ReservedElasticsearchInstanceOfferingId",
           (Some (GUID.to_value x.reservedElasticsearchInstanceOfferingId)));
        ("ReservationName",
          (Some (ReservationToken.to_value x.reservationName)));
        ("InstanceCount",
          (Option.map x.instanceCount ~f:InstanceCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceCount =
        (Option.map ~f:InstanceCount.of_xml)
          (Xml.child xml_arg0 "InstanceCount") in
      let reservationName =
        ReservationToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReservationName") in
      let reservedElasticsearchInstanceOfferingId =
        GUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ReservedElasticsearchInstanceOfferingId") in
      make ?instanceCount ~reservationName
        ~reservedElasticsearchInstanceOfferingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceCount =
        field_map json__ "InstanceCount" InstanceCount.of_json in
      let reservationName =
        field_map_exn json__ "ReservationName" ReservationToken.of_json in
      let reservedElasticsearchInstanceOfferingId =
        field_map_exn json__ "ReservedElasticsearchInstanceOfferingId"
          GUID.of_json in
      make ?instanceCount ~reservationName
        ~reservedElasticsearchInstanceOfferingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for parameters to PurchaseReservedElasticsearchInstanceOffering"]
module ListVpcEndpointsResponse =
  struct
    type nonrec t =
      {
      vpcEndpointSummaryList: VpcEndpointSummaryList.t option
        [@ocaml.doc "Information about each endpoint."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Provides an identifier to allow retrieval of paginated results."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointSummaryList =
      fun ?nextToken -> fun () -> { vpcEndpointSummaryList; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("VpcEndpointSummaryList",
           (Option.map x.vpcEndpointSummaryList
              ~f:VpcEndpointSummaryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let vpcEndpointSummaryList =
        (Option.map ~f:VpcEndpointSummaryList.of_xml)
          (Xml.child xml_arg0 "VpcEndpointSummaryList") in
      make ?nextToken ?vpcEndpointSummaryList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let vpcEndpointSummaryList =
        field_map json__ "VpcEndpointSummaryList"
          VpcEndpointSummaryList.of_json in
      make ?nextToken ?vpcEndpointSummaryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the ListVpcEndpoints operation. Returns a list containing summarized details of the VPC endpoints."]
module ListVpcEndpointsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc "Identifier to allow retrieval of paginated results."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to the ListVpcEndpoints operation."]
module ListVpcEndpointsForDomainResponse =
  struct
    type nonrec t =
      {
      vpcEndpointSummaryList: VpcEndpointSummaryList.t option
        [@ocaml.doc
          "Provides list of VpcEndpointSummary summarizing details of the VPC endpoints."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Information about each endpoint associated with the domain."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointSummaryList =
      fun ?nextToken -> fun () -> { vpcEndpointSummaryList; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("VpcEndpointSummaryList",
           (Option.map x.vpcEndpointSummaryList
              ~f:VpcEndpointSummaryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let vpcEndpointSummaryList =
        (Option.map ~f:VpcEndpointSummaryList.of_xml)
          (Xml.child xml_arg0 "VpcEndpointSummaryList") in
      make ?nextToken ?vpcEndpointSummaryList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let vpcEndpointSummaryList =
        field_map json__ "VpcEndpointSummaryList"
          VpcEndpointSummaryList.of_json in
      make ?nextToken ?vpcEndpointSummaryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the ListVpcEndpointsForDomain operation. Returns a list containing summarized details of the VPC endpoints."]
module ListVpcEndpointsForDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "Name of the ElasticSearch domain whose VPC endpoints are to be listed."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Provides an identifier to allow retrieval of paginated results."]}
    let context_ = "ListVpcEndpointsForDomainRequest"
    let make ?nextToken =
      fun ~domainName -> fun () -> { nextToken; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?nextToken ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?nextToken ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to the ListVpcEndpointsForDomain operation. Specifies the domain whose VPC endpoints will be listed."]
module ListVpcEndpointAccessResponse =
  struct
    type nonrec t =
      {
      authorizedPrincipalList: AuthorizedPrincipalList.t option
        [@ocaml.doc
          "List of AuthorizedPrincipal describing the details of the permissions to manage VPC endpoints against the specified domain."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Provides an identifier to allow retrieval of paginated results."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?authorizedPrincipalList =
      fun ?nextToken -> fun () -> { authorizedPrincipalList; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("AuthorizedPrincipalList",
           (Option.map x.authorizedPrincipalList
              ~f:AuthorizedPrincipalList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let authorizedPrincipalList =
        (Option.map ~f:AuthorizedPrincipalList.of_xml)
          (Xml.child xml_arg0 "AuthorizedPrincipalList") in
      make ?nextToken ?authorizedPrincipalList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let authorizedPrincipalList =
        field_map json__ "AuthorizedPrincipalList"
          AuthorizedPrincipalList.of_json in
      make ?nextToken ?authorizedPrincipalList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the ListVpcEndpointAccess operation. Returns a list of accounts id and account type authorized to manage VPC endpoints."]
module ListVpcEndpointAccessRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the OpenSearch Service domain to retrieve access information for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Provides an identifier to allow retrieval of paginated results."]}
    let context_ = "ListVpcEndpointAccessRequest"
    let make ?nextToken =
      fun ~domainName -> fun () -> { nextToken; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?nextToken ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?nextToken ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about each principal that is allowed to access a given Amazon OpenSearch Service domain through the use of an interface VPC endpoint"]
module ListTagsResponse =
  struct
    type nonrec t =
      {
      tagList: TagList.t option
        [@ocaml.doc "List of Tag for the requested Elasticsearch domain."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tagList = fun () -> { tagList }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("TagList", (Option.map x.tagList ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      make ?tagList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map json__ "TagList" TagList.of_json in
      make ?tagList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a ListTags operation. Contains tags for all requested Elasticsearch domains."]
module ListTagsRequest =
  struct
    type nonrec t =
      {
      aRN: ARN.t
        [@ocaml.doc
          "Specify the ARN for the Elasticsearch domain to which the tags are attached that you want to view."]}
    let context_ = "ListTagsRequest"
    let make ~aRN = fun () -> { aRN }
    let to_value x =
      structure_to_value [("arn", (Some (ARN.to_value x.aRN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aRN = ARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~aRN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aRN = field_map_exn json__ "ARN" ARN.of_json in make ~aRN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the ListTags operation. Specify the ARN for the Elasticsearch domain to which the tags are attached that you want to view are attached."]
module ListPackagesForDomainResponse =
  struct
    type nonrec t =
      {
      domainPackageDetailsList: DomainPackageDetailsList.t option
        [@ocaml.doc "List of DomainPackageDetails objects."];
      nextToken: String_.t option
        [@ocaml.doc
          "Pagination token that needs to be supplied to the next call to get the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainPackageDetailsList =
      fun ?nextToken -> fun () -> { domainPackageDetailsList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainPackageDetailsList",
           (Option.map x.domainPackageDetailsList
              ~f:DomainPackageDetailsList.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 domainPackageDetailsList =
        (Option.map ~f:DomainPackageDetailsList.of_xml)
          (Xml.child xml_arg0 "DomainPackageDetailsList") in
      make ?nextToken ?domainPackageDetailsList ()
    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 domainPackageDetailsList =
        field_map json__ "DomainPackageDetailsList"
          DomainPackageDetailsList.of_json in
      make ?nextToken ?domainPackageDetailsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to ListPackagesForDomain operation."]
module ListPackagesForDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain for which you want to list associated packages."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Limits results to a maximum number of packages."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Used for pagination. Only necessary if a previous API call includes a non-null NextToken value. If provided, returns results for the next page."]}
    let context_ = "ListPackagesForDomainRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainName -> fun () -> { maxResults; nextToken; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?nextToken ?maxResults ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?nextToken ?maxResults ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to ListPackagesForDomain operation."]
module ListElasticsearchVersionsResponse =
  struct
    type nonrec t =
      {
      elasticsearchVersions: ElasticsearchVersionList.t option ;
      nextToken: NextToken.t option }
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?elasticsearchVersions =
      fun ?nextToken -> fun () -> { elasticsearchVersions; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("ElasticsearchVersions",
           (Option.map x.elasticsearchVersions
              ~f:ElasticsearchVersionList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let elasticsearchVersions =
        (Option.map ~f:ElasticsearchVersionList.of_xml)
          (Xml.child xml_arg0 "ElasticsearchVersions") in
      make ?nextToken ?elasticsearchVersions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let elasticsearchVersions =
        field_map json__ "ElasticsearchVersions"
          ElasticsearchVersionList.of_json in
      make ?nextToken ?elasticsearchVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters for response received from ListElasticsearchVersions operation."]
module ListElasticsearchVersionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. Value provided must be greater than 10 else it wont be honored."];
      nextToken: NextToken.t option }
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the ListElasticsearchVersions operation. Use MaxResults to control the maximum number of results to retrieve in a single call. Use NextToken in response to retrieve more results. If the received response does not contain a NextToken, then there are no more results to retrieve."]
module ListElasticsearchInstanceTypesResponse =
  struct
    type nonrec t =
      {
      elasticsearchInstanceTypes: ElasticsearchInstanceTypeList.t option
        [@ocaml.doc
          "List of instance types supported by Amazon Elasticsearch service for given ElasticsearchVersion"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "In case if there are more results available NextToken would be present, make further request to the same API with received NextToken to paginate remaining results."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?elasticsearchInstanceTypes =
      fun ?nextToken -> fun () -> { elasticsearchInstanceTypes; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("ElasticsearchInstanceTypes",
           (Option.map x.elasticsearchInstanceTypes
              ~f:ElasticsearchInstanceTypeList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let elasticsearchInstanceTypes =
        (Option.map ~f:ElasticsearchInstanceTypeList.of_xml)
          (Xml.child xml_arg0 "ElasticsearchInstanceTypes") in
      make ?nextToken ?elasticsearchInstanceTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let elasticsearchInstanceTypes =
        field_map json__ "ElasticsearchInstanceTypes"
          ElasticsearchInstanceTypeList.of_json in
      make ?nextToken ?elasticsearchInstanceTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters returned by ListElasticsearchInstanceTypes operation."]
module ListElasticsearchInstanceTypesRequest =
  struct
    type nonrec t =
      {
      elasticsearchVersion: ElasticsearchVersionString.t
        [@ocaml.doc
          "Version of Elasticsearch for which list of supported elasticsearch instance types are needed."];
      domainName: DomainName.t option
        [@ocaml.doc
          "DomainName represents the name of the Domain that we are trying to modify. This should be present only if we are querying for list of available Elasticsearch instance types when modifying existing domain."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. Value provided must be greater than 30 else it wont be honored."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination."]}
    let context_ = "ListElasticsearchInstanceTypesRequest"
    let make ?domainName =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~elasticsearchVersion ->
            fun () ->
              { domainName; maxResults; nextToken; elasticsearchVersion }
    let to_value x =
      structure_to_value
        [("ElasticsearchVersion",
           (Some (ElasticsearchVersionString.to_value x.elasticsearchVersion)));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let elasticsearchVersion =
        ElasticsearchVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ElasticsearchVersion") in
      make ?nextToken ?maxResults ?domainName ~elasticsearchVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let elasticsearchVersion =
        field_map_exn json__ "ElasticsearchVersion"
          ElasticsearchVersionString.of_json in
      make ?nextToken ?maxResults ?domainName ~elasticsearchVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the ListElasticsearchInstanceTypes operation."]
module ListDomainsForPackageResponse =
  struct
    type nonrec t =
      {
      domainPackageDetailsList: DomainPackageDetailsList.t option
        [@ocaml.doc "List of DomainPackageDetails objects."];
      nextToken: String_.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainPackageDetailsList =
      fun ?nextToken -> fun () -> { domainPackageDetailsList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainPackageDetailsList",
           (Option.map x.domainPackageDetailsList
              ~f:DomainPackageDetailsList.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 domainPackageDetailsList =
        (Option.map ~f:DomainPackageDetailsList.of_xml)
          (Xml.child xml_arg0 "DomainPackageDetailsList") in
      make ?nextToken ?domainPackageDetailsList ()
    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 domainPackageDetailsList =
        field_map json__ "DomainPackageDetailsList"
          DomainPackageDetailsList.of_json in
      make ?nextToken ?domainPackageDetailsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to ListDomainsForPackage operation."]
module ListDomainsForPackageRequest =
  struct
    type nonrec t =
      {
      packageID: PackageID.t
        [@ocaml.doc "The package for which to list domains."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Limits results to a maximum number of domains."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Used for pagination. Only necessary if a previous API call includes a non-null NextToken value. If provided, returns results for the next page."]}
    let context_ = "ListDomainsForPackageRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~packageID -> fun () -> { maxResults; nextToken; packageID }
    let to_value x =
      structure_to_value
        [("PackageID", (Some (PackageID.to_value x.packageID)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let packageID =
        PackageID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageID") in
      make ?nextToken ?maxResults ~packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let packageID = field_map_exn json__ "PackageID" PackageID.of_json in
      make ?nextToken ?maxResults ~packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to ListDomainsForPackage operation."]
module ListDomainNamesResponse =
  struct
    type nonrec t =
      {
      domainNames: DomainInfoList.t option
        [@ocaml.doc "List of domain names and respective engine types."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainNames = fun () -> { domainNames }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.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
      | "BaseException" -> `BaseException (BaseException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.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
        [("DomainNames",
           (Option.map x.domainNames ~f:DomainInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainNames =
        (Option.map ~f:DomainInfoList.of_xml)
          (Xml.child xml_arg0 "DomainNames") in
      make ?domainNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainNames = field_map json__ "DomainNames" DomainInfoList.of_json in
      make ?domainNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a ListDomainNames operation. Contains the names of all domains owned by this account and their respective engine types."]
module ListDomainNamesRequest =
  struct
    type nonrec t =
      {
      engineType: EngineType.t option
        [@ocaml.doc
          "Optional parameter to filter the output by domain engine type. Acceptable values are 'Elasticsearch' and 'OpenSearch'."]}
    let make ?engineType = fun () -> { engineType }
    let to_value x =
      structure_to_value
        [("engineType", (Option.map x.engineType ~f:EngineType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engineType =
        (Option.map ~f:EngineType.of_xml) (Xml.child xml_arg0 "engineType") in
      make ?engineType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engineType = field_map json__ "EngineType" EngineType.of_json in
      make ?engineType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the ListDomainNames operation."]
module GetUpgradeStatusResponse =
  struct
    type nonrec t =
      {
      upgradeStep: UpgradeStep.t option
        [@ocaml.doc
          "Represents one of 3 steps that an Upgrade or Upgrade Eligibility Check does through: PreUpgradeCheck Snapshot Upgrade"];
      stepStatus: UpgradeStatus.t option
        [@ocaml.doc
          "One of 4 statuses that a step can go through returned as part of the GetUpgradeStatusResponse object. The status can take one of the following values: In Progress Succeeded Succeeded with Issues Failed"];
      upgradeName: UpgradeName.t option
        [@ocaml.doc "A string that describes the update briefly"]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?upgradeStep =
      fun ?stepStatus ->
        fun ?upgradeName ->
          fun () -> { upgradeStep; stepStatus; upgradeName }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("UpgradeStep", (Option.map x.upgradeStep ~f:UpgradeStep.to_value));
        ("StepStatus", (Option.map x.stepStatus ~f:UpgradeStatus.to_value));
        ("UpgradeName", (Option.map x.upgradeName ~f:UpgradeName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let upgradeName =
        (Option.map ~f:UpgradeName.of_xml) (Xml.child xml_arg0 "UpgradeName") in
      let stepStatus =
        (Option.map ~f:UpgradeStatus.of_xml)
          (Xml.child xml_arg0 "StepStatus") in
      let upgradeStep =
        (Option.map ~f:UpgradeStep.of_xml) (Xml.child xml_arg0 "UpgradeStep") in
      make ?upgradeName ?stepStatus ?upgradeStep ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let upgradeName = field_map json__ "UpgradeName" UpgradeName.of_json in
      let stepStatus = field_map json__ "StepStatus" UpgradeStatus.of_json in
      let upgradeStep = field_map json__ "UpgradeStep" UpgradeStep.of_json in
      make ?upgradeName ?stepStatus ?upgradeStep ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by GetUpgradeStatus operation."]
module GetUpgradeStatusRequest =
  struct
    type nonrec t = {
      domainName: DomainName.t }
    let context_ = "GetUpgradeStatusRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to GetUpgradeStatus operation."]
module GetUpgradeHistoryResponse =
  struct
    type nonrec t =
      {
      upgradeHistories: UpgradeHistoryList.t option
        [@ocaml.doc
          "A list of UpgradeHistory objects corresponding to each Upgrade or Upgrade Eligibility Check performed on a domain returned as part of GetUpgradeHistoryResponse object."];
      nextToken: String_.t option
        [@ocaml.doc
          "Pagination token that needs to be supplied to the next call to get the next page of results"]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?upgradeHistories =
      fun ?nextToken -> fun () -> { upgradeHistories; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("UpgradeHistories",
           (Option.map x.upgradeHistories ~f:UpgradeHistoryList.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 upgradeHistories =
        (Option.map ~f:UpgradeHistoryList.of_xml)
          (Xml.child xml_arg0 "UpgradeHistories") in
      make ?nextToken ?upgradeHistories ()
    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 upgradeHistories =
        field_map json__ "UpgradeHistories" UpgradeHistoryList.of_json in
      make ?nextToken ?upgradeHistories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by GetUpgradeHistory operation."]
module GetUpgradeHistoryRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t ;
      maxResults: MaxResults.t option ;
      nextToken: NextToken.t option }
    let context_ = "GetUpgradeHistoryRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainName -> fun () -> { maxResults; nextToken; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?nextToken ?maxResults ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?nextToken ?maxResults ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to GetUpgradeHistory operation."]
module GetPackageVersionHistoryResponse =
  struct
    type nonrec t =
      {
      packageID: PackageID.t option ;
      packageVersionHistoryList: PackageVersionHistoryList.t option
        [@ocaml.doc "List of PackageVersionHistory objects."];
      nextToken: String_.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?packageID =
      fun ?packageVersionHistoryList ->
        fun ?nextToken ->
          fun () -> { packageID; packageVersionHistoryList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("PackageID", (Option.map x.packageID ~f:PackageID.to_value));
        ("PackageVersionHistoryList",
          (Option.map x.packageVersionHistoryList
             ~f:PackageVersionHistoryList.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 packageVersionHistoryList =
        (Option.map ~f:PackageVersionHistoryList.of_xml)
          (Xml.child xml_arg0 "PackageVersionHistoryList") in
      let packageID =
        (Option.map ~f:PackageID.of_xml) (Xml.child xml_arg0 "PackageID") in
      make ?nextToken ?packageVersionHistoryList ?packageID ()
    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 packageVersionHistoryList =
        field_map json__ "PackageVersionHistoryList"
          PackageVersionHistoryList.of_json in
      let packageID = field_map json__ "PackageID" PackageID.of_json in
      make ?nextToken ?packageVersionHistoryList ?packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by GetPackageVersionHistory operation."]
module GetPackageVersionHistoryRequest =
  struct
    type nonrec t =
      {
      packageID: PackageID.t
        [@ocaml.doc "Returns an audit history of versions of the package."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Limits results to a maximum number of versions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Used for pagination. Only necessary if a previous API call includes a non-null NextToken value. If provided, returns results for the next page."]}
    let context_ = "GetPackageVersionHistoryRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~packageID -> fun () -> { maxResults; nextToken; packageID }
    let to_value x =
      structure_to_value
        [("PackageID", (Some (PackageID.to_value x.packageID)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let packageID =
        PackageID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageID") in
      make ?nextToken ?maxResults ~packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let packageID = field_map_exn json__ "PackageID" PackageID.of_json in
      make ?nextToken ?maxResults ~packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to GetPackageVersionHistory operation."]
module GetCompatibleElasticsearchVersionsResponse =
  struct
    type nonrec t =
      {
      compatibleElasticsearchVersions:
        CompatibleElasticsearchVersionsList.t option
        [@ocaml.doc
          "A map of compatible Elasticsearch versions returned as part of the GetCompatibleElasticsearchVersions operation."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?compatibleElasticsearchVersions =
      fun () -> { compatibleElasticsearchVersions }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("CompatibleElasticsearchVersions",
           (Option.map x.compatibleElasticsearchVersions
              ~f:CompatibleElasticsearchVersionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compatibleElasticsearchVersions =
        (Option.map ~f:CompatibleElasticsearchVersionsList.of_xml)
          (Xml.child xml_arg0 "CompatibleElasticsearchVersions") in
      make ?compatibleElasticsearchVersions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compatibleElasticsearchVersions =
        field_map json__ "CompatibleElasticsearchVersions"
          CompatibleElasticsearchVersionsList.of_json in
      make ?compatibleElasticsearchVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by GetCompatibleElasticsearchVersions operation."]
module GetCompatibleElasticsearchVersionsRequest =
  struct
    type nonrec t = {
      domainName: DomainName.t option }
    let make ?domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to GetCompatibleElasticsearchVersions operation."]
module DissociatePackageResponse =
  struct
    type nonrec t =
      {
      domainPackageDetails: DomainPackageDetails.t option
        [@ocaml.doc "DomainPackageDetails"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `ConflictException of ConflictException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainPackageDetails = fun () -> { domainPackageDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainPackageDetails",
           (Option.map x.domainPackageDetails
              ~f:DomainPackageDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainPackageDetails =
        (Option.map ~f:DomainPackageDetails.of_xml)
          (Xml.child xml_arg0 "DomainPackageDetails") in
      make ?domainPackageDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainPackageDetails =
        field_map json__ "DomainPackageDetails" DomainPackageDetails.of_json in
      make ?domainPackageDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by DissociatePackage operation."]
module DissociatePackageRequest =
  struct
    type nonrec t =
      {
      packageID: PackageID.t
        [@ocaml.doc
          "Internal ID of the package that you want to associate with a domain. Use DescribePackages to find this value."];
      domainName: DomainName.t
        [@ocaml.doc
          "Name of the domain that you want to associate the package with."]}
    let context_ = "DissociatePackageRequest"
    let make ~packageID =
      fun ~domainName -> fun () -> { packageID; domainName }
    let to_value x =
      structure_to_value
        [("PackageID", (Some (PackageID.to_value x.packageID)));
        ("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      let packageID =
        PackageID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageID") in
      make ~domainName ~packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      let packageID = field_map_exn json__ "PackageID" PackageID.of_json in
      make ~domainName ~packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to DissociatePackage operation."]
module DescribeVpcEndpointsResponse =
  struct
    type nonrec t =
      {
      vpcEndpoints: VpcEndpoints.t option
        [@ocaml.doc "Information about each requested VPC endpoint."];
      vpcEndpointErrors: VpcEndpointErrorList.t option
        [@ocaml.doc "Any errors associated with the request."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpoints =
      fun ?vpcEndpointErrors -> fun () -> { vpcEndpoints; vpcEndpointErrors }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("VpcEndpoints",
           (Option.map x.vpcEndpoints ~f:VpcEndpoints.to_value));
        ("VpcEndpointErrors",
          (Option.map x.vpcEndpointErrors ~f:VpcEndpointErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointErrors =
        (Option.map ~f:VpcEndpointErrorList.of_xml)
          (Xml.child xml_arg0 "VpcEndpointErrors") in
      let vpcEndpoints =
        (Option.map ~f:VpcEndpoints.of_xml)
          (Xml.child xml_arg0 "VpcEndpoints") in
      make ?vpcEndpointErrors ?vpcEndpoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointErrors =
        field_map json__ "VpcEndpointErrors" VpcEndpointErrorList.of_json in
      let vpcEndpoints = field_map json__ "VpcEndpoints" VpcEndpoints.of_json in
      make ?vpcEndpointErrors ?vpcEndpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the DescribeVpcEndpoints operation. Returns a list containing configuration details and status of the VPC Endpoints as well as a list containing error responses of the endpoints that could not be described"]
module DescribeVpcEndpointsRequest =
  struct
    type nonrec t =
      {
      vpcEndpointIds: VpcEndpointIdList.t
        [@ocaml.doc
          "The unique identifiers of the endpoints to get information about."]}
    let context_ = "DescribeVpcEndpointsRequest"
    let make ~vpcEndpointIds = fun () -> { vpcEndpointIds }
    let to_value x =
      structure_to_value
        [("VpcEndpointIds",
           (Some (VpcEndpointIdList.to_value x.vpcEndpointIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointIds =
        VpcEndpointIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcEndpointIds") in
      make ~vpcEndpointIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointIds =
        field_map_exn json__ "VpcEndpointIds" VpcEndpointIdList.of_json in
      make ~vpcEndpointIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to the DescribeVpcEndpoints operation. Specifies the list of VPC endpoints to be described."]
module DescribeReservedElasticsearchInstancesResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "Provides an identifier to allow retrieval of paginated results."];
      reservedElasticsearchInstances:
        ReservedElasticsearchInstanceList.t option
        [@ocaml.doc "List of reserved Elasticsearch instances."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?reservedElasticsearchInstances ->
        fun () -> { nextToken; reservedElasticsearchInstances }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("ReservedElasticsearchInstances",
          (Option.map x.reservedElasticsearchInstances
             ~f:ReservedElasticsearchInstanceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reservedElasticsearchInstances =
        (Option.map ~f:ReservedElasticsearchInstanceList.of_xml)
          (Xml.child xml_arg0 "ReservedElasticsearchInstances") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?reservedElasticsearchInstances ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reservedElasticsearchInstances =
        field_map json__ "ReservedElasticsearchInstances"
          ReservedElasticsearchInstanceList.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?reservedElasticsearchInstances ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for results from DescribeReservedElasticsearchInstances"]
module DescribeReservedElasticsearchInstancesRequest =
  struct
    type nonrec t =
      {
      reservedElasticsearchInstanceId: GUID.t option
        [@ocaml.doc
          "The reserved instance identifier filter value. Use this parameter to show only the reservation that matches the specified reserved Elasticsearch instance ID."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. If not specified, defaults to 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination."]}
    let make ?reservedElasticsearchInstanceId =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () ->
            { reservedElasticsearchInstanceId; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("reservationId",
           (Option.map x.reservedElasticsearchInstanceId ~f:GUID.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let reservedElasticsearchInstanceId =
        (Option.map ~f:GUID.of_xml) (Xml.child xml_arg0 "reservationId") in
      make ?nextToken ?maxResults ?reservedElasticsearchInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let reservedElasticsearchInstanceId =
        field_map json__ "ReservedElasticsearchInstanceId" GUID.of_json in
      make ?nextToken ?maxResults ?reservedElasticsearchInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for parameters to DescribeReservedElasticsearchInstances"]
module DescribeReservedElasticsearchInstanceOfferingsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Provides an identifier to allow retrieval of paginated results."];
      reservedElasticsearchInstanceOfferings:
        ReservedElasticsearchInstanceOfferingList.t option
        [@ocaml.doc "List of reserved Elasticsearch instance offerings"]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?reservedElasticsearchInstanceOfferings ->
        fun () -> { nextToken; reservedElasticsearchInstanceOfferings }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ReservedElasticsearchInstanceOfferings",
          (Option.map x.reservedElasticsearchInstanceOfferings
             ~f:ReservedElasticsearchInstanceOfferingList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reservedElasticsearchInstanceOfferings =
        (Option.map ~f:ReservedElasticsearchInstanceOfferingList.of_xml)
          (Xml.child xml_arg0 "ReservedElasticsearchInstanceOfferings") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?reservedElasticsearchInstanceOfferings ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reservedElasticsearchInstanceOfferings =
        field_map json__ "ReservedElasticsearchInstanceOfferings"
          ReservedElasticsearchInstanceOfferingList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?reservedElasticsearchInstanceOfferings ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for results from DescribeReservedElasticsearchInstanceOfferings"]
module DescribeReservedElasticsearchInstanceOfferingsRequest =
  struct
    type nonrec t =
      {
      reservedElasticsearchInstanceOfferingId: GUID.t option
        [@ocaml.doc
          "The offering identifier filter value. Use this parameter to show only the available offering that matches the specified reservation identifier."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. If not specified, defaults to 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination."]}
    let make ?reservedElasticsearchInstanceOfferingId =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () ->
            { reservedElasticsearchInstanceOfferingId; maxResults; nextToken
            }
    let to_value x =
      structure_to_value
        [("offeringId",
           (Option.map x.reservedElasticsearchInstanceOfferingId
              ~f:GUID.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let reservedElasticsearchInstanceOfferingId =
        (Option.map ~f:GUID.of_xml) (Xml.child xml_arg0 "offeringId") in
      make ?nextToken ?maxResults ?reservedElasticsearchInstanceOfferingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let reservedElasticsearchInstanceOfferingId =
        field_map json__ "ReservedElasticsearchInstanceOfferingId"
          GUID.of_json in
      make ?nextToken ?maxResults ?reservedElasticsearchInstanceOfferingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for parameters to DescribeReservedElasticsearchInstanceOfferings"]
module DescribePackagesResponse =
  struct
    type nonrec t =
      {
      packageDetailsList: PackageDetailsList.t option
        [@ocaml.doc "List of PackageDetails objects."];
      nextToken: String_.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?packageDetailsList =
      fun ?nextToken -> fun () -> { packageDetailsList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("PackageDetailsList",
           (Option.map x.packageDetailsList ~f:PackageDetailsList.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 packageDetailsList =
        (Option.map ~f:PackageDetailsList.of_xml)
          (Xml.child xml_arg0 "PackageDetailsList") in
      make ?nextToken ?packageDetailsList ()
    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 packageDetailsList =
        field_map json__ "PackageDetailsList" PackageDetailsList.of_json in
      make ?nextToken ?packageDetailsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by DescribePackages operation."]
module DescribePackagesRequest =
  struct
    type nonrec t =
      {
      filters: DescribePackagesFilterList.t option
        [@ocaml.doc
          "Only returns packages that match the DescribePackagesFilterList values."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Limits results to a maximum number of packages."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Used for pagination. Only necessary if a previous API call includes a non-null NextToken value. If provided, returns results for the next page."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("Filters",
           (Option.map x.filters ~f:DescribePackagesFilterList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:DescribePackagesFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let filters =
        field_map json__ "Filters" DescribePackagesFilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to DescribePackage operation."]
module DescribeOutboundCrossClusterSearchConnectionsResponse =
  struct
    type nonrec t =
      {
      crossClusterSearchConnections:
        OutboundCrossClusterSearchConnections.t option
        [@ocaml.doc
          "Consists of list of OutboundCrossClusterSearchConnection matching the specified filter criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more results are available and NextToken is present, make the next request to the same API with the received NextToken to paginate the remaining results."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossClusterSearchConnections =
      fun ?nextToken ->
        fun () -> { crossClusterSearchConnections; nextToken }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.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
        [("CrossClusterSearchConnections",
           (Option.map x.crossClusterSearchConnections
              ~f:OutboundCrossClusterSearchConnections.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let crossClusterSearchConnections =
        (Option.map ~f:OutboundCrossClusterSearchConnections.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnections") in
      make ?nextToken ?crossClusterSearchConnections ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let crossClusterSearchConnections =
        field_map json__ "CrossClusterSearchConnections"
          OutboundCrossClusterSearchConnections.of_json in
      make ?nextToken ?crossClusterSearchConnections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DescribeOutboundCrossClusterSearchConnections request. Contains the list of connections matching the filter criteria."]
module DescribeOutboundCrossClusterSearchConnectionsRequest =
  struct
    type nonrec t =
      {
      filters: FilterList.t option
        [@ocaml.doc
          "A list of filters used to match properties for outbound cross-cluster search connection. Available Filter names for this operation are: cross-cluster-search-connection-id destination-domain-info.domain-name destination-domain-info.owner-id destination-domain-info.region source-domain-info.domain-name"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. If not specified, defaults to 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "NextToken is sent in case the earlier API call results contain the NextToken. It is used for pagination."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeOutboundCrossClusterSearchConnections operation."]
module DescribeInboundCrossClusterSearchConnectionsResponse =
  struct
    type nonrec t =
      {
      crossClusterSearchConnections:
        InboundCrossClusterSearchConnections.t option
        [@ocaml.doc
          "Consists of list of InboundCrossClusterSearchConnection matching the specified filter criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If more results are available and NextToken is present, make the next request to the same API with the received NextToken to paginate the remaining results."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossClusterSearchConnections =
      fun ?nextToken ->
        fun () -> { crossClusterSearchConnections; nextToken }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.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
        [("CrossClusterSearchConnections",
           (Option.map x.crossClusterSearchConnections
              ~f:InboundCrossClusterSearchConnections.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let crossClusterSearchConnections =
        (Option.map ~f:InboundCrossClusterSearchConnections.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnections") in
      make ?nextToken ?crossClusterSearchConnections ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let crossClusterSearchConnections =
        field_map json__ "CrossClusterSearchConnections"
          InboundCrossClusterSearchConnections.of_json in
      make ?nextToken ?crossClusterSearchConnections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DescribeInboundCrossClusterSearchConnections request. Contains the list of connections matching the filter criteria."]
module DescribeInboundCrossClusterSearchConnectionsRequest =
  struct
    type nonrec t =
      {
      filters: FilterList.t option
        [@ocaml.doc
          "A list of filters used to match properties for inbound cross-cluster search connection. Available Filter names for this operation are: cross-cluster-search-connection-id source-domain-info.domain-name source-domain-info.owner-id source-domain-info.region destination-domain-info.domain-name"];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. If not specified, defaults to 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "NextToken is sent in case the earlier API call results contain the NextToken. It is used for pagination."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeInboundCrossClusterSearchConnections operation."]
module DescribeElasticsearchInstanceTypeLimitsResponse =
  struct
    type nonrec t = {
      limitsByRole: LimitsByRole.t option }
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `InvalidTypeException of InvalidTypeException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?limitsByRole = fun () -> { limitsByRole }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidTypeException e ->
          `Assoc
            [("error", (`String "InvalidTypeException"));
            ("details", (InvalidTypeException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("LimitsByRole",
           (Option.map x.limitsByRole ~f:LimitsByRole.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limitsByRole =
        (Option.map ~f:LimitsByRole.of_xml)
          (Xml.child xml_arg0 "LimitsByRole") in
      make ?limitsByRole ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limitsByRole = field_map json__ "LimitsByRole" LimitsByRole.of_json in
      make ?limitsByRole ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters received from DescribeElasticsearchInstanceTypeLimits operation."]
module DescribeElasticsearchInstanceTypeLimitsRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "DomainName represents the name of the Domain that we are trying to modify. This should be present only if we are querying for Elasticsearch Limits for existing domain."];
      instanceType: ESPartitionInstanceType.t
        [@ocaml.doc
          "The instance type for an Elasticsearch cluster for which Elasticsearch Limits are needed."];
      elasticsearchVersion: ElasticsearchVersionString.t
        [@ocaml.doc "Version of Elasticsearch for which Limits are needed."]}
    let context_ = "DescribeElasticsearchInstanceTypeLimitsRequest"
    let make ?domainName =
      fun ~instanceType ->
        fun ~elasticsearchVersion ->
          fun () -> { domainName; instanceType; elasticsearchVersion }
    let to_value x =
      structure_to_value
        [("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("InstanceType",
          (Some (ESPartitionInstanceType.to_value x.instanceType)));
        ("ElasticsearchVersion",
          (Some (ElasticsearchVersionString.to_value x.elasticsearchVersion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let elasticsearchVersion =
        ElasticsearchVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ElasticsearchVersion") in
      let instanceType =
        ESPartitionInstanceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceType") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      make ~elasticsearchVersion ~instanceType ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let elasticsearchVersion =
        field_map_exn json__ "ElasticsearchVersion"
          ElasticsearchVersionString.of_json in
      let instanceType =
        field_map_exn json__ "InstanceType" ESPartitionInstanceType.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ~elasticsearchVersion ~instanceType ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to DescribeElasticsearchInstanceTypeLimits operation."]
module DescribeElasticsearchDomainsResponse =
  struct
    type nonrec t =
      {
      domainStatusList: ElasticsearchDomainStatusList.t option
        [@ocaml.doc
          "The status of the domains requested in the DescribeElasticsearchDomains request."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainStatusList = fun () -> { domainStatusList }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainStatusList",
           (Option.map x.domainStatusList
              ~f:ElasticsearchDomainStatusList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainStatusList =
        (Option.map ~f:ElasticsearchDomainStatusList.of_xml)
          (Xml.child xml_arg0 "DomainStatusList") in
      make ?domainStatusList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainStatusList =
        field_map json__ "DomainStatusList"
          ElasticsearchDomainStatusList.of_json in
      make ?domainStatusList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DescribeElasticsearchDomains request. Contains the status of the specified domains or all domains owned by the account."]
module DescribeElasticsearchDomainsRequest =
  struct
    type nonrec t =
      {
      domainNames: DomainNameList.t
        [@ocaml.doc
          "The Elasticsearch domains for which you want information."]}
    let context_ = "DescribeElasticsearchDomainsRequest"
    let make ~domainNames = fun () -> { domainNames }
    let to_value x =
      structure_to_value
        [("DomainNames", (Some (DomainNameList.to_value x.domainNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainNames =
        DomainNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainNames") in
      make ~domainNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainNames =
        field_map_exn json__ "DomainNames" DomainNameList.of_json in
      make ~domainNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeElasticsearchDomains operation. By default, the API returns the status of all Elasticsearch domains."]
module DescribeElasticsearchDomainResponse =
  struct
    type nonrec t =
      {
      domainStatus: ElasticsearchDomainStatus.t option
        [@ocaml.doc "The current status of the Elasticsearch domain."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainStatus = fun () -> { domainStatus }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainStatus",
           (Option.map x.domainStatus ~f:ElasticsearchDomainStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainStatus =
        (Option.map ~f:ElasticsearchDomainStatus.of_xml)
          (Xml.child xml_arg0 "DomainStatus") in
      make ?domainStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainStatus =
        field_map json__ "DomainStatus" ElasticsearchDomainStatus.of_json in
      make ?domainStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DescribeElasticsearchDomain request. Contains the status of the domain specified in the request."]
module DescribeElasticsearchDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the Elasticsearch domain for which you want information."]}
    let context_ = "DescribeElasticsearchDomainRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeElasticsearchDomain operation."]
module DescribeElasticsearchDomainConfigResponse =
  struct
    type nonrec t =
      {
      domainConfig: ElasticsearchDomainConfig.t option
        [@ocaml.doc
          "The configuration information of the domain requested in the DescribeElasticsearchDomainConfig request."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainConfig = fun () -> { domainConfig }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainConfig",
           (Option.map x.domainConfig ~f:ElasticsearchDomainConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainConfig =
        (Option.map ~f:ElasticsearchDomainConfig.of_xml)
          (Xml.child xml_arg0 "DomainConfig") in
      make ?domainConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainConfig =
        field_map json__ "DomainConfig" ElasticsearchDomainConfig.of_json in
      make ?domainConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DescribeElasticsearchDomainConfig request. Contains the configuration information of the requested domain."]
module DescribeElasticsearchDomainConfigRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The Elasticsearch domain that you want to get information about."]}
    let context_ = "DescribeElasticsearchDomainConfigRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeElasticsearchDomainConfig operation. Specifies the domain name for which you want configuration information."]
module DescribeDomainChangeProgressResponse =
  struct
    type nonrec t =
      {
      changeProgressStatus: ChangeProgressStatusDetails.t option
        [@ocaml.doc
          "Progress information for the configuration change that is requested in the DescribeDomainChangeProgress request."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?changeProgressStatus = fun () -> { changeProgressStatus }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("ChangeProgressStatus",
           (Option.map x.changeProgressStatus
              ~f:ChangeProgressStatusDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changeProgressStatus =
        (Option.map ~f:ChangeProgressStatusDetails.of_xml)
          (Xml.child xml_arg0 "ChangeProgressStatus") in
      make ?changeProgressStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changeProgressStatus =
        field_map json__ "ChangeProgressStatus"
          ChangeProgressStatusDetails.of_json in
      make ?changeProgressStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DescribeDomainChangeProgress request. Contains the progress information of the requested domain change."]
module DescribeDomainChangeProgressRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The domain you want to get the progress information about."];
      changeId: GUID.t option
        [@ocaml.doc
          "The specific change ID for which you want to get progress information. This is an optional parameter. If omitted, the service returns information about the most recent configuration change."]}
    let context_ = "DescribeDomainChangeProgressRequest"
    let make ?changeId =
      fun ~domainName -> fun () -> { changeId; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("changeid", (Option.map x.changeId ~f:GUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changeId =
        (Option.map ~f:GUID.of_xml) (Xml.child xml_arg0 "changeid") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?changeId ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changeId = field_map json__ "ChangeId" GUID.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?changeId ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeDomainChangeProgress operation. Specifies the domain name and optional change specific identity for which you want progress information."]
module DescribeDomainAutoTunesResponse =
  struct
    type nonrec t =
      {
      autoTunes: AutoTuneList.t option
        [@ocaml.doc
          "Specifies the list of setting adjustments that Auto-Tune has made to the domain. See the Developer Guide for more information."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies an identifier to allow retrieval of paginated results."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?autoTunes =
      fun ?nextToken -> fun () -> { autoTunes; nextToken }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("AutoTunes", (Option.map x.autoTunes ~f:AutoTuneList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let autoTunes =
        (Option.map ~f:AutoTuneList.of_xml) (Xml.child xml_arg0 "AutoTunes") in
      make ?nextToken ?autoTunes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let autoTunes = field_map json__ "AutoTunes" AutoTuneList.of_json in
      make ?nextToken ?autoTunes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of DescribeDomainAutoTunes request. See the Developer Guide for more information."]
module DescribeDomainAutoTunesRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "Specifies the domain name for which you want Auto-Tune action details."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Set this value to limit the number of results returned. If not specified, defaults to 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "NextToken is sent in case the earlier API call results contain the NextToken. It is used for pagination."]}
    let context_ = "DescribeDomainAutoTunesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainName -> fun () -> { maxResults; nextToken; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?nextToken ?maxResults ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?nextToken ?maxResults ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DescribeDomainAutoTunes operation."]
module DeleteVpcEndpointResponse =
  struct
    type nonrec t =
      {
      vpcEndpointSummary: VpcEndpointSummary.t option
        [@ocaml.doc
          "Information about the deleted endpoint, including its current status (DELETING or DELETE_FAILED)."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpointSummary = fun () -> { vpcEndpointSummary }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("VpcEndpointSummary",
           (Option.map x.vpcEndpointSummary ~f:VpcEndpointSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointSummary =
        (Option.map ~f:VpcEndpointSummary.of_xml)
          (Xml.child xml_arg0 "VpcEndpointSummary") in
      make ?vpcEndpointSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointSummary =
        field_map json__ "VpcEndpointSummary" VpcEndpointSummary.of_json in
      make ?vpcEndpointSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the DeleteVpcEndpoint operation. Contains the summarized detail of the VPC Endpoint being deleted."]
module DeleteVpcEndpointRequest =
  struct
    type nonrec t =
      {
      vpcEndpointId: VpcEndpointId.t
        [@ocaml.doc "The unique identifier of the endpoint to be deleted."]}
    let context_ = "DeleteVpcEndpointRequest"
    let make ~vpcEndpointId = fun () -> { vpcEndpointId }
    let to_value x =
      structure_to_value
        [("VpcEndpointId", (Some (VpcEndpointId.to_value x.vpcEndpointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        VpcEndpointId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcEndpointId") in
      make ~vpcEndpointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map_exn json__ "VpcEndpointId" VpcEndpointId.of_json in
      make ~vpcEndpointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an Amazon OpenSearch Service-managed interface VPC endpoint."]
module DeletePackageResponse =
  struct
    type nonrec t =
      {
      packageDetails: PackageDetails.t option [@ocaml.doc "PackageDetails"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `ConflictException of ConflictException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?packageDetails = fun () -> { packageDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("PackageDetails",
           (Option.map x.packageDetails ~f:PackageDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packageDetails =
        (Option.map ~f:PackageDetails.of_xml)
          (Xml.child xml_arg0 "PackageDetails") in
      make ?packageDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packageDetails =
        field_map json__ "PackageDetails" PackageDetails.of_json in
      make ?packageDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to DeletePackage operation."]
module DeletePackageRequest =
  struct
    type nonrec t =
      {
      packageID: PackageID.t
        [@ocaml.doc
          "Internal ID of the package that you want to delete. Use DescribePackages to find this value."]}
    let context_ = "DeletePackageRequest"
    let make ~packageID = fun () -> { packageID }
    let to_value x =
      structure_to_value
        [("PackageID", (Some (PackageID.to_value x.packageID)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packageID =
        PackageID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageID") in
      make ~packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packageID = field_map_exn json__ "PackageID" PackageID.of_json in
      make ~packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to DeletePackage operation."]
module DeleteOutboundCrossClusterSearchConnectionResponse =
  struct
    type nonrec t =
      {
      crossClusterSearchConnection:
        OutboundCrossClusterSearchConnection.t option
        [@ocaml.doc
          "Specifies the OutboundCrossClusterSearchConnection of deleted outbound connection."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossClusterSearchConnection =
      fun () -> { crossClusterSearchConnection }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("CrossClusterSearchConnection",
           (Option.map x.crossClusterSearchConnection
              ~f:OutboundCrossClusterSearchConnection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnection =
        (Option.map ~f:OutboundCrossClusterSearchConnection.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnection") in
      make ?crossClusterSearchConnection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnection =
        field_map json__ "CrossClusterSearchConnection"
          OutboundCrossClusterSearchConnection.of_json in
      make ?crossClusterSearchConnection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DeleteOutboundCrossClusterSearchConnection operation. Contains details of deleted outbound connection."]
module DeleteOutboundCrossClusterSearchConnectionRequest =
  struct
    type nonrec t =
      {
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t
        [@ocaml.doc
          "The id of the outbound connection that you want to permanently delete."]}
    let context_ = "DeleteOutboundCrossClusterSearchConnectionRequest"
    let make ~crossClusterSearchConnectionId =
      fun () -> { crossClusterSearchConnectionId }
    let to_value x =
      structure_to_value
        [("ConnectionId",
           (Some
              (CrossClusterSearchConnectionId.to_value
                 x.crossClusterSearchConnectionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnectionId =
        CrossClusterSearchConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionId") in
      make ~crossClusterSearchConnectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnectionId =
        field_map_exn json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      make ~crossClusterSearchConnectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DeleteOutboundCrossClusterSearchConnection operation."]
module DeleteInboundCrossClusterSearchConnectionResponse =
  struct
    type nonrec t =
      {
      crossClusterSearchConnection:
        InboundCrossClusterSearchConnection.t option
        [@ocaml.doc
          "Specifies the InboundCrossClusterSearchConnection of deleted inbound connection."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossClusterSearchConnection =
      fun () -> { crossClusterSearchConnection }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("CrossClusterSearchConnection",
           (Option.map x.crossClusterSearchConnection
              ~f:InboundCrossClusterSearchConnection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnection =
        (Option.map ~f:InboundCrossClusterSearchConnection.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnection") in
      make ?crossClusterSearchConnection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnection =
        field_map json__ "CrossClusterSearchConnection"
          InboundCrossClusterSearchConnection.of_json in
      make ?crossClusterSearchConnection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DeleteInboundCrossClusterSearchConnection operation. Contains details of deleted inbound connection."]
module DeleteInboundCrossClusterSearchConnectionRequest =
  struct
    type nonrec t =
      {
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t
        [@ocaml.doc
          "The id of the inbound connection that you want to permanently delete."]}
    let context_ = "DeleteInboundCrossClusterSearchConnectionRequest"
    let make ~crossClusterSearchConnectionId =
      fun () -> { crossClusterSearchConnectionId }
    let to_value x =
      structure_to_value
        [("ConnectionId",
           (Some
              (CrossClusterSearchConnectionId.to_value
                 x.crossClusterSearchConnectionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnectionId =
        CrossClusterSearchConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionId") in
      make ~crossClusterSearchConnectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnectionId =
        field_map_exn json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      make ~crossClusterSearchConnectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DeleteInboundCrossClusterSearchConnection operation."]
module DeleteElasticsearchDomainResponse =
  struct
    type nonrec t =
      {
      domainStatus: ElasticsearchDomainStatus.t option
        [@ocaml.doc "The status of the Elasticsearch domain being deleted."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainStatus = fun () -> { domainStatus }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainStatus",
           (Option.map x.domainStatus ~f:ElasticsearchDomainStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainStatus =
        (Option.map ~f:ElasticsearchDomainStatus.of_xml)
          (Xml.child xml_arg0 "DomainStatus") in
      make ?domainStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainStatus =
        field_map json__ "DomainStatus" ElasticsearchDomainStatus.of_json in
      make ?domainStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a DeleteElasticsearchDomain request. Contains the status of the pending deletion, or no status if the domain and all of its resources have been deleted."]
module DeleteElasticsearchDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the Elasticsearch domain that you want to permanently delete."]}
    let context_ = "DeleteElasticsearchDomainRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the DeleteElasticsearchDomain operation. Specifies the name of the Elasticsearch domain that you want to delete."]
module CreateVpcEndpointResponse =
  struct
    type nonrec t =
      {
      vpcEndpoint: VpcEndpoint.t option
        [@ocaml.doc "Information about the newly created VPC endpoint."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `ConflictException of ConflictException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcEndpoint = fun () -> { vpcEndpoint }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("VpcEndpoint", (Option.map x.vpcEndpoint ~f:VpcEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpoint =
        (Option.map ~f:VpcEndpoint.of_xml) (Xml.child xml_arg0 "VpcEndpoint") in
      make ?vpcEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpoint = field_map json__ "VpcEndpoint" VpcEndpoint.of_json in
      make ?vpcEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the CreateVpcEndpoint operation. Contains the configuration and status of the VPC Endpoint being created."]
module CreateVpcEndpointRequest =
  struct
    type nonrec t =
      {
      domainArn: DomainArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the domain to grant access to."];
      vpcOptions: VPCOptions.t
        [@ocaml.doc
          "Options to specify the subnets and security groups for the endpoint."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "CreateVpcEndpointRequest"
    let make ?clientToken =
      fun ~domainArn ->
        fun ~vpcOptions -> fun () -> { clientToken; domainArn; vpcOptions }
    let to_value x =
      structure_to_value
        [("DomainArn", (Some (DomainArn.to_value x.domainArn)));
        ("VpcOptions", (Some (VPCOptions.to_value x.vpcOptions)));
        ("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 vpcOptions =
        VPCOptions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcOptions") in
      let domainArn =
        DomainArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainArn") in
      make ?clientToken ~vpcOptions ~domainArn ()
    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 vpcOptions = field_map_exn json__ "VpcOptions" VPCOptions.of_json in
      let domainArn = field_map_exn json__ "DomainArn" DomainArn.of_json in
      make ?clientToken ~vpcOptions ~domainArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the CreateVpcEndpointRequest operation."]
module CreatePackageResponse =
  struct
    type nonrec t =
      {
      packageDetails: PackageDetails.t option
        [@ocaml.doc "Information about the package PackageDetails."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `InvalidTypeException of InvalidTypeException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?packageDetails = fun () -> { packageDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidTypeException e ->
          `Assoc
            [("error", (`String "InvalidTypeException"));
            ("details", (InvalidTypeException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("PackageDetails",
           (Option.map x.packageDetails ~f:PackageDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packageDetails =
        (Option.map ~f:PackageDetails.of_xml)
          (Xml.child xml_arg0 "PackageDetails") in
      make ?packageDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packageDetails =
        field_map json__ "PackageDetails" PackageDetails.of_json in
      make ?packageDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by CreatePackage operation."]
module CreatePackageRequest =
  struct
    type nonrec t =
      {
      packageName: PackageName.t
        [@ocaml.doc "Unique identifier for the package."];
      packageType: PackageType.t
        [@ocaml.doc
          "Type of package. Currently supports only TXT-DICTIONARY."];
      packageDescription: PackageDescription.t option
        [@ocaml.doc "Description of the package."];
      packageSource: PackageSource.t
        [@ocaml.doc
          "The customer S3 location PackageSource for importing the package."]}
    let context_ = "CreatePackageRequest"
    let make ?packageDescription =
      fun ~packageName ->
        fun ~packageType ->
          fun ~packageSource ->
            fun () ->
              { packageDescription; packageName; packageType; packageSource }
    let to_value x =
      structure_to_value
        [("PackageName", (Some (PackageName.to_value x.packageName)));
        ("PackageType", (Some (PackageType.to_value x.packageType)));
        ("PackageDescription",
          (Option.map x.packageDescription ~f:PackageDescription.to_value));
        ("PackageSource", (Some (PackageSource.to_value x.packageSource)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let packageSource =
        PackageSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageSource") in
      let packageDescription =
        (Option.map ~f:PackageDescription.of_xml)
          (Xml.child xml_arg0 "PackageDescription") in
      let packageType =
        PackageType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageType") in
      let packageName =
        PackageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageName") in
      make ~packageSource ?packageDescription ~packageType ~packageName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let packageSource =
        field_map_exn json__ "PackageSource" PackageSource.of_json in
      let packageDescription =
        field_map json__ "PackageDescription" PackageDescription.of_json in
      let packageType =
        field_map_exn json__ "PackageType" PackageType.of_json in
      let packageName =
        field_map_exn json__ "PackageName" PackageName.of_json in
      make ~packageSource ?packageDescription ~packageType ~packageName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to CreatePackage operation."]
module CreateOutboundCrossClusterSearchConnectionResponse =
  struct
    type nonrec t =
      {
      sourceDomainInfo: DomainInformation.t option
        [@ocaml.doc
          "Specifies the DomainInformation for the source Elasticsearch domain."];
      destinationDomainInfo: DomainInformation.t option
        [@ocaml.doc
          "Specifies the DomainInformation for the destination Elasticsearch domain."];
      connectionAlias: ConnectionAlias.t option
        [@ocaml.doc
          "Specifies the connection alias provided during the create connection request."];
      connectionStatus: OutboundCrossClusterSearchConnectionStatus.t option
        [@ocaml.doc
          "Specifies the OutboundCrossClusterSearchConnectionStatus for the newly created connection."];
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t option
        [@ocaml.doc
          "Unique id for the created outbound connection, which is used for subsequent operations on connection."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sourceDomainInfo =
      fun ?destinationDomainInfo ->
        fun ?connectionAlias ->
          fun ?connectionStatus ->
            fun ?crossClusterSearchConnectionId ->
              fun () ->
                {
                  sourceDomainInfo;
                  destinationDomainInfo;
                  connectionAlias;
                  connectionStatus;
                  crossClusterSearchConnectionId
                }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("SourceDomainInfo",
           (Option.map x.sourceDomainInfo ~f:DomainInformation.to_value));
        ("DestinationDomainInfo",
          (Option.map x.destinationDomainInfo ~f:DomainInformation.to_value));
        ("ConnectionAlias",
          (Option.map x.connectionAlias ~f:ConnectionAlias.to_value));
        ("ConnectionStatus",
          (Option.map x.connectionStatus
             ~f:OutboundCrossClusterSearchConnectionStatus.to_value));
        ("CrossClusterSearchConnectionId",
          (Option.map x.crossClusterSearchConnectionId
             ~f:CrossClusterSearchConnectionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnectionId =
        (Option.map ~f:CrossClusterSearchConnectionId.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnectionId") in
      let connectionStatus =
        (Option.map ~f:OutboundCrossClusterSearchConnectionStatus.of_xml)
          (Xml.child xml_arg0 "ConnectionStatus") in
      let connectionAlias =
        (Option.map ~f:ConnectionAlias.of_xml)
          (Xml.child xml_arg0 "ConnectionAlias") in
      let destinationDomainInfo =
        (Option.map ~f:DomainInformation.of_xml)
          (Xml.child xml_arg0 "DestinationDomainInfo") in
      let sourceDomainInfo =
        (Option.map ~f:DomainInformation.of_xml)
          (Xml.child xml_arg0 "SourceDomainInfo") in
      make ?crossClusterSearchConnectionId ?connectionStatus ?connectionAlias
        ?destinationDomainInfo ?sourceDomainInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnectionId =
        field_map json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      let connectionStatus =
        field_map json__ "ConnectionStatus"
          OutboundCrossClusterSearchConnectionStatus.of_json in
      let connectionAlias =
        field_map json__ "ConnectionAlias" ConnectionAlias.of_json in
      let destinationDomainInfo =
        field_map json__ "DestinationDomainInfo" DomainInformation.of_json in
      let sourceDomainInfo =
        field_map json__ "SourceDomainInfo" DomainInformation.of_json in
      make ?crossClusterSearchConnectionId ?connectionStatus ?connectionAlias
        ?destinationDomainInfo ?sourceDomainInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a CreateOutboundCrossClusterSearchConnection request. Contains the details of the newly created cross-cluster search connection."]
module CreateOutboundCrossClusterSearchConnectionRequest =
  struct
    type nonrec t =
      {
      sourceDomainInfo: DomainInformation.t
        [@ocaml.doc
          "Specifies the DomainInformation for the source Elasticsearch domain."];
      destinationDomainInfo: DomainInformation.t
        [@ocaml.doc
          "Specifies the DomainInformation for the destination Elasticsearch domain."];
      connectionAlias: ConnectionAlias.t
        [@ocaml.doc
          "Specifies the connection alias that will be used by the customer for this connection."]}
    let context_ = "CreateOutboundCrossClusterSearchConnectionRequest"
    let make ~sourceDomainInfo =
      fun ~destinationDomainInfo ->
        fun ~connectionAlias ->
          fun () ->
            { sourceDomainInfo; destinationDomainInfo; connectionAlias }
    let to_value x =
      structure_to_value
        [("SourceDomainInfo",
           (Some (DomainInformation.to_value x.sourceDomainInfo)));
        ("DestinationDomainInfo",
          (Some (DomainInformation.to_value x.destinationDomainInfo)));
        ("ConnectionAlias",
          (Some (ConnectionAlias.to_value x.connectionAlias)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionAlias =
        ConnectionAlias.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionAlias") in
      let destinationDomainInfo =
        DomainInformation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationDomainInfo") in
      let sourceDomainInfo =
        DomainInformation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceDomainInfo") in
      make ~connectionAlias ~destinationDomainInfo ~sourceDomainInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionAlias =
        field_map_exn json__ "ConnectionAlias" ConnectionAlias.of_json in
      let destinationDomainInfo =
        field_map_exn json__ "DestinationDomainInfo"
          DomainInformation.of_json in
      let sourceDomainInfo =
        field_map_exn json__ "SourceDomainInfo" DomainInformation.of_json in
      make ~connectionAlias ~destinationDomainInfo ~sourceDomainInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the CreateOutboundCrossClusterSearchConnection operation."]
module CreateElasticsearchDomainResponse =
  struct
    type nonrec t =
      {
      domainStatus: ElasticsearchDomainStatus.t option
        [@ocaml.doc "The status of the newly created Elasticsearch domain."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `InvalidTypeException of InvalidTypeException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainStatus = fun () -> { domainStatus }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "InvalidTypeException" ->
          `InvalidTypeException (InvalidTypeException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `InvalidTypeException e ->
          `Assoc
            [("error", (`String "InvalidTypeException"));
            ("details", (InvalidTypeException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.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
        [("DomainStatus",
           (Option.map x.domainStatus ~f:ElasticsearchDomainStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainStatus =
        (Option.map ~f:ElasticsearchDomainStatus.of_xml)
          (Xml.child xml_arg0 "DomainStatus") in
      make ?domainStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainStatus =
        field_map json__ "DomainStatus" ElasticsearchDomainStatus.of_json in
      make ?domainStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a CreateElasticsearchDomain operation. Contains the status of the newly created Elasticsearch domain."]
module CreateElasticsearchDomainRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the Elasticsearch domain that you are creating. Domain names are unique across the domains owned by an account within an AWS region. Domain names must start with a lowercase letter and can contain the following characters: a-z (lowercase), 0-9, and - (hyphen)."];
      elasticsearchVersion: ElasticsearchVersionString.t option
        [@ocaml.doc
          "String of format X.Y to specify version for the Elasticsearch domain eg. \"1.5\" or \"2.3\". For more information, see Creating Elasticsearch Domains in the Amazon Elasticsearch Service Developer Guide."];
      elasticsearchClusterConfig: ElasticsearchClusterConfig.t option
        [@ocaml.doc
          "Configuration options for an Elasticsearch domain. Specifies the instance type and number of instances in the domain cluster."];
      eBSOptions: EBSOptions.t option
        [@ocaml.doc
          "Options to enable, disable and specify the type and size of EBS storage volumes."];
      accessPolicies: PolicyDocument.t option
        [@ocaml.doc "IAM access policy as a JSON-formatted string."];
      snapshotOptions: SnapshotOptions.t option
        [@ocaml.doc
          "Option to set time, in UTC format, of the daily automated snapshot. Default value is 0 hours."];
      vPCOptions: VPCOptions.t option
        [@ocaml.doc
          "Options to specify the subnets and security groups for VPC endpoint. For more information, see Creating a VPC in VPC Endpoints for Amazon Elasticsearch Service Domains"];
      cognitoOptions: CognitoOptions.t option
        [@ocaml.doc
          "Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see Amazon Cognito Authentication for Kibana."];
      encryptionAtRestOptions: EncryptionAtRestOptions.t option
        [@ocaml.doc "Specifies the Encryption At Rest Options."];
      nodeToNodeEncryptionOptions: NodeToNodeEncryptionOptions.t option
        [@ocaml.doc "Specifies the NodeToNodeEncryptionOptions."];
      advancedOptions: AdvancedOptions.t option
        [@ocaml.doc
          "Option to allow references to indices in an HTTP request body. Must be false when configuring access to individual sub-resources. By default, the value is true. See Configuration Advanced Options for more information."];
      logPublishingOptions: LogPublishingOptions.t option
        [@ocaml.doc
          "Map of LogType and LogPublishingOption, each containing options to publish a given type of Elasticsearch log."];
      domainEndpointOptions: DomainEndpointOptions.t option
        [@ocaml.doc
          "Options to specify configuration that will be applied to the domain endpoint."];
      advancedSecurityOptions: AdvancedSecurityOptionsInput.t option
        [@ocaml.doc "Specifies advanced security options."];
      autoTuneOptions: AutoTuneOptionsInput.t option
        [@ocaml.doc "Specifies Auto-Tune options."];
      tagList: TagList.t option
        [@ocaml.doc "A list of Tag added during domain creation."];
      deploymentStrategyOptions: DeploymentStrategyOptions.t option
        [@ocaml.doc "Specifies the deployment strategy options."];
      automatedSnapshotPauseOptions:
        AutomatedSnapshotPauseRequestOptions.t option
        [@ocaml.doc
          "Specifies the automated snapshot pause options for the domain. Suspending snapshots reduces data protection. You cannot restore your domain to points in time when snapshots are suspended. Use this feature only for short-term operational needs such as migrations or maintenance windows. Maximum suspension duration: 3 days."]}
    let context_ = "CreateElasticsearchDomainRequest"
    let make ?elasticsearchVersion =
      fun ?elasticsearchClusterConfig ->
        fun ?eBSOptions ->
          fun ?accessPolicies ->
            fun ?snapshotOptions ->
              fun ?vPCOptions ->
                fun ?cognitoOptions ->
                  fun ?encryptionAtRestOptions ->
                    fun ?nodeToNodeEncryptionOptions ->
                      fun ?advancedOptions ->
                        fun ?logPublishingOptions ->
                          fun ?domainEndpointOptions ->
                            fun ?advancedSecurityOptions ->
                              fun ?autoTuneOptions ->
                                fun ?tagList ->
                                  fun ?deploymentStrategyOptions ->
                                    fun ?automatedSnapshotPauseOptions ->
                                      fun ~domainName ->
                                        fun () ->
                                          {
                                            elasticsearchVersion;
                                            elasticsearchClusterConfig;
                                            eBSOptions;
                                            accessPolicies;
                                            snapshotOptions;
                                            vPCOptions;
                                            cognitoOptions;
                                            encryptionAtRestOptions;
                                            nodeToNodeEncryptionOptions;
                                            advancedOptions;
                                            logPublishingOptions;
                                            domainEndpointOptions;
                                            advancedSecurityOptions;
                                            autoTuneOptions;
                                            tagList;
                                            deploymentStrategyOptions;
                                            automatedSnapshotPauseOptions;
                                            domainName
                                          }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("ElasticsearchVersion",
          (Option.map x.elasticsearchVersion
             ~f:ElasticsearchVersionString.to_value));
        ("ElasticsearchClusterConfig",
          (Option.map x.elasticsearchClusterConfig
             ~f:ElasticsearchClusterConfig.to_value));
        ("EBSOptions", (Option.map x.eBSOptions ~f:EBSOptions.to_value));
        ("AccessPolicies",
          (Option.map x.accessPolicies ~f:PolicyDocument.to_value));
        ("SnapshotOptions",
          (Option.map x.snapshotOptions ~f:SnapshotOptions.to_value));
        ("VPCOptions", (Option.map x.vPCOptions ~f:VPCOptions.to_value));
        ("CognitoOptions",
          (Option.map x.cognitoOptions ~f:CognitoOptions.to_value));
        ("EncryptionAtRestOptions",
          (Option.map x.encryptionAtRestOptions
             ~f:EncryptionAtRestOptions.to_value));
        ("NodeToNodeEncryptionOptions",
          (Option.map x.nodeToNodeEncryptionOptions
             ~f:NodeToNodeEncryptionOptions.to_value));
        ("AdvancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value));
        ("LogPublishingOptions",
          (Option.map x.logPublishingOptions ~f:LogPublishingOptions.to_value));
        ("DomainEndpointOptions",
          (Option.map x.domainEndpointOptions
             ~f:DomainEndpointOptions.to_value));
        ("AdvancedSecurityOptions",
          (Option.map x.advancedSecurityOptions
             ~f:AdvancedSecurityOptionsInput.to_value));
        ("AutoTuneOptions",
          (Option.map x.autoTuneOptions ~f:AutoTuneOptionsInput.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("DeploymentStrategyOptions",
          (Option.map x.deploymentStrategyOptions
             ~f:DeploymentStrategyOptions.to_value));
        ("AutomatedSnapshotPauseOptions",
          (Option.map x.automatedSnapshotPauseOptions
             ~f:AutomatedSnapshotPauseRequestOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automatedSnapshotPauseOptions =
        (Option.map ~f:AutomatedSnapshotPauseRequestOptions.of_xml)
          (Xml.child xml_arg0 "AutomatedSnapshotPauseOptions") in
      let deploymentStrategyOptions =
        (Option.map ~f:DeploymentStrategyOptions.of_xml)
          (Xml.child xml_arg0 "DeploymentStrategyOptions") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let autoTuneOptions =
        (Option.map ~f:AutoTuneOptionsInput.of_xml)
          (Xml.child xml_arg0 "AutoTuneOptions") in
      let advancedSecurityOptions =
        (Option.map ~f:AdvancedSecurityOptionsInput.of_xml)
          (Xml.child xml_arg0 "AdvancedSecurityOptions") in
      let domainEndpointOptions =
        (Option.map ~f:DomainEndpointOptions.of_xml)
          (Xml.child xml_arg0 "DomainEndpointOptions") in
      let logPublishingOptions =
        (Option.map ~f:LogPublishingOptions.of_xml)
          (Xml.child xml_arg0 "LogPublishingOptions") in
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "AdvancedOptions") in
      let nodeToNodeEncryptionOptions =
        (Option.map ~f:NodeToNodeEncryptionOptions.of_xml)
          (Xml.child xml_arg0 "NodeToNodeEncryptionOptions") in
      let encryptionAtRestOptions =
        (Option.map ~f:EncryptionAtRestOptions.of_xml)
          (Xml.child xml_arg0 "EncryptionAtRestOptions") in
      let cognitoOptions =
        (Option.map ~f:CognitoOptions.of_xml)
          (Xml.child xml_arg0 "CognitoOptions") in
      let vPCOptions =
        (Option.map ~f:VPCOptions.of_xml) (Xml.child xml_arg0 "VPCOptions") in
      let snapshotOptions =
        (Option.map ~f:SnapshotOptions.of_xml)
          (Xml.child xml_arg0 "SnapshotOptions") in
      let accessPolicies =
        (Option.map ~f:PolicyDocument.of_xml)
          (Xml.child xml_arg0 "AccessPolicies") in
      let eBSOptions =
        (Option.map ~f:EBSOptions.of_xml) (Xml.child xml_arg0 "EBSOptions") in
      let elasticsearchClusterConfig =
        (Option.map ~f:ElasticsearchClusterConfig.of_xml)
          (Xml.child xml_arg0 "ElasticsearchClusterConfig") in
      let elasticsearchVersion =
        (Option.map ~f:ElasticsearchVersionString.of_xml)
          (Xml.child xml_arg0 "ElasticsearchVersion") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions ?tagList
        ?autoTuneOptions ?advancedSecurityOptions ?domainEndpointOptions
        ?logPublishingOptions ?advancedOptions ?nodeToNodeEncryptionOptions
        ?encryptionAtRestOptions ?cognitoOptions ?vPCOptions ?snapshotOptions
        ?accessPolicies ?eBSOptions ?elasticsearchClusterConfig
        ?elasticsearchVersion ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automatedSnapshotPauseOptions =
        field_map json__ "AutomatedSnapshotPauseOptions"
          AutomatedSnapshotPauseRequestOptions.of_json in
      let deploymentStrategyOptions =
        field_map json__ "DeploymentStrategyOptions"
          DeploymentStrategyOptions.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let autoTuneOptions =
        field_map json__ "AutoTuneOptions" AutoTuneOptionsInput.of_json in
      let advancedSecurityOptions =
        field_map json__ "AdvancedSecurityOptions"
          AdvancedSecurityOptionsInput.of_json in
      let domainEndpointOptions =
        field_map json__ "DomainEndpointOptions"
          DomainEndpointOptions.of_json in
      let logPublishingOptions =
        field_map json__ "LogPublishingOptions" LogPublishingOptions.of_json in
      let advancedOptions =
        field_map json__ "AdvancedOptions" AdvancedOptions.of_json in
      let nodeToNodeEncryptionOptions =
        field_map json__ "NodeToNodeEncryptionOptions"
          NodeToNodeEncryptionOptions.of_json in
      let encryptionAtRestOptions =
        field_map json__ "EncryptionAtRestOptions"
          EncryptionAtRestOptions.of_json in
      let cognitoOptions =
        field_map json__ "CognitoOptions" CognitoOptions.of_json in
      let vPCOptions = field_map json__ "VPCOptions" VPCOptions.of_json in
      let snapshotOptions =
        field_map json__ "SnapshotOptions" SnapshotOptions.of_json in
      let accessPolicies =
        field_map json__ "AccessPolicies" PolicyDocument.of_json in
      let eBSOptions = field_map json__ "EBSOptions" EBSOptions.of_json in
      let elasticsearchClusterConfig =
        field_map json__ "ElasticsearchClusterConfig"
          ElasticsearchClusterConfig.of_json in
      let elasticsearchVersion =
        field_map json__ "ElasticsearchVersion"
          ElasticsearchVersionString.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?automatedSnapshotPauseOptions ?deploymentStrategyOptions ?tagList
        ?autoTuneOptions ?advancedSecurityOptions ?domainEndpointOptions
        ?logPublishingOptions ?advancedOptions ?nodeToNodeEncryptionOptions
        ?encryptionAtRestOptions ?cognitoOptions ?vPCOptions ?snapshotOptions
        ?accessPolicies ?eBSOptions ?elasticsearchClusterConfig
        ?elasticsearchVersion ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new Elasticsearch domain. For more information, see Creating Elasticsearch Domains in the Amazon Elasticsearch Service Developer Guide."]
module CancelElasticsearchServiceSoftwareUpdateResponse =
  struct
    type nonrec t =
      {
      serviceSoftwareOptions: ServiceSoftwareOptions.t option
        [@ocaml.doc
          "The current status of the Elasticsearch service software update."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceSoftwareOptions = fun () -> { serviceSoftwareOptions }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("ServiceSoftwareOptions",
           (Option.map x.serviceSoftwareOptions
              ~f:ServiceSoftwareOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceSoftwareOptions =
        (Option.map ~f:ServiceSoftwareOptions.of_xml)
          (Xml.child xml_arg0 "ServiceSoftwareOptions") in
      make ?serviceSoftwareOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceSoftwareOptions =
        field_map json__ "ServiceSoftwareOptions"
          ServiceSoftwareOptions.of_json in
      make ?serviceSoftwareOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a CancelElasticsearchServiceSoftwareUpdate operation. Contains the status of the update."]
module CancelElasticsearchServiceSoftwareUpdateRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want to stop the latest service software update on."]}
    let context_ = "CancelElasticsearchServiceSoftwareUpdateRequest"
    let make ~domainName = fun () -> { domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the CancelElasticsearchServiceSoftwareUpdate operation. Specifies the name of the Elasticsearch domain that you wish to cancel a service software update on."]
module CancelDomainConfigChangeResponse =
  struct
    type nonrec t =
      {
      dryRun: DryRun.t option
        [@ocaml.doc
          "Whether or not the request was a dry run. If True, the changes were not actually cancelled."];
      cancelledChangeIds: GUIDList.t option
        [@ocaml.doc
          "The unique identifiers of the changes that were cancelled."];
      cancelledChangeProperties: CancelledChangePropertyList.t option
        [@ocaml.doc "The domain change properties that were cancelled."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dryRun =
      fun ?cancelledChangeIds ->
        fun ?cancelledChangeProperties ->
          fun () -> { dryRun; cancelledChangeIds; cancelledChangeProperties }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DryRun", (Option.map x.dryRun ~f:DryRun.to_value));
        ("CancelledChangeIds",
          (Option.map x.cancelledChangeIds ~f:GUIDList.to_value));
        ("CancelledChangeProperties",
          (Option.map x.cancelledChangeProperties
             ~f:CancelledChangePropertyList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cancelledChangeProperties =
        (Option.map ~f:CancelledChangePropertyList.of_xml)
          (Xml.child xml_arg0 "CancelledChangeProperties") in
      let cancelledChangeIds =
        (Option.map ~f:GUIDList.of_xml)
          (Xml.child xml_arg0 "CancelledChangeIds") in
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      make ?cancelledChangeProperties ?cancelledChangeIds ?dryRun ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cancelledChangeProperties =
        field_map json__ "CancelledChangeProperties"
          CancelledChangePropertyList.of_json in
      let cancelledChangeIds =
        field_map json__ "CancelledChangeIds" GUIDList.of_json in
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      make ?cancelledChangeProperties ?cancelledChangeIds ?dryRun ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of the cancelled domain config change."]
module CancelDomainConfigChangeRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "Name of the OpenSearch Service domain configuration request to cancel."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "When set to True, returns the list of change IDs and properties that will be cancelled without actually cancelling the change."]}
    let context_ = "CancelDomainConfigChangeRequest"
    let make ?dryRun = fun ~domainName -> fun () -> { dryRun; domainName }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ?dryRun ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ?dryRun ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for parameters of the CancelDomainConfigChange operation."]
module AuthorizeVpcEndpointAccessResponse =
  struct
    type nonrec t =
      {
      authorizedPrincipal: AuthorizedPrincipal.t option
        [@ocaml.doc
          "Information about the account or service that was provided access to the domain."]}
    type nonrec error =
      [ `BaseException of BaseException.t 
      | `DisabledOperationException of DisabledOperationException.t 
      | `InternalException of InternalException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?authorizedPrincipal = fun () -> { authorizedPrincipal }
    let error_of_json name json =
      match name with
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.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
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("AuthorizedPrincipal",
           (Option.map x.authorizedPrincipal ~f:AuthorizedPrincipal.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizedPrincipal =
        (Option.map ~f:AuthorizedPrincipal.of_xml)
          (Xml.child xml_arg0 "AuthorizedPrincipal") in
      make ?authorizedPrincipal ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizedPrincipal =
        field_map json__ "AuthorizedPrincipal" AuthorizedPrincipal.of_json in
      make ?authorizedPrincipal ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response parameters to the AuthorizeVpcEndpointAccess operation. Contains the account ID and the type of the account being authorized to access the VPC endpoint."]
module AuthorizeVpcEndpointAccessRequest =
  struct
    type nonrec t =
      {
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the OpenSearch Service domain to provide access to."];
      account: AWSAccount.t [@ocaml.doc "The account ID to grant access to."]}
    let context_ = "AuthorizeVpcEndpointAccessRequest"
    let make ~domainName = fun ~account -> fun () -> { domainName; account }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("Account", (Some (AWSAccount.to_value x.account)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        AWSAccount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Account") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~account ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map_exn json__ "Account" AWSAccount.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~account ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to the AuthorizeVpcEndpointAccess operation. Specifies the account to be permitted to manage VPC endpoints against the domain."]
module AssociatePackageResponse =
  struct
    type nonrec t =
      {
      domainPackageDetails: DomainPackageDetails.t option
        [@ocaml.doc "DomainPackageDetails"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BaseException of BaseException.t 
      | `ConflictException of ConflictException.t 
      | `InternalException of InternalException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainPackageDetails = fun () -> { domainPackageDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BaseException" -> `BaseException (BaseException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalException" ->
          `InternalException (InternalException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "BaseException" -> `BaseException (BaseException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalException" ->
          `InternalException (InternalException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `BaseException e ->
          `Assoc
            [("error", (`String "BaseException"));
            ("details", (BaseException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalException e ->
          `Assoc
            [("error", (`String "InternalException"));
            ("details", (InternalException.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
        [("DomainPackageDetails",
           (Option.map x.domainPackageDetails
              ~f:DomainPackageDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainPackageDetails =
        (Option.map ~f:DomainPackageDetails.of_xml)
          (Xml.child xml_arg0 "DomainPackageDetails") in
      make ?domainPackageDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainPackageDetails =
        field_map json__ "DomainPackageDetails" DomainPackageDetails.of_json in
      make ?domainPackageDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for response returned by AssociatePackage operation."]
module AssociatePackageRequest =
  struct
    type nonrec t =
      {
      packageID: PackageID.t
        [@ocaml.doc
          "Internal ID of the package that you want to associate with a domain. Use DescribePackages to find this value."];
      domainName: DomainName.t
        [@ocaml.doc
          "Name of the domain that you want to associate the package with."]}
    let context_ = "AssociatePackageRequest"
    let make ~packageID =
      fun ~domainName -> fun () -> { packageID; domainName }
    let to_value x =
      structure_to_value
        [("PackageID", (Some (PackageID.to_value x.packageID)));
        ("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      let packageID =
        PackageID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PackageID") in
      make ~domainName ~packageID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      let packageID = field_map_exn json__ "PackageID" PackageID.of_json in
      make ~domainName ~packageID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for request parameters to AssociatePackage operation."]
module AddTagsRequest =
  struct
    type nonrec t =
      {
      aRN: ARN.t
        [@ocaml.doc "Specify the ARN for which you want to add the tags."];
      tagList: TagList.t
        [@ocaml.doc
          "List of Tag that need to be added for the Elasticsearch domain."]}
    let context_ = "AddTagsRequest"
    let make ~aRN = fun ~tagList -> fun () -> { aRN; tagList }
    let to_value x =
      structure_to_value
        [("ARN", (Some (ARN.to_value x.aRN)));
        ("TagList", (Some (TagList.to_value x.tagList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagList") in
      let aRN = ARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ARN") in
      make ~tagList ~aRN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map_exn json__ "TagList" TagList.of_json in
      let aRN = field_map_exn json__ "ARN" ARN.of_json in
      make ~tagList ~aRN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the AddTags operation. Specify the tags that you want to attach to the Elasticsearch domain."]
module AcceptInboundCrossClusterSearchConnectionResponse =
  struct
    type nonrec t =
      {
      crossClusterSearchConnection:
        InboundCrossClusterSearchConnection.t option
        [@ocaml.doc
          "Specifies the InboundCrossClusterSearchConnection of accepted inbound connection."]}
    type nonrec error =
      [ `DisabledOperationException of DisabledOperationException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?crossClusterSearchConnection =
      fun () -> { crossClusterSearchConnection }
    let error_of_json name json =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException
            (DisabledOperationException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DisabledOperationException" ->
          `DisabledOperationException (DisabledOperationException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DisabledOperationException e ->
          `Assoc
            [("error", (`String "DisabledOperationException"));
            ("details", (DisabledOperationException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("CrossClusterSearchConnection",
           (Option.map x.crossClusterSearchConnection
              ~f:InboundCrossClusterSearchConnection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnection =
        (Option.map ~f:InboundCrossClusterSearchConnection.of_xml)
          (Xml.child xml_arg0 "CrossClusterSearchConnection") in
      make ?crossClusterSearchConnection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnection =
        field_map json__ "CrossClusterSearchConnection"
          InboundCrossClusterSearchConnection.of_json in
      make ?crossClusterSearchConnection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of a AcceptInboundCrossClusterSearchConnection operation. Contains details of accepted inbound connection."]
module AcceptInboundCrossClusterSearchConnectionRequest =
  struct
    type nonrec t =
      {
      crossClusterSearchConnectionId: CrossClusterSearchConnectionId.t
        [@ocaml.doc
          "The id of the inbound connection that you want to accept."]}
    let context_ = "AcceptInboundCrossClusterSearchConnectionRequest"
    let make ~crossClusterSearchConnectionId =
      fun () -> { crossClusterSearchConnectionId }
    let to_value x =
      structure_to_value
        [("ConnectionId",
           (Some
              (CrossClusterSearchConnectionId.to_value
                 x.crossClusterSearchConnectionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossClusterSearchConnectionId =
        CrossClusterSearchConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionId") in
      make ~crossClusterSearchConnectionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossClusterSearchConnectionId =
        field_map_exn json__ "CrossClusterSearchConnectionId"
          CrossClusterSearchConnectionId.of_json in
      make ~crossClusterSearchConnectionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the parameters to the AcceptInboundCrossClusterSearchConnection operation."]