Source file values_0.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.rds
let apiVersion = "2014-10-31"
let endpointPrefix = "rds"
let serviceFullName = "Amazon Relational Database Service"
let signatureVersion = "v4"
let protocol = "query"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon RDS"
let xmlNamespace = "http://rds.amazonaws.com/doc/2014-10-31/"
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 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 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 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 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 ScalarReferenceDetails =
  struct
    type nonrec t =
      {
      value: Double.t option [@ocaml.doc "The value of a scalar reference."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value [("Value", (Option.map x.value ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" Double.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metric reference details when the reference is a scalar."]
module PerformanceInsightsMetricDimensionGroup =
  struct
    type nonrec t =
      {
      dimensions: StringList.t option
        [@ocaml.doc
          "A list of specific dimensions from a dimension group. If this list isn't included, then all of the dimensions in the group were requested, or are present in the response."];
      group: String_.t option
        [@ocaml.doc
          "The available dimension groups for Performance Insights metric type."];
      limit: Integer.t option
        [@ocaml.doc
          "The maximum number of items to fetch for this dimension group."]}
    let make ?dimensions =
      fun ?group -> fun ?limit -> fun () -> { dimensions; group; limit }
    let to_value x =
      structure_to_value
        [("Dimensions", (Option.map x.dimensions ~f:StringList.to_value));
        ("Group", (Option.map x.group ~f:String_.to_value));
        ("Limit", (Option.map x.limit ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Limit") in
      let group = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Group") in
      let dimensions =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "Dimensions") in
      make ?limit ?group ?dimensions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Integer.of_json in
      let group = field_map json__ "Group" String_.of_json in
      let dimensions = field_map json__ "Dimensions" StringList.of_json in
      make ?limit ?group ?dimensions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A logical grouping of Performance Insights metrics for a related subject area. For example, the db.sql dimension group consists of the following dimensions: db.sql.id - The hash of a running SQL statement, generated by Performance Insights. db.sql.db_id - Either the SQL ID generated by the database engine, or a value generated by Performance Insights that begins with pi-. db.sql.statement - The full text of the SQL statement that is running, for example, SELECT * FROM employees. db.sql_tokenized.id - The hash of the SQL digest generated by Performance Insights. Each response element returns a maximum of 500 bytes. For larger elements, such as SQL statements, only the first 500 bytes are returned."]
module ReferenceDetails =
  struct
    type nonrec t =
      {
      scalarReferenceDetails: ScalarReferenceDetails.t option
        [@ocaml.doc
          "The metric reference details when the reference is a scalar."]}
    let make ?scalarReferenceDetails = fun () -> { scalarReferenceDetails }
    let to_value x =
      structure_to_value
        [("ScalarReferenceDetails",
           (Option.map x.scalarReferenceDetails
              ~f:ScalarReferenceDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scalarReferenceDetails =
        (Option.map ~f:ScalarReferenceDetails.of_xml)
          (Xml.child xml_arg0 "ScalarReferenceDetails") in
      make ?scalarReferenceDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scalarReferenceDetails =
        field_map json__ "ScalarReferenceDetails"
          ScalarReferenceDetails.of_json in
      make ?scalarReferenceDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The reference details of a metric."]
module PerformanceInsightsMetricQuery =
  struct
    type nonrec t =
      {
      groupBy: PerformanceInsightsMetricDimensionGroup.t option
        [@ocaml.doc
          "A specification for how to aggregate the data points from a query result. You must specify a valid dimension group. Performance Insights will return all of the dimensions within that group, unless you provide the names of specific dimensions within that group. You can also request that Performance Insights return a limited number of values for a dimension."];
      metric: String_.t option
        [@ocaml.doc
          "The name of a Performance Insights metric to be measured. Valid Values: db.load.avg - A scaled representation of the number of active sessions for the database engine. db.sampledload.avg - The raw number of active sessions for the database engine. The counter metrics listed in Performance Insights operating system counters in the Amazon Aurora User Guide. If the number of active sessions is less than an internal Performance Insights threshold, db.load.avg and db.sampledload.avg are the same value. If the number of active sessions is greater than the internal threshold, Performance Insights samples the active sessions, with db.load.avg showing the scaled values, db.sampledload.avg showing the raw values, and db.sampledload.avg less than db.load.avg. For most use cases, you can query db.load.avg only."]}
    let make ?groupBy = fun ?metric -> fun () -> { groupBy; metric }
    let to_value x =
      structure_to_value
        [("GroupBy",
           (Option.map x.groupBy
              ~f:PerformanceInsightsMetricDimensionGroup.to_value));
        ("Metric", (Option.map x.metric ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metric =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Metric") in
      let groupBy =
        (Option.map ~f:PerformanceInsightsMetricDimensionGroup.of_xml)
          (Xml.child xml_arg0 "GroupBy") in
      make ?metric ?groupBy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metric = field_map json__ "Metric" String_.of_json in
      let groupBy =
        field_map json__ "GroupBy"
          PerformanceInsightsMetricDimensionGroup.of_json in
      make ?metric ?groupBy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A single Performance Insights metric query to process. You must provide the metric to the query. If other parameters aren't specified, Performance Insights returns all data points for the specified metric. Optionally, you can request the data points to be aggregated by dimension group (GroupBy) and return only those data points that match your criteria (Filter). Constraints: Must be a valid Performance Insights query."]
module MetricReference =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the metric reference."];
      referenceDetails: ReferenceDetails.t option
        [@ocaml.doc "The details of a performance issue."]}
    let make ?name =
      fun ?referenceDetails -> fun () -> { name; referenceDetails }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("ReferenceDetails",
          (Option.map x.referenceDetails ~f:ReferenceDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceDetails =
        (Option.map ~f:ReferenceDetails.of_xml)
          (Xml.child xml_arg0 "ReferenceDetails") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?referenceDetails ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceDetails =
        field_map json__ "ReferenceDetails" ReferenceDetails.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?referenceDetails ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The reference (threshold) for a metric."]
module IntegerOptional =
  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 IntegerOptional" 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 MetricQuery =
  struct
    type nonrec t =
      {
      performanceInsightsMetricQuery: PerformanceInsightsMetricQuery.t option
        [@ocaml.doc
          "The Performance Insights query that you can use to retrieve Performance Insights metric data points."]}
    let make ?performanceInsightsMetricQuery =
      fun () -> { performanceInsightsMetricQuery }
    let to_value x =
      structure_to_value
        [("PerformanceInsightsMetricQuery",
           (Option.map x.performanceInsightsMetricQuery
              ~f:PerformanceInsightsMetricQuery.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performanceInsightsMetricQuery =
        (Option.map ~f:PerformanceInsightsMetricQuery.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsMetricQuery") in
      make ?performanceInsightsMetricQuery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performanceInsightsMetricQuery =
        field_map json__ "PerformanceInsightsMetricQuery"
          PerformanceInsightsMetricQuery.of_json in
      make ?performanceInsightsMetricQuery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The query to retrieve metric data points."]
module MetricReferenceList =
  struct
    type nonrec t = MetricReference.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:MetricReference.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:MetricReference.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricReferenceList"
        ~of_json:MetricReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module DoubleRange =
  struct
    type nonrec t =
      {
      from: Double.t option [@ocaml.doc "The minimum value in the range."];
      to_: Double.t option [@ocaml.doc "The maximum value in the range."]}
    let make ?from = fun ?to_ -> fun () -> { from; to_ }
    let to_value x =
      structure_to_value
        [("From", (Option.map x.from ~f:Double.to_value));
        ("To", (Option.map x.to_ ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let to_ = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "To") in
      let from = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "From") in
      make ?to_ ?from ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let to_ = field_map json__ "To" Double.of_json in
      let from = field_map json__ "From" Double.of_json in make ?to_ ?from ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A range of double values."]
module Range =
  struct
    type nonrec t =
      {
      from: Integer.t option [@ocaml.doc "The minimum value in the range."];
      to_: Integer.t option [@ocaml.doc "The maximum value in the range."];
      step: IntegerOptional.t option
        [@ocaml.doc
          "The step value for the range. For example, if you have a range of 5,000 to 10,000, with a step value of 1,000, the valid values start at 5,000 and step up by 1,000. Even though 7,500 is within the range, it isn't a valid value for the range. The valid values are 5,000, 6,000, 7,000, 8,000..."]}
    let make ?from = fun ?to_ -> fun ?step -> fun () -> { from; to_; step }
    let to_value x =
      structure_to_value
        [("From", (Option.map x.from ~f:Integer.to_value));
        ("To", (Option.map x.to_ ~f:Integer.to_value));
        ("Step", (Option.map x.step ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let step =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Step") in
      let to_ = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "To") in
      let from = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "From") in
      make ?step ?to_ ?from ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let step = field_map json__ "Step" IntegerOptional.of_json in
      let to_ = field_map json__ "To" Integer.of_json in
      let from = field_map json__ "From" Integer.of_json in
      make ?step ?to_ ?from ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A range of integer values."]
module Metric =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of a metric."];
      references: MetricReferenceList.t option
        [@ocaml.doc "A list of metric references (thresholds)."];
      statisticsDetails: String_.t option
        [@ocaml.doc
          "The details of different statistics for a metric. The description might contain markdown."];
      metricQuery: MetricQuery.t option
        [@ocaml.doc "The query to retrieve metric data points."]}
    let make ?name =
      fun ?references ->
        fun ?statisticsDetails ->
          fun ?metricQuery ->
            fun () -> { name; references; statisticsDetails; metricQuery }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("References",
          (Option.map x.references ~f:MetricReferenceList.to_value));
        ("StatisticsDetails",
          (Option.map x.statisticsDetails ~f:String_.to_value));
        ("MetricQuery", (Option.map x.metricQuery ~f:MetricQuery.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricQuery =
        (Option.map ~f:MetricQuery.of_xml) (Xml.child xml_arg0 "MetricQuery") in
      let statisticsDetails =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "StatisticsDetails") in
      let references =
        (Option.map ~f:MetricReferenceList.of_xml)
          (Xml.child xml_arg0 "References") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?metricQuery ?statisticsDetails ?references ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricQuery = field_map json__ "MetricQuery" MetricQuery.of_json in
      let statisticsDetails =
        field_map json__ "StatisticsDetails" String_.of_json in
      let references =
        field_map json__ "References" MetricReferenceList.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?metricQuery ?statisticsDetails ?references ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The representation of a metric."]
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 PotentiallySensitiveOptionSettingValue =
  struct
    type nonrec t = string
    let context_ = "PotentiallySensitiveOptionSettingValue"
    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:"PotentiallySensitiveOptionSettingValue" j
    let to_json = simple_to_json to_value
  end
module DoubleRangeList =
  struct
    type nonrec t = DoubleRange.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:DoubleRange.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:DoubleRange.of_xml)
    let of_json j =
      list_of_json ~kind:"DoubleRangeList" ~of_json:DoubleRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module RangeList =
  struct
    type nonrec t = Range.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:Range.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:Range.of_xml)
    let of_json j = list_of_json ~kind:"RangeList" ~of_json:Range.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricList =
  struct
    type nonrec t = Metric.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:Metric.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:Metric.of_xml)
    let of_json j = list_of_json ~kind:"MetricList" ~of_json:Metric.of_json j
    let to_json v = composed_to_json to_value v
  end
module TStamp =
  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 DBSecurityGroupMembership =
  struct
    type nonrec t =
      {
      dBSecurityGroupName: String_.t option
        [@ocaml.doc "The name of the DB security group."];
      status: String_.t option
        [@ocaml.doc "The status of the DB security group."]}
    let make ?dBSecurityGroupName =
      fun ?status -> fun () -> { dBSecurityGroupName; status }
    let to_value x =
      structure_to_value
        [("DBSecurityGroupName",
           (Option.map x.dBSecurityGroupName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let dBSecurityGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroupName") in
      make ?status ?dBSecurityGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let dBSecurityGroupName =
        field_map json__ "DBSecurityGroupName" String_.of_json in
      make ?status ?dBSecurityGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the following actions: ModifyDBInstance RebootDBInstance RestoreDBInstanceFromDBSnapshot RestoreDBInstanceToPointInTime"]
module OptionSetting =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc
          "The name of the option that has settings that you can set."];
      value: PotentiallySensitiveOptionSettingValue.t option
        [@ocaml.doc "The current value of the option setting."];
      defaultValue: String_.t option
        [@ocaml.doc "The default value of the option setting."];
      description: String_.t option
        [@ocaml.doc "The description of the option setting."];
      applyType: String_.t option
        [@ocaml.doc "The DB engine specific parameter type."];
      dataType: String_.t option
        [@ocaml.doc "The data type of the option setting."];
      allowedValues: String_.t option
        [@ocaml.doc "The allowed values of the option setting."];
      isModifiable: Boolean.t option
        [@ocaml.doc
          "Indicates whether the option setting can be modified from the default."];
      isCollection: Boolean.t option
        [@ocaml.doc
          "Indicates whether the option setting is part of a collection."]}
    let make ?name =
      fun ?value ->
        fun ?defaultValue ->
          fun ?description ->
            fun ?applyType ->
              fun ?dataType ->
                fun ?allowedValues ->
                  fun ?isModifiable ->
                    fun ?isCollection ->
                      fun () ->
                        {
                          name;
                          value;
                          defaultValue;
                          description;
                          applyType;
                          dataType;
                          allowedValues;
                          isModifiable;
                          isCollection
                        }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Value",
          (Option.map x.value
             ~f:PotentiallySensitiveOptionSettingValue.to_value));
        ("DefaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("ApplyType", (Option.map x.applyType ~f:String_.to_value));
        ("DataType", (Option.map x.dataType ~f:String_.to_value));
        ("AllowedValues", (Option.map x.allowedValues ~f:String_.to_value));
        ("IsModifiable", (Option.map x.isModifiable ~f:Boolean.to_value));
        ("IsCollection", (Option.map x.isCollection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isCollection =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsCollection") in
      let isModifiable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsModifiable") in
      let allowedValues =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AllowedValues") in
      let dataType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DataType") in
      let applyType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ApplyType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DefaultValue") in
      let value =
        (Option.map ~f:PotentiallySensitiveOptionSettingValue.of_xml)
          (Xml.child xml_arg0 "Value") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?isCollection ?isModifiable ?allowedValues ?dataType ?applyType
        ?description ?defaultValue ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isCollection = field_map json__ "IsCollection" Boolean.of_json in
      let isModifiable = field_map json__ "IsModifiable" Boolean.of_json in
      let allowedValues = field_map json__ "AllowedValues" String_.of_json in
      let dataType = field_map json__ "DataType" String_.of_json in
      let applyType = field_map json__ "ApplyType" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let defaultValue = field_map json__ "DefaultValue" String_.of_json in
      let value =
        field_map json__ "Value"
          PotentiallySensitiveOptionSettingValue.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?isCollection ?isModifiable ?allowedValues ?dataType ?applyType
        ?description ?defaultValue ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Option settings are the actual settings being applied or configured for that option. It is used when you modify an option group or describe option groups. For example, the NATIVE_NETWORK_ENCRYPTION option has a setting called SQLNET.ENCRYPTION_SERVER that can have several different values."]
module VpcSecurityGroupMembership =
  struct
    type nonrec t =
      {
      vpcSecurityGroupId: String_.t option
        [@ocaml.doc "The name of the VPC security group."];
      status: String_.t option
        [@ocaml.doc
          "The membership status of the VPC security group. Currently, the only valid status is active."]}
    let make ?vpcSecurityGroupId =
      fun ?status -> fun () -> { vpcSecurityGroupId; status }
    let to_value x =
      structure_to_value
        [("VpcSecurityGroupId",
           (Option.map x.vpcSecurityGroupId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let vpcSecurityGroupId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupId") in
      make ?status ?vpcSecurityGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let vpcSecurityGroupId =
        field_map json__ "VpcSecurityGroupId" String_.of_json in
      make ?status ?vpcSecurityGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element for queries on VPC security group membership."]
module MinimumEngineVersionPerAllowedValue =
  struct
    type nonrec t =
      {
      allowedValue: String_.t option
        [@ocaml.doc "The allowed value for an option setting."];
      minimumEngineVersion: String_.t option
        [@ocaml.doc
          "The minimum DB engine version required for the allowed value."]}
    let make ?allowedValue =
      fun ?minimumEngineVersion ->
        fun () -> { allowedValue; minimumEngineVersion }
    let to_value x =
      structure_to_value
        [("AllowedValue", (Option.map x.allowedValue ~f:String_.to_value));
        ("MinimumEngineVersion",
          (Option.map x.minimumEngineVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minimumEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MinimumEngineVersion") in
      let allowedValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AllowedValue") in
      make ?minimumEngineVersion ?allowedValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minimumEngineVersion =
        field_map json__ "MinimumEngineVersion" String_.of_json in
      let allowedValue = field_map json__ "AllowedValue" String_.of_json in
      make ?minimumEngineVersion ?allowedValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum DB engine version required for each corresponding allowed value for an option setting."]
module ValidStorageOptions =
  struct
    type nonrec t =
      {
      storageType: String_.t option
        [@ocaml.doc
          "The valid storage types for your DB instance. For example: gp2, gp3, io1, io2."];
      storageSize: RangeList.t option
        [@ocaml.doc
          "The valid range of storage in gibibytes (GiB). For example, 100 to 16,384."];
      provisionedIops: RangeList.t option
        [@ocaml.doc
          "The valid range of provisioned IOPS. For example, 1000-256,000."];
      iopsToStorageRatio: DoubleRangeList.t option
        [@ocaml.doc
          "The valid range of Provisioned IOPS to gibibytes of storage multiplier. For example, 3-10, which means that provisioned IOPS can be between 3 and 10 times storage."];
      provisionedStorageThroughput: RangeList.t option
        [@ocaml.doc
          "The valid range of provisioned storage throughput. For example, 500-4,000 mebibytes per second (MiBps)."];
      storageThroughputToIopsRatio: DoubleRangeList.t option
        [@ocaml.doc
          "The valid range of storage throughput to provisioned IOPS ratios. For example, 0-0.25."];
      supportsStorageAutoscaling: Boolean.t option
        [@ocaml.doc
          "Indicates whether or not Amazon RDS can automatically scale storage for DB instances that use the new instance class."]}
    let make ?storageType =
      fun ?storageSize ->
        fun ?provisionedIops ->
          fun ?iopsToStorageRatio ->
            fun ?provisionedStorageThroughput ->
              fun ?storageThroughputToIopsRatio ->
                fun ?supportsStorageAutoscaling ->
                  fun () ->
                    {
                      storageType;
                      storageSize;
                      provisionedIops;
                      iopsToStorageRatio;
                      provisionedStorageThroughput;
                      storageThroughputToIopsRatio;
                      supportsStorageAutoscaling
                    }
    let to_value x =
      structure_to_value
        [("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("StorageSize", (Option.map x.storageSize ~f:RangeList.to_value));
        ("ProvisionedIops",
          (Option.map x.provisionedIops ~f:RangeList.to_value));
        ("IopsToStorageRatio",
          (Option.map x.iopsToStorageRatio ~f:DoubleRangeList.to_value));
        ("ProvisionedStorageThroughput",
          (Option.map x.provisionedStorageThroughput ~f:RangeList.to_value));
        ("StorageThroughputToIopsRatio",
          (Option.map x.storageThroughputToIopsRatio
             ~f:DoubleRangeList.to_value));
        ("SupportsStorageAutoscaling",
          (Option.map x.supportsStorageAutoscaling ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportsStorageAutoscaling =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsStorageAutoscaling") in
      let storageThroughputToIopsRatio =
        (Option.map ~f:DoubleRangeList.of_xml)
          (Xml.child xml_arg0 "StorageThroughputToIopsRatio") in
      let provisionedStorageThroughput =
        (Option.map ~f:RangeList.of_xml)
          (Xml.child xml_arg0 "ProvisionedStorageThroughput") in
      let iopsToStorageRatio =
        (Option.map ~f:DoubleRangeList.of_xml)
          (Xml.child xml_arg0 "IopsToStorageRatio") in
      let provisionedIops =
        (Option.map ~f:RangeList.of_xml)
          (Xml.child xml_arg0 "ProvisionedIops") in
      let storageSize =
        (Option.map ~f:RangeList.of_xml) (Xml.child xml_arg0 "StorageSize") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      make ?supportsStorageAutoscaling ?storageThroughputToIopsRatio
        ?provisionedStorageThroughput ?iopsToStorageRatio ?provisionedIops
        ?storageSize ?storageType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportsStorageAutoscaling =
        field_map json__ "SupportsStorageAutoscaling" Boolean.of_json in
      let storageThroughputToIopsRatio =
        field_map json__ "StorageThroughputToIopsRatio"
          DoubleRangeList.of_json in
      let provisionedStorageThroughput =
        field_map json__ "ProvisionedStorageThroughput" RangeList.of_json in
      let iopsToStorageRatio =
        field_map json__ "IopsToStorageRatio" DoubleRangeList.of_json in
      let provisionedIops =
        field_map json__ "ProvisionedIops" RangeList.of_json in
      let storageSize = field_map json__ "StorageSize" RangeList.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      make ?supportsStorageAutoscaling ?storageThroughputToIopsRatio
        ?provisionedStorageThroughput ?iopsToStorageRatio ?provisionedIops
        ?storageSize ?storageType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about valid modifications that you can make to your DB instance. Contains the result of a successful call to the DescribeValidDBInstanceModifications action."]
module ContextAttribute =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The key of ContextAttribute."];
      value: String_.t option [@ocaml.doc "The value of ContextAttribute."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child 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 json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The additional attributes of RecommendedAction data type."]
module PerformanceIssueDetails =
  struct
    type nonrec t =
      {
      startTime: TStamp.t option
        [@ocaml.doc "The time when the performance issue started."];
      endTime: TStamp.t option
        [@ocaml.doc "The time when the performance issue stopped."];
      metrics: MetricList.t option
        [@ocaml.doc
          "The metrics that are relevant to the performance issue."];
      analysis: String_.t option
        [@ocaml.doc
          "The analysis of the performance issue. The information might contain markdown."]}
    let make ?startTime =
      fun ?endTime ->
        fun ?metrics ->
          fun ?analysis ->
            fun () -> { startTime; endTime; metrics; analysis }
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:TStamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:TStamp.to_value));
        ("Metrics", (Option.map x.metrics ~f:MetricList.to_value));
        ("Analysis", (Option.map x.analysis ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let analysis =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Analysis") in
      let metrics =
        (Option.map ~f:MetricList.of_xml) (Xml.child xml_arg0 "Metrics") in
      let endTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?analysis ?metrics ?endTime ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let analysis = field_map json__ "Analysis" String_.of_json in
      let metrics = field_map json__ "Metrics" MetricList.of_json in
      let endTime = field_map json__ "EndTime" TStamp.of_json in
      let startTime = field_map json__ "StartTime" TStamp.of_json in
      make ?analysis ?metrics ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details of the performance issue."]
module RecommendedActionParameter =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "The key of the parameter to use with the RecommendedAction API operation."];
      value: String_.t option
        [@ocaml.doc
          "The value of the parameter to use with the RecommendedAction API operation."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child 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 json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A single parameter to use with the RecommendedAction API operation to apply the action."]
module AvailabilityZone =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the Availability Zone."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains Availability Zone information. This data type is used as an element in the OrderableDBInstanceOption data type."]
module Outpost =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Outpost."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Option.map x.arn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" String_.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A data type that represents an Outpost. For more information about RDS on Outposts, see Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide."]
module DoubleOptional =
  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 DBSecurityGroupMembershipList =
  struct
    type nonrec t = DBSecurityGroupMembership.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:DBSecurityGroupMembership.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:DBSecurityGroupMembership.of_xml)
    let of_json j =
      list_of_json ~kind:"DBSecurityGroupMembershipList"
        ~of_json:DBSecurityGroupMembership.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionSettingConfigurationList =
  struct
    type nonrec t = OptionSetting.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:OptionSetting.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:OptionSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionSettingConfigurationList"
        ~of_json:OptionSetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcSecurityGroupMembershipList =
  struct
    type nonrec t = VpcSecurityGroupMembership.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:VpcSecurityGroupMembership.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:VpcSecurityGroupMembership.of_xml)
    let of_json j =
      list_of_json ~kind:"VpcSecurityGroupMembershipList"
        ~of_json:VpcSecurityGroupMembership.of_json j
    let to_json v = composed_to_json to_value v
  end
module MinimumEngineVersionPerAllowedValueList =
  struct
    type nonrec t = MinimumEngineVersionPerAllowedValue.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:MinimumEngineVersionPerAllowedValue.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:MinimumEngineVersionPerAllowedValue.of_xml)
    let of_json j =
      list_of_json ~kind:"MinimumEngineVersionPerAllowedValueList"
        ~of_json:MinimumEngineVersionPerAllowedValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module GlobalClusterMemberSynchronizationStatus =
  struct
    type nonrec t =
      | Connected 
      | Pending_resync 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Connected -> "connected"
      | Pending_resync -> "pending-resync"
      | Non_static_id s -> s
    let of_string =
      function
      | "connected" -> Connected
      | "pending-resync" -> Pending_resync
      | 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 GlobalClusterMemberSynchronizationStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"GlobalClusterMemberSynchronizationStatus" j)
    let to_json = simple_to_json to_value
  end
module ReadersArnList =
  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:"ReadersArnList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module WriteForwardingStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Enabling 
      | Disabling 
      | Unknown 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Enabling -> "enabling"
      | Disabling -> "disabling"
      | Unknown -> "unknown"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | "enabling" -> Enabling
      | "disabling" -> Disabling
      | "unknown" -> Unknown
      | 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 WriteForwardingStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WriteForwardingStatus" j)
    let to_json = simple_to_json to_value
  end
module ValidStorageOptionsList =
  struct
    type nonrec t = ValidStorageOptions.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:ValidStorageOptions.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:ValidStorageOptions.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidStorageOptionsList"
        ~of_json:ValidStorageOptions.of_json j
    let to_json v = composed_to_json to_value v
  end
module AuthScheme =
  struct
    type nonrec t =
      | SECRETS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | SECRETS -> "SECRETS" | Non_static_id s -> s
    let of_string = function | "SECRETS" -> SECRETS | 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 AuthScheme" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthScheme" j)
    let to_json = simple_to_json to_value
  end
module ClientPasswordAuthType =
  struct
    type nonrec t =
      | MYSQL_NATIVE_PASSWORD 
      | MYSQL_CACHING_SHA2_PASSWORD 
      | POSTGRES_SCRAM_SHA_256 
      | POSTGRES_MD5 
      | SQL_SERVER_AUTHENTICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MYSQL_NATIVE_PASSWORD -> "MYSQL_NATIVE_PASSWORD"
      | MYSQL_CACHING_SHA2_PASSWORD -> "MYSQL_CACHING_SHA2_PASSWORD"
      | POSTGRES_SCRAM_SHA_256 -> "POSTGRES_SCRAM_SHA_256"
      | POSTGRES_MD5 -> "POSTGRES_MD5"
      | SQL_SERVER_AUTHENTICATION -> "SQL_SERVER_AUTHENTICATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "MYSQL_NATIVE_PASSWORD" -> MYSQL_NATIVE_PASSWORD
      | "MYSQL_CACHING_SHA2_PASSWORD" -> MYSQL_CACHING_SHA2_PASSWORD
      | "POSTGRES_SCRAM_SHA_256" -> POSTGRES_SCRAM_SHA_256
      | "POSTGRES_MD5" -> POSTGRES_MD5
      | "SQL_SERVER_AUTHENTICATION" -> SQL_SERVER_AUTHENTICATION
      | 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 ClientPasswordAuthType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClientPasswordAuthType" j)
    let to_json = simple_to_json to_value
  end
module IAMAuthMode =
  struct
    type nonrec t =
      | DISABLED 
      | REQUIRED 
      | ENABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISABLED -> "DISABLED"
      | REQUIRED -> "REQUIRED"
      | ENABLED -> "ENABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISABLED" -> DISABLED
      | "REQUIRED" -> REQUIRED
      | "ENABLED" -> ENABLED
      | 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 IAMAuthMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IAMAuthMode" j)
    let to_json = simple_to_json to_value
  end
module LifecycleSupportName =
  struct
    type nonrec t =
      | Open_source_rds_standard_support 
      | Open_source_rds_extended_support 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Open_source_rds_standard_support ->
          "open-source-rds-standard-support"
      | Open_source_rds_extended_support ->
          "open-source-rds-extended-support"
      | Non_static_id s -> s
    let of_string =
      function
      | "open-source-rds-standard-support" ->
          Open_source_rds_standard_support
      | "open-source-rds-extended-support" ->
          Open_source_rds_extended_support
      | 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 LifecycleSupportName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LifecycleSupportName" j)
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentTaskName =
  struct
    type nonrec t = string
    let context_ = "BlueGreenDeploymentTaskName"
    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:"BlueGreenDeploymentTaskName" j
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentTaskStatus =
  struct
    type nonrec t = string
    let context_ = "BlueGreenDeploymentTaskStatus"
    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:"BlueGreenDeploymentTaskStatus" j
    let to_json = simple_to_json to_value
  end
module DatabaseArn =
  struct
    type nonrec t = string
    let context_ = "DatabaseArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:[A-Za-z][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:"DatabaseArn" j
    let to_json = simple_to_json to_value
  end
module SwitchoverDetailStatus =
  struct
    type nonrec t = string
    let context_ = "SwitchoverDetailStatus"
    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:"SwitchoverDetailStatus" j
    let to_json = simple_to_json to_value
  end
module ContextAttributeList =
  struct
    type nonrec t = ContextAttribute.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:ContextAttribute.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:ContextAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"ContextAttributeList"
        ~of_json:ContextAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module IssueDetails =
  struct
    type nonrec t =
      {
      performanceIssueDetails: PerformanceIssueDetails.t option
        [@ocaml.doc
          "A detailed description of the issue when the recommendation category is performance."]}
    let make ?performanceIssueDetails = fun () -> { performanceIssueDetails }
    let to_value x =
      structure_to_value
        [("PerformanceIssueDetails",
           (Option.map x.performanceIssueDetails
              ~f:PerformanceIssueDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performanceIssueDetails =
        (Option.map ~f:PerformanceIssueDetails.of_xml)
          (Xml.child xml_arg0 "PerformanceIssueDetails") in
      make ?performanceIssueDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performanceIssueDetails =
        field_map json__ "PerformanceIssueDetails"
          PerformanceIssueDetails.of_json in
      make ?performanceIssueDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of an issue with your DB instances, DB clusters, and DB parameter groups."]
module RecommendedActionParameterList =
  struct
    type nonrec t = RecommendedActionParameter.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:RecommendedActionParameter.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:RecommendedActionParameter.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendedActionParameterList"
        ~of_json:RecommendedActionParameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module Subnet =
  struct
    type nonrec t =
      {
      subnetIdentifier: String_.t option
        [@ocaml.doc "The identifier of the subnet."];
      subnetAvailabilityZone: AvailabilityZone.t option ;
      subnetOutpost: Outpost.t option
        [@ocaml.doc
          "If the subnet is associated with an Outpost, this value specifies the Outpost. For more information about RDS on Outposts, see Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide."];
      subnetStatus: String_.t option [@ocaml.doc "The status of the subnet."]}
    let make ?subnetIdentifier =
      fun ?subnetAvailabilityZone ->
        fun ?subnetOutpost ->
          fun ?subnetStatus ->
            fun () ->
              {
                subnetIdentifier;
                subnetAvailabilityZone;
                subnetOutpost;
                subnetStatus
              }
    let to_value x =
      structure_to_value
        [("SubnetIdentifier",
           (Option.map x.subnetIdentifier ~f:String_.to_value));
        ("SubnetAvailabilityZone",
          (Option.map x.subnetAvailabilityZone ~f:AvailabilityZone.to_value));
        ("SubnetOutpost", (Option.map x.subnetOutpost ~f:Outpost.to_value));
        ("SubnetStatus", (Option.map x.subnetStatus ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SubnetStatus") in
      let subnetOutpost =
        (Option.map ~f:Outpost.of_xml) (Xml.child xml_arg0 "SubnetOutpost") in
      let subnetAvailabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "SubnetAvailabilityZone") in
      let subnetIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SubnetIdentifier") in
      make ?subnetStatus ?subnetOutpost ?subnetAvailabilityZone
        ?subnetIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetStatus = field_map json__ "SubnetStatus" String_.of_json in
      let subnetOutpost = field_map json__ "SubnetOutpost" Outpost.of_json in
      let subnetAvailabilityZone =
        field_map json__ "SubnetAvailabilityZone" AvailabilityZone.of_json in
      let subnetIdentifier =
        field_map json__ "SubnetIdentifier" String_.of_json in
      make ?subnetStatus ?subnetOutpost ?subnetAvailabilityZone
        ?subnetIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element for the DescribeDBSubnetGroups operation."]
module AdditionalStorageVolume =
  struct
    type nonrec t =
      {
      volumeName: String_.t
        [@ocaml.doc
          "The name of the additional storage volume. Valid Values: RDSDBDATA2 | RDSDBDATA3 | RDSDBDATA4"];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The amount of storage allocated for the additional storage volume, in gibibytes (GiB). The minimum is 20 GiB. The maximum is 65,536 GiB (64 TiB)."];
      iOPS: IntegerOptional.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS) provisioned for the additional storage volume."];
      maxAllocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The upper limit in gibibytes (GiB) to which RDS can automatically scale the storage of the additional storage volume."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput value for the additional storage volume, in mebibytes per second (MiBps). This setting applies only to the General Purpose SSD (gp3) storage type."];
      storageType: String_.t option
        [@ocaml.doc
          "The storage type for the additional storage volume. Valid Values: GP3 | IO2"]}
    let context_ = "AdditionalStorageVolume"
    let make ?allocatedStorage =
      fun ?iOPS ->
        fun ?maxAllocatedStorage ->
          fun ?storageThroughput ->
            fun ?storageType ->
              fun ~volumeName ->
                fun () ->
                  {
                    allocatedStorage;
                    iOPS;
                    maxAllocatedStorage;
                    storageThroughput;
                    storageType;
                    volumeName
                  }
    let to_value x =
      structure_to_value
        [("VolumeName", (Some (String_.to_value x.volumeName)));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("IOPS", (Option.map x.iOPS ~f:IntegerOptional.to_value));
        ("MaxAllocatedStorage",
          (Option.map x.maxAllocatedStorage ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let maxAllocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxAllocatedStorage") in
      let iOPS =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "IOPS") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let volumeName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeName") in
      make ?storageType ?storageThroughput ?maxAllocatedStorage ?iOPS
        ?allocatedStorage ~volumeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageType = field_map json__ "StorageType" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let maxAllocatedStorage =
        field_map json__ "MaxAllocatedStorage" IntegerOptional.of_json in
      let iOPS = field_map json__ "IOPS" IntegerOptional.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let volumeName = field_map_exn json__ "VolumeName" String_.of_json in
      make ?storageType ?storageThroughput ?maxAllocatedStorage ?iOPS
        ?allocatedStorage ~volumeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about an additional storage volume for a DB instance. RDS support additional storage volumes for RDS for Oracle and RDS for SQL Server."]
module LogTypeList =
  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:"LogTypeList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProcessorFeature =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc
          "The name of the processor feature. Valid names are coreCount and threadsPerCore."];
      value: String_.t option
        [@ocaml.doc "The value of a processor feature."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let name = (Option.map ~f:String_.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" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the processor features of a DB instance class. To specify the number of CPU cores, use the coreCount feature name for the Name parameter. To specify the number of threads per core, use the threadsPerCore feature name for the Name parameter. You can set the processor features of the DB instance class for a DB instance when you call one of the following actions: CreateDBInstance ModifyDBInstance RestoreDBInstanceFromDBSnapshot RestoreDBInstanceFromS3 RestoreDBInstanceToPointInTime You can view the valid processor values for a particular instance class by calling the DescribeOrderableDBInstanceOptions action and specifying the instance class for the DBInstanceClass parameter. In addition, you can use the following actions for DB instance class processor information: DescribeDBInstances DescribeDBSnapshots DescribeValidDBInstanceModifications If you call DescribeDBInstances, ProcessorFeature returns non-null values only if the following conditions are met: You are accessing an Oracle or SQL Server DB instance. Your Oracle or SQL Server DB instance class supports configuring the number of CPU cores and threads per core. The current number CPU cores and threads is set to a non-default value. For more information, see Configuring the processor for a DB instance class in RDS for Oracle, Optimizing your RDS for SQL Server CPU, and DB instance classes in the Amazon RDS User Guide."]
module BooleanOptional =
  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 EngineModeList =
  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:"EngineModeList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplicaMode =
  struct
    type nonrec t =
      | Open_read_only 
      | Mounted 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Open_read_only -> "open-read-only"
      | Mounted -> "mounted"
      | Non_static_id s -> s
    let of_string =
      function
      | "open-read-only" -> Open_read_only
      | "mounted" -> Mounted
      | 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 ReplicaMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicaMode" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and can't be prefixed with aws: or rds:. The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', ':', '/', '=', '+', '-', '\\@' (Java regex: \"^(\\[\\\\p\\{L\\}\\\\p\\{Z\\}\\\\p\\{N\\}_.:/=+\\\\-\\@\\]*)$\")."];
      value: String_.t option
        [@ocaml.doc
          "A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and can't be prefixed with aws: or rds:. The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', ':', '/', '=', '+', '-', '\\@' (Java regex: \"^(\\[\\\\p\\{L\\}\\\\p\\{Z\\}\\\\p\\{N\\}_.:/=+\\\\-\\@\\]*)$\")."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child 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 json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Metadata assigned to an Amazon RDS resource consisting of a key-value pair. For more information, see Tagging Amazon RDS resources in the Amazon RDS User Guide or Tagging Amazon Aurora and Amazon RDS resources in the Amazon Aurora User Guide."]
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "SensitiveString"
    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:"SensitiveString" j
    let to_json = simple_to_json to_value
  end
module RecurringCharge =
  struct
    type nonrec t =
      {
      recurringChargeAmount: Double.t option
        [@ocaml.doc "The 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
       "This data type is used as a response element in the DescribeReservedDBInstances and DescribeReservedDBInstancesOfferings actions."]
module TargetHealthReason =
  struct
    type nonrec t =
      | UNREACHABLE 
      | CONNECTION_FAILED 
      | AUTH_FAILURE 
      | PENDING_PROXY_CAPACITY 
      | INVALID_REPLICATION_STATE 
      | PROMOTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNREACHABLE -> "UNREACHABLE"
      | CONNECTION_FAILED -> "CONNECTION_FAILED"
      | AUTH_FAILURE -> "AUTH_FAILURE"
      | PENDING_PROXY_CAPACITY -> "PENDING_PROXY_CAPACITY"
      | INVALID_REPLICATION_STATE -> "INVALID_REPLICATION_STATE"
      | PROMOTED -> "PROMOTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNREACHABLE" -> UNREACHABLE
      | "CONNECTION_FAILED" -> CONNECTION_FAILED
      | "AUTH_FAILURE" -> AUTH_FAILURE
      | "PENDING_PROXY_CAPACITY" -> PENDING_PROXY_CAPACITY
      | "INVALID_REPLICATION_STATE" -> INVALID_REPLICATION_STATE
      | "PROMOTED" -> PROMOTED
      | 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 TargetHealthReason" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetHealthReason" j)
    let to_json = simple_to_json to_value
  end
module TargetState =
  struct
    type nonrec t =
      | REGISTERING 
      | AVAILABLE 
      | UNAVAILABLE 
      | UNUSED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGISTERING -> "REGISTERING"
      | AVAILABLE -> "AVAILABLE"
      | UNAVAILABLE -> "UNAVAILABLE"
      | UNUSED -> "UNUSED"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGISTERING" -> REGISTERING
      | "AVAILABLE" -> AVAILABLE
      | "UNAVAILABLE" -> UNAVAILABLE
      | "UNUSED" -> UNUSED
      | 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 TargetState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetState" j)
    let to_json = simple_to_json to_value
  end
module PendingMaintenanceAction =
  struct
    type nonrec t =
      {
      action: String_.t option
        [@ocaml.doc
          "The type of pending maintenance action that is available for the resource. For more information about maintenance actions, see Maintaining a DB instance. Valid Values: ca-certificate-rotation db-upgrade hardware-maintenance os-upgrade serverless-platform-version-update system-update For more information about these actions, see Maintenance actions for Amazon Aurora or Maintenance actions for Amazon RDS."];
      autoAppliedAfterDate: TStamp.t option
        [@ocaml.doc
          "The date of the maintenance window when the action is applied. The maintenance action is applied to the resource during its first maintenance window after this date."];
      forcedApplyDate: TStamp.t option
        [@ocaml.doc
          "The date when the maintenance action is automatically applied. On this date, the maintenance action is applied to the resource as soon as possible, regardless of the maintenance window for the resource. There might be a delay of one or more days from this date before the maintenance action is applied."];
      optInStatus: String_.t option
        [@ocaml.doc
          "Indicates the type of opt-in request that has been received for the resource."];
      currentApplyDate: TStamp.t option
        [@ocaml.doc
          "The effective date when the pending maintenance action is applied to the resource. This date takes into account opt-in requests received from the ApplyPendingMaintenanceAction API, the AutoAppliedAfterDate, and the ForcedApplyDate. This value is blank if an opt-in request has not been received and nothing has been specified as AutoAppliedAfterDate or ForcedApplyDate."];
      description: String_.t option
        [@ocaml.doc
          "A description providing more detail about the maintenance action."]}
    let make ?action =
      fun ?autoAppliedAfterDate ->
        fun ?forcedApplyDate ->
          fun ?optInStatus ->
            fun ?currentApplyDate ->
              fun ?description ->
                fun () ->
                  {
                    action;
                    autoAppliedAfterDate;
                    forcedApplyDate;
                    optInStatus;
                    currentApplyDate;
                    description
                  }
    let to_value x =
      structure_to_value
        [("Action", (Option.map x.action ~f:String_.to_value));
        ("AutoAppliedAfterDate",
          (Option.map x.autoAppliedAfterDate ~f:TStamp.to_value));
        ("ForcedApplyDate",
          (Option.map x.forcedApplyDate ~f:TStamp.to_value));
        ("OptInStatus", (Option.map x.optInStatus ~f:String_.to_value));
        ("CurrentApplyDate",
          (Option.map x.currentApplyDate ~f:TStamp.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let currentApplyDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CurrentApplyDate") in
      let optInStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptInStatus") in
      let forcedApplyDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "ForcedApplyDate") in
      let autoAppliedAfterDate =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "AutoAppliedAfterDate") in
      let action =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Action") in
      make ?description ?currentApplyDate ?optInStatus ?forcedApplyDate
        ?autoAppliedAfterDate ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" String_.of_json in
      let currentApplyDate =
        field_map json__ "CurrentApplyDate" TStamp.of_json in
      let optInStatus = field_map json__ "OptInStatus" String_.of_json in
      let forcedApplyDate = field_map json__ "ForcedApplyDate" TStamp.of_json in
      let autoAppliedAfterDate =
        field_map json__ "AutoAppliedAfterDate" TStamp.of_json in
      let action = field_map json__ "Action" String_.of_json in
      make ?description ?currentApplyDate ?optInStatus ?forcedApplyDate
        ?autoAppliedAfterDate ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about a pending maintenance action for a resource."]
module AvailableAdditionalStorageVolumesOption =
  struct
    type nonrec t =
      {
      supportsStorageAutoscaling: Boolean.t option
        [@ocaml.doc
          "Indicates whether the additional storage volume supports storage autoscaling."];
      supportsStorageThroughput: Boolean.t option
        [@ocaml.doc
          "Indicates whether the additional storage volume supports configurable storage throughput."];
      supportsIops: Boolean.t option
        [@ocaml.doc
          "Indicates whether the additional storage volume supports provisioned IOPS."];
      storageType: String_.t option
        [@ocaml.doc
          "The storage type for the additional storage volume. Valid Values: GP3 | IO2"];
      minStorageSize: IntegerOptional.t option
        [@ocaml.doc
          "The minimum amount of storage that you can allocate for the additional storage volume, in gibibytes (GiB)."];
      maxStorageSize: IntegerOptional.t option
        [@ocaml.doc
          "The maximum amount of storage that you can allocate for the additional storage volume, in gibibytes (GiB)."];
      minIops: IntegerOptional.t option
        [@ocaml.doc
          "The minimum number of I/O operations per second (IOPS) that the additional storage volume supports."];
      maxIops: IntegerOptional.t option
        [@ocaml.doc
          "The maximum number of I/O operations per second (IOPS) that the additional storage volume supports."];
      minIopsPerGib: DoubleOptional.t option
        [@ocaml.doc
          "The minimum ratio of I/O operations per second (IOPS) to gibibytes (GiB) of storage for the additional storage volume."];
      maxIopsPerGib: DoubleOptional.t option
        [@ocaml.doc
          "The maximum ratio of I/O operations per second (IOPS) to gibibytes (GiB) of storage for the additional storage volume."];
      minStorageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The minimum storage throughput that the additional storage volume supports, in mebibytes per second (MiBps)."];
      maxStorageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The maximum storage throughput that the additional storage volume supports, in mebibytes per second (MiBps)."]}
    let make ?supportsStorageAutoscaling =
      fun ?supportsStorageThroughput ->
        fun ?supportsIops ->
          fun ?storageType ->
            fun ?minStorageSize ->
              fun ?maxStorageSize ->
                fun ?minIops ->
                  fun ?maxIops ->
                    fun ?minIopsPerGib ->
                      fun ?maxIopsPerGib ->
                        fun ?minStorageThroughput ->
                          fun ?maxStorageThroughput ->
                            fun () ->
                              {
                                supportsStorageAutoscaling;
                                supportsStorageThroughput;
                                supportsIops;
                                storageType;
                                minStorageSize;
                                maxStorageSize;
                                minIops;
                                maxIops;
                                minIopsPerGib;
                                maxIopsPerGib;
                                minStorageThroughput;
                                maxStorageThroughput
                              }
    let to_value x =
      structure_to_value
        [("SupportsStorageAutoscaling",
           (Option.map x.supportsStorageAutoscaling ~f:Boolean.to_value));
        ("SupportsStorageThroughput",
          (Option.map x.supportsStorageThroughput ~f:Boolean.to_value));
        ("SupportsIops", (Option.map x.supportsIops ~f:Boolean.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("MinStorageSize",
          (Option.map x.minStorageSize ~f:IntegerOptional.to_value));
        ("MaxStorageSize",
          (Option.map x.maxStorageSize ~f:IntegerOptional.to_value));
        ("MinIops", (Option.map x.minIops ~f:IntegerOptional.to_value));
        ("MaxIops", (Option.map x.maxIops ~f:IntegerOptional.to_value));
        ("MinIopsPerGib",
          (Option.map x.minIopsPerGib ~f:DoubleOptional.to_value));
        ("MaxIopsPerGib",
          (Option.map x.maxIopsPerGib ~f:DoubleOptional.to_value));
        ("MinStorageThroughput",
          (Option.map x.minStorageThroughput ~f:IntegerOptional.to_value));
        ("MaxStorageThroughput",
          (Option.map x.maxStorageThroughput ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxStorageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxStorageThroughput") in
      let minStorageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinStorageThroughput") in
      let maxIopsPerGib =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MaxIopsPerGib") in
      let minIopsPerGib =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinIopsPerGib") in
      let maxIops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "MaxIops") in
      let minIops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "MinIops") in
      let maxStorageSize =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxStorageSize") in
      let minStorageSize =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinStorageSize") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let supportsIops =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SupportsIops") in
      let supportsStorageThroughput =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsStorageThroughput") in
      let supportsStorageAutoscaling =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsStorageAutoscaling") in
      make ?maxStorageThroughput ?minStorageThroughput ?maxIopsPerGib
        ?minIopsPerGib ?maxIops ?minIops ?maxStorageSize ?minStorageSize
        ?storageType ?supportsIops ?supportsStorageThroughput
        ?supportsStorageAutoscaling ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxStorageThroughput =
        field_map json__ "MaxStorageThroughput" IntegerOptional.of_json in
      let minStorageThroughput =
        field_map json__ "MinStorageThroughput" IntegerOptional.of_json in
      let maxIopsPerGib =
        field_map json__ "MaxIopsPerGib" DoubleOptional.of_json in
      let minIopsPerGib =
        field_map json__ "MinIopsPerGib" DoubleOptional.of_json in
      let maxIops = field_map json__ "MaxIops" IntegerOptional.of_json in
      let minIops = field_map json__ "MinIops" IntegerOptional.of_json in
      let maxStorageSize =
        field_map json__ "MaxStorageSize" IntegerOptional.of_json in
      let minStorageSize =
        field_map json__ "MinStorageSize" IntegerOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let supportsIops = field_map json__ "SupportsIops" Boolean.of_json in
      let supportsStorageThroughput =
        field_map json__ "SupportsStorageThroughput" Boolean.of_json in
      let supportsStorageAutoscaling =
        field_map json__ "SupportsStorageAutoscaling" Boolean.of_json in
      make ?maxStorageThroughput ?minStorageThroughput ?maxIopsPerGib
        ?minIopsPerGib ?maxIops ?minIops ?maxStorageSize ?minStorageSize
        ?storageType ?supportsIops ?supportsStorageThroughput
        ?supportsStorageAutoscaling ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the available options for additional storage volumes for a DB instance class."]
module AvailableProcessorFeature =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc
          "The name of the processor feature. Valid names are coreCount and threadsPerCore."];
      defaultValue: String_.t option
        [@ocaml.doc
          "The default value for the processor feature of the DB instance class."];
      allowedValues: String_.t option
        [@ocaml.doc
          "The allowed values for the processor feature of the DB instance class."]}
    let make ?name =
      fun ?defaultValue ->
        fun ?allowedValues -> fun () -> { name; defaultValue; allowedValues }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("DefaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("AllowedValues", (Option.map x.allowedValues ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedValues =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AllowedValues") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DefaultValue") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?allowedValues ?defaultValue ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedValues = field_map json__ "AllowedValues" String_.of_json in
      let defaultValue = field_map json__ "DefaultValue" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?allowedValues ?defaultValue ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the available processor feature information for the DB instance class of a DB instance. For more information, see Configuring the Processor of the DB Instance Class in the Amazon RDS User Guide."]
module Option_ =
  struct
    type nonrec t =
      {
      optionName: String_.t option [@ocaml.doc "The name of the option."];
      optionDescription: String_.t option
        [@ocaml.doc "The description of the option."];
      persistent: Boolean.t option
        [@ocaml.doc "Indicates whether this option is persistent."];
      permanent: Boolean.t option
        [@ocaml.doc "Indicates whether this option is permanent."];
      port: IntegerOptional.t option
        [@ocaml.doc
          "If required, the port configured for this option to use."];
      optionVersion: String_.t option
        [@ocaml.doc "The version of the option."];
      optionSettings: OptionSettingConfigurationList.t option
        [@ocaml.doc "The option settings for this option."];
      dBSecurityGroupMemberships: DBSecurityGroupMembershipList.t option
        [@ocaml.doc
          "If the option requires access to a port, then this DB security group allows access to the port."];
      vpcSecurityGroupMemberships: VpcSecurityGroupMembershipList.t option
        [@ocaml.doc
          "If the option requires access to a port, then this VPC security group allows access to the port."]}
    let make ?optionName =
      fun ?optionDescription ->
        fun ?persistent ->
          fun ?permanent ->
            fun ?port ->
              fun ?optionVersion ->
                fun ?optionSettings ->
                  fun ?dBSecurityGroupMemberships ->
                    fun ?vpcSecurityGroupMemberships ->
                      fun () ->
                        {
                          optionName;
                          optionDescription;
                          persistent;
                          permanent;
                          port;
                          optionVersion;
                          optionSettings;
                          dBSecurityGroupMemberships;
                          vpcSecurityGroupMemberships
                        }
    let to_value x =
      structure_to_value
        [("OptionName", (Option.map x.optionName ~f:String_.to_value));
        ("OptionDescription",
          (Option.map x.optionDescription ~f:String_.to_value));
        ("Persistent", (Option.map x.persistent ~f:Boolean.to_value));
        ("Permanent", (Option.map x.permanent ~f:Boolean.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("OptionVersion", (Option.map x.optionVersion ~f:String_.to_value));
        ("OptionSettings",
          (Option.map x.optionSettings
             ~f:OptionSettingConfigurationList.to_value));
        ("DBSecurityGroupMemberships",
          (Option.map x.dBSecurityGroupMemberships
             ~f:DBSecurityGroupMembershipList.to_value));
        ("VpcSecurityGroupMemberships",
          (Option.map x.vpcSecurityGroupMemberships
             ~f:VpcSecurityGroupMembershipList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcSecurityGroupMemberships =
        (Option.map ~f:VpcSecurityGroupMembershipList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupMemberships") in
      let dBSecurityGroupMemberships =
        (Option.map ~f:DBSecurityGroupMembershipList.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroupMemberships") in
      let optionSettings =
        (Option.map ~f:OptionSettingConfigurationList.of_xml)
          (Xml.child xml_arg0 "OptionSettings") in
      let optionVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionVersion") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let permanent =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Permanent") in
      let persistent =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Persistent") in
      let optionDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OptionDescription") in
      let optionName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionName") in
      make ?vpcSecurityGroupMemberships ?dBSecurityGroupMemberships
        ?optionSettings ?optionVersion ?port ?permanent ?persistent
        ?optionDescription ?optionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcSecurityGroupMemberships =
        field_map json__ "VpcSecurityGroupMemberships"
          VpcSecurityGroupMembershipList.of_json in
      let dBSecurityGroupMemberships =
        field_map json__ "DBSecurityGroupMemberships"
          DBSecurityGroupMembershipList.of_json in
      let optionSettings =
        field_map json__ "OptionSettings"
          OptionSettingConfigurationList.of_json in
      let optionVersion = field_map json__ "OptionVersion" String_.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let permanent = field_map json__ "Permanent" Boolean.of_json in
      let persistent = field_map json__ "Persistent" Boolean.of_json in
      let optionDescription =
        field_map json__ "OptionDescription" String_.of_json in
      let optionName = field_map json__ "OptionName" String_.of_json in
      make ?vpcSecurityGroupMemberships ?dBSecurityGroupMemberships
        ?optionSettings ?optionVersion ?port ?permanent ?persistent
        ?optionDescription ?optionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of an option."]
module OptionGroupOptionSetting =
  struct
    type nonrec t =
      {
      settingName: String_.t option
        [@ocaml.doc "The name of the option group option."];
      settingDescription: String_.t option
        [@ocaml.doc "The description of the option group option."];
      defaultValue: String_.t option
        [@ocaml.doc "The default value for the option group option."];
      applyType: String_.t option
        [@ocaml.doc
          "The DB engine specific parameter type for the option group option."];
      allowedValues: String_.t option
        [@ocaml.doc
          "Indicates the acceptable values for the option group option."];
      isModifiable: Boolean.t option
        [@ocaml.doc
          "Indicates whether this option group option can be changed from the default value."];
      isRequired: Boolean.t option
        [@ocaml.doc
          "Indicates whether a value must be specified for this option setting of the option group option."];
      minimumEngineVersionPerAllowedValue:
        MinimumEngineVersionPerAllowedValueList.t option
        [@ocaml.doc
          "The minimum DB engine version required for the corresponding allowed value for this option setting."]}
    let make ?settingName =
      fun ?settingDescription ->
        fun ?defaultValue ->
          fun ?applyType ->
            fun ?allowedValues ->
              fun ?isModifiable ->
                fun ?isRequired ->
                  fun ?minimumEngineVersionPerAllowedValue ->
                    fun () ->
                      {
                        settingName;
                        settingDescription;
                        defaultValue;
                        applyType;
                        allowedValues;
                        isModifiable;
                        isRequired;
                        minimumEngineVersionPerAllowedValue
                      }
    let to_value x =
      structure_to_value
        [("SettingName", (Option.map x.settingName ~f:String_.to_value));
        ("SettingDescription",
          (Option.map x.settingDescription ~f:String_.to_value));
        ("DefaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("ApplyType", (Option.map x.applyType ~f:String_.to_value));
        ("AllowedValues", (Option.map x.allowedValues ~f:String_.to_value));
        ("IsModifiable", (Option.map x.isModifiable ~f:Boolean.to_value));
        ("IsRequired", (Option.map x.isRequired ~f:Boolean.to_value));
        ("MinimumEngineVersionPerAllowedValue",
          (Option.map x.minimumEngineVersionPerAllowedValue
             ~f:MinimumEngineVersionPerAllowedValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minimumEngineVersionPerAllowedValue =
        (Option.map ~f:MinimumEngineVersionPerAllowedValueList.of_xml)
          (Xml.child xml_arg0 "MinimumEngineVersionPerAllowedValue") in
      let isRequired =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsRequired") in
      let isModifiable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsModifiable") in
      let allowedValues =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AllowedValues") in
      let applyType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ApplyType") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DefaultValue") in
      let settingDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SettingDescription") in
      let settingName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SettingName") in
      make ?minimumEngineVersionPerAllowedValue ?isRequired ?isModifiable
        ?allowedValues ?applyType ?defaultValue ?settingDescription
        ?settingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minimumEngineVersionPerAllowedValue =
        field_map json__ "MinimumEngineVersionPerAllowedValue"
          MinimumEngineVersionPerAllowedValueList.of_json in
      let isRequired = field_map json__ "IsRequired" Boolean.of_json in
      let isModifiable = field_map json__ "IsModifiable" Boolean.of_json in
      let allowedValues = field_map json__ "AllowedValues" String_.of_json in
      let applyType = field_map json__ "ApplyType" String_.of_json in
      let defaultValue = field_map json__ "DefaultValue" String_.of_json in
      let settingDescription =
        field_map json__ "SettingDescription" String_.of_json in
      let settingName = field_map json__ "SettingName" String_.of_json in
      make ?minimumEngineVersionPerAllowedValue ?isRequired ?isModifiable
        ?allowedValues ?applyType ?defaultValue ?settingDescription
        ?settingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Option group option settings are used to display settings available for each option with their default values and other information. These values are used with the DescribeOptionGroupOptions action."]
module OptionVersion =
  struct
    type nonrec t =
      {
      version: String_.t option [@ocaml.doc "The version of the option."];
      isDefault: Boolean.t option
        [@ocaml.doc
          "Indicates whether the version is the default version of the option."]}
    let make ?version = fun ?isDefault -> fun () -> { version; isDefault }
    let to_value x =
      structure_to_value
        [("Version", (Option.map x.version ~f:String_.to_value));
        ("IsDefault", (Option.map x.isDefault ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsDefault") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      make ?isDefault ?version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isDefault = field_map json__ "IsDefault" Boolean.of_json in
      let version = field_map json__ "Version" String_.of_json in
      make ?isDefault ?version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The version for an option. Option group option versions are returned by the DescribeOptionGroupOptions action."]
module AttributeValueList =
  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:"AttributeValueList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailoverStatus =
  struct
    type nonrec t =
      | Pending 
      | Failing_over 
      | Cancelling 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Failing_over -> "failing-over"
      | Cancelling -> "cancelling"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "failing-over" -> Failing_over
      | "cancelling" -> Cancelling
      | 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 FailoverStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FailoverStatus" j)
    let to_json = simple_to_json to_value
  end
module GlobalClusterMember =
  struct
    type nonrec t =
      {
      dBClusterArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for each Aurora DB cluster in the global cluster."];
      readers: ReadersArnList.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for each read-only secondary cluster associated with the global cluster."];
      isWriter: Boolean.t option
        [@ocaml.doc
          "Indicates whether the Aurora DB cluster is the primary cluster (that is, has read-write capability) for the global cluster with which it is associated."];
      globalWriteForwardingStatus: WriteForwardingStatus.t option
        [@ocaml.doc
          "The status of write forwarding for a secondary cluster in the global cluster."];
      synchronizationStatus:
        GlobalClusterMemberSynchronizationStatus.t option
        [@ocaml.doc
          "The status of synchronization of each Aurora DB cluster in the global cluster."]}
    let make ?dBClusterArn =
      fun ?readers ->
        fun ?isWriter ->
          fun ?globalWriteForwardingStatus ->
            fun ?synchronizationStatus ->
              fun () ->
                {
                  dBClusterArn;
                  readers;
                  isWriter;
                  globalWriteForwardingStatus;
                  synchronizationStatus
                }
    let to_value x =
      structure_to_value
        [("DBClusterArn", (Option.map x.dBClusterArn ~f:String_.to_value));
        ("Readers", (Option.map x.readers ~f:ReadersArnList.to_value));
        ("IsWriter", (Option.map x.isWriter ~f:Boolean.to_value));
        ("GlobalWriteForwardingStatus",
          (Option.map x.globalWriteForwardingStatus
             ~f:WriteForwardingStatus.to_value));
        ("SynchronizationStatus",
          (Option.map x.synchronizationStatus
             ~f:GlobalClusterMemberSynchronizationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let synchronizationStatus =
        (Option.map ~f:GlobalClusterMemberSynchronizationStatus.of_xml)
          (Xml.child xml_arg0 "SynchronizationStatus") in
      let globalWriteForwardingStatus =
        (Option.map ~f:WriteForwardingStatus.of_xml)
          (Xml.child xml_arg0 "GlobalWriteForwardingStatus") in
      let isWriter =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsWriter") in
      let readers =
        (Option.map ~f:ReadersArnList.of_xml) (Xml.child xml_arg0 "Readers") in
      let dBClusterArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBClusterArn") in
      make ?synchronizationStatus ?globalWriteForwardingStatus ?isWriter
        ?readers ?dBClusterArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let synchronizationStatus =
        field_map json__ "SynchronizationStatus"
          GlobalClusterMemberSynchronizationStatus.of_json in
      let globalWriteForwardingStatus =
        field_map json__ "GlobalWriteForwardingStatus"
          WriteForwardingStatus.of_json in
      let isWriter = field_map json__ "IsWriter" Boolean.of_json in
      let readers = field_map json__ "Readers" ReadersArnList.of_json in
      let dBClusterArn = field_map json__ "DBClusterArn" String_.of_json in
      make ?synchronizationStatus ?globalWriteForwardingStatus ?isWriter
        ?readers ?dBClusterArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A data structure with information about any primary and secondary clusters associated with a global cluster (Aurora global database)."]
module ValidVolumeOptions =
  struct
    type nonrec t =
      {
      volumeName: String_.t option
        [@ocaml.doc "The name of the additional storage volume."];
      storage: ValidStorageOptionsList.t option
        [@ocaml.doc
          "The valid storage options for the additional storage volume."]}
    let make ?volumeName = fun ?storage -> fun () -> { volumeName; storage }
    let to_value x =
      structure_to_value
        [("VolumeName", (Option.map x.volumeName ~f:String_.to_value));
        ("Storage",
          (Option.map x.storage ~f:ValidStorageOptionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storage =
        (Option.map ~f:ValidStorageOptionsList.of_xml)
          (Xml.child xml_arg0 "Storage") in
      let volumeName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VolumeName") in
      make ?storage ?volumeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storage =
        field_map json__ "Storage" ValidStorageOptionsList.of_json in
      let volumeName = field_map json__ "VolumeName" String_.of_json in
      make ?storage ?volumeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the valid options for an additional storage volume."]
module IntegrationError =
  struct
    type nonrec t =
      {
      errorCode: String_.t option
        [@ocaml.doc "The error code associated with the integration."];
      errorMessage: String_.t option
        [@ocaml.doc "A message explaining the error."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:String_.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:String_.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?errorMessage ?errorCode ()
    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" String_.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error associated with a zero-ETL integration with Amazon Redshift."]
module ApplyMethod =
  struct
    type nonrec t =
      | Immediate 
      | Pending_reboot 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Immediate -> "immediate"
      | Pending_reboot -> "pending-reboot"
      | Non_static_id s -> s
    let of_string =
      function
      | "immediate" -> Immediate
      | "pending-reboot" -> Pending_reboot
      | 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 ApplyMethod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApplyMethod" j)
    let to_json = simple_to_json to_value
  end
module PotentiallySensitiveParameterValue =
  struct
    type nonrec t = string
    let context_ = "PotentiallySensitiveParameterValue"
    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:"PotentiallySensitiveParameterValue" j
    let to_json = simple_to_json to_value
  end
module OperatorSensitiveString =
  struct
    type nonrec t = string
    let context_ = "OperatorSensitiveString"
    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:"OperatorSensitiveString" j
    let to_json = simple_to_json to_value
  end
module UserAuthConfigInfo =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc
          "A user-specified description about the authentication used by a proxy to log in as a specific database user."];
      userName: String_.t option
        [@ocaml.doc
          "The name of the database user to which the proxy connects."];
      authScheme: AuthScheme.t option
        [@ocaml.doc
          "The type of authentication that the proxy uses for connections from the proxy to the underlying database."];
      secretArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) representing the secret that the proxy uses to authenticate to the RDS DB instance or Aurora DB cluster. These secrets are stored within Amazon Secrets Manager."];
      iAMAuth: IAMAuthMode.t option
        [@ocaml.doc
          "Whether to require or disallow Amazon Web Services Identity and Access Management (IAM) authentication for connections to the proxy."];
      clientPasswordAuthType: ClientPasswordAuthType.t option
        [@ocaml.doc
          "The type of authentication the proxy uses for connections from clients."]}
    let make ?description =
      fun ?userName ->
        fun ?authScheme ->
          fun ?secretArn ->
            fun ?iAMAuth ->
              fun ?clientPasswordAuthType ->
                fun () ->
                  {
                    description;
                    userName;
                    authScheme;
                    secretArn;
                    iAMAuth;
                    clientPasswordAuthType
                  }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:String_.to_value));
        ("UserName", (Option.map x.userName ~f:String_.to_value));
        ("AuthScheme", (Option.map x.authScheme ~f:AuthScheme.to_value));
        ("SecretArn", (Option.map x.secretArn ~f:String_.to_value));
        ("IAMAuth", (Option.map x.iAMAuth ~f:IAMAuthMode.to_value));
        ("ClientPasswordAuthType",
          (Option.map x.clientPasswordAuthType
             ~f:ClientPasswordAuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientPasswordAuthType =
        (Option.map ~f:ClientPasswordAuthType.of_xml)
          (Xml.child xml_arg0 "ClientPasswordAuthType") in
      let iAMAuth =
        (Option.map ~f:IAMAuthMode.of_xml) (Xml.child xml_arg0 "IAMAuth") in
      let secretArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SecretArn") in
      let authScheme =
        (Option.map ~f:AuthScheme.of_xml) (Xml.child xml_arg0 "AuthScheme") in
      let userName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UserName") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      make ?clientPasswordAuthType ?iAMAuth ?secretArn ?authScheme ?userName
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientPasswordAuthType =
        field_map json__ "ClientPasswordAuthType"
          ClientPasswordAuthType.of_json in
      let iAMAuth = field_map json__ "IAMAuth" IAMAuthMode.of_json in
      let secretArn = field_map json__ "SecretArn" String_.of_json in
      let authScheme = field_map json__ "AuthScheme" AuthScheme.of_json in
      let userName = field_map json__ "UserName" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      make ?clientPasswordAuthType ?iAMAuth ?secretArn ?authScheme ?userName
        ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details of authentication used by a proxy to log in as a specific database user."]
module SupportedEngineLifecycle =
  struct
    type nonrec t =
      {
      lifecycleSupportName: LifecycleSupportName.t option
        [@ocaml.doc
          "The type of lifecycle support that the engine version is in. This parameter returns the following values: open-source-rds-standard-support - Indicates RDS standard support or Aurora standard support. open-source-rds-extended-support - Indicates Amazon RDS Extended Support. For Amazon RDS for MySQL, Amazon RDS for PostgreSQL, Aurora MySQL, and Aurora PostgreSQL, this parameter returns both open-source-rds-standard-support and open-source-rds-extended-support. For Amazon RDS for MariaDB, this parameter only returns the value open-source-rds-standard-support. For information about Amazon RDS Extended Support, see Amazon RDS Extended Support with Amazon RDS in the Amazon RDS User Guide and Amazon RDS Extended Support with Amazon Aurora in the Amazon Aurora User Guide."];
      lifecycleSupportStartDate: TStamp.t option
        [@ocaml.doc
          "The start date for the type of support returned by LifecycleSupportName."];
      lifecycleSupportEndDate: TStamp.t option
        [@ocaml.doc
          "The end date for the type of support returned by LifecycleSupportName."]}
    let make ?lifecycleSupportName =
      fun ?lifecycleSupportStartDate ->
        fun ?lifecycleSupportEndDate ->
          fun () ->
            {
              lifecycleSupportName;
              lifecycleSupportStartDate;
              lifecycleSupportEndDate
            }
    let to_value x =
      structure_to_value
        [("LifecycleSupportName",
           (Option.map x.lifecycleSupportName
              ~f:LifecycleSupportName.to_value));
        ("LifecycleSupportStartDate",
          (Option.map x.lifecycleSupportStartDate ~f:TStamp.to_value));
        ("LifecycleSupportEndDate",
          (Option.map x.lifecycleSupportEndDate ~f:TStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecycleSupportEndDate =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "LifecycleSupportEndDate") in
      let lifecycleSupportStartDate =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "LifecycleSupportStartDate") in
      let lifecycleSupportName =
        (Option.map ~f:LifecycleSupportName.of_xml)
          (Xml.child xml_arg0 "LifecycleSupportName") in
      make ?lifecycleSupportEndDate ?lifecycleSupportStartDate
        ?lifecycleSupportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecycleSupportEndDate =
        field_map json__ "LifecycleSupportEndDate" TStamp.of_json in
      let lifecycleSupportStartDate =
        field_map json__ "LifecycleSupportStartDate" TStamp.of_json in
      let lifecycleSupportName =
        field_map json__ "LifecycleSupportName" LifecycleSupportName.of_json in
      make ?lifecycleSupportEndDate ?lifecycleSupportStartDate
        ?lifecycleSupportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the operation DescribeDBMajorEngineVersions. You can use the information that this data type returns to plan for upgrades. This data type only returns information for the open source engines Amazon RDS for MariaDB, Amazon RDS for MySQL, Amazon RDS for PostgreSQL, Aurora MySQL, and Aurora PostgreSQL."]
module BlueGreenDeploymentTask =
  struct
    type nonrec t =
      {
      name: BlueGreenDeploymentTaskName.t option
        [@ocaml.doc "The name of the blue/green deployment task."];
      status: BlueGreenDeploymentTaskStatus.t option
        [@ocaml.doc
          "The status of the blue/green deployment task. Valid Values: PENDING - The resource is being prepared for deployment. IN_PROGRESS - The resource is being deployed. COMPLETED - The resource has been deployed. FAILED - Deployment of the resource failed."]}
    let make ?name = fun ?status -> fun () -> { name; status }
    let to_value x =
      structure_to_value
        [("Name",
           (Option.map x.name ~f:BlueGreenDeploymentTaskName.to_value));
        ("Status",
          (Option.map x.status ~f:BlueGreenDeploymentTaskStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:BlueGreenDeploymentTaskStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:BlueGreenDeploymentTaskName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "Status" BlueGreenDeploymentTaskStatus.of_json in
      let name = field_map json__ "Name" BlueGreenDeploymentTaskName.of_json in
      make ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about a task for a blue/green deployment. For more information, see Using Amazon RDS Blue/Green Deployments for database updates in the Amazon RDS User Guide and Using Amazon RDS Blue/Green Deployments for database updates in the Amazon Aurora User Guide."]
module SwitchoverDetail =
  struct
    type nonrec t =
      {
      sourceMember: DatabaseArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a resource in the blue environment."];
      targetMember: DatabaseArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a resource in the green environment."];
      status: SwitchoverDetailStatus.t option
        [@ocaml.doc
          "The switchover status of a resource in a blue/green deployment. Values: PROVISIONING - The resource is being prepared to switch over. AVAILABLE - The resource is ready to switch over. SWITCHOVER_IN_PROGRESS - The resource is being switched over. SWITCHOVER_COMPLETED - The resource has been switched over. SWITCHOVER_FAILED - The resource attempted to switch over but failed. MISSING_SOURCE - The source resource has been deleted. MISSING_TARGET - The target resource has been deleted."]}
    let make ?sourceMember =
      fun ?targetMember ->
        fun ?status -> fun () -> { sourceMember; targetMember; status }
    let to_value x =
      structure_to_value
        [("SourceMember",
           (Option.map x.sourceMember ~f:DatabaseArn.to_value));
        ("TargetMember", (Option.map x.targetMember ~f:DatabaseArn.to_value));
        ("Status", (Option.map x.status ~f:SwitchoverDetailStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:SwitchoverDetailStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let targetMember =
        (Option.map ~f:DatabaseArn.of_xml)
          (Xml.child xml_arg0 "TargetMember") in
      let sourceMember =
        (Option.map ~f:DatabaseArn.of_xml)
          (Xml.child xml_arg0 "SourceMember") in
      make ?status ?targetMember ?sourceMember ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" SwitchoverDetailStatus.of_json in
      let targetMember = field_map json__ "TargetMember" DatabaseArn.of_json in
      let sourceMember = field_map json__ "SourceMember" DatabaseArn.of_json in
      make ?status ?targetMember ?sourceMember ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details about a blue/green deployment. For more information, see Using Amazon RDS Blue/Green Deployments for database updates in the Amazon RDS User Guide and Using Amazon RDS Blue/Green Deployments for database updates in the Amazon Aurora User Guide."]
module EC2SecurityGroup =
  struct
    type nonrec t =
      {
      status: String_.t option
        [@ocaml.doc
          "Provides the status of the EC2 security group. Status can be \"authorizing\", \"authorized\", \"revoking\", and \"revoked\"."];
      eC2SecurityGroupName: String_.t option
        [@ocaml.doc "Specifies the name of the EC2 security group."];
      eC2SecurityGroupId: String_.t option
        [@ocaml.doc "Specifies the id of the EC2 security group."];
      eC2SecurityGroupOwnerId: String_.t option
        [@ocaml.doc
          "Specifies the Amazon Web Services ID of the owner of the EC2 security group specified in the EC2SecurityGroupName field."]}
    let make ?status =
      fun ?eC2SecurityGroupName ->
        fun ?eC2SecurityGroupId ->
          fun ?eC2SecurityGroupOwnerId ->
            fun () ->
              {
                status;
                eC2SecurityGroupName;
                eC2SecurityGroupId;
                eC2SecurityGroupOwnerId
              }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value));
        ("EC2SecurityGroupName",
          (Option.map x.eC2SecurityGroupName ~f:String_.to_value));
        ("EC2SecurityGroupId",
          (Option.map x.eC2SecurityGroupId ~f:String_.to_value));
        ("EC2SecurityGroupOwnerId",
          (Option.map x.eC2SecurityGroupOwnerId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eC2SecurityGroupOwnerId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroupOwnerId") in
      let eC2SecurityGroupId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroupId") in
      let eC2SecurityGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroupName") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?eC2SecurityGroupOwnerId ?eC2SecurityGroupId ?eC2SecurityGroupName
        ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eC2SecurityGroupOwnerId =
        field_map json__ "EC2SecurityGroupOwnerId" String_.of_json in
      let eC2SecurityGroupId =
        field_map json__ "EC2SecurityGroupId" String_.of_json in
      let eC2SecurityGroupName =
        field_map json__ "EC2SecurityGroupName" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      make ?eC2SecurityGroupOwnerId ?eC2SecurityGroupId ?eC2SecurityGroupName
        ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the following actions: AuthorizeDBSecurityGroupIngress DescribeDBSecurityGroups RevokeDBSecurityGroupIngress"]
module IPRange =
  struct
    type nonrec t =
      {
      status: String_.t option
        [@ocaml.doc
          "The status of the IP range. Status can be \"authorizing\", \"authorized\", \"revoking\", and \"revoked\"."];
      cIDRIP: String_.t option [@ocaml.doc "The IP range."]}
    let make ?status = fun ?cIDRIP -> fun () -> { status; cIDRIP }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value));
        ("CIDRIP", (Option.map x.cIDRIP ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cIDRIP =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CIDRIP") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?cIDRIP ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cIDRIP = field_map json__ "CIDRIP" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      make ?cIDRIP ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the DescribeDBSecurityGroups action."]
module DocLink =
  struct
    type nonrec t =
      {
      text: String_.t option
        [@ocaml.doc
          "The text with the link to documentation for the recommendation."];
      url: String_.t option
        [@ocaml.doc "The URL for the documentation for the recommendation."]}
    let make ?text = fun ?url -> fun () -> { text; url }
    let to_value x =
      structure_to_value
        [("Text", (Option.map x.text ~f:String_.to_value));
        ("Url", (Option.map x.url ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let url = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Url") in
      let text = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Text") in
      make ?url ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let url = field_map json__ "Url" String_.of_json in
      let text = field_map json__ "Text" String_.of_json in
      make ?url ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A link to documentation that provides additional information for a recommendation."]
module RecommendedAction =
  struct
    type nonrec t =
      {
      actionId: String_.t option
        [@ocaml.doc "The unique identifier of the recommended action."];
      title: String_.t option
        [@ocaml.doc
          "A short description to summarize the action. The description might contain markdown."];
      description: String_.t option
        [@ocaml.doc
          "A detailed description of the action. The description might contain markdown."];
      operation: String_.t option
        [@ocaml.doc "An API operation for the action."];
      parameters: RecommendedActionParameterList.t option
        [@ocaml.doc "The parameters for the API operation."];
      applyModes: StringList.t option
        [@ocaml.doc
          "The methods to apply the recommended action. Valid values: manual - The action requires you to resolve the recommendation manually. immediately - The action is applied immediately. next-maintainance-window - The action is applied during the next scheduled maintainance."];
      status: String_.t option
        [@ocaml.doc
          "The status of the action. ready applied scheduled resolved"];
      issueDetails: IssueDetails.t option
        [@ocaml.doc "The details of the issue."];
      contextAttributes: ContextAttributeList.t option
        [@ocaml.doc
          "The supporting attributes to explain the recommended action."]}
    let make ?actionId =
      fun ?title ->
        fun ?description ->
          fun ?operation ->
            fun ?parameters ->
              fun ?applyModes ->
                fun ?status ->
                  fun ?issueDetails ->
                    fun ?contextAttributes ->
                      fun () ->
                        {
                          actionId;
                          title;
                          description;
                          operation;
                          parameters;
                          applyModes;
                          status;
                          issueDetails;
                          contextAttributes
                        }
    let to_value x =
      structure_to_value
        [("ActionId", (Option.map x.actionId ~f:String_.to_value));
        ("Title", (Option.map x.title ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("Operation", (Option.map x.operation ~f:String_.to_value));
        ("Parameters",
          (Option.map x.parameters ~f:RecommendedActionParameterList.to_value));
        ("ApplyModes", (Option.map x.applyModes ~f:StringList.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("IssueDetails",
          (Option.map x.issueDetails ~f:IssueDetails.to_value));
        ("ContextAttributes",
          (Option.map x.contextAttributes ~f:ContextAttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contextAttributes =
        (Option.map ~f:ContextAttributeList.of_xml)
          (Xml.child xml_arg0 "ContextAttributes") in
      let issueDetails =
        (Option.map ~f:IssueDetails.of_xml)
          (Xml.child xml_arg0 "IssueDetails") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let applyModes =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "ApplyModes") in
      let parameters =
        (Option.map ~f:RecommendedActionParameterList.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      let operation =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Operation") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Title") in
      let actionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ActionId") in
      make ?contextAttributes ?issueDetails ?status ?applyModes ?parameters
        ?operation ?description ?title ?actionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contextAttributes =
        field_map json__ "ContextAttributes" ContextAttributeList.of_json in
      let issueDetails = field_map json__ "IssueDetails" IssueDetails.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let applyModes = field_map json__ "ApplyModes" StringList.of_json in
      let parameters =
        field_map json__ "Parameters" RecommendedActionParameterList.of_json in
      let operation = field_map json__ "Operation" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let title = field_map json__ "Title" String_.of_json in
      let actionId = field_map json__ "ActionId" String_.of_json in
      make ?contextAttributes ?issueDetails ?status ?applyModes ?parameters
        ?operation ?description ?title ?actionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The recommended actions to apply to resolve the issues associated with your DB instances, DB clusters, and DB parameter groups."]
module AdditionalStorageVolumeOutput =
  struct
    type nonrec t =
      {
      volumeName: String_.t option
        [@ocaml.doc "The name of the additional storage volume."];
      storageVolumeStatus: String_.t option
        [@ocaml.doc
          "The status of the additional storage volume. Valid Values: ACTIVE | CREATING | DELETING | MODIFYING | NOT-IN-USE | STORAGE-OPTIMIZATION | VOLUME-FULL"];
      allocatedStorage: Integer.t option
        [@ocaml.doc
          "The amount of storage allocated for the additional storage volume, in gibibytes (GiB). The minimum is 20 GiB. The maximum is 65,536 GiB (64 TiB)."];
      iOPS: IntegerOptional.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS) provisioned for the additional storage volume."];
      maxAllocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The upper limit in gibibytes (GiB) to which RDS can automatically scale the storage of the additional storage volume."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput value for the additional storage volume, in mebibytes per second (MiBps)."];
      storageType: String_.t option
        [@ocaml.doc
          "The storage type for the additional storage volume. Valid Values: GP3 | IO2"]}
    let make ?volumeName =
      fun ?storageVolumeStatus ->
        fun ?allocatedStorage ->
          fun ?iOPS ->
            fun ?maxAllocatedStorage ->
              fun ?storageThroughput ->
                fun ?storageType ->
                  fun () ->
                    {
                      volumeName;
                      storageVolumeStatus;
                      allocatedStorage;
                      iOPS;
                      maxAllocatedStorage;
                      storageThroughput;
                      storageType
                    }
    let to_value x =
      structure_to_value
        [("VolumeName", (Option.map x.volumeName ~f:String_.to_value));
        ("StorageVolumeStatus",
          (Option.map x.storageVolumeStatus ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:Integer.to_value));
        ("IOPS", (Option.map x.iOPS ~f:IntegerOptional.to_value));
        ("MaxAllocatedStorage",
          (Option.map x.maxAllocatedStorage ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let maxAllocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxAllocatedStorage") in
      let iOPS =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "IOPS") in
      let allocatedStorage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let storageVolumeStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "StorageVolumeStatus") in
      let volumeName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VolumeName") in
      make ?storageType ?storageThroughput ?maxAllocatedStorage ?iOPS
        ?allocatedStorage ?storageVolumeStatus ?volumeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageType = field_map json__ "StorageType" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let maxAllocatedStorage =
        field_map json__ "MaxAllocatedStorage" IntegerOptional.of_json in
      let iOPS = field_map json__ "IOPS" IntegerOptional.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" Integer.of_json in
      let storageVolumeStatus =
        field_map json__ "StorageVolumeStatus" String_.of_json in
      let volumeName = field_map json__ "VolumeName" String_.of_json in
      make ?storageType ?storageThroughput ?maxAllocatedStorage ?iOPS
        ?allocatedStorage ?storageVolumeStatus ?volumeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an additional storage volume for a DB instance."]
module DBInstanceAutomatedBackupsReplication =
  struct
    type nonrec t =
      {
      dBInstanceAutomatedBackupsArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the replicated automated backups."]}
    let make ?dBInstanceAutomatedBackupsArn =
      fun () -> { dBInstanceAutomatedBackupsArn }
    let to_value x =
      structure_to_value
        [("DBInstanceAutomatedBackupsArn",
           (Option.map x.dBInstanceAutomatedBackupsArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBInstanceAutomatedBackupsArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceAutomatedBackupsArn") in
      make ?dBInstanceAutomatedBackupsArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstanceAutomatedBackupsArn =
        field_map json__ "DBInstanceAutomatedBackupsArn" String_.of_json in
      make ?dBInstanceAutomatedBackupsArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Automated backups of a DB instance replicated to another Amazon Web Services Region. They consist of system backups, transaction logs, and database instance properties."]
module DBInstanceRole =
  struct
    type nonrec t =
      {
      roleArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role that is associated with the DB instance."];
      featureName: String_.t option
        [@ocaml.doc
          "The name of the feature associated with the Amazon Web Services Identity and Access Management (IAM) role. For information about supported feature names, see DBEngineVersion."];
      status: String_.t option
        [@ocaml.doc
          "Information about the state of association between the IAM role and the DB instance. The Status property returns one of the following values: ACTIVE - the IAM role ARN is associated with the DB instance and can be used to access other Amazon Web Services services on your behalf. PENDING - the IAM role ARN is being associated with the DB instance. INVALID - the IAM role ARN is associated with the DB instance, but the DB instance is unable to assume the IAM role in order to access other Amazon Web Services services on your behalf."]}
    let make ?roleArn =
      fun ?featureName ->
        fun ?status -> fun () -> { roleArn; featureName; status }
    let to_value x =
      structure_to_value
        [("RoleArn", (Option.map x.roleArn ~f:String_.to_value));
        ("FeatureName", (Option.map x.featureName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let featureName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FeatureName") in
      let roleArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RoleArn") in
      make ?status ?featureName ?roleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let featureName = field_map json__ "FeatureName" String_.of_json in
      let roleArn = field_map json__ "RoleArn" String_.of_json in
      make ?status ?featureName ?roleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an Amazon Web Services Identity and Access Management (IAM) role that is associated with a DB instance."]
module DBInstanceStatusInfo =
  struct
    type nonrec t =
      {
      statusType: String_.t option
        [@ocaml.doc "This value is currently \"read replication.\""];
      normal: Boolean.t option
        [@ocaml.doc
          "Indicates whether the instance is operating normally (TRUE) or is in an error state (FALSE)."];
      status: String_.t option
        [@ocaml.doc
          "The status of the DB instance. For a StatusType of read replica, the values can be replicating, replication stop point set, replication stop point reached, error, stopped, or terminated."];
      message: String_.t option
        [@ocaml.doc
          "Details of the error if there is an error for the instance. If the instance isn't in an error state, this value is blank."]}
    let make ?statusType =
      fun ?normal ->
        fun ?status ->
          fun ?message -> fun () -> { statusType; normal; status; message }
    let to_value x =
      structure_to_value
        [("StatusType", (Option.map x.statusType ~f:String_.to_value));
        ("Normal", (Option.map x.normal ~f:Boolean.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let normal =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Normal") in
      let statusType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusType") in
      make ?message ?status ?normal ?statusType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let normal = field_map json__ "Normal" Boolean.of_json in
      let statusType = field_map json__ "StatusType" String_.of_json in
      make ?message ?status ?normal ?statusType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides a list of status information for a DB instance."]
module DBParameterGroupStatus =
  struct
    type nonrec t =
      {
      dBParameterGroupName: String_.t option
        [@ocaml.doc "The name of the DB parameter group."];
      parameterApplyStatus: String_.t option
        [@ocaml.doc
          "The status of parameter updates. Valid values are: applying: The parameter group change is being applied to the database. failed-to-apply: The parameter group is in an invalid state. in-sync: The parameter group change is synchronized with the database. pending-database-upgrade: The parameter group change will be applied after the DB instance is upgraded. pending-reboot: The parameter group change will be applied after the DB instance reboots."]}
    let make ?dBParameterGroupName =
      fun ?parameterApplyStatus ->
        fun () -> { dBParameterGroupName; parameterApplyStatus }
    let to_value x =
      structure_to_value
        [("DBParameterGroupName",
           (Option.map x.dBParameterGroupName ~f:String_.to_value));
        ("ParameterApplyStatus",
          (Option.map x.parameterApplyStatus ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameterApplyStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ParameterApplyStatus") in
      let dBParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupName") in
      make ?parameterApplyStatus ?dBParameterGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameterApplyStatus =
        field_map json__ "ParameterApplyStatus" String_.of_json in
      let dBParameterGroupName =
        field_map json__ "DBParameterGroupName" String_.of_json in
      make ?parameterApplyStatus ?dBParameterGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The status of the DB parameter group. This data type is used as a response element in the following actions: CreateDBInstance CreateDBInstanceReadReplica DeleteDBInstance ModifyDBInstance RebootDBInstance RestoreDBInstanceFromDBSnapshot"]
module SubnetList =
  struct
    type nonrec t = Subnet.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:Subnet.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:Subnet.of_xml)
    let of_json j = list_of_json ~kind:"SubnetList" ~of_json:Subnet.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainMembership =
  struct
    type nonrec t =
      {
      domain: String_.t option
        [@ocaml.doc "The identifier of the Active Directory Domain."];
      status: String_.t option
        [@ocaml.doc
          "The status of the Active Directory Domain membership for the DB instance or cluster. Values include joined, pending-join, failed, and so on."];
      fQDN: String_.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the Active Directory Domain."];
      iAMRoleName: String_.t option
        [@ocaml.doc
          "The name of the IAM role used when making API calls to the Directory Service."];
      oU: String_.t option
        [@ocaml.doc
          "The Active Directory organizational unit for the DB instance or cluster."];
      authSecretArn: String_.t option
        [@ocaml.doc
          "The ARN for the Secrets Manager secret with the credentials for the user that's a member of the domain."];
      dnsIps: StringList.t option
        [@ocaml.doc
          "The IPv4 DNS IP addresses of the primary and secondary Active Directory domain controllers."]}
    let make ?domain =
      fun ?status ->
        fun ?fQDN ->
          fun ?iAMRoleName ->
            fun ?oU ->
              fun ?authSecretArn ->
                fun ?dnsIps ->
                  fun () ->
                    {
                      domain;
                      status;
                      fQDN;
                      iAMRoleName;
                      oU;
                      authSecretArn;
                      dnsIps
                    }
    let to_value x =
      structure_to_value
        [("Domain", (Option.map x.domain ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("FQDN", (Option.map x.fQDN ~f:String_.to_value));
        ("IAMRoleName", (Option.map x.iAMRoleName ~f:String_.to_value));
        ("OU", (Option.map x.oU ~f:String_.to_value));
        ("AuthSecretArn", (Option.map x.authSecretArn ~f:String_.to_value));
        ("DnsIps", (Option.map x.dnsIps ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsIps =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "DnsIps") in
      let authSecretArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AuthSecretArn") in
      let oU = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OU") in
      let iAMRoleName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "IAMRoleName") in
      let fQDN = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FQDN") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let domain =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Domain") in
      make ?dnsIps ?authSecretArn ?oU ?iAMRoleName ?fQDN ?status ?domain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsIps = field_map json__ "DnsIps" StringList.of_json in
      let authSecretArn = field_map json__ "AuthSecretArn" String_.of_json in
      let oU = field_map json__ "OU" String_.of_json in
      let iAMRoleName = field_map json__ "IAMRoleName" String_.of_json in
      let fQDN = field_map json__ "FQDN" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let domain = field_map json__ "Domain" String_.of_json in
      make ?dnsIps ?authSecretArn ?oU ?iAMRoleName ?fQDN ?status ?domain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Active Directory Domain membership record associated with the DB instance or cluster."]
module OptionGroupMembership =
  struct
    type nonrec t =
      {
      optionGroupName: String_.t option
        [@ocaml.doc
          "The name of the option group that the instance belongs to."];
      status: String_.t option
        [@ocaml.doc
          "The status of the DB instance's option group membership. Valid values are: in-sync, pending-apply, pending-removal, pending-maintenance-apply, pending-maintenance-removal, applying, removing, and failed."]}
    let make ?optionGroupName =
      fun ?status -> fun () -> { optionGroupName; status }
    let to_value x =
      structure_to_value
        [("OptionGroupName",
           (Option.map x.optionGroupName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      make ?status ?optionGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      make ?status ?optionGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information on the option groups the DB instance is a member of."]
module AdditionalStorageVolumesList =
  struct
    type nonrec t = AdditionalStorageVolume.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:AdditionalStorageVolume.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:AdditionalStorageVolume.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalStorageVolumesList"
        ~of_json:AdditionalStorageVolume.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutomationMode =
  struct
    type nonrec t =
      | Full 
      | All_paused 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Full -> "full"
      | All_paused -> "all-paused"
      | Non_static_id s -> s
    let of_string =
      function
      | "full" -> Full
      | "all-paused" -> All_paused
      | 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 AutomationMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AutomationMode" j)
    let to_json = simple_to_json to_value
  end
module PendingCloudwatchLogsExports =
  struct
    type nonrec t =
      {
      logTypesToEnable: LogTypeList.t option
        [@ocaml.doc
          "Log types that are in the process of being deactivated. After they are deactivated, these log types aren't exported to CloudWatch Logs."];
      logTypesToDisable: LogTypeList.t option
        [@ocaml.doc
          "Log types that are in the process of being enabled. After they are enabled, these log types are exported to CloudWatch Logs."]}
    let make ?logTypesToEnable =
      fun ?logTypesToDisable ->
        fun () -> { logTypesToEnable; logTypesToDisable }
    let to_value x =
      structure_to_value
        [("LogTypesToEnable",
           (Option.map x.logTypesToEnable ~f:LogTypeList.to_value));
        ("LogTypesToDisable",
          (Option.map x.logTypesToDisable ~f:LogTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logTypesToDisable =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "LogTypesToDisable") in
      let logTypesToEnable =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "LogTypesToEnable") in
      make ?logTypesToDisable ?logTypesToEnable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logTypesToDisable =
        field_map json__ "LogTypesToDisable" LogTypeList.of_json in
      let logTypesToEnable =
        field_map json__ "LogTypesToEnable" LogTypeList.of_json in
      make ?logTypesToDisable ?logTypesToEnable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of the log types whose configuration is still pending. In other words, these log types are in the process of being activated or deactivated."]
module ProcessorFeatureList =
  struct
    type nonrec t = ProcessorFeature.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:ProcessorFeature.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:ProcessorFeature.of_xml)
    let of_json j =
      list_of_json ~kind:"ProcessorFeatureList"
        ~of_json:ProcessorFeature.of_json j
    let to_json v = composed_to_json to_value v
  end
module CharacterSet =
  struct
    type nonrec t =
      {
      characterSetName: String_.t option
        [@ocaml.doc "The name of the character set."];
      characterSetDescription: String_.t option
        [@ocaml.doc "The description of the character set."]}
    let make ?characterSetName =
      fun ?characterSetDescription ->
        fun () -> { characterSetName; characterSetDescription }
    let to_value x =
      structure_to_value
        [("CharacterSetName",
           (Option.map x.characterSetName ~f:String_.to_value));
        ("CharacterSetDescription",
          (Option.map x.characterSetDescription ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let characterSetDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CharacterSetDescription") in
      let characterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CharacterSetName") in
      make ?characterSetDescription ?characterSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let characterSetDescription =
        field_map json__ "CharacterSetDescription" String_.of_json in
      let characterSetName =
        field_map json__ "CharacterSetName" String_.of_json in
      make ?characterSetDescription ?characterSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the action DescribeDBEngineVersions."]
module Timezone =
  struct
    type nonrec t =
      {
      timezoneName: String_.t option
        [@ocaml.doc "The name of the time zone."]}
    let make ?timezoneName = fun () -> { timezoneName }
    let to_value x =
      structure_to_value
        [("TimezoneName", (Option.map x.timezoneName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timezoneName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TimezoneName") in
      make ?timezoneName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timezoneName = field_map json__ "TimezoneName" String_.of_json in
      make ?timezoneName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A time zone associated with a DBInstance or a DBSnapshot. This data type is an element in the response to the DescribeDBInstances, the DescribeDBSnapshots, and the DescribeDBEngineVersions actions."]
module UpgradeTarget =
  struct
    type nonrec t =
      {
      engine: String_.t option
        [@ocaml.doc "The name of the upgrade target database engine."];
      engineVersion: String_.t option
        [@ocaml.doc
          "The version number of the upgrade target database engine."];
      description: String_.t option
        [@ocaml.doc
          "The version of the database engine that a DB instance can be upgraded to."];
      autoUpgrade: Boolean.t option
        [@ocaml.doc
          "Indicates whether the target version is applied to any source DB instances that have AutoMinorVersionUpgrade set to true. This parameter is dynamic, and is set by RDS."];
      isMajorVersionUpgrade: Boolean.t option
        [@ocaml.doc
          "Indicates whether upgrading to the target version requires upgrading the major version of the database engine."];
      supportedEngineModes: EngineModeList.t option
        [@ocaml.doc
          "A list of the supported DB engine modes for the target engine version."];
      supportsParallelQuery: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether you can use Aurora parallel query with the target engine version."];
      supportsGlobalDatabases: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether you can use Aurora global databases with the target engine version."];
      supportsBabelfish: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether you can use Babelfish for Aurora PostgreSQL with the target engine version."];
      supportsLimitlessDatabase: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB engine version supports Aurora Limitless Database."];
      supportsLocalWriteForwarding: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the target engine version supports forwarding write operations from reader DB instances to the writer DB instance in the DB cluster. By default, write operations aren't allowed on reader DB instances. Valid for: Aurora DB clusters only"];
      supportsIntegrations: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB engine version supports zero-ETL integrations with Amazon Redshift."]}
    let make ?engine =
      fun ?engineVersion ->
        fun ?description ->
          fun ?autoUpgrade ->
            fun ?isMajorVersionUpgrade ->
              fun ?supportedEngineModes ->
                fun ?supportsParallelQuery ->
                  fun ?supportsGlobalDatabases ->
                    fun ?supportsBabelfish ->
                      fun ?supportsLimitlessDatabase ->
                        fun ?supportsLocalWriteForwarding ->
                          fun ?supportsIntegrations ->
                            fun () ->
                              {
                                engine;
                                engineVersion;
                                description;
                                autoUpgrade;
                                isMajorVersionUpgrade;
                                supportedEngineModes;
                                supportsParallelQuery;
                                supportsGlobalDatabases;
                                supportsBabelfish;
                                supportsLimitlessDatabase;
                                supportsLocalWriteForwarding;
                                supportsIntegrations
                              }
    let to_value x =
      structure_to_value
        [("Engine", (Option.map x.engine ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("AutoUpgrade", (Option.map x.autoUpgrade ~f:Boolean.to_value));
        ("IsMajorVersionUpgrade",
          (Option.map x.isMajorVersionUpgrade ~f:Boolean.to_value));
        ("SupportedEngineModes",
          (Option.map x.supportedEngineModes ~f:EngineModeList.to_value));
        ("SupportsParallelQuery",
          (Option.map x.supportsParallelQuery ~f:BooleanOptional.to_value));
        ("SupportsGlobalDatabases",
          (Option.map x.supportsGlobalDatabases ~f:BooleanOptional.to_value));
        ("SupportsBabelfish",
          (Option.map x.supportsBabelfish ~f:BooleanOptional.to_value));
        ("SupportsLimitlessDatabase",
          (Option.map x.supportsLimitlessDatabase ~f:BooleanOptional.to_value));
        ("SupportsLocalWriteForwarding",
          (Option.map x.supportsLocalWriteForwarding
             ~f:BooleanOptional.to_value));
        ("SupportsIntegrations",
          (Option.map x.supportsIntegrations ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportsIntegrations =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsIntegrations") in
      let supportsLocalWriteForwarding =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsLocalWriteForwarding") in
      let supportsLimitlessDatabase =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsLimitlessDatabase") in
      let supportsBabelfish =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsBabelfish") in
      let supportsGlobalDatabases =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsGlobalDatabases") in
      let supportsParallelQuery =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsParallelQuery") in
      let supportedEngineModes =
        (Option.map ~f:EngineModeList.of_xml)
          (Xml.child xml_arg0 "SupportedEngineModes") in
      let isMajorVersionUpgrade =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IsMajorVersionUpgrade") in
      let autoUpgrade =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoUpgrade") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      make ?supportsIntegrations ?supportsLocalWriteForwarding
        ?supportsLimitlessDatabase ?supportsBabelfish
        ?supportsGlobalDatabases ?supportsParallelQuery ?supportedEngineModes
        ?isMajorVersionUpgrade ?autoUpgrade ?description ?engineVersion
        ?engine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportsIntegrations =
        field_map json__ "SupportsIntegrations" BooleanOptional.of_json in
      let supportsLocalWriteForwarding =
        field_map json__ "SupportsLocalWriteForwarding"
          BooleanOptional.of_json in
      let supportsLimitlessDatabase =
        field_map json__ "SupportsLimitlessDatabase" BooleanOptional.of_json in
      let supportsBabelfish =
        field_map json__ "SupportsBabelfish" BooleanOptional.of_json in
      let supportsGlobalDatabases =
        field_map json__ "SupportsGlobalDatabases" BooleanOptional.of_json in
      let supportsParallelQuery =
        field_map json__ "SupportsParallelQuery" BooleanOptional.of_json in
      let supportedEngineModes =
        field_map json__ "SupportedEngineModes" EngineModeList.of_json in
      let isMajorVersionUpgrade =
        field_map json__ "IsMajorVersionUpgrade" Boolean.of_json in
      let autoUpgrade = field_map json__ "AutoUpgrade" Boolean.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      make ?supportsIntegrations ?supportsLocalWriteForwarding
        ?supportsLimitlessDatabase ?supportsBabelfish
        ?supportsGlobalDatabases ?supportsParallelQuery ?supportedEngineModes
        ?isMajorVersionUpgrade ?autoUpgrade ?description ?engineVersion
        ?engine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The version of the database engine that a DB instance can be upgraded to."]
module CertificateDetails =
  struct
    type nonrec t =
      {
      cAIdentifier: String_.t option
        [@ocaml.doc
          "The CA identifier of the CA certificate used for the DB instance's server certificate."];
      validTill: TStamp.t option
        [@ocaml.doc
          "The expiration date of the DB instance\226\128\153s server certificate."]}
    let make ?cAIdentifier =
      fun ?validTill -> fun () -> { cAIdentifier; validTill }
    let to_value x =
      structure_to_value
        [("CAIdentifier", (Option.map x.cAIdentifier ~f:String_.to_value));
        ("ValidTill", (Option.map x.validTill ~f:TStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validTill =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "ValidTill") in
      let cAIdentifier =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CAIdentifier") in
      make ?validTill ?cAIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validTill = field_map json__ "ValidTill" TStamp.of_json in
      let cAIdentifier = field_map json__ "CAIdentifier" String_.of_json in
      make ?validTill ?cAIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the DB instance\226\128\153s server certificate. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."]
module RdsCustomClusterConfiguration =
  struct
    type nonrec t =
      {
      interconnectSubnetId: String_.t option
        [@ocaml.doc "Reserved for future use."];
      transitGatewayMulticastDomainId: String_.t option
        [@ocaml.doc "Reserved for future use."];
      replicaMode: ReplicaMode.t option
        [@ocaml.doc "Reserved for future use."]}
    let make ?interconnectSubnetId =
      fun ?transitGatewayMulticastDomainId ->
        fun ?replicaMode ->
          fun () ->
            {
              interconnectSubnetId;
              transitGatewayMulticastDomainId;
              replicaMode
            }
    let to_value x =
      structure_to_value
        [("InterconnectSubnetId",
           (Option.map x.interconnectSubnetId ~f:String_.to_value));
        ("TransitGatewayMulticastDomainId",
          (Option.map x.transitGatewayMulticastDomainId ~f:String_.to_value));
        ("ReplicaMode", (Option.map x.replicaMode ~f:ReplicaMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicaMode =
        (Option.map ~f:ReplicaMode.of_xml) (Xml.child xml_arg0 "ReplicaMode") in
      let transitGatewayMulticastDomainId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TransitGatewayMulticastDomainId") in
      let interconnectSubnetId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "InterconnectSubnetId") in
      make ?replicaMode ?transitGatewayMulticastDomainId
        ?interconnectSubnetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicaMode = field_map json__ "ReplicaMode" ReplicaMode.of_json in
      let transitGatewayMulticastDomainId =
        field_map json__ "TransitGatewayMulticastDomainId" String_.of_json in
      let interconnectSubnetId =
        field_map json__ "InterconnectSubnetId" String_.of_json in
      make ?replicaMode ?transitGatewayMulticastDomainId
        ?interconnectSubnetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Reserved for future use."]
module DBClusterMember =
  struct
    type nonrec t =
      {
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "Specifies the instance identifier for this member of the DB cluster."];
      isClusterWriter: Boolean.t option
        [@ocaml.doc
          "Indicates whether the cluster member is the primary DB instance for the DB cluster."];
      dBClusterParameterGroupStatus: String_.t option
        [@ocaml.doc
          "Specifies the status of the DB cluster parameter group for this member of the DB cluster."];
      promotionTier: IntegerOptional.t option
        [@ocaml.doc
          "A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see Fault Tolerance for an Aurora DB Cluster in the Amazon Aurora User Guide."]}
    let make ?dBInstanceIdentifier =
      fun ?isClusterWriter ->
        fun ?dBClusterParameterGroupStatus ->
          fun ?promotionTier ->
            fun () ->
              {
                dBInstanceIdentifier;
                isClusterWriter;
                dBClusterParameterGroupStatus;
                promotionTier
              }
    let to_value x =
      structure_to_value
        [("DBInstanceIdentifier",
           (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("IsClusterWriter",
          (Option.map x.isClusterWriter ~f:Boolean.to_value));
        ("DBClusterParameterGroupStatus",
          (Option.map x.dBClusterParameterGroupStatus ~f:String_.to_value));
        ("PromotionTier",
          (Option.map x.promotionTier ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let promotionTier =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "PromotionTier") in
      let dBClusterParameterGroupStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterParameterGroupStatus") in
      let isClusterWriter =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsClusterWriter") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      make ?promotionTier ?dBClusterParameterGroupStatus ?isClusterWriter
        ?dBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let promotionTier =
        field_map json__ "PromotionTier" IntegerOptional.of_json in
      let dBClusterParameterGroupStatus =
        field_map json__ "DBClusterParameterGroupStatus" String_.of_json in
      let isClusterWriter =
        field_map json__ "IsClusterWriter" Boolean.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      make ?promotionTier ?dBClusterParameterGroupStatus ?isClusterWriter
        ?dBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an instance that is part of a DB cluster."]
module DBClusterOptionGroupStatus =
  struct
    type nonrec t =
      {
      dBClusterOptionGroupName: String_.t option
        [@ocaml.doc "Specifies the name of the DB cluster option group."];
      status: String_.t option
        [@ocaml.doc "Specifies the status of the DB cluster option group."]}
    let make ?dBClusterOptionGroupName =
      fun ?status -> fun () -> { dBClusterOptionGroupName; status }
    let to_value x =
      structure_to_value
        [("DBClusterOptionGroupName",
           (Option.map x.dBClusterOptionGroupName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let dBClusterOptionGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterOptionGroupName") in
      make ?status ?dBClusterOptionGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let dBClusterOptionGroupName =
        field_map json__ "DBClusterOptionGroupName" String_.of_json in
      make ?status ?dBClusterOptionGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains status information for a DB cluster option group."]
module DBClusterRole =
  struct
    type nonrec t =
      {
      roleArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role that is associated with the DB cluster."];
      status: String_.t option
        [@ocaml.doc
          "Describes the state of association between the IAM role and the DB cluster. The Status property returns one of the following values: ACTIVE - the IAM role ARN is associated with the DB cluster and can be used to access other Amazon Web Services on your behalf. PENDING - the IAM role ARN is being associated with the DB cluster. INVALID - the IAM role ARN is associated with the DB cluster, but the DB cluster is unable to assume the IAM role in order to access other Amazon Web Services on your behalf."];
      featureName: String_.t option
        [@ocaml.doc
          "The name of the feature associated with the Amazon Web Services Identity and Access Management (IAM) role. For information about supported feature names, see DBEngineVersion."]}
    let make ?roleArn =
      fun ?status ->
        fun ?featureName -> fun () -> { roleArn; status; featureName }
    let to_value x =
      structure_to_value
        [("RoleArn", (Option.map x.roleArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("FeatureName", (Option.map x.featureName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let featureName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FeatureName") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let roleArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RoleArn") in
      make ?featureName ?status ?roleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let featureName = field_map json__ "FeatureName" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let roleArn = field_map json__ "RoleArn" String_.of_json in
      make ?featureName ?status ?roleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an Amazon Web Services Identity and Access Management (IAM) role that is associated with a DB cluster."]
module DBClusterStatusInfo =
  struct
    type nonrec t =
      {
      statusType: String_.t option [@ocaml.doc "Reserved for future use."];
      normal: Boolean.t option [@ocaml.doc "Reserved for future use."];
      status: String_.t option [@ocaml.doc "Reserved for future use."];
      message: String_.t option [@ocaml.doc "Reserved for future use."]}
    let make ?statusType =
      fun ?normal ->
        fun ?status ->
          fun ?message -> fun () -> { statusType; normal; status; message }
    let to_value x =
      structure_to_value
        [("StatusType", (Option.map x.statusType ~f:String_.to_value));
        ("Normal", (Option.map x.normal ~f:Boolean.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let normal =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Normal") in
      let statusType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusType") in
      make ?message ?status ?normal ?statusType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let normal = field_map json__ "Normal" Boolean.of_json in
      let statusType = field_map json__ "StatusType" String_.of_json in
      make ?message ?status ?normal ?statusType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Reserved for future use."]
module LimitlessDatabaseStatus =
  struct
    type nonrec t =
      | Active 
      | Not_in_use 
      | Enabled 
      | Disabled 
      | Enabling 
      | Disabling 
      | Modifying_max_capacity 
      | Error 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "active"
      | Not_in_use -> "not-in-use"
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Enabling -> "enabling"
      | Disabling -> "disabling"
      | Modifying_max_capacity -> "modifying-max-capacity"
      | Error -> "error"
      | Non_static_id s -> s
    let of_string =
      function
      | "active" -> Active
      | "not-in-use" -> Not_in_use
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | "enabling" -> Enabling
      | "disabling" -> Disabling
      | "modifying-max-capacity" -> Modifying_max_capacity
      | "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 LimitlessDatabaseStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LimitlessDatabaseStatus" j)
    let to_json = simple_to_json to_value
  end
module MasterUserSecret =
  struct
    type nonrec t =
      {
      secretArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the secret."];
      secretStatus: String_.t option
        [@ocaml.doc
          "The status of the secret. The possible status values include the following: creating - The secret is being created. active - The secret is available for normal use and rotation. rotating - The secret is being rotated. impaired - The secret can be used to access database credentials, but it can't be rotated. A secret might have this status if, for example, permissions are changed so that RDS can no longer access either the secret or the KMS key for the secret. When a secret has this status, you can correct the condition that caused the status. Alternatively, modify the DB instance to turn off automatic management of database credentials, and then modify the DB instance again to turn on automatic management of database credentials."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier that is used to encrypt the secret."]}
    let make ?secretArn =
      fun ?secretStatus ->
        fun ?kmsKeyId -> fun () -> { secretArn; secretStatus; kmsKeyId }
    let to_value x =
      structure_to_value
        [("SecretArn", (Option.map x.secretArn ~f:String_.to_value));
        ("SecretStatus", (Option.map x.secretStatus ~f:String_.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let secretStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SecretStatus") in
      let secretArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SecretArn") in
      make ?kmsKeyId ?secretStatus ?secretArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let secretStatus = field_map json__ "SecretStatus" String_.of_json in
      let secretArn = field_map json__ "SecretArn" String_.of_json in
      make ?kmsKeyId ?secretStatus ?secretArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the secret managed by RDS in Amazon Web Services Secrets Manager for the master user password. For more information, see Password management with Amazon Web Services Secrets Manager in the Amazon RDS User Guide and Password management with Amazon Web Services Secrets Manager in the Amazon Aurora User Guide."]
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 TenantDatabasePendingModifiedValues =
  struct
    type nonrec t =
      {
      masterUserPassword: SensitiveString.t option
        [@ocaml.doc "The master password for the tenant database."];
      tenantDBName: String_.t option
        [@ocaml.doc "The name of the tenant database."]}
    let make ?masterUserPassword =
      fun ?tenantDBName -> fun () -> { masterUserPassword; tenantDBName }
    let to_value x =
      structure_to_value
        [("MasterUserPassword",
           (Option.map x.masterUserPassword ~f:SensitiveString.to_value));
        ("TenantDBName", (Option.map x.tenantDBName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenantDBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TenantDBName") in
      let masterUserPassword =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "MasterUserPassword") in
      make ?tenantDBName ?masterUserPassword ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenantDBName = field_map json__ "TenantDBName" String_.of_json in
      let masterUserPassword =
        field_map json__ "MasterUserPassword" SensitiveString.of_json in
      make ?tenantDBName ?masterUserPassword ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A response element in the ModifyTenantDatabase operation that describes changes that will be applied. Specific changes are identified by subelements."]
module ServerlessV2FeaturesSupport =
  struct
    type nonrec t =
      {
      minCapacity: DoubleOptional.t option
        [@ocaml.doc
          "If the minimum capacity is 0 ACUs, the engine version or platform version supports the automatic pause/resume feature of Aurora Serverless v2."];
      maxCapacity: DoubleOptional.t option
        [@ocaml.doc
          "Specifies the upper Aurora Serverless v2 capacity limit for a particular engine version or platform version. Depending on the engine version, the maximum capacity for an Aurora Serverless v2 cluster might be 256 or 128."]}
    let make ?minCapacity =
      fun ?maxCapacity -> fun () -> { minCapacity; maxCapacity }
    let to_value x =
      structure_to_value
        [("MinCapacity",
           (Option.map x.minCapacity ~f:DoubleOptional.to_value));
        ("MaxCapacity",
          (Option.map x.maxCapacity ~f:DoubleOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxCapacity =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MaxCapacity") in
      let minCapacity =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinCapacity") in
      make ?maxCapacity ?minCapacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxCapacity = field_map json__ "MaxCapacity" DoubleOptional.of_json in
      let minCapacity = field_map json__ "MinCapacity" DoubleOptional.of_json in
      make ?maxCapacity ?minCapacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies any Aurora Serverless v2 properties or limits that differ between Aurora engine versions and platform versions. You can test the values of this attribute when deciding which Aurora version to use in a new or upgraded DB cluster. You can also retrieve the version of an existing DB cluster and check whether that version supports certain Aurora Serverless v2 features before you attempt to use those features."]
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 TargetHealth =
  struct
    type nonrec t =
      {
      state: TargetState.t option
        [@ocaml.doc
          "The current state of the connection health lifecycle for the RDS Proxy target. The following is a typical lifecycle example for the states of an RDS Proxy target: registering > unavailable > available > unavailable > available"];
      reason: TargetHealthReason.t option
        [@ocaml.doc
          "The reason for the current health State of the RDS Proxy target."];
      description: String_.t option
        [@ocaml.doc
          "A description of the health of the RDS Proxy target. If the State is AVAILABLE, a description is not included."]}
    let make ?state =
      fun ?reason ->
        fun ?description -> fun () -> { state; reason; description }
    let to_value x =
      structure_to_value
        [("State", (Option.map x.state ~f:TargetState.to_value));
        ("Reason", (Option.map x.reason ~f:TargetHealthReason.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let reason =
        (Option.map ~f:TargetHealthReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let state =
        (Option.map ~f:TargetState.of_xml) (Xml.child xml_arg0 "State") in
      make ?description ?reason ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" String_.of_json in
      let reason = field_map json__ "Reason" TargetHealthReason.of_json in
      let state = field_map json__ "State" TargetState.of_json in
      make ?description ?reason ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the connection health of an RDS Proxy target."]
module TargetRole =
  struct
    type nonrec t =
      | READ_WRITE 
      | READ_ONLY 
      | UNKNOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READ_WRITE -> "READ_WRITE"
      | READ_ONLY -> "READ_ONLY"
      | UNKNOWN -> "UNKNOWN"
      | Non_static_id s -> s
    let of_string =
      function
      | "READ_WRITE" -> READ_WRITE
      | "READ_ONLY" -> READ_ONLY
      | "UNKNOWN" -> UNKNOWN
      | 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 TargetRole" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetRole" j)
    let to_json = simple_to_json to_value
  end
module TargetType =
  struct
    type nonrec t =
      | RDS_INSTANCE 
      | RDS_SERVERLESS_ENDPOINT 
      | TRACKED_CLUSTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RDS_INSTANCE -> "RDS_INSTANCE"
      | RDS_SERVERLESS_ENDPOINT -> "RDS_SERVERLESS_ENDPOINT"
      | TRACKED_CLUSTER -> "TRACKED_CLUSTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "RDS_INSTANCE" -> RDS_INSTANCE
      | "RDS_SERVERLESS_ENDPOINT" -> RDS_SERVERLESS_ENDPOINT
      | "TRACKED_CLUSTER" -> TRACKED_CLUSTER
      | 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 TargetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetType" j)
    let to_json = simple_to_json to_value
  end
module PendingMaintenanceActionDetails =
  struct
    type nonrec t = PendingMaintenanceAction.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:PendingMaintenanceAction.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:PendingMaintenanceAction.of_xml)
    let of_json j =
      list_of_json ~kind:"PendingMaintenanceActionDetails"
        ~of_json:PendingMaintenanceAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActivityStreamModeList =
  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:"ActivityStreamModeList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailabilityZoneList =
  struct
    type nonrec t = AvailabilityZone.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:AvailabilityZone.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:AvailabilityZone.of_xml)
    let of_json j =
      list_of_json ~kind:"AvailabilityZoneList"
        ~of_json:AvailabilityZone.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailableAdditionalStorageVolumesOptionList =
  struct
    type nonrec t = AvailableAdditionalStorageVolumesOption.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:AvailableAdditionalStorageVolumesOption.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:AvailableAdditionalStorageVolumesOption.of_xml)
    let of_json j =
      list_of_json ~kind:"AvailableAdditionalStorageVolumesOptionList"
        ~of_json:AvailableAdditionalStorageVolumesOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailableProcessorFeatureList =
  struct
    type nonrec t = AvailableProcessorFeature.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:AvailableProcessorFeature.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:AvailableProcessorFeature.of_xml)
    let of_json j =
      list_of_json ~kind:"AvailableProcessorFeatureList"
        ~of_json:AvailableProcessorFeature.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionsList =
  struct
    type nonrec t = Option_.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:Option_.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:Option_.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionsList" ~of_json:Option_.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionGroupOptionSettingsList =
  struct
    type nonrec t = OptionGroupOptionSetting.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:OptionGroupOptionSetting.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:OptionGroupOptionSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionGroupOptionSettingsList"
        ~of_json:OptionGroupOptionSetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionGroupOptionVersionsList =
  struct
    type nonrec t = OptionVersion.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:OptionVersion.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:OptionVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionGroupOptionVersionsList"
        ~of_json:OptionVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionsConflictsWith =
  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:"OptionsConflictsWith" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionsDependedOn =
  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:"OptionsDependedOn" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSecurityGroupNameList =
  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:"DBSecurityGroupNameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionSettingsList =
  struct
    type nonrec t = OptionSetting.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:OptionSetting.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:OptionSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionSettingsList" ~of_json:OptionSetting.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module VpcSecurityGroupIdList =
  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:"VpcSecurityGroupIdList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSnapshotAttribute =
  struct
    type nonrec t =
      {
      attributeName: String_.t option
        [@ocaml.doc
          "The name of the manual DB snapshot attribute. The attribute named restore refers to the list of Amazon Web Services accounts that have permission to copy or restore the manual DB cluster snapshot. For more information, see the ModifyDBSnapshotAttribute API action."];
      attributeValues: AttributeValueList.t option
        [@ocaml.doc
          "The value or values for the manual DB snapshot attribute. If the AttributeName field is set to restore, then this element returns a list of IDs of the Amazon Web Services accounts that are authorized to copy or restore the manual DB snapshot. If a value of all is in the list, then the manual DB snapshot is public and available for any Amazon Web Services account to copy or restore."]}
    let make ?attributeName =
      fun ?attributeValues -> fun () -> { attributeName; attributeValues }
    let to_value x =
      structure_to_value
        [("AttributeName", (Option.map x.attributeName ~f:String_.to_value));
        ("AttributeValues",
          (Option.map x.attributeValues ~f:AttributeValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeValues =
        (Option.map ~f:AttributeValueList.of_xml)
          (Xml.child xml_arg0 "AttributeValues") in
      let attributeName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AttributeName") in
      make ?attributeValues ?attributeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeValues =
        field_map json__ "AttributeValues" AttributeValueList.of_json in
      let attributeName = field_map json__ "AttributeName" String_.of_json in
      make ?attributeValues ?attributeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the name and values of a manual DB snapshot attribute Manual DB snapshot attributes are used to authorize other Amazon Web Services accounts to restore a manual DB snapshot. For more information, see the ModifyDBSnapshotAttribute API."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max: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:"Arn" j
    let to_json = simple_to_json to_value
  end
module AuthUserName =
  struct
    type nonrec t = string
    let context_ = "AuthUserName"
    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:"AuthUserName" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module DBClusterSnapshotAttribute =
  struct
    type nonrec t =
      {
      attributeName: String_.t option
        [@ocaml.doc
          "The name of the manual DB cluster snapshot attribute. The attribute named restore refers to the list of Amazon Web Services accounts that have permission to copy or restore the manual DB cluster snapshot. For more information, see the ModifyDBClusterSnapshotAttribute API action."];
      attributeValues: AttributeValueList.t option
        [@ocaml.doc
          "The value(s) for the manual DB cluster snapshot attribute. If the AttributeName field is set to restore, then this element returns a list of IDs of the Amazon Web Services accounts that are authorized to copy or restore the manual DB cluster snapshot. If a value of all is in the list, then the manual DB cluster snapshot is public and available for any Amazon Web Services account to copy or restore."]}
    let make ?attributeName =
      fun ?attributeValues -> fun () -> { attributeName; attributeValues }
    let to_value x =
      structure_to_value
        [("AttributeName", (Option.map x.attributeName ~f:String_.to_value));
        ("AttributeValues",
          (Option.map x.attributeValues ~f:AttributeValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeValues =
        (Option.map ~f:AttributeValueList.of_xml)
          (Xml.child xml_arg0 "AttributeValues") in
      let attributeName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AttributeName") in
      make ?attributeValues ?attributeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeValues =
        field_map json__ "AttributeValues" AttributeValueList.of_json in
      let attributeName = field_map json__ "AttributeName" String_.of_json in
      make ?attributeValues ?attributeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the name and values of a manual DB cluster snapshot attribute. Manual DB cluster snapshot attributes are used to authorize other Amazon Web Services accounts to restore a manual DB cluster snapshot. For more information, see the ModifyDBClusterSnapshotAttribute API action."]
module FilterValueList =
  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:"FilterValueList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailoverState =
  struct
    type nonrec t =
      {
      status: FailoverStatus.t option
        [@ocaml.doc
          "The current status of the global cluster. Possible values are as follows: pending – The service received a request to switch over or fail over the global cluster. The global cluster's primary DB cluster and the specified secondary DB cluster are being verified before the operation starts. failing-over – Aurora is promoting the chosen secondary Aurora DB cluster to become the new primary DB cluster to fail over the global cluster. cancelling – The request to switch over or fail over the global cluster was cancelled and the primary Aurora DB cluster and the selected secondary Aurora DB cluster are returning to their previous states. switching-over – This status covers the range of Aurora internal operations that take place during the switchover process, such as demoting the primary Aurora DB cluster, promoting the secondary Aurora DB cluster, and synchronizing replicas."];
      fromDbClusterArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Aurora DB cluster that is currently being demoted, and which is associated with this state."];
      toDbClusterArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Aurora DB cluster that is currently being promoted, and which is associated with this state."];
      isDataLossAllowed: Boolean.t option
        [@ocaml.doc
          "Indicates whether the operation is a global switchover or a global failover. If data loss is allowed, then the operation is a global failover. Otherwise, it's a switchover."]}
    let make ?status =
      fun ?fromDbClusterArn ->
        fun ?toDbClusterArn ->
          fun ?isDataLossAllowed ->
            fun () ->
              { status; fromDbClusterArn; toDbClusterArn; isDataLossAllowed }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:FailoverStatus.to_value));
        ("FromDbClusterArn",
          (Option.map x.fromDbClusterArn ~f:String_.to_value));
        ("ToDbClusterArn", (Option.map x.toDbClusterArn ~f:String_.to_value));
        ("IsDataLossAllowed",
          (Option.map x.isDataLossAllowed ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isDataLossAllowed =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IsDataLossAllowed") in
      let toDbClusterArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ToDbClusterArn") in
      let fromDbClusterArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "FromDbClusterArn") in
      let status =
        (Option.map ~f:FailoverStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?isDataLossAllowed ?toDbClusterArn ?fromDbClusterArn ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isDataLossAllowed =
        field_map json__ "IsDataLossAllowed" Boolean.of_json in
      let toDbClusterArn = field_map json__ "ToDbClusterArn" String_.of_json in
      let fromDbClusterArn =
        field_map json__ "FromDbClusterArn" String_.of_json in
      let status = field_map json__ "Status" FailoverStatus.of_json in
      make ?isDataLossAllowed ?toDbClusterArn ?fromDbClusterArn ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the state of scheduled or in-process operations on a global cluster (Aurora global database). This data type is empty unless a switchover or failover operation is scheduled or is in progress on the Aurora global database."]
module GlobalClusterIdentifier =
  struct
    type nonrec t = string
    let context_ = "GlobalClusterIdentifier"
    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-z][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:"GlobalClusterIdentifier" j
    let to_json = simple_to_json to_value
  end
module GlobalClusterMemberList =
  struct
    type nonrec t = GlobalClusterMember.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:GlobalClusterMember.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:GlobalClusterMember.of_xml)
    let of_json j =
      list_of_json ~kind:"GlobalClusterMemberList"
        ~of_json:GlobalClusterMember.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorageEncryptionType =
  struct
    type nonrec t =
      | None 
      | Sse_kms 
      | Sse_rds 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None -> "none"
      | Sse_kms -> "sse-kms"
      | Sse_rds -> "sse-rds"
      | Non_static_id s -> s
    let of_string =
      function
      | "none" -> None
      | "sse-kms" -> Sse_kms
      | "sse-rds" -> Sse_rds
      | 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 StorageEncryptionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StorageEncryptionType" j)
    let to_json = simple_to_json to_value
  end
module DBClusterNotFoundFault =
  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
       "DBClusterIdentifier doesn't refer to an existing DB cluster."]
module DBClusterSnapshotNotFoundFault =
  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
       "DBClusterSnapshotIdentifier doesn't refer to an existing DB cluster snapshot."]
module DBSnapshotNotFoundFault =
  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
       "DBSnapshotIdentifier doesn't refer to an existing DB snapshot."]
module ExportSourceType =
  struct
    type nonrec t =
      | SNAPSHOT 
      | CLUSTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SNAPSHOT -> "SNAPSHOT"
      | CLUSTER -> "CLUSTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "SNAPSHOT" -> SNAPSHOT
      | "CLUSTER" -> CLUSTER
      | 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 ExportSourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExportSourceType" j)
    let to_json = simple_to_json to_value
  end
module ExportTaskAlreadyExistsFault =
  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 "You can't start an export task that's already running."]
module ExportTaskNotFoundFault =
  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 export task doesn't exist."]
module IamRoleMissingPermissionsFault =
  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 IAM role requires additional permissions to export to an Amazon S3 bucket."]
module IamRoleNotFoundFault =
  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 IAM role is missing for exporting to an Amazon S3 bucket."]
module InvalidExportOnlyFault =
  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 export is invalid for exporting to an Amazon S3 bucket."]
module InvalidExportSourceStateFault =
  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 state of the export snapshot is invalid for exporting to an Amazon S3 bucket."]
module InvalidExportTaskStateFault =
  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 "You can't cancel an export task that has completed."]
module InvalidS3BucketFault =
  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 specified Amazon S3 bucket name can't be found or Amazon RDS isn't authorized to access the specified Amazon S3 bucket. Verify the SourceS3BucketName and S3IngestionRoleArn values and try again."]
module KMSKeyNotAccessibleFault =
  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 accessing an Amazon Web Services KMS key."]
module EventCategoriesList =
  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:"EventCategoriesList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module SourceType =
  struct
    type nonrec t =
      | Db_instance 
      | Db_parameter_group 
      | Db_security_group 
      | Db_snapshot 
      | Db_cluster 
      | Db_cluster_snapshot 
      | Custom_engine_version 
      | Db_proxy 
      | Blue_green_deployment 
      | Db_shard_group 
      | Zero_etl 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Db_instance -> "db-instance"
      | Db_parameter_group -> "db-parameter-group"
      | Db_security_group -> "db-security-group"
      | Db_snapshot -> "db-snapshot"
      | Db_cluster -> "db-cluster"
      | Db_cluster_snapshot -> "db-cluster-snapshot"
      | Custom_engine_version -> "custom-engine-version"
      | Db_proxy -> "db-proxy"
      | Blue_green_deployment -> "blue-green-deployment"
      | Db_shard_group -> "db-shard-group"
      | Zero_etl -> "zero-etl"
      | Non_static_id s -> s
    let of_string =
      function
      | "db-instance" -> Db_instance
      | "db-parameter-group" -> Db_parameter_group
      | "db-security-group" -> Db_security_group
      | "db-snapshot" -> Db_snapshot
      | "db-cluster" -> Db_cluster
      | "db-cluster-snapshot" -> Db_cluster_snapshot
      | "custom-engine-version" -> Custom_engine_version
      | "db-proxy" -> Db_proxy
      | "blue-green-deployment" -> Blue_green_deployment
      | "db-shard-group" -> Db_shard_group
      | "zero-etl" -> Zero_etl
      | 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 SourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceType" j)
    let to_json = simple_to_json to_value
  end
module SourceIdsList =
  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:"SourceIdsList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidVolumeOptionsList =
  struct
    type nonrec t = ValidVolumeOptions.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:ValidVolumeOptions.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:ValidVolumeOptions.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidVolumeOptionsList"
        ~of_json:ValidVolumeOptions.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBInstanceNotFoundFault =
  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
       "DBInstanceIdentifier doesn't refer to an existing DB instance."]
module DataFilter =
  struct
    type nonrec t = string
    let context_ = "DataFilter"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:25600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9_ \"\\\\\\-$,*.:?+\\/]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataFilter" j
    let to_json = simple_to_json to_value
  end
module EncryptionContextMap =
  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 IntegrationAlreadyExistsFault =
  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 integration you are trying to create already exists."]
module IntegrationArn =
  struct
    type nonrec t = string
    let context_ = "IntegrationArn"
    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:"arn:aws[a-z\\-]*:rds(-[a-z]*)?:[a-z0-9\\-]*:[0-9]*:integration:[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{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:"IntegrationArn" j
    let to_json = simple_to_json to_value
  end
module IntegrationConflictOperationFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A conflicting conditional operation is currently in progress against this resource. Typically occurs when there are multiple requests being made to the same resource at the same time, and these requests conflict with each other."]
module IntegrationDescription =
  struct
    type nonrec t = string
    let context_ = "IntegrationDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IntegrationDescription" j
    let to_json = simple_to_json to_value
  end
module IntegrationErrorList =
  struct
    type nonrec t = IntegrationError.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:IntegrationError.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:IntegrationError.of_xml)
    let of_json j =
      list_of_json ~kind:"IntegrationErrorList"
        ~of_json:IntegrationError.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntegrationName =
  struct
    type nonrec t = string
    let context_ = "IntegrationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z](?:-?[a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IntegrationName" j
    let to_json = simple_to_json to_value
  end
module IntegrationNotFoundFault =
  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 specified integration could not be found."]
module IntegrationQuotaExceededFault =
  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
       "You can't crate any more zero-ETL integrations because the quota has been reached."]
module IntegrationStatus =
  struct
    type nonrec t =
      | Creating 
      | Active 
      | Modifying 
      | Failed 
      | Deleting 
      | Syncing 
      | Needs_attention 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "creating"
      | Active -> "active"
      | Modifying -> "modifying"
      | Failed -> "failed"
      | Deleting -> "deleting"
      | Syncing -> "syncing"
      | Needs_attention -> "needs_attention"
      | Non_static_id s -> s
    let of_string =
      function
      | "creating" -> Creating
      | "active" -> Active
      | "modifying" -> Modifying
      | "failed" -> Failed
      | "deleting" -> Deleting
      | "syncing" -> Syncing
      | "needs_attention" -> Needs_attention
      | 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 IntegrationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IntegrationStatus" j)
    let to_json = simple_to_json to_value
  end
module InvalidIntegrationStateFault =
  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 integration is in an invalid state and can't perform the requested operation."]
module SourceArn =
  struct
    type nonrec t = string
    let context_ = "SourceArn"
    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:"arn:aws[a-z\\-]*:rds(-[a-z]*)?:[a-z0-9\\-]*:[0-9]*:(cluster|db):[a-z][a-z0-9]*(-[a-z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SourceArn" j
    let to_json = simple_to_json to_value
  end
module Parameter =
  struct
    type nonrec t =
      {
      parameterName: String_.t option
        [@ocaml.doc "The name of the parameter."];
      parameterValue: PotentiallySensitiveParameterValue.t option
        [@ocaml.doc "The value of the parameter."];
      description: String_.t option
        [@ocaml.doc "Provides a description of the parameter."];
      source: String_.t option
        [@ocaml.doc "The source of the parameter value."];
      applyType: String_.t option
        [@ocaml.doc "Specifies the engine specific parameters type."];
      dataType: String_.t option
        [@ocaml.doc "Specifies the valid data type for the parameter."];
      allowedValues: String_.t option
        [@ocaml.doc "Specifies the valid range of values for the parameter."];
      isModifiable: Boolean.t option
        [@ocaml.doc
          "Indicates whether (true) or not (false) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed."];
      minimumEngineVersion: String_.t option
        [@ocaml.doc
          "The earliest engine version to which the parameter can apply."];
      applyMethod: ApplyMethod.t option
        [@ocaml.doc "Indicates when to apply parameter updates."];
      supportedEngineModes: EngineModeList.t option
        [@ocaml.doc "The valid DB engine modes."]}
    let make ?parameterName =
      fun ?parameterValue ->
        fun ?description ->
          fun ?source ->
            fun ?applyType ->
              fun ?dataType ->
                fun ?allowedValues ->
                  fun ?isModifiable ->
                    fun ?minimumEngineVersion ->
                      fun ?applyMethod ->
                        fun ?supportedEngineModes ->
                          fun () ->
                            {
                              parameterName;
                              parameterValue;
                              description;
                              source;
                              applyType;
                              dataType;
                              allowedValues;
                              isModifiable;
                              minimumEngineVersion;
                              applyMethod;
                              supportedEngineModes
                            }
    let to_value x =
      structure_to_value
        [("ParameterName", (Option.map x.parameterName ~f:String_.to_value));
        ("ParameterValue",
          (Option.map x.parameterValue
             ~f:PotentiallySensitiveParameterValue.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("Source", (Option.map x.source ~f:String_.to_value));
        ("ApplyType", (Option.map x.applyType ~f:String_.to_value));
        ("DataType", (Option.map x.dataType ~f:String_.to_value));
        ("AllowedValues", (Option.map x.allowedValues ~f:String_.to_value));
        ("IsModifiable", (Option.map x.isModifiable ~f:Boolean.to_value));
        ("MinimumEngineVersion",
          (Option.map x.minimumEngineVersion ~f:String_.to_value));
        ("ApplyMethod", (Option.map x.applyMethod ~f:ApplyMethod.to_value));
        ("SupportedEngineModes",
          (Option.map x.supportedEngineModes ~f:EngineModeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedEngineModes =
        (Option.map ~f:EngineModeList.of_xml)
          (Xml.child xml_arg0 "SupportedEngineModes") in
      let applyMethod =
        (Option.map ~f:ApplyMethod.of_xml) (Xml.child xml_arg0 "ApplyMethod") in
      let minimumEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MinimumEngineVersion") in
      let isModifiable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsModifiable") in
      let allowedValues =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AllowedValues") in
      let dataType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DataType") in
      let applyType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ApplyType") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Source") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let parameterValue =
        (Option.map ~f:PotentiallySensitiveParameterValue.of_xml)
          (Xml.child xml_arg0 "ParameterValue") in
      let parameterName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ParameterName") in
      make ?supportedEngineModes ?applyMethod ?minimumEngineVersion
        ?isModifiable ?allowedValues ?dataType ?applyType ?source
        ?description ?parameterValue ?parameterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedEngineModes =
        field_map json__ "SupportedEngineModes" EngineModeList.of_json in
      let applyMethod = field_map json__ "ApplyMethod" ApplyMethod.of_json in
      let minimumEngineVersion =
        field_map json__ "MinimumEngineVersion" String_.of_json in
      let isModifiable = field_map json__ "IsModifiable" Boolean.of_json in
      let allowedValues = field_map json__ "AllowedValues" String_.of_json in
      let dataType = field_map json__ "DataType" String_.of_json in
      let applyType = field_map json__ "ApplyType" String_.of_json in
      let source = field_map json__ "Source" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let parameterValue =
        field_map json__ "ParameterValue"
          PotentiallySensitiveParameterValue.of_json in
      let parameterName = field_map json__ "ParameterName" String_.of_json in
      make ?supportedEngineModes ?applyMethod ?minimumEngineVersion
        ?isModifiable ?allowedValues ?dataType ?applyType ?source
        ?description ?parameterValue ?parameterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a request parameter in the ModifyDBParameterGroup and ResetDBParameterGroup actions. This data type is used as a response element in the DescribeEngineDefaultParameters and DescribeDBParameters actions."]
module DBShardGroupAlreadyExistsFault =
  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 specified DB shard group name must be unique in your Amazon Web Services account in the specified Amazon Web Services Region."]
module DBShardGroupIdentifier =
  struct
    type nonrec t = string
    let context_ = "DBShardGroupIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z](?:-?[a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DBShardGroupIdentifier" j
    let to_json = simple_to_json to_value
  end
module DBShardGroupNotFoundFault =
  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 specified DB shard group name wasn't found."]
module InvalidDBClusterStateFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation can't be performed while the cluster is in this state."]
module InvalidDBShardGroupStateFault =
  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 DB shard group must be in the available state."]
module InvalidVPCNetworkStateFault =
  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 DB subnet group doesn't cover all Availability Zones after it's created because of users' change."]
module MaxDBShardGroupLimitReached =
  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 maximum number of DB shard groups for your Amazon Web Services account in the specified Amazon Web Services Region has been reached."]
module NetworkTypeNotSupported =
  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 network type is invalid for the DB instance. Valid nework type values are IPV4 and DUAL."]
module UnsupportedDBEngineVersionFault =
  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 specified DB engine version isn't supported for Aurora Limitless Database."]
module ConnectionPoolConfigurationInfo =
  struct
    type nonrec t =
      {
      maxConnectionsPercent: Integer.t option
        [@ocaml.doc
          "The maximum size of the connection pool for each target in a target group. The value is expressed as a percentage of the max_connections setting for the RDS DB instance or Aurora DB cluster used by the target group."];
      maxIdleConnectionsPercent: Integer.t option
        [@ocaml.doc
          "Controls how actively the proxy closes idle database connections in the connection pool. The value is expressed as a percentage of the max_connections setting for the RDS DB instance or Aurora DB cluster used by the target group. With a high value, the proxy leaves a high percentage of idle database connections open. A low value causes the proxy to close more idle connections and return them to the database."];
      connectionBorrowTimeout: Integer.t option
        [@ocaml.doc
          "The number of seconds for a proxy to wait for a connection to become available in the connection pool. Only applies when the proxy has opened its maximum number of connections and all connections are busy with client sessions."];
      sessionPinningFilters: StringList.t option
        [@ocaml.doc
          "Each item in the list represents a class of SQL operations that normally cause all later statements in a session using a proxy to be pinned to the same underlying database connection. Including an item in the list exempts that class of SQL operations from the pinning behavior. This setting is only supported for MySQL engine family databases. Currently, the only allowed value is EXCLUDE_VARIABLE_SETS."];
      initQuery: OperatorSensitiveString.t option
        [@ocaml.doc
          "One or more SQL statements for the proxy to run when opening each new database connection. The setting is typically used with SET statements to make sure that each connection has identical settings. The query added here must be valid. For including multiple variables in a single SET statement, use a comma separator. This is an optional field. For example: SET variable1=value1, variable2=value2 Since you can access initialization query as part of target group configuration, it is not protected by authentication or cryptographic methods. Anyone with access to view or manage your proxy target group configuration can view the initialization query. You should not add sensitive data, such as passwords or long-lived encryption keys, to this option."]}
    let make ?maxConnectionsPercent =
      fun ?maxIdleConnectionsPercent ->
        fun ?connectionBorrowTimeout ->
          fun ?sessionPinningFilters ->
            fun ?initQuery ->
              fun () ->
                {
                  maxConnectionsPercent;
                  maxIdleConnectionsPercent;
                  connectionBorrowTimeout;
                  sessionPinningFilters;
                  initQuery
                }
    let to_value x =
      structure_to_value
        [("MaxConnectionsPercent",
           (Option.map x.maxConnectionsPercent ~f:Integer.to_value));
        ("MaxIdleConnectionsPercent",
          (Option.map x.maxIdleConnectionsPercent ~f:Integer.to_value));
        ("ConnectionBorrowTimeout",
          (Option.map x.connectionBorrowTimeout ~f:Integer.to_value));
        ("SessionPinningFilters",
          (Option.map x.sessionPinningFilters ~f:StringList.to_value));
        ("InitQuery",
          (Option.map x.initQuery ~f:OperatorSensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initQuery =
        (Option.map ~f:OperatorSensitiveString.of_xml)
          (Xml.child xml_arg0 "InitQuery") in
      let sessionPinningFilters =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SessionPinningFilters") in
      let connectionBorrowTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "ConnectionBorrowTimeout") in
      let maxIdleConnectionsPercent =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "MaxIdleConnectionsPercent") in
      let maxConnectionsPercent =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "MaxConnectionsPercent") in
      make ?initQuery ?sessionPinningFilters ?connectionBorrowTimeout
        ?maxIdleConnectionsPercent ?maxConnectionsPercent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initQuery =
        field_map json__ "InitQuery" OperatorSensitiveString.of_json in
      let sessionPinningFilters =
        field_map json__ "SessionPinningFilters" StringList.of_json in
      let connectionBorrowTimeout =
        field_map json__ "ConnectionBorrowTimeout" Integer.of_json in
      let maxIdleConnectionsPercent =
        field_map json__ "MaxIdleConnectionsPercent" Integer.of_json in
      let maxConnectionsPercent =
        field_map json__ "MaxConnectionsPercent" Integer.of_json in
      make ?initQuery ?sessionPinningFilters ?connectionBorrowTimeout
        ?maxIdleConnectionsPercent ?maxConnectionsPercent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the settings that control the size and behavior of the connection pool associated with a DBProxyTarget."]
module DBProxyEndpointStatus =
  struct
    type nonrec t =
      | Available 
      | Modifying 
      | Incompatible_network 
      | Insufficient_resource_limits 
      | Creating 
      | Deleting 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Modifying -> "modifying"
      | Incompatible_network -> "incompatible-network"
      | Insufficient_resource_limits -> "insufficient-resource-limits"
      | Creating -> "creating"
      | Deleting -> "deleting"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "modifying" -> Modifying
      | "incompatible-network" -> Incompatible_network
      | "insufficient-resource-limits" -> Insufficient_resource_limits
      | "creating" -> Creating
      | "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 DBProxyEndpointStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DBProxyEndpointStatus" j)
    let to_json = simple_to_json to_value
  end
module DBProxyEndpointTargetRole =
  struct
    type nonrec t =
      | READ_WRITE 
      | READ_ONLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READ_WRITE -> "READ_WRITE"
      | READ_ONLY -> "READ_ONLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "READ_WRITE" -> READ_WRITE
      | "READ_ONLY" -> READ_ONLY
      | 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 DBProxyEndpointTargetRole" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DBProxyEndpointTargetRole" j)
    let to_json = simple_to_json to_value
  end
module EndpointNetworkType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | DUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4 -> "IPV4"
      | IPV6 -> "IPV6"
      | DUAL -> "DUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4" -> IPV4
      | "IPV6" -> IPV6
      | "DUAL" -> DUAL
      | 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 EndpointNetworkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EndpointNetworkType" j)
    let to_json = simple_to_json to_value
  end
module DBProxyStatus =
  struct
    type nonrec t =
      | Available 
      | Modifying 
      | Incompatible_network 
      | Insufficient_resource_limits 
      | Creating 
      | Deleting 
      | Suspended 
      | Suspending 
      | Reactivating 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Modifying -> "modifying"
      | Incompatible_network -> "incompatible-network"
      | Insufficient_resource_limits -> "insufficient-resource-limits"
      | Creating -> "creating"
      | Deleting -> "deleting"
      | Suspended -> "suspended"
      | Suspending -> "suspending"
      | Reactivating -> "reactivating"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "modifying" -> Modifying
      | "incompatible-network" -> Incompatible_network
      | "insufficient-resource-limits" -> Insufficient_resource_limits
      | "creating" -> Creating
      | "deleting" -> Deleting
      | "suspended" -> Suspended
      | "suspending" -> Suspending
      | "reactivating" -> Reactivating
      | 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 DBProxyStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DBProxyStatus" j)
    let to_json = simple_to_json to_value
  end
module TargetConnectionNetworkType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | IPV4 -> "IPV4" | IPV6 -> "IPV6" | Non_static_id s -> s
    let of_string =
      function | "IPV4" -> IPV4 | "IPV6" -> IPV6 | 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 TargetConnectionNetworkType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TargetConnectionNetworkType" j)
    let to_json = simple_to_json to_value
  end
module UserAuthConfigInfoList =
  struct
    type nonrec t = UserAuthConfigInfo.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:UserAuthConfigInfo.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:UserAuthConfigInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"UserAuthConfigInfoList"
        ~of_json:UserAuthConfigInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupportedEngineLifecycleList =
  struct
    type nonrec t = SupportedEngineLifecycle.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:SupportedEngineLifecycle.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:SupportedEngineLifecycle.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedEngineLifecycleList"
        ~of_json:SupportedEngineLifecycle.of_json j
    let to_json v = composed_to_json to_value v
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentIdentifier =
  struct
    type nonrec t = string
    let context_ = "BlueGreenDeploymentIdentifier"
    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-z][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:"BlueGreenDeploymentIdentifier" j
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentName =
  struct
    type nonrec t = string
    let context_ = "BlueGreenDeploymentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:60) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z](?:-?[a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BlueGreenDeploymentName" j
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentStatus =
  struct
    type nonrec t = string
    let context_ = "BlueGreenDeploymentStatus"
    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:"BlueGreenDeploymentStatus" j
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentStatusDetails =
  struct
    type nonrec t = string
    let context_ = "BlueGreenDeploymentStatusDetails"
    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:"BlueGreenDeploymentStatusDetails" j
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentTaskList =
  struct
    type nonrec t = BlueGreenDeploymentTask.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:BlueGreenDeploymentTask.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:BlueGreenDeploymentTask.of_xml)
    let of_json j =
      list_of_json ~kind:"BlueGreenDeploymentTaskList"
        ~of_json:BlueGreenDeploymentTask.of_json j
    let to_json v = composed_to_json to_value v
  end
module SwitchoverDetailList =
  struct
    type nonrec t = SwitchoverDetail.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:SwitchoverDetail.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:SwitchoverDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"SwitchoverDetailList"
        ~of_json:SwitchoverDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module EC2SecurityGroupList =
  struct
    type nonrec t = EC2SecurityGroup.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:EC2SecurityGroup.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:EC2SecurityGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"EC2SecurityGroupList"
        ~of_json:EC2SecurityGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module IPRangeList =
  struct
    type nonrec t = IPRange.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:IPRange.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:IPRange.of_xml)
    let of_json j =
      list_of_json ~kind:"IPRangeList" ~of_json:IPRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module DocLinkList =
  struct
    type nonrec t = DocLink.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:DocLink.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:DocLink.of_xml)
    let of_json j =
      list_of_json ~kind:"DocLinkList" ~of_json:DocLink.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendedActionList =
  struct
    type nonrec t = RecommendedAction.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:RecommendedAction.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:RecommendedAction.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendedActionList"
        ~of_json:RecommendedAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActivityStreamMode =
  struct
    type nonrec t =
      | Sync 
      | Async 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Sync -> "sync" | Async -> "async" | Non_static_id s -> s
    let of_string =
      function | "sync" -> Sync | "async" -> Async | 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 ActivityStreamMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActivityStreamMode" j)
    let to_json = simple_to_json to_value
  end
module ActivityStreamPolicyStatus =
  struct
    type nonrec t =
      | Locked 
      | Unlocked 
      | Locking_policy 
      | Unlocking_policy 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Locked -> "locked"
      | Unlocked -> "unlocked"
      | Locking_policy -> "locking-policy"
      | Unlocking_policy -> "unlocking-policy"
      | Non_static_id s -> s
    let of_string =
      function
      | "locked" -> Locked
      | "unlocked" -> Unlocked
      | "locking-policy" -> Locking_policy
      | "unlocking-policy" -> Unlocking_policy
      | 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 ActivityStreamPolicyStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ActivityStreamPolicyStatus" j)
    let to_json = simple_to_json to_value
  end
module ActivityStreamStatus =
  struct
    type nonrec t =
      | Stopped 
      | Starting 
      | Started 
      | Stopping 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Stopped -> "stopped"
      | Starting -> "starting"
      | Started -> "started"
      | Stopping -> "stopping"
      | Non_static_id s -> s
    let of_string =
      function
      | "stopped" -> Stopped
      | "starting" -> Starting
      | "started" -> Started
      | "stopping" -> Stopping
      | 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 ActivityStreamStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActivityStreamStatus" j)
    let to_json = simple_to_json to_value
  end
module AdditionalStorageVolumesOutputList =
  struct
    type nonrec t = AdditionalStorageVolumeOutput.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:AdditionalStorageVolumeOutput.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:AdditionalStorageVolumeOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalStorageVolumesOutputList"
        ~of_json:AdditionalStorageVolumeOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBInstanceAutomatedBackupsReplicationList =
  struct
    type nonrec t = DBInstanceAutomatedBackupsReplication.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:DBInstanceAutomatedBackupsReplication.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:DBInstanceAutomatedBackupsReplication.of_xml)
    let of_json j =
      list_of_json ~kind:"DBInstanceAutomatedBackupsReplicationList"
        ~of_json:DBInstanceAutomatedBackupsReplication.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBInstanceRoles =
  struct
    type nonrec t = DBInstanceRole.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:DBInstanceRole.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:DBInstanceRole.of_xml)
    let of_json j =
      list_of_json ~kind:"DBInstanceRoles" ~of_json:DBInstanceRole.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBInstanceStatusInfoList =
  struct
    type nonrec t = DBInstanceStatusInfo.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:DBInstanceStatusInfo.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:DBInstanceStatusInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"DBInstanceStatusInfoList"
        ~of_json:DBInstanceStatusInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBParameterGroupStatusList =
  struct
    type nonrec t = DBParameterGroupStatus.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:DBParameterGroupStatus.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:DBParameterGroupStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"DBParameterGroupStatusList"
        ~of_json:DBParameterGroupStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSubnetGroup =
  struct
    type nonrec t =
      {
      dBSubnetGroupName: String_.t option
        [@ocaml.doc "The name of the DB subnet group."];
      dBSubnetGroupDescription: String_.t option
        [@ocaml.doc "Provides the description of the DB subnet group."];
      vpcId: String_.t option
        [@ocaml.doc "Provides the VpcId of the DB subnet group."];
      subnetGroupStatus: String_.t option
        [@ocaml.doc "Provides the status of the DB subnet group."];
      subnets: SubnetList.t option
        [@ocaml.doc
          "Contains a list of Subnet elements. The list of subnets shown here might not reflect the current state of your VPC. For the most up-to-date information, we recommend checking your VPC configuration directly."];
      dBSubnetGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the DB subnet group."];
      supportedNetworkTypes: StringList.t option
        [@ocaml.doc
          "The network type of the DB subnet group. Valid values: IPV4 DUAL A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon RDS User Guide."]}
    let make ?dBSubnetGroupName =
      fun ?dBSubnetGroupDescription ->
        fun ?vpcId ->
          fun ?subnetGroupStatus ->
            fun ?subnets ->
              fun ?dBSubnetGroupArn ->
                fun ?supportedNetworkTypes ->
                  fun () ->
                    {
                      dBSubnetGroupName;
                      dBSubnetGroupDescription;
                      vpcId;
                      subnetGroupStatus;
                      subnets;
                      dBSubnetGroupArn;
                      supportedNetworkTypes
                    }
    let to_value x =
      structure_to_value
        [("DBSubnetGroupName",
           (Option.map x.dBSubnetGroupName ~f:String_.to_value));
        ("DBSubnetGroupDescription",
          (Option.map x.dBSubnetGroupDescription ~f:String_.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("SubnetGroupStatus",
          (Option.map x.subnetGroupStatus ~f:String_.to_value));
        ("Subnets", (Option.map x.subnets ~f:SubnetList.to_value));
        ("DBSubnetGroupArn",
          (Option.map x.dBSubnetGroupArn ~f:String_.to_value));
        ("SupportedNetworkTypes",
          (Option.map x.supportedNetworkTypes ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedNetworkTypes =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SupportedNetworkTypes") in
      let dBSubnetGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupArn") in
      let subnets =
        (Option.map ~f:SubnetList.of_xml) (Xml.child xml_arg0 "Subnets") in
      let subnetGroupStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SubnetGroupStatus") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let dBSubnetGroupDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupDescription") in
      let dBSubnetGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupName") in
      make ?supportedNetworkTypes ?dBSubnetGroupArn ?subnets
        ?subnetGroupStatus ?vpcId ?dBSubnetGroupDescription
        ?dBSubnetGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedNetworkTypes =
        field_map json__ "SupportedNetworkTypes" StringList.of_json in
      let dBSubnetGroupArn =
        field_map json__ "DBSubnetGroupArn" String_.of_json in
      let subnets = field_map json__ "Subnets" SubnetList.of_json in
      let subnetGroupStatus =
        field_map json__ "SubnetGroupStatus" String_.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let dBSubnetGroupDescription =
        field_map json__ "DBSubnetGroupDescription" String_.of_json in
      let dBSubnetGroupName =
        field_map json__ "DBSubnetGroupName" String_.of_json in
      make ?supportedNetworkTypes ?dBSubnetGroupArn ?subnets
        ?subnetGroupStatus ?vpcId ?dBSubnetGroupDescription
        ?dBSubnetGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of an Amazon RDS DB subnet group. This data type is used as a response element in the DescribeDBSubnetGroups action."]
module DatabaseInsightsMode =
  struct
    type nonrec t =
      | Standard 
      | Advanced 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Advanced -> "advanced"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "advanced" -> Advanced
      | 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 DatabaseInsightsMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DatabaseInsightsMode" j)
    let to_json = simple_to_json to_value
  end
module DomainMembershipList =
  struct
    type nonrec t = DomainMembership.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:DomainMembership.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:DomainMembership.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainMembershipList"
        ~of_json:DomainMembership.of_json j
    let to_json v = composed_to_json to_value v
  end
module Endpoint =
  struct
    type nonrec t =
      {
      address: String_.t option
        [@ocaml.doc "Specifies the DNS address of the DB instance."];
      port: Integer.t option
        [@ocaml.doc
          "Specifies the port that the database engine is listening on."];
      hostedZoneId: String_.t option
        [@ocaml.doc
          "Specifies the ID that Amazon Route 53 assigns when you create a hosted zone."]}
    let make ?address =
      fun ?port ->
        fun ?hostedZoneId -> fun () -> { address; port; hostedZoneId }
    let to_value x =
      structure_to_value
        [("Address", (Option.map x.address ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:Integer.to_value));
        ("HostedZoneId", (Option.map x.hostedZoneId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hostedZoneId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HostedZoneId") in
      let port = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Port") in
      let address =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Address") in
      make ?hostedZoneId ?port ?address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hostedZoneId = field_map json__ "HostedZoneId" String_.of_json in
      let port = field_map json__ "Port" Integer.of_json in
      let address = field_map json__ "Address" String_.of_json in
      make ?hostedZoneId ?port ?address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type represents the information you need to connect to an Amazon RDS DB instance. This data type is used as a response element in the following actions: CreateDBInstance DescribeDBInstances DeleteDBInstance For the data structure that represents Amazon Aurora DB cluster endpoints, see DBClusterEndpoint."]
module OptionGroupMembershipList =
  struct
    type nonrec t = OptionGroupMembership.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:OptionGroupMembership.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:OptionGroupMembership.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionGroupMembershipList"
        ~of_json:OptionGroupMembership.of_json j
    let to_json v = composed_to_json to_value v
  end
module PendingModifiedValues =
  struct
    type nonrec t =
      {
      dBInstanceClass: String_.t option
        [@ocaml.doc
          "The name of the compute and memory capacity class for the DB instance."];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The allocated storage size for the DB instance specified in gibibytes (GiB)."];
      masterUserPassword: SensitiveString.t option
        [@ocaml.doc "The master credentials for the DB instance."];
      port: IntegerOptional.t option
        [@ocaml.doc "The port for the DB instance."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automated backups are retained."];
      multiAZ: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the Single-AZ DB instance will change to a Multi-AZ deployment."];
      engineVersion: String_.t option
        [@ocaml.doc "The database engine version."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model for the DB instance. Valid values: license-included | bring-your-own-license | general-public-license"];
      iops: IntegerOptional.t option
        [@ocaml.doc "The Provisioned IOPS value for the DB instance."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc "The storage throughput of the DB instance."];
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc "The database identifier for the DB instance."];
      storageType: String_.t option
        [@ocaml.doc "The storage type of the DB instance."];
      cACertificateIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the CA certificate for the DB instance. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."];
      dBSubnetGroupName: String_.t option
        [@ocaml.doc "The DB subnet group for the DB instance."];
      pendingCloudwatchLogsExports: PendingCloudwatchLogsExports.t option ;
      processorFeatures: ProcessorFeatureList.t option
        [@ocaml.doc
          "The number of CPU cores and the number of threads per core for the DB instance class of the DB instance."];
      automationMode: AutomationMode.t option
        [@ocaml.doc
          "The automation mode of the RDS Custom DB instance: full or all-paused. If full, the DB instance automates monitoring and instance recovery. If all-paused, the instance pauses automation for the duration set by --resume-full-automation-mode-minutes."];
      resumeFullAutomationModeTime: TStamp.t option
        [@ocaml.doc
          "The number of minutes to pause the automation. When the time period ends, RDS Custom resumes full automation. The minimum value is 60 (default). The maximum value is 1,440."];
      multiTenant: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB instance will change to the multi-tenant configuration (TRUE) or the single-tenant configuration (FALSE)."];
      iAMDatabaseAuthenticationEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled."];
      dedicatedLogVolume: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB instance has a dedicated log volume (DLV) enabled.>"];
      engine: String_.t option
        [@ocaml.doc "The database engine of the DB instance."];
      additionalStorageVolumes: AdditionalStorageVolumesList.t option
        [@ocaml.doc
          "The additional storage volume modifications that are pending for the DB instance."]}
    let make ?dBInstanceClass =
      fun ?allocatedStorage ->
        fun ?masterUserPassword ->
          fun ?port ->
            fun ?backupRetentionPeriod ->
              fun ?multiAZ ->
                fun ?engineVersion ->
                  fun ?licenseModel ->
                    fun ?iops ->
                      fun ?storageThroughput ->
                        fun ?dBInstanceIdentifier ->
                          fun ?storageType ->
                            fun ?cACertificateIdentifier ->
                              fun ?dBSubnetGroupName ->
                                fun ?pendingCloudwatchLogsExports ->
                                  fun ?processorFeatures ->
                                    fun ?automationMode ->
                                      fun ?resumeFullAutomationModeTime ->
                                        fun ?multiTenant ->
                                          fun
                                            ?iAMDatabaseAuthenticationEnabled
                                            ->
                                            fun ?dedicatedLogVolume ->
                                              fun ?engine ->
                                                fun ?additionalStorageVolumes
                                                  ->
                                                  fun () ->
                                                    {
                                                      dBInstanceClass;
                                                      allocatedStorage;
                                                      masterUserPassword;
                                                      port;
                                                      backupRetentionPeriod;
                                                      multiAZ;
                                                      engineVersion;
                                                      licenseModel;
                                                      iops;
                                                      storageThroughput;
                                                      dBInstanceIdentifier;
                                                      storageType;
                                                      cACertificateIdentifier;
                                                      dBSubnetGroupName;
                                                      pendingCloudwatchLogsExports;
                                                      processorFeatures;
                                                      automationMode;
                                                      resumeFullAutomationModeTime;
                                                      multiTenant;
                                                      iAMDatabaseAuthenticationEnabled;
                                                      dedicatedLogVolume;
                                                      engine;
                                                      additionalStorageVolumes
                                                    }
    let to_value x =
      structure_to_value
        [("DBInstanceClass",
           (Option.map x.dBInstanceClass ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("MasterUserPassword",
          (Option.map x.masterUserPassword ~f:SensitiveString.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:BooleanOptional.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("DBInstanceIdentifier",
          (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("CACertificateIdentifier",
          (Option.map x.cACertificateIdentifier ~f:String_.to_value));
        ("DBSubnetGroupName",
          (Option.map x.dBSubnetGroupName ~f:String_.to_value));
        ("PendingCloudwatchLogsExports",
          (Option.map x.pendingCloudwatchLogsExports
             ~f:PendingCloudwatchLogsExports.to_value));
        ("ProcessorFeatures",
          (Option.map x.processorFeatures ~f:ProcessorFeatureList.to_value));
        ("AutomationMode",
          (Option.map x.automationMode ~f:AutomationMode.to_value));
        ("ResumeFullAutomationModeTime",
          (Option.map x.resumeFullAutomationModeTime ~f:TStamp.to_value));
        ("MultiTenant",
          (Option.map x.multiTenant ~f:BooleanOptional.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled
             ~f:BooleanOptional.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:BooleanOptional.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let dedicatedLogVolume =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let multiTenant =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "MultiTenant") in
      let resumeFullAutomationModeTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "ResumeFullAutomationModeTime") in
      let automationMode =
        (Option.map ~f:AutomationMode.of_xml)
          (Xml.child xml_arg0 "AutomationMode") in
      let processorFeatures =
        (Option.map ~f:ProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ProcessorFeatures") in
      let pendingCloudwatchLogsExports =
        (Option.map ~f:PendingCloudwatchLogsExports.of_xml)
          (Xml.child xml_arg0 "PendingCloudwatchLogsExports") in
      let dBSubnetGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupName") in
      let cACertificateIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CACertificateIdentifier") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let multiAZ =
        (Option.map ~f:BooleanOptional.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let masterUserPassword =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "MasterUserPassword") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      make ?additionalStorageVolumes ?engine ?dedicatedLogVolume
        ?iAMDatabaseAuthenticationEnabled ?multiTenant
        ?resumeFullAutomationModeTime ?automationMode ?processorFeatures
        ?pendingCloudwatchLogsExports ?dBSubnetGroupName
        ?cACertificateIdentifier ?storageType ?dBInstanceIdentifier
        ?storageThroughput ?iops ?licenseModel ?engineVersion ?multiAZ
        ?backupRetentionPeriod ?port ?masterUserPassword ?allocatedStorage
        ?dBInstanceClass ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesList.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" BooleanOptional.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled"
          BooleanOptional.of_json in
      let multiTenant =
        field_map json__ "MultiTenant" BooleanOptional.of_json in
      let resumeFullAutomationModeTime =
        field_map json__ "ResumeFullAutomationModeTime" TStamp.of_json in
      let automationMode =
        field_map json__ "AutomationMode" AutomationMode.of_json in
      let processorFeatures =
        field_map json__ "ProcessorFeatures" ProcessorFeatureList.of_json in
      let pendingCloudwatchLogsExports =
        field_map json__ "PendingCloudwatchLogsExports"
          PendingCloudwatchLogsExports.of_json in
      let dBSubnetGroupName =
        field_map json__ "DBSubnetGroupName" String_.of_json in
      let cACertificateIdentifier =
        field_map json__ "CACertificateIdentifier" String_.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let multiAZ = field_map json__ "MultiAZ" BooleanOptional.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let masterUserPassword =
        field_map json__ "MasterUserPassword" SensitiveString.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      make ?additionalStorageVolumes ?engine ?dedicatedLogVolume
        ?iAMDatabaseAuthenticationEnabled ?multiTenant
        ?resumeFullAutomationModeTime ?automationMode ?processorFeatures
        ?pendingCloudwatchLogsExports ?dBSubnetGroupName
        ?cACertificateIdentifier ?storageType ?dBInstanceIdentifier
        ?storageThroughput ?iops ?licenseModel ?engineVersion ?multiAZ
        ?backupRetentionPeriod ?port ?masterUserPassword ?allocatedStorage
        ?dBInstanceClass ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the ModifyDBInstance operation and contains changes that will be applied during the next maintenance window."]
module ReadReplicaDBClusterIdentifierList =
  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:"ReadReplicaDBClusterIdentifierList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReadReplicaDBInstanceIdentifierList =
  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:"ReadReplicaDBInstanceIdentifierList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpgradeRolloutOrder =
  struct
    type nonrec t =
      | First 
      | Second 
      | Last 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | First -> "first"
      | Second -> "second"
      | Last -> "last"
      | Non_static_id s -> s
    let of_string =
      function
      | "first" -> First
      | "second" -> Second
      | "last" -> Last
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration UpgradeRolloutOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpgradeRolloutOrder" j)
    let to_json = simple_to_json to_value
  end
module RestoreWindow =
  struct
    type nonrec t =
      {
      earliestTime: TStamp.t option
        [@ocaml.doc "The earliest time you can restore an instance to."];
      latestTime: TStamp.t option
        [@ocaml.doc "The latest time you can restore an instance to."]}
    let make ?earliestTime =
      fun ?latestTime -> fun () -> { earliestTime; latestTime }
    let to_value x =
      structure_to_value
        [("EarliestTime", (Option.map x.earliestTime ~f:TStamp.to_value));
        ("LatestTime", (Option.map x.latestTime ~f:TStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "LatestTime") in
      let earliestTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "EarliestTime") in
      make ?latestTime ?earliestTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestTime = field_map json__ "LatestTime" TStamp.of_json in
      let earliestTime = field_map json__ "EarliestTime" TStamp.of_json in
      make ?latestTime ?earliestTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Earliest and latest time an instance can be restored to:"]
module CACertificateIdentifiersList =
  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:"CACertificateIdentifiersList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateCustomDBEngineVersionFault =
  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 while trying to create the CEV."]
module CustomDBEngineVersionAMI =
  struct
    type nonrec t =
      {
      imageId: String_.t option
        [@ocaml.doc "A value that indicates the ID of the AMI."];
      status: String_.t option
        [@ocaml.doc
          "A value that indicates the status of a custom engine version (CEV)."]}
    let make ?imageId = fun ?status -> fun () -> { imageId; status }
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let imageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ImageId") in
      make ?status ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let imageId = field_map json__ "ImageId" String_.of_json in
      make ?status ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A value that indicates the AMI information."]
module CustomDBEngineVersionAlreadyExistsFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A CEV with the specified name already exists."]
module CustomDBEngineVersionManifest =
  struct
    type nonrec t = string
    let context_ = "CustomDBEngineVersionManifest"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:51000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomDBEngineVersionManifest" j
    let to_json = simple_to_json to_value
  end
module CustomDBEngineVersionNotFoundFault =
  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 specified CEV was not found."]
module CustomDBEngineVersionQuotaExceededFault =
  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 "You have exceeded your CEV quota."]
module Ec2ImagePropertiesNotSupportedFault =
  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 AMI configuration prerequisite has not been met."]
module FeatureNameList =
  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:"FeatureNameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidCustomDBEngineVersionStateFault =
  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 "You can't delete the CEV."]
module SupportedCharacterSetsList =
  struct
    type nonrec t = CharacterSet.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:CharacterSet.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:CharacterSet.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedCharacterSetsList"
        ~of_json:CharacterSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupportedTimezonesList =
  struct
    type nonrec t = Timezone.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:Timezone.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:Timezone.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedTimezonesList" ~of_json:Timezone.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidUpgradeTargetList =
  struct
    type nonrec t = UpgradeTarget.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:UpgradeTarget.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:UpgradeTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidUpgradeTargetList"
        ~of_json:UpgradeTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailabilityZones =
  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:"AvailabilityZones" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClusterPendingModifiedValues =
  struct
    type nonrec t =
      {
      pendingCloudwatchLogsExports: PendingCloudwatchLogsExports.t option ;
      dBClusterIdentifier: String_.t option
        [@ocaml.doc "The DBClusterIdentifier value for the DB cluster."];
      masterUserPassword: SensitiveString.t option
        [@ocaml.doc "The master credentials for the DB cluster."];
      iAMDatabaseAuthenticationEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled."];
      engineVersion: String_.t option
        [@ocaml.doc "The database engine version."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automatic DB snapshots are retained."];
      storageType: String_.t option
        [@ocaml.doc "The storage type for the DB cluster."];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The allocated storage size in gibibytes (GiB) for all database engines except Amazon Aurora. For Aurora, AllocatedStorage always returns 1, because Aurora DB cluster storage size isn't fixed, but instead automatically adjusts as needed."];
      rdsCustomClusterConfiguration: RdsCustomClusterConfiguration.t option
        [@ocaml.doc "Reserved for future use."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The Provisioned IOPS (I/O operations per second) value. This setting is only for non-Aurora Multi-AZ DB clusters."];
      certificateDetails: CertificateDetails.t option }
    let make ?pendingCloudwatchLogsExports =
      fun ?dBClusterIdentifier ->
        fun ?masterUserPassword ->
          fun ?iAMDatabaseAuthenticationEnabled ->
            fun ?engineVersion ->
              fun ?backupRetentionPeriod ->
                fun ?storageType ->
                  fun ?allocatedStorage ->
                    fun ?rdsCustomClusterConfiguration ->
                      fun ?iops ->
                        fun ?certificateDetails ->
                          fun () ->
                            {
                              pendingCloudwatchLogsExports;
                              dBClusterIdentifier;
                              masterUserPassword;
                              iAMDatabaseAuthenticationEnabled;
                              engineVersion;
                              backupRetentionPeriod;
                              storageType;
                              allocatedStorage;
                              rdsCustomClusterConfiguration;
                              iops;
                              certificateDetails
                            }
    let to_value x =
      structure_to_value
        [("PendingCloudwatchLogsExports",
           (Option.map x.pendingCloudwatchLogsExports
              ~f:PendingCloudwatchLogsExports.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("MasterUserPassword",
          (Option.map x.masterUserPassword ~f:SensitiveString.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled
             ~f:BooleanOptional.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("RdsCustomClusterConfiguration",
          (Option.map x.rdsCustomClusterConfiguration
             ~f:RdsCustomClusterConfiguration.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("CertificateDetails",
          (Option.map x.certificateDetails ~f:CertificateDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateDetails =
        (Option.map ~f:CertificateDetails.of_xml)
          (Xml.child xml_arg0 "CertificateDetails") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let rdsCustomClusterConfiguration =
        (Option.map ~f:RdsCustomClusterConfiguration.of_xml)
          (Xml.child xml_arg0 "RdsCustomClusterConfiguration") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let masterUserPassword =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "MasterUserPassword") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let pendingCloudwatchLogsExports =
        (Option.map ~f:PendingCloudwatchLogsExports.of_xml)
          (Xml.child xml_arg0 "PendingCloudwatchLogsExports") in
      make ?certificateDetails ?iops ?rdsCustomClusterConfiguration
        ?allocatedStorage ?storageType ?backupRetentionPeriod ?engineVersion
        ?iAMDatabaseAuthenticationEnabled ?masterUserPassword
        ?dBClusterIdentifier ?pendingCloudwatchLogsExports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateDetails =
        field_map json__ "CertificateDetails" CertificateDetails.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let rdsCustomClusterConfiguration =
        field_map json__ "RdsCustomClusterConfiguration"
          RdsCustomClusterConfiguration.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled"
          BooleanOptional.of_json in
      let masterUserPassword =
        field_map json__ "MasterUserPassword" SensitiveString.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let pendingCloudwatchLogsExports =
        field_map json__ "PendingCloudwatchLogsExports"
          PendingCloudwatchLogsExports.of_json in
      make ?certificateDetails ?iops ?rdsCustomClusterConfiguration
        ?allocatedStorage ?storageType ?backupRetentionPeriod ?engineVersion
        ?iAMDatabaseAuthenticationEnabled ?masterUserPassword
        ?dBClusterIdentifier ?pendingCloudwatchLogsExports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the ModifyDBCluster operation and contains changes that will be applied during the next maintenance window."]
module ClusterScalabilityType =
  struct
    type nonrec t =
      | Standard 
      | Limitless 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Limitless -> "limitless"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "limitless" -> Limitless
      | 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 ClusterScalabilityType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClusterScalabilityType" j)
    let to_json = simple_to_json to_value
  end
module DBClusterMemberList =
  struct
    type nonrec t = DBClusterMember.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:DBClusterMember.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:DBClusterMember.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterMemberList"
        ~of_json:DBClusterMember.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterOptionGroupMemberships =
  struct
    type nonrec t = DBClusterOptionGroupStatus.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:DBClusterOptionGroupStatus.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:DBClusterOptionGroupStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterOptionGroupMemberships"
        ~of_json:DBClusterOptionGroupStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterRoles =
  struct
    type nonrec t = DBClusterRole.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:DBClusterRole.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:DBClusterRole.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterRoles" ~of_json:DBClusterRole.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterStatusInfoList =
  struct
    type nonrec t = DBClusterStatusInfo.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:DBClusterStatusInfo.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:DBClusterStatusInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterStatusInfoList"
        ~of_json:DBClusterStatusInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module LimitlessDatabase =
  struct
    type nonrec t =
      {
      status: LimitlessDatabaseStatus.t option
        [@ocaml.doc "The status of Aurora Limitless Database."];
      minRequiredACU: DoubleOptional.t option
        [@ocaml.doc
          "The minimum required capacity for Aurora Limitless Database in Aurora capacity units (ACUs)."]}
    let make ?status =
      fun ?minRequiredACU -> fun () -> { status; minRequiredACU }
    let to_value x =
      structure_to_value
        [("Status",
           (Option.map x.status ~f:LimitlessDatabaseStatus.to_value));
        ("MinRequiredACU",
          (Option.map x.minRequiredACU ~f:DoubleOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minRequiredACU =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinRequiredACU") in
      let status =
        (Option.map ~f:LimitlessDatabaseStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?minRequiredACU ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minRequiredACU =
        field_map json__ "MinRequiredACU" DoubleOptional.of_json in
      let status = field_map json__ "Status" LimitlessDatabaseStatus.of_json in
      make ?minRequiredACU ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details for Aurora Limitless Database."]
module LocalWriteForwardingStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Enabling 
      | Disabling 
      | Requested 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Enabling -> "enabling"
      | Disabling -> "disabling"
      | Requested -> "requested"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | "enabling" -> Enabling
      | "disabling" -> Disabling
      | "requested" -> Requested
      | 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 LocalWriteForwardingStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LocalWriteForwardingStatus" j)
    let to_json = simple_to_json to_value
  end
module LongOptional =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ReadReplicaIdentifierList =
  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:"ReadReplicaIdentifierList" ~of_json:String_.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ScalingConfigurationInfo =
  struct
    type nonrec t =
      {
      minCapacity: IntegerOptional.t option
        [@ocaml.doc
          "The minimum capacity for an Aurora DB cluster in serverless DB engine mode."];
      maxCapacity: IntegerOptional.t option
        [@ocaml.doc
          "The maximum capacity for an Aurora DB cluster in serverless DB engine mode."];
      autoPause: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether automatic pause is allowed for the Aurora DB cluster in serverless DB engine mode. When the value is set to false for an Aurora Serverless v1 DB cluster, the DB cluster automatically resumes."];
      secondsUntilAutoPause: IntegerOptional.t option
        [@ocaml.doc
          "The remaining amount of time, in seconds, before the Aurora DB cluster in serverless mode is paused. A DB cluster can be paused only when it's idle (it has no connections)."];
      timeoutAction: String_.t option
        [@ocaml.doc
          "The action that occurs when Aurora times out while attempting to change the capacity of an Aurora Serverless v1 cluster. The value is either ForceApplyCapacityChange or RollbackCapacityChange. ForceApplyCapacityChange, the default, sets the capacity to the specified value as soon as possible. RollbackCapacityChange ignores the capacity change if a scaling point isn't found in the timeout period."];
      secondsBeforeTimeout: IntegerOptional.t option
        [@ocaml.doc
          "The number of seconds before scaling times out. What happens when an attempted scaling action times out is determined by the TimeoutAction setting."]}
    let make ?minCapacity =
      fun ?maxCapacity ->
        fun ?autoPause ->
          fun ?secondsUntilAutoPause ->
            fun ?timeoutAction ->
              fun ?secondsBeforeTimeout ->
                fun () ->
                  {
                    minCapacity;
                    maxCapacity;
                    autoPause;
                    secondsUntilAutoPause;
                    timeoutAction;
                    secondsBeforeTimeout
                  }
    let to_value x =
      structure_to_value
        [("MinCapacity",
           (Option.map x.minCapacity ~f:IntegerOptional.to_value));
        ("MaxCapacity",
          (Option.map x.maxCapacity ~f:IntegerOptional.to_value));
        ("AutoPause", (Option.map x.autoPause ~f:BooleanOptional.to_value));
        ("SecondsUntilAutoPause",
          (Option.map x.secondsUntilAutoPause ~f:IntegerOptional.to_value));
        ("TimeoutAction", (Option.map x.timeoutAction ~f:String_.to_value));
        ("SecondsBeforeTimeout",
          (Option.map x.secondsBeforeTimeout ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secondsBeforeTimeout =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "SecondsBeforeTimeout") in
      let timeoutAction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TimeoutAction") in
      let secondsUntilAutoPause =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "SecondsUntilAutoPause") in
      let autoPause =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "AutoPause") in
      let maxCapacity =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxCapacity") in
      let minCapacity =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinCapacity") in
      make ?secondsBeforeTimeout ?timeoutAction ?secondsUntilAutoPause
        ?autoPause ?maxCapacity ?minCapacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secondsBeforeTimeout =
        field_map json__ "SecondsBeforeTimeout" IntegerOptional.of_json in
      let timeoutAction = field_map json__ "TimeoutAction" String_.of_json in
      let secondsUntilAutoPause =
        field_map json__ "SecondsUntilAutoPause" IntegerOptional.of_json in
      let autoPause = field_map json__ "AutoPause" BooleanOptional.of_json in
      let maxCapacity =
        field_map json__ "MaxCapacity" IntegerOptional.of_json in
      let minCapacity =
        field_map json__ "MinCapacity" IntegerOptional.of_json in
      make ?secondsBeforeTimeout ?timeoutAction ?secondsUntilAutoPause
        ?autoPause ?maxCapacity ?minCapacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The scaling configuration for an Aurora DB cluster in serverless DB engine mode. For more information, see Using Amazon Aurora Serverless v1 in the Amazon Aurora User Guide."]
module ServerlessV2ScalingConfigurationInfo =
  struct
    type nonrec t =
      {
      minCapacity: DoubleOptional.t option
        [@ocaml.doc
          "The minimum number of Aurora capacity units (ACUs) for a DB instance in an Aurora Serverless v2 cluster. You can specify ACU values in half-step increments, such as 8, 8.5, 9, and so on. For Aurora versions that support the Aurora Serverless v2 auto-pause feature, the smallest value that you can use is 0. For versions that don't support Aurora Serverless v2 auto-pause, the smallest value that you can use is 0.5."];
      maxCapacity: DoubleOptional.t option
        [@ocaml.doc
          "The maximum number of Aurora capacity units (ACUs) for a DB instance in an Aurora Serverless v2 cluster. You can specify ACU values in half-step increments, such as 32, 32.5, 33, and so on. The largest value that you can use is 256 for recent Aurora versions, or 128 for older versions. You can check the attributes of your engine version or platform version to determine the specific maximum capacity supported."];
      secondsUntilAutoPause: IntegerOptional.t option
        [@ocaml.doc
          "The number of seconds an Aurora Serverless v2 DB instance must be idle before Aurora attempts to automatically pause it. This property is only shown when the minimum capacity for the cluster is set to 0 ACUs. Changing the minimum capacity to a nonzero value removes this property. If you later change the minimum capacity back to 0 ACUs, this property is reset to its default value unless you specify it again. This value ranges between 300 seconds (five minutes) and 86,400 seconds (one day). The default is 300 seconds."]}
    let make ?minCapacity =
      fun ?maxCapacity ->
        fun ?secondsUntilAutoPause ->
          fun () -> { minCapacity; maxCapacity; secondsUntilAutoPause }
    let to_value x =
      structure_to_value
        [("MinCapacity",
           (Option.map x.minCapacity ~f:DoubleOptional.to_value));
        ("MaxCapacity",
          (Option.map x.maxCapacity ~f:DoubleOptional.to_value));
        ("SecondsUntilAutoPause",
          (Option.map x.secondsUntilAutoPause ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secondsUntilAutoPause =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "SecondsUntilAutoPause") in
      let maxCapacity =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MaxCapacity") in
      let minCapacity =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinCapacity") in
      make ?secondsUntilAutoPause ?maxCapacity ?minCapacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secondsUntilAutoPause =
        field_map json__ "SecondsUntilAutoPause" IntegerOptional.of_json in
      let maxCapacity = field_map json__ "MaxCapacity" DoubleOptional.of_json in
      let minCapacity = field_map json__ "MinCapacity" DoubleOptional.of_json in
      make ?secondsUntilAutoPause ?maxCapacity ?minCapacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The scaling configuration for an Aurora Serverless v2 DB cluster. For more information, see Using Amazon Aurora Serverless v2 in the Amazon Aurora User Guide."]
module DBClusterEndpointAlreadyExistsFault =
  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 specified custom endpoint can't be created because it already exists."]
module DBClusterEndpointNotFoundFault =
  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 specified custom endpoint doesn't exist."]
module DBClusterEndpointQuotaExceededFault =
  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 cluster already has the maximum number of custom endpoints."]
module InvalidDBClusterEndpointStateFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation can't be performed on the endpoint while the endpoint is in this state."]
module InvalidDBInstanceStateFault =
  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 DB instance isn't in a valid state."]
module TenantDatabase =
  struct
    type nonrec t =
      {
      tenantDatabaseCreateTime: TStamp.t option
        [@ocaml.doc "The creation time of the tenant database."];
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "The ID of the DB instance that contains the tenant database."];
      tenantDBName: String_.t option
        [@ocaml.doc "The database name of the tenant database."];
      status: String_.t option
        [@ocaml.doc "The status of the tenant database."];
      masterUsername: String_.t option
        [@ocaml.doc "The master username of the tenant database."];
      dbiResourceId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region-unique, immutable identifier for the DB instance."];
      tenantDatabaseResourceId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region-unique, immutable identifier for the tenant database."];
      tenantDatabaseARN: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the tenant database."];
      characterSetName: String_.t option
        [@ocaml.doc "The character set of the tenant database."];
      ncharCharacterSetName: String_.t option
        [@ocaml.doc "The NCHAR character set name of the tenant database."];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "Specifies whether deletion protection is enabled for the DB instance."];
      pendingModifiedValues: TenantDatabasePendingModifiedValues.t option
        [@ocaml.doc
          "Information about pending changes for a tenant database."];
      masterUserSecret: MasterUserSecret.t option ;
      tagList: TagList.t option }
    let make ?tenantDatabaseCreateTime =
      fun ?dBInstanceIdentifier ->
        fun ?tenantDBName ->
          fun ?status ->
            fun ?masterUsername ->
              fun ?dbiResourceId ->
                fun ?tenantDatabaseResourceId ->
                  fun ?tenantDatabaseARN ->
                    fun ?characterSetName ->
                      fun ?ncharCharacterSetName ->
                        fun ?deletionProtection ->
                          fun ?pendingModifiedValues ->
                            fun ?masterUserSecret ->
                              fun ?tagList ->
                                fun () ->
                                  {
                                    tenantDatabaseCreateTime;
                                    dBInstanceIdentifier;
                                    tenantDBName;
                                    status;
                                    masterUsername;
                                    dbiResourceId;
                                    tenantDatabaseResourceId;
                                    tenantDatabaseARN;
                                    characterSetName;
                                    ncharCharacterSetName;
                                    deletionProtection;
                                    pendingModifiedValues;
                                    masterUserSecret;
                                    tagList
                                  }
    let to_value x =
      structure_to_value
        [("TenantDatabaseCreateTime",
           (Option.map x.tenantDatabaseCreateTime ~f:TStamp.to_value));
        ("DBInstanceIdentifier",
          (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("TenantDBName", (Option.map x.tenantDBName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("DbiResourceId", (Option.map x.dbiResourceId ~f:String_.to_value));
        ("TenantDatabaseResourceId",
          (Option.map x.tenantDatabaseResourceId ~f:String_.to_value));
        ("TenantDatabaseARN",
          (Option.map x.tenantDatabaseARN ~f:String_.to_value));
        ("CharacterSetName",
          (Option.map x.characterSetName ~f:String_.to_value));
        ("NcharCharacterSetName",
          (Option.map x.ncharCharacterSetName ~f:String_.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("PendingModifiedValues",
          (Option.map x.pendingModifiedValues
             ~f:TenantDatabasePendingModifiedValues.to_value));
        ("MasterUserSecret",
          (Option.map x.masterUserSecret ~f:MasterUserSecret.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
      let masterUserSecret =
        (Option.map ~f:MasterUserSecret.of_xml)
          (Xml.child xml_arg0 "MasterUserSecret") in
      let pendingModifiedValues =
        (Option.map ~f:TenantDatabasePendingModifiedValues.of_xml)
          (Xml.child xml_arg0 "PendingModifiedValues") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let ncharCharacterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "NcharCharacterSetName") in
      let characterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CharacterSetName") in
      let tenantDatabaseARN =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TenantDatabaseARN") in
      let tenantDatabaseResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TenantDatabaseResourceId") in
      let dbiResourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DbiResourceId") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let tenantDBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TenantDBName") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      let tenantDatabaseCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "TenantDatabaseCreateTime") in
      make ?tagList ?masterUserSecret ?pendingModifiedValues
        ?deletionProtection ?ncharCharacterSetName ?characterSetName
        ?tenantDatabaseARN ?tenantDatabaseResourceId ?dbiResourceId
        ?masterUsername ?status ?tenantDBName ?dBInstanceIdentifier
        ?tenantDatabaseCreateTime ()
    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
      let masterUserSecret =
        field_map json__ "MasterUserSecret" MasterUserSecret.of_json in
      let pendingModifiedValues =
        field_map json__ "PendingModifiedValues"
          TenantDatabasePendingModifiedValues.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" Boolean.of_json in
      let ncharCharacterSetName =
        field_map json__ "NcharCharacterSetName" String_.of_json in
      let characterSetName =
        field_map json__ "CharacterSetName" String_.of_json in
      let tenantDatabaseARN =
        field_map json__ "TenantDatabaseARN" String_.of_json in
      let tenantDatabaseResourceId =
        field_map json__ "TenantDatabaseResourceId" String_.of_json in
      let dbiResourceId = field_map json__ "DbiResourceId" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let tenantDBName = field_map json__ "TenantDBName" String_.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      let tenantDatabaseCreateTime =
        field_map json__ "TenantDatabaseCreateTime" TStamp.of_json in
      make ?tagList ?masterUserSecret ?pendingModifiedValues
        ?deletionProtection ?ncharCharacterSetName ?characterSetName
        ?tenantDatabaseARN ?tenantDatabaseResourceId ?dbiResourceId
        ?masterUsername ?status ?tenantDBName ?dBInstanceIdentifier
        ?tenantDatabaseCreateTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A tenant database in the DB instance. This data type is an element in the response to the DescribeTenantDatabases action."]
module SourceRegion =
  struct
    type nonrec t =
      {
      regionName: String_.t option
        [@ocaml.doc "The name of the source Amazon Web Services Region."];
      endpoint: String_.t option
        [@ocaml.doc
          "The endpoint for the source Amazon Web Services Region endpoint."];
      status: String_.t option
        [@ocaml.doc "The status of the source Amazon Web Services Region."];
      supportsDBInstanceAutomatedBackupsReplication: Boolean.t option
        [@ocaml.doc
          "Indicates whether the source Amazon Web Services Region supports replicating automated backups to the current Amazon Web Services Region."]}
    let make ?regionName =
      fun ?endpoint ->
        fun ?status ->
          fun ?supportsDBInstanceAutomatedBackupsReplication ->
            fun () ->
              {
                regionName;
                endpoint;
                status;
                supportsDBInstanceAutomatedBackupsReplication
              }
    let to_value x =
      structure_to_value
        [("RegionName", (Option.map x.regionName ~f:String_.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("SupportsDBInstanceAutomatedBackupsReplication",
          (Option.map x.supportsDBInstanceAutomatedBackupsReplication
             ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportsDBInstanceAutomatedBackupsReplication =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsDBInstanceAutomatedBackupsReplication") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let regionName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegionName") in
      make ?supportsDBInstanceAutomatedBackupsReplication ?status ?endpoint
        ?regionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportsDBInstanceAutomatedBackupsReplication =
        field_map json__ "SupportsDBInstanceAutomatedBackupsReplication"
          Boolean.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let regionName = field_map json__ "RegionName" String_.of_json in
      make ?supportsDBInstanceAutomatedBackupsReplication ?status ?endpoint
        ?regionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains an Amazon Web Services Region name as the result of a successful call to the DescribeSourceRegions action."]
module ServerlessV2PlatformVersionInfo =
  struct
    type nonrec t =
      {
      serverlessV2PlatformVersion: String_.t option
        [@ocaml.doc "The version number of the serverless platform."];
      serverlessV2PlatformVersionDescription: String_.t option
        [@ocaml.doc "The description of the serverless platform."];
      engine: String_.t option
        [@ocaml.doc "The name of the database engine."];
      serverlessV2FeaturesSupport: ServerlessV2FeaturesSupport.t option
        [@ocaml.doc
          "Specifies any Aurora Serverless v2 properties or limits that differ between Aurora Serverless v2 platform versions. You can retrieve the platform version of an existing DB cluster and check whether that version supports certain Aurora Serverless v2 features before you attempt to use those features."];
      status: String_.t option
        [@ocaml.doc
          "The status of the serverless platform. Valid statuses are the following: enabled - The platform version is in use. disabled - The platform version is not in use."];
      isDefault: Boolean.t option
        [@ocaml.doc
          "Indicates whether this platform version is the default version for the engine. The default platform version is the version used for new DB clusters."]}
    let make ?serverlessV2PlatformVersion =
      fun ?serverlessV2PlatformVersionDescription ->
        fun ?engine ->
          fun ?serverlessV2FeaturesSupport ->
            fun ?status ->
              fun ?isDefault ->
                fun () ->
                  {
                    serverlessV2PlatformVersion;
                    serverlessV2PlatformVersionDescription;
                    engine;
                    serverlessV2FeaturesSupport;
                    status;
                    isDefault
                  }
    let to_value x =
      structure_to_value
        [("ServerlessV2PlatformVersion",
           (Option.map x.serverlessV2PlatformVersion ~f:String_.to_value));
        ("ServerlessV2PlatformVersionDescription",
          (Option.map x.serverlessV2PlatformVersionDescription
             ~f:String_.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("ServerlessV2FeaturesSupport",
          (Option.map x.serverlessV2FeaturesSupport
             ~f:ServerlessV2FeaturesSupport.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("IsDefault", (Option.map x.isDefault ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsDefault") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let serverlessV2FeaturesSupport =
        (Option.map ~f:ServerlessV2FeaturesSupport.of_xml)
          (Xml.child xml_arg0 "ServerlessV2FeaturesSupport") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let serverlessV2PlatformVersionDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ServerlessV2PlatformVersionDescription") in
      let serverlessV2PlatformVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ServerlessV2PlatformVersion") in
      make ?isDefault ?status ?serverlessV2FeaturesSupport ?engine
        ?serverlessV2PlatformVersionDescription ?serverlessV2PlatformVersion
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isDefault = field_map json__ "IsDefault" Boolean.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let serverlessV2FeaturesSupport =
        field_map json__ "ServerlessV2FeaturesSupport"
          ServerlessV2FeaturesSupport.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let serverlessV2PlatformVersionDescription =
        field_map json__ "ServerlessV2PlatformVersionDescription"
          String_.of_json in
      let serverlessV2PlatformVersion =
        field_map json__ "ServerlessV2PlatformVersion" String_.of_json in
      make ?isDefault ?status ?serverlessV2FeaturesSupport ?engine
        ?serverlessV2PlatformVersionDescription ?serverlessV2PlatformVersion
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the action DescribeServerlessV2PlatformVersions."]
module TagSpecification =
  struct
    type nonrec t =
      {
      resourceType: String_.t option
        [@ocaml.doc
          "The type of resource to tag on creation. Valid Values: auto-backup - The DB instance's automated backup. cluster-auto-backup - The DB cluster's automated backup."];
      tags: TagList.t option }
    let make ?resourceType = fun ?tags -> fun () -> { resourceType; tags }
    let to_value x =
      structure_to_value
        [("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      make ?tags ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      make ?tags ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The tags to apply to resources when creating or modifying a DB instance or DB cluster. When you specify a tag, you must specify the resource type to tag, otherwise the request will fail."]
module ReservedDBInstancesOffering =
  struct
    type nonrec t =
      {
      reservedDBInstancesOfferingId: String_.t option
        [@ocaml.doc "The offering identifier."];
      dBInstanceClass: String_.t option
        [@ocaml.doc "The DB instance class for the reserved DB instance."];
      duration: Integer.t option
        [@ocaml.doc "The duration of the offering in seconds."];
      fixedPrice: Double.t option
        [@ocaml.doc "The fixed price charged for this offering."];
      usagePrice: Double.t option
        [@ocaml.doc "The hourly price charged for this offering."];
      currencyCode: String_.t option
        [@ocaml.doc
          "The currency code for the reserved DB instance offering."];
      productDescription: String_.t option
        [@ocaml.doc "The database engine used by the offering."];
      offeringType: String_.t option [@ocaml.doc "The offering type."];
      multiAZ: Boolean.t option
        [@ocaml.doc
          "Indicates whether the offering applies to Multi-AZ deployments."];
      recurringCharges: RecurringChargeList.t option
        [@ocaml.doc
          "The recurring price charged to run this reserved DB instance."]}
    let make ?reservedDBInstancesOfferingId =
      fun ?dBInstanceClass ->
        fun ?duration ->
          fun ?fixedPrice ->
            fun ?usagePrice ->
              fun ?currencyCode ->
                fun ?productDescription ->
                  fun ?offeringType ->
                    fun ?multiAZ ->
                      fun ?recurringCharges ->
                        fun () ->
                          {
                            reservedDBInstancesOfferingId;
                            dBInstanceClass;
                            duration;
                            fixedPrice;
                            usagePrice;
                            currencyCode;
                            productDescription;
                            offeringType;
                            multiAZ;
                            recurringCharges
                          }
    let to_value x =
      structure_to_value
        [("ReservedDBInstancesOfferingId",
           (Option.map x.reservedDBInstancesOfferingId ~f:String_.to_value));
        ("DBInstanceClass",
          (Option.map x.dBInstanceClass ~f:String_.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));
        ("ProductDescription",
          (Option.map x.productDescription ~f:String_.to_value));
        ("OfferingType", (Option.map x.offeringType ~f:String_.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:Boolean.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 multiAZ =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let offeringType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OfferingType") in
      let productDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ProductDescription") 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 dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      let reservedDBInstancesOfferingId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReservedDBInstancesOfferingId") in
      make ?recurringCharges ?multiAZ ?offeringType ?productDescription
        ?currencyCode ?usagePrice ?fixedPrice ?duration ?dBInstanceClass
        ?reservedDBInstancesOfferingId ()
    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 multiAZ = field_map json__ "MultiAZ" Boolean.of_json in
      let offeringType = field_map json__ "OfferingType" String_.of_json in
      let productDescription =
        field_map json__ "ProductDescription" String_.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 dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      let reservedDBInstancesOfferingId =
        field_map json__ "ReservedDBInstancesOfferingId" String_.of_json in
      make ?recurringCharges ?multiAZ ?offeringType ?productDescription
        ?currencyCode ?usagePrice ?fixedPrice ?duration ?dBInstanceClass
        ?reservedDBInstancesOfferingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the DescribeReservedDBInstancesOfferings action."]
module ReservedDBInstance =
  struct
    type nonrec t =
      {
      reservedDBInstanceId: String_.t option
        [@ocaml.doc "The unique identifier for the reservation."];
      reservedDBInstancesOfferingId: String_.t option
        [@ocaml.doc "The offering identifier."];
      dBInstanceClass: String_.t option
        [@ocaml.doc "The DB instance class for the reserved DB instance."];
      startTime: TStamp.t option
        [@ocaml.doc "The time the reservation started."];
      duration: Integer.t option
        [@ocaml.doc "The duration of the reservation in seconds."];
      fixedPrice: Double.t option
        [@ocaml.doc "The fixed price charged for this reserved DB instance."];
      usagePrice: Double.t option
        [@ocaml.doc
          "The hourly price charged for this reserved DB instance."];
      currencyCode: String_.t option
        [@ocaml.doc "The currency code for the reserved DB instance."];
      dBInstanceCount: Integer.t option
        [@ocaml.doc "The number of reserved DB instances."];
      productDescription: String_.t option
        [@ocaml.doc "The description of the reserved DB instance."];
      offeringType: String_.t option
        [@ocaml.doc "The offering type of this reserved DB instance."];
      multiAZ: Boolean.t option
        [@ocaml.doc
          "Indicates whether the reservation applies to Multi-AZ deployments."];
      state: String_.t option
        [@ocaml.doc "The state of the reserved DB instance."];
      recurringCharges: RecurringChargeList.t option
        [@ocaml.doc
          "The recurring price charged to run this reserved DB instance."];
      reservedDBInstanceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the reserved DB instance."];
      leaseId: String_.t option
        [@ocaml.doc
          "The unique identifier for the lease associated with the reserved DB instance. Amazon Web Services Support might request the lease ID for an issue related to a reserved DB instance."]}
    let make ?reservedDBInstanceId =
      fun ?reservedDBInstancesOfferingId ->
        fun ?dBInstanceClass ->
          fun ?startTime ->
            fun ?duration ->
              fun ?fixedPrice ->
                fun ?usagePrice ->
                  fun ?currencyCode ->
                    fun ?dBInstanceCount ->
                      fun ?productDescription ->
                        fun ?offeringType ->
                          fun ?multiAZ ->
                            fun ?state ->
                              fun ?recurringCharges ->
                                fun ?reservedDBInstanceArn ->
                                  fun ?leaseId ->
                                    fun () ->
                                      {
                                        reservedDBInstanceId;
                                        reservedDBInstancesOfferingId;
                                        dBInstanceClass;
                                        startTime;
                                        duration;
                                        fixedPrice;
                                        usagePrice;
                                        currencyCode;
                                        dBInstanceCount;
                                        productDescription;
                                        offeringType;
                                        multiAZ;
                                        state;
                                        recurringCharges;
                                        reservedDBInstanceArn;
                                        leaseId
                                      }
    let to_value x =
      structure_to_value
        [("ReservedDBInstanceId",
           (Option.map x.reservedDBInstanceId ~f:String_.to_value));
        ("ReservedDBInstancesOfferingId",
          (Option.map x.reservedDBInstancesOfferingId ~f:String_.to_value));
        ("DBInstanceClass",
          (Option.map x.dBInstanceClass ~f:String_.to_value));
        ("StartTime", (Option.map x.startTime ~f:TStamp.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));
        ("DBInstanceCount",
          (Option.map x.dBInstanceCount ~f:Integer.to_value));
        ("ProductDescription",
          (Option.map x.productDescription ~f:String_.to_value));
        ("OfferingType", (Option.map x.offeringType ~f:String_.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:Boolean.to_value));
        ("State", (Option.map x.state ~f:String_.to_value));
        ("RecurringCharges",
          (Option.map x.recurringCharges ~f:RecurringChargeList.to_value));
        ("ReservedDBInstanceArn",
          (Option.map x.reservedDBInstanceArn ~f:String_.to_value));
        ("LeaseId", (Option.map x.leaseId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let leaseId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LeaseId") in
      let reservedDBInstanceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReservedDBInstanceArn") in
      let recurringCharges =
        (Option.map ~f:RecurringChargeList.of_xml)
          (Xml.child xml_arg0 "RecurringCharges") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "State") in
      let multiAZ =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let offeringType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OfferingType") in
      let productDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ProductDescription") in
      let dBInstanceCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "DBInstanceCount") 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:TStamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      let reservedDBInstancesOfferingId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReservedDBInstancesOfferingId") in
      let reservedDBInstanceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReservedDBInstanceId") in
      make ?leaseId ?reservedDBInstanceArn ?recurringCharges ?state ?multiAZ
        ?offeringType ?productDescription ?dBInstanceCount ?currencyCode
        ?usagePrice ?fixedPrice ?duration ?startTime ?dBInstanceClass
        ?reservedDBInstancesOfferingId ?reservedDBInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let leaseId = field_map json__ "LeaseId" String_.of_json in
      let reservedDBInstanceArn =
        field_map json__ "ReservedDBInstanceArn" String_.of_json in
      let recurringCharges =
        field_map json__ "RecurringCharges" RecurringChargeList.of_json in
      let state = field_map json__ "State" String_.of_json in
      let multiAZ = field_map json__ "MultiAZ" Boolean.of_json in
      let offeringType = field_map json__ "OfferingType" String_.of_json in
      let productDescription =
        field_map json__ "ProductDescription" String_.of_json in
      let dBInstanceCount =
        field_map json__ "DBInstanceCount" 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" TStamp.of_json in
      let dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      let reservedDBInstancesOfferingId =
        field_map json__ "ReservedDBInstancesOfferingId" String_.of_json in
      let reservedDBInstanceId =
        field_map json__ "ReservedDBInstanceId" String_.of_json in
      make ?leaseId ?reservedDBInstanceArn ?recurringCharges ?state ?multiAZ
        ?offeringType ?productDescription ?dBInstanceCount ?currencyCode
        ?usagePrice ?fixedPrice ?duration ?startTime ?dBInstanceClass
        ?reservedDBInstancesOfferingId ?reservedDBInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the DescribeReservedDBInstances and PurchaseReservedDBInstancesOffering actions."]
module DBProxyTarget =
  struct
    type nonrec t =
      {
      targetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the RDS DB instance or Aurora DB cluster."];
      endpoint: String_.t option
        [@ocaml.doc
          "The writer endpoint for the RDS DB instance or Aurora DB cluster."];
      trackedClusterId: String_.t option
        [@ocaml.doc
          "The DB cluster identifier when the target represents an Aurora DB cluster. This field is blank when the target represents an RDS DB instance."];
      rdsResourceId: String_.t option
        [@ocaml.doc
          "The identifier representing the target. It can be the instance identifier for an RDS DB instance, or the cluster identifier for an Aurora DB cluster."];
      port: Integer.t option
        [@ocaml.doc
          "The port that the RDS Proxy uses to connect to the target RDS DB instance or Aurora DB cluster."];
      type_: TargetType.t option
        [@ocaml.doc
          "Specifies the kind of database, such as an RDS DB instance or an Aurora DB cluster, that the target represents."];
      role: TargetRole.t option
        [@ocaml.doc
          "A value that indicates whether the target of the proxy can be used for read/write or read-only operations."];
      targetHealth: TargetHealth.t option
        [@ocaml.doc
          "Information about the connection health of the RDS Proxy target."]}
    let make ?targetArn =
      fun ?endpoint ->
        fun ?trackedClusterId ->
          fun ?rdsResourceId ->
            fun ?port ->
              fun ?type_ ->
                fun ?role ->
                  fun ?targetHealth ->
                    fun () ->
                      {
                        targetArn;
                        endpoint;
                        trackedClusterId;
                        rdsResourceId;
                        port;
                        type_;
                        role;
                        targetHealth
                      }
    let to_value x =
      structure_to_value
        [("TargetArn", (Option.map x.targetArn ~f:String_.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("TrackedClusterId",
          (Option.map x.trackedClusterId ~f:String_.to_value));
        ("RdsResourceId", (Option.map x.rdsResourceId ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:Integer.to_value));
        ("Type", (Option.map x.type_ ~f:TargetType.to_value));
        ("Role", (Option.map x.role ~f:TargetRole.to_value));
        ("TargetHealth",
          (Option.map x.targetHealth ~f:TargetHealth.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetHealth =
        (Option.map ~f:TargetHealth.of_xml)
          (Xml.child xml_arg0 "TargetHealth") in
      let role =
        (Option.map ~f:TargetRole.of_xml) (Xml.child xml_arg0 "Role") in
      let type_ =
        (Option.map ~f:TargetType.of_xml) (Xml.child xml_arg0 "Type") in
      let port = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Port") in
      let rdsResourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RdsResourceId") in
      let trackedClusterId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TrackedClusterId") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let targetArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TargetArn") in
      make ?targetHealth ?role ?type_ ?port ?rdsResourceId ?trackedClusterId
        ?endpoint ?targetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetHealth = field_map json__ "TargetHealth" TargetHealth.of_json in
      let role = field_map json__ "Role" TargetRole.of_json in
      let type_ = field_map json__ "Type" TargetType.of_json in
      let port = field_map json__ "Port" Integer.of_json in
      let rdsResourceId = field_map json__ "RdsResourceId" String_.of_json in
      let trackedClusterId =
        field_map json__ "TrackedClusterId" String_.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let targetArn = field_map json__ "TargetArn" String_.of_json in
      make ?targetHealth ?role ?type_ ?port ?rdsResourceId ?trackedClusterId
        ?endpoint ?targetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details for an RDS Proxy target. It represents an RDS DB instance or Aurora DB cluster that the proxy can connect to. One or more targets are associated with an RDS Proxy target group. This data type is used as a response element in the DescribeDBProxyTargets action."]
module ResourcePendingMaintenanceActions =
  struct
    type nonrec t =
      {
      resourceIdentifier: String_.t option
        [@ocaml.doc
          "The ARN of the resource that has pending maintenance actions."];
      pendingMaintenanceActionDetails:
        PendingMaintenanceActionDetails.t option
        [@ocaml.doc
          "A list that provides details about the pending maintenance actions for the resource."]}
    let make ?resourceIdentifier =
      fun ?pendingMaintenanceActionDetails ->
        fun () -> { resourceIdentifier; pendingMaintenanceActionDetails }
    let to_value x =
      structure_to_value
        [("ResourceIdentifier",
           (Option.map x.resourceIdentifier ~f:String_.to_value));
        ("PendingMaintenanceActionDetails",
          (Option.map x.pendingMaintenanceActionDetails
             ~f:PendingMaintenanceActionDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingMaintenanceActionDetails =
        (Option.map ~f:PendingMaintenanceActionDetails.of_xml)
          (Xml.child xml_arg0 "PendingMaintenanceActionDetails") in
      let resourceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ResourceIdentifier") in
      make ?pendingMaintenanceActionDetails ?resourceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingMaintenanceActionDetails =
        field_map json__ "PendingMaintenanceActionDetails"
          PendingMaintenanceActionDetails.of_json in
      let resourceIdentifier =
        field_map json__ "ResourceIdentifier" String_.of_json in
      make ?pendingMaintenanceActionDetails ?resourceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the pending maintenance actions for a resource."]
module OrderableDBInstanceOption =
  struct
    type nonrec t =
      {
      engine: String_.t option
        [@ocaml.doc "The engine type of a DB instance."];
      engineVersion: String_.t option
        [@ocaml.doc "The engine version of a DB instance."];
      dBInstanceClass: String_.t option
        [@ocaml.doc "The DB instance class for a DB instance."];
      licenseModel: String_.t option
        [@ocaml.doc "The license model for a DB instance."];
      availabilityZoneGroup: String_.t option
        [@ocaml.doc "The Availability Zone group for a DB instance."];
      availabilityZones: AvailabilityZoneList.t option
        [@ocaml.doc "A list of Availability Zones for a DB instance."];
      multiAZCapable: Boolean.t option
        [@ocaml.doc "Indicates whether a DB instance is Multi-AZ capable."];
      readReplicaCapable: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance can have a read replica."];
      vpc: Boolean.t option
        [@ocaml.doc "Indicates whether a DB instance is in a VPC."];
      supportsStorageEncryption: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports encrypted storage."];
      storageType: String_.t option
        [@ocaml.doc "The storage type for a DB instance."];
      supportsIops: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports provisioned IOPS."];
      supportsStorageThroughput: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports storage throughput."];
      supportsEnhancedMonitoring: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports Enhanced Monitoring at intervals from 1 to 60 seconds."];
      supportsIAMDatabaseAuthentication: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports IAM database authentication."];
      supportsPerformanceInsights: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports Performance Insights."];
      minStorageSize: IntegerOptional.t option
        [@ocaml.doc "Minimum storage size for a DB instance."];
      maxStorageSize: IntegerOptional.t option
        [@ocaml.doc "Maximum storage size for a DB instance."];
      minIopsPerDbInstance: IntegerOptional.t option
        [@ocaml.doc "Minimum total provisioned IOPS for a DB instance."];
      maxIopsPerDbInstance: IntegerOptional.t option
        [@ocaml.doc "Maximum total provisioned IOPS for a DB instance."];
      minIopsPerGib: DoubleOptional.t option
        [@ocaml.doc "Minimum provisioned IOPS per GiB for a DB instance."];
      maxIopsPerGib: DoubleOptional.t option
        [@ocaml.doc "Maximum provisioned IOPS per GiB for a DB instance."];
      minStorageThroughputPerDbInstance: IntegerOptional.t option
        [@ocaml.doc "Minimum storage throughput for a DB instance."];
      maxStorageThroughputPerDbInstance: IntegerOptional.t option
        [@ocaml.doc "Maximum storage throughput for a DB instance."];
      minStorageThroughputPerIops: DoubleOptional.t option
        [@ocaml.doc
          "Minimum storage throughput to provisioned IOPS ratio for a DB instance."];
      maxStorageThroughputPerIops: DoubleOptional.t option
        [@ocaml.doc
          "Maximum storage throughput to provisioned IOPS ratio for a DB instance."];
      availableProcessorFeatures: AvailableProcessorFeatureList.t option
        [@ocaml.doc
          "A list of the available processor features for the DB instance class of a DB instance."];
      supportedEngineModes: EngineModeList.t option
        [@ocaml.doc "A list of the supported DB engine modes."];
      supportsStorageAutoscaling: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether Amazon RDS can automatically scale storage for DB instances that use the specified DB instance class."];
      supportsKerberosAuthentication: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports Kerberos Authentication."];
      outpostCapable: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports RDS on Outposts. For more information about RDS on Outposts, see Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide."];
      supportedActivityStreamModes: ActivityStreamModeList.t option
        [@ocaml.doc
          "The list of supported modes for Database Activity Streams. Aurora PostgreSQL returns the value \\[sync, async\\]. Aurora MySQL and RDS for Oracle return \\[async\\] only. If Database Activity Streams isn't supported, the return value is an empty list."];
      supportsGlobalDatabases: Boolean.t option
        [@ocaml.doc
          "Indicates whether you can use Aurora global databases with a specific combination of other DB engine attributes."];
      supportedNetworkTypes: StringList.t option
        [@ocaml.doc
          "The network types supported by the DB instance (IPV4 or DUAL). A DB instance can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon RDS User Guide."];
      supportsClusters: Boolean.t option
        [@ocaml.doc
          "Indicates whether DB instances can be configured as a Multi-AZ DB cluster. For more information on Multi-AZ DB clusters, see Multi-AZ deployments with two readable standby DB instances in the Amazon RDS User Guide."];
      supportsDedicatedLogVolume: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports using a dedicated log volume (DLV)."];
      supportsAdditionalStorageVolumes: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB instance class supports additional storage volumes."];
      supportsHttpEndpoint: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports HTTP endpoints."];
      availableAdditionalStorageVolumesOptions:
        AvailableAdditionalStorageVolumesOptionList.t option
        [@ocaml.doc
          "The available options for additional storage volumes for the DB instance class."]}
    let make ?engine =
      fun ?engineVersion ->
        fun ?dBInstanceClass ->
          fun ?licenseModel ->
            fun ?availabilityZoneGroup ->
              fun ?availabilityZones ->
                fun ?multiAZCapable ->
                  fun ?readReplicaCapable ->
                    fun ?vpc ->
                      fun ?supportsStorageEncryption ->
                        fun ?storageType ->
                          fun ?supportsIops ->
                            fun ?supportsStorageThroughput ->
                              fun ?supportsEnhancedMonitoring ->
                                fun ?supportsIAMDatabaseAuthentication ->
                                  fun ?supportsPerformanceInsights ->
                                    fun ?minStorageSize ->
                                      fun ?maxStorageSize ->
                                        fun ?minIopsPerDbInstance ->
                                          fun ?maxIopsPerDbInstance ->
                                            fun ?minIopsPerGib ->
                                              fun ?maxIopsPerGib ->
                                                fun
                                                  ?minStorageThroughputPerDbInstance
                                                  ->
                                                  fun
                                                    ?maxStorageThroughputPerDbInstance
                                                    ->
                                                    fun
                                                      ?minStorageThroughputPerIops
                                                      ->
                                                      fun
                                                        ?maxStorageThroughputPerIops
                                                        ->
                                                        fun
                                                          ?availableProcessorFeatures
                                                          ->
                                                          fun
                                                            ?supportedEngineModes
                                                            ->
                                                            fun
                                                              ?supportsStorageAutoscaling
                                                              ->
                                                              fun
                                                                ?supportsKerberosAuthentication
                                                                ->
                                                                fun
                                                                  ?outpostCapable
                                                                  ->
                                                                  fun
                                                                    ?supportedActivityStreamModes
                                                                    ->
                                                                    fun
                                                                    ?supportsGlobalDatabases
                                                                    ->
                                                                    fun
                                                                    ?supportedNetworkTypes
                                                                    ->
                                                                    fun
                                                                    ?supportsClusters
                                                                    ->
                                                                    fun
                                                                    ?supportsDedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?supportsAdditionalStorageVolumes
                                                                    ->
                                                                    fun
                                                                    ?supportsHttpEndpoint
                                                                    ->
                                                                    fun
                                                                    ?availableAdditionalStorageVolumesOptions
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    engine;
                                                                    engineVersion;
                                                                    dBInstanceClass;
                                                                    licenseModel;
                                                                    availabilityZoneGroup;
                                                                    availabilityZones;
                                                                    multiAZCapable;
                                                                    readReplicaCapable;
                                                                    vpc;
                                                                    supportsStorageEncryption;
                                                                    storageType;
                                                                    supportsIops;
                                                                    supportsStorageThroughput;
                                                                    supportsEnhancedMonitoring;
                                                                    supportsIAMDatabaseAuthentication;
                                                                    supportsPerformanceInsights;
                                                                    minStorageSize;
                                                                    maxStorageSize;
                                                                    minIopsPerDbInstance;
                                                                    maxIopsPerDbInstance;
                                                                    minIopsPerGib;
                                                                    maxIopsPerGib;
                                                                    minStorageThroughputPerDbInstance;
                                                                    maxStorageThroughputPerDbInstance;
                                                                    minStorageThroughputPerIops;
                                                                    maxStorageThroughputPerIops;
                                                                    availableProcessorFeatures;
                                                                    supportedEngineModes;
                                                                    supportsStorageAutoscaling;
                                                                    supportsKerberosAuthentication;
                                                                    outpostCapable;
                                                                    supportedActivityStreamModes;
                                                                    supportsGlobalDatabases;
                                                                    supportedNetworkTypes;
                                                                    supportsClusters;
                                                                    supportsDedicatedLogVolume;
                                                                    supportsAdditionalStorageVolumes;
                                                                    supportsHttpEndpoint;
                                                                    availableAdditionalStorageVolumesOptions
                                                                    }
    let to_value x =
      structure_to_value
        [("Engine", (Option.map x.engine ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("DBInstanceClass",
          (Option.map x.dBInstanceClass ~f:String_.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("AvailabilityZoneGroup",
          (Option.map x.availabilityZoneGroup ~f:String_.to_value));
        ("AvailabilityZones",
          (Option.map x.availabilityZones ~f:AvailabilityZoneList.to_value));
        ("MultiAZCapable", (Option.map x.multiAZCapable ~f:Boolean.to_value));
        ("ReadReplicaCapable",
          (Option.map x.readReplicaCapable ~f:Boolean.to_value));
        ("Vpc", (Option.map x.vpc ~f:Boolean.to_value));
        ("SupportsStorageEncryption",
          (Option.map x.supportsStorageEncryption ~f:Boolean.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("SupportsIops", (Option.map x.supportsIops ~f:Boolean.to_value));
        ("SupportsStorageThroughput",
          (Option.map x.supportsStorageThroughput ~f:Boolean.to_value));
        ("SupportsEnhancedMonitoring",
          (Option.map x.supportsEnhancedMonitoring ~f:Boolean.to_value));
        ("SupportsIAMDatabaseAuthentication",
          (Option.map x.supportsIAMDatabaseAuthentication ~f:Boolean.to_value));
        ("SupportsPerformanceInsights",
          (Option.map x.supportsPerformanceInsights ~f:Boolean.to_value));
        ("MinStorageSize",
          (Option.map x.minStorageSize ~f:IntegerOptional.to_value));
        ("MaxStorageSize",
          (Option.map x.maxStorageSize ~f:IntegerOptional.to_value));
        ("MinIopsPerDbInstance",
          (Option.map x.minIopsPerDbInstance ~f:IntegerOptional.to_value));
        ("MaxIopsPerDbInstance",
          (Option.map x.maxIopsPerDbInstance ~f:IntegerOptional.to_value));
        ("MinIopsPerGib",
          (Option.map x.minIopsPerGib ~f:DoubleOptional.to_value));
        ("MaxIopsPerGib",
          (Option.map x.maxIopsPerGib ~f:DoubleOptional.to_value));
        ("MinStorageThroughputPerDbInstance",
          (Option.map x.minStorageThroughputPerDbInstance
             ~f:IntegerOptional.to_value));
        ("MaxStorageThroughputPerDbInstance",
          (Option.map x.maxStorageThroughputPerDbInstance
             ~f:IntegerOptional.to_value));
        ("MinStorageThroughputPerIops",
          (Option.map x.minStorageThroughputPerIops
             ~f:DoubleOptional.to_value));
        ("MaxStorageThroughputPerIops",
          (Option.map x.maxStorageThroughputPerIops
             ~f:DoubleOptional.to_value));
        ("AvailableProcessorFeatures",
          (Option.map x.availableProcessorFeatures
             ~f:AvailableProcessorFeatureList.to_value));
        ("SupportedEngineModes",
          (Option.map x.supportedEngineModes ~f:EngineModeList.to_value));
        ("SupportsStorageAutoscaling",
          (Option.map x.supportsStorageAutoscaling
             ~f:BooleanOptional.to_value));
        ("SupportsKerberosAuthentication",
          (Option.map x.supportsKerberosAuthentication
             ~f:BooleanOptional.to_value));
        ("OutpostCapable", (Option.map x.outpostCapable ~f:Boolean.to_value));
        ("SupportedActivityStreamModes",
          (Option.map x.supportedActivityStreamModes
             ~f:ActivityStreamModeList.to_value));
        ("SupportsGlobalDatabases",
          (Option.map x.supportsGlobalDatabases ~f:Boolean.to_value));
        ("SupportedNetworkTypes",
          (Option.map x.supportedNetworkTypes ~f:StringList.to_value));
        ("SupportsClusters",
          (Option.map x.supportsClusters ~f:Boolean.to_value));
        ("SupportsDedicatedLogVolume",
          (Option.map x.supportsDedicatedLogVolume ~f:Boolean.to_value));
        ("SupportsAdditionalStorageVolumes",
          (Option.map x.supportsAdditionalStorageVolumes
             ~f:BooleanOptional.to_value));
        ("SupportsHttpEndpoint",
          (Option.map x.supportsHttpEndpoint ~f:Boolean.to_value));
        ("AvailableAdditionalStorageVolumesOptions",
          (Option.map x.availableAdditionalStorageVolumesOptions
             ~f:AvailableAdditionalStorageVolumesOptionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availableAdditionalStorageVolumesOptions =
        (Option.map ~f:AvailableAdditionalStorageVolumesOptionList.of_xml)
          (Xml.child xml_arg0 "AvailableAdditionalStorageVolumesOptions") in
      let supportsHttpEndpoint =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsHttpEndpoint") in
      let supportsAdditionalStorageVolumes =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsAdditionalStorageVolumes") in
      let supportsDedicatedLogVolume =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsDedicatedLogVolume") in
      let supportsClusters =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsClusters") in
      let supportedNetworkTypes =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SupportedNetworkTypes") in
      let supportsGlobalDatabases =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsGlobalDatabases") in
      let supportedActivityStreamModes =
        (Option.map ~f:ActivityStreamModeList.of_xml)
          (Xml.child xml_arg0 "SupportedActivityStreamModes") in
      let outpostCapable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "OutpostCapable") in
      let supportsKerberosAuthentication =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsKerberosAuthentication") in
      let supportsStorageAutoscaling =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsStorageAutoscaling") in
      let supportedEngineModes =
        (Option.map ~f:EngineModeList.of_xml)
          (Xml.child xml_arg0 "SupportedEngineModes") in
      let availableProcessorFeatures =
        (Option.map ~f:AvailableProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "AvailableProcessorFeatures") in
      let maxStorageThroughputPerIops =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MaxStorageThroughputPerIops") in
      let minStorageThroughputPerIops =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinStorageThroughputPerIops") in
      let maxStorageThroughputPerDbInstance =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxStorageThroughputPerDbInstance") in
      let minStorageThroughputPerDbInstance =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinStorageThroughputPerDbInstance") in
      let maxIopsPerGib =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MaxIopsPerGib") in
      let minIopsPerGib =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinIopsPerGib") in
      let maxIopsPerDbInstance =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxIopsPerDbInstance") in
      let minIopsPerDbInstance =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinIopsPerDbInstance") in
      let maxStorageSize =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxStorageSize") in
      let minStorageSize =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinStorageSize") in
      let supportsPerformanceInsights =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsPerformanceInsights") in
      let supportsIAMDatabaseAuthentication =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsIAMDatabaseAuthentication") in
      let supportsEnhancedMonitoring =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsEnhancedMonitoring") in
      let supportsStorageThroughput =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsStorageThroughput") in
      let supportsIops =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SupportsIops") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let supportsStorageEncryption =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsStorageEncryption") in
      let vpc = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Vpc") in
      let readReplicaCapable =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ReadReplicaCapable") in
      let multiAZCapable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "MultiAZCapable") in
      let availabilityZones =
        (Option.map ~f:AvailabilityZoneList.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      let availabilityZoneGroup =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneGroup") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      make ?availableAdditionalStorageVolumesOptions ?supportsHttpEndpoint
        ?supportsAdditionalStorageVolumes ?supportsDedicatedLogVolume
        ?supportsClusters ?supportedNetworkTypes ?supportsGlobalDatabases
        ?supportedActivityStreamModes ?outpostCapable
        ?supportsKerberosAuthentication ?supportsStorageAutoscaling
        ?supportedEngineModes ?availableProcessorFeatures
        ?maxStorageThroughputPerIops ?minStorageThroughputPerIops
        ?maxStorageThroughputPerDbInstance ?minStorageThroughputPerDbInstance
        ?maxIopsPerGib ?minIopsPerGib ?maxIopsPerDbInstance
        ?minIopsPerDbInstance ?maxStorageSize ?minStorageSize
        ?supportsPerformanceInsights ?supportsIAMDatabaseAuthentication
        ?supportsEnhancedMonitoring ?supportsStorageThroughput ?supportsIops
        ?storageType ?supportsStorageEncryption ?vpc ?readReplicaCapable
        ?multiAZCapable ?availabilityZones ?availabilityZoneGroup
        ?licenseModel ?dBInstanceClass ?engineVersion ?engine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availableAdditionalStorageVolumesOptions =
        field_map json__ "AvailableAdditionalStorageVolumesOptions"
          AvailableAdditionalStorageVolumesOptionList.of_json in
      let supportsHttpEndpoint =
        field_map json__ "SupportsHttpEndpoint" Boolean.of_json in
      let supportsAdditionalStorageVolumes =
        field_map json__ "SupportsAdditionalStorageVolumes"
          BooleanOptional.of_json in
      let supportsDedicatedLogVolume =
        field_map json__ "SupportsDedicatedLogVolume" Boolean.of_json in
      let supportsClusters =
        field_map json__ "SupportsClusters" Boolean.of_json in
      let supportedNetworkTypes =
        field_map json__ "SupportedNetworkTypes" StringList.of_json in
      let supportsGlobalDatabases =
        field_map json__ "SupportsGlobalDatabases" Boolean.of_json in
      let supportedActivityStreamModes =
        field_map json__ "SupportedActivityStreamModes"
          ActivityStreamModeList.of_json in
      let outpostCapable = field_map json__ "OutpostCapable" Boolean.of_json in
      let supportsKerberosAuthentication =
        field_map json__ "SupportsKerberosAuthentication"
          BooleanOptional.of_json in
      let supportsStorageAutoscaling =
        field_map json__ "SupportsStorageAutoscaling" BooleanOptional.of_json in
      let supportedEngineModes =
        field_map json__ "SupportedEngineModes" EngineModeList.of_json in
      let availableProcessorFeatures =
        field_map json__ "AvailableProcessorFeatures"
          AvailableProcessorFeatureList.of_json in
      let maxStorageThroughputPerIops =
        field_map json__ "MaxStorageThroughputPerIops" DoubleOptional.of_json in
      let minStorageThroughputPerIops =
        field_map json__ "MinStorageThroughputPerIops" DoubleOptional.of_json in
      let maxStorageThroughputPerDbInstance =
        field_map json__ "MaxStorageThroughputPerDbInstance"
          IntegerOptional.of_json in
      let minStorageThroughputPerDbInstance =
        field_map json__ "MinStorageThroughputPerDbInstance"
          IntegerOptional.of_json in
      let maxIopsPerGib =
        field_map json__ "MaxIopsPerGib" DoubleOptional.of_json in
      let minIopsPerGib =
        field_map json__ "MinIopsPerGib" DoubleOptional.of_json in
      let maxIopsPerDbInstance =
        field_map json__ "MaxIopsPerDbInstance" IntegerOptional.of_json in
      let minIopsPerDbInstance =
        field_map json__ "MinIopsPerDbInstance" IntegerOptional.of_json in
      let maxStorageSize =
        field_map json__ "MaxStorageSize" IntegerOptional.of_json in
      let minStorageSize =
        field_map json__ "MinStorageSize" IntegerOptional.of_json in
      let supportsPerformanceInsights =
        field_map json__ "SupportsPerformanceInsights" Boolean.of_json in
      let supportsIAMDatabaseAuthentication =
        field_map json__ "SupportsIAMDatabaseAuthentication" Boolean.of_json in
      let supportsEnhancedMonitoring =
        field_map json__ "SupportsEnhancedMonitoring" Boolean.of_json in
      let supportsStorageThroughput =
        field_map json__ "SupportsStorageThroughput" Boolean.of_json in
      let supportsIops = field_map json__ "SupportsIops" Boolean.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let supportsStorageEncryption =
        field_map json__ "SupportsStorageEncryption" Boolean.of_json in
      let vpc = field_map json__ "Vpc" Boolean.of_json in
      let readReplicaCapable =
        field_map json__ "ReadReplicaCapable" Boolean.of_json in
      let multiAZCapable = field_map json__ "MultiAZCapable" Boolean.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" AvailabilityZoneList.of_json in
      let availabilityZoneGroup =
        field_map json__ "AvailabilityZoneGroup" String_.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      make ?availableAdditionalStorageVolumesOptions ?supportsHttpEndpoint
        ?supportsAdditionalStorageVolumes ?supportsDedicatedLogVolume
        ?supportsClusters ?supportedNetworkTypes ?supportsGlobalDatabases
        ?supportedActivityStreamModes ?outpostCapable
        ?supportsKerberosAuthentication ?supportsStorageAutoscaling
        ?supportedEngineModes ?availableProcessorFeatures
        ?maxStorageThroughputPerIops ?minStorageThroughputPerIops
        ?maxStorageThroughputPerDbInstance ?minStorageThroughputPerDbInstance
        ?maxIopsPerGib ?minIopsPerGib ?maxIopsPerDbInstance
        ?minIopsPerDbInstance ?maxStorageSize ?minStorageSize
        ?supportsPerformanceInsights ?supportsIAMDatabaseAuthentication
        ?supportsEnhancedMonitoring ?supportsStorageThroughput ?supportsIops
        ?storageType ?supportsStorageEncryption ?vpc ?readReplicaCapable
        ?multiAZCapable ?availabilityZones ?availabilityZoneGroup
        ?licenseModel ?dBInstanceClass ?engineVersion ?engine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a list of available options for a DB instance. This data type is used as a response element in the DescribeOrderableDBInstanceOptions action."]
module OptionGroup =
  struct
    type nonrec t =
      {
      optionGroupName: String_.t option
        [@ocaml.doc "Specifies the name of the option group."];
      optionGroupDescription: String_.t option
        [@ocaml.doc "Provides a description of the option group."];
      engineName: String_.t option
        [@ocaml.doc
          "Indicates the name of the engine that this option group can be applied to."];
      majorEngineVersion: String_.t option
        [@ocaml.doc
          "Indicates the major engine version associated with this option group."];
      options: OptionsList.t option
        [@ocaml.doc
          "Indicates what options are available in the option group."];
      allowsVpcAndNonVpcInstanceMemberships: Boolean.t option
        [@ocaml.doc
          "Indicates whether this option group can be applied to both VPC and non-VPC instances. The value true indicates the option group can be applied to both VPC and non-VPC instances."];
      vpcId: String_.t option
        [@ocaml.doc
          "If AllowsVpcAndNonVpcInstanceMemberships is false, this field is blank. If AllowsVpcAndNonVpcInstanceMemberships is true and this field is blank, then this option group can be applied to both VPC and non-VPC instances. If this field contains a value, then this option group can only be applied to instances that are in the VPC indicated by this field."];
      optionGroupArn: String_.t option
        [@ocaml.doc
          "Specifies the Amazon Resource Name (ARN) for the option group."];
      sourceOptionGroup: String_.t option
        [@ocaml.doc
          "Specifies the name of the option group from which this option group is copied."];
      sourceAccountId: String_.t option
        [@ocaml.doc
          "Specifies the Amazon Web Services account ID for the option group from which this option group is copied."];
      copyTimestamp: TStamp.t option
        [@ocaml.doc "Indicates when the option group was copied."]}
    let make ?optionGroupName =
      fun ?optionGroupDescription ->
        fun ?engineName ->
          fun ?majorEngineVersion ->
            fun ?options ->
              fun ?allowsVpcAndNonVpcInstanceMemberships ->
                fun ?vpcId ->
                  fun ?optionGroupArn ->
                    fun ?sourceOptionGroup ->
                      fun ?sourceAccountId ->
                        fun ?copyTimestamp ->
                          fun () ->
                            {
                              optionGroupName;
                              optionGroupDescription;
                              engineName;
                              majorEngineVersion;
                              options;
                              allowsVpcAndNonVpcInstanceMemberships;
                              vpcId;
                              optionGroupArn;
                              sourceOptionGroup;
                              sourceAccountId;
                              copyTimestamp
                            }
    let to_value x =
      structure_to_value
        [("OptionGroupName",
           (Option.map x.optionGroupName ~f:String_.to_value));
        ("OptionGroupDescription",
          (Option.map x.optionGroupDescription ~f:String_.to_value));
        ("EngineName", (Option.map x.engineName ~f:String_.to_value));
        ("MajorEngineVersion",
          (Option.map x.majorEngineVersion ~f:String_.to_value));
        ("Options", (Option.map x.options ~f:OptionsList.to_value));
        ("AllowsVpcAndNonVpcInstanceMemberships",
          (Option.map x.allowsVpcAndNonVpcInstanceMemberships
             ~f:Boolean.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("OptionGroupArn", (Option.map x.optionGroupArn ~f:String_.to_value));
        ("SourceOptionGroup",
          (Option.map x.sourceOptionGroup ~f:String_.to_value));
        ("SourceAccountId",
          (Option.map x.sourceAccountId ~f:String_.to_value));
        ("CopyTimestamp", (Option.map x.copyTimestamp ~f:TStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let copyTimestamp =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CopyTimestamp") in
      let sourceAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceAccountId") in
      let sourceOptionGroup =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceOptionGroup") in
      let optionGroupArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupArn") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let allowsVpcAndNonVpcInstanceMemberships =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AllowsVpcAndNonVpcInstanceMemberships") in
      let options =
        (Option.map ~f:OptionsList.of_xml) (Xml.child xml_arg0 "Options") in
      let majorEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MajorEngineVersion") in
      let engineName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineName") in
      let optionGroupDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OptionGroupDescription") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      make ?copyTimestamp ?sourceAccountId ?sourceOptionGroup ?optionGroupArn
        ?vpcId ?allowsVpcAndNonVpcInstanceMemberships ?options
        ?majorEngineVersion ?engineName ?optionGroupDescription
        ?optionGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let copyTimestamp = field_map json__ "CopyTimestamp" TStamp.of_json in
      let sourceAccountId =
        field_map json__ "SourceAccountId" String_.of_json in
      let sourceOptionGroup =
        field_map json__ "SourceOptionGroup" String_.of_json in
      let optionGroupArn = field_map json__ "OptionGroupArn" String_.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let allowsVpcAndNonVpcInstanceMemberships =
        field_map json__ "AllowsVpcAndNonVpcInstanceMemberships"
          Boolean.of_json in
      let options = field_map json__ "Options" OptionsList.of_json in
      let majorEngineVersion =
        field_map json__ "MajorEngineVersion" String_.of_json in
      let engineName = field_map json__ "EngineName" String_.of_json in
      let optionGroupDescription =
        field_map json__ "OptionGroupDescription" String_.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      make ?copyTimestamp ?sourceAccountId ?sourceOptionGroup ?optionGroupArn
        ?vpcId ?allowsVpcAndNonVpcInstanceMemberships ?options
        ?majorEngineVersion ?engineName ?optionGroupDescription
        ?optionGroupName ()
    let to_json v = composed_to_json to_value v
  end
module OptionGroupOption =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the option."];
      description: String_.t option
        [@ocaml.doc "The description of the option."];
      engineName: String_.t option
        [@ocaml.doc
          "The name of the engine that this option can be applied to."];
      majorEngineVersion: String_.t option
        [@ocaml.doc
          "Indicates the major engine version that the option is available for."];
      minimumRequiredMinorEngineVersion: String_.t option
        [@ocaml.doc
          "The minimum required engine version for the option to be applied."];
      portRequired: Boolean.t option
        [@ocaml.doc "Indicates whether the option requires a port."];
      defaultPort: IntegerOptional.t option
        [@ocaml.doc
          "If the option requires a port, specifies the default port for the option."];
      optionsDependedOn: OptionsDependedOn.t option
        [@ocaml.doc "The options that are prerequisites for this option."];
      optionsConflictsWith: OptionsConflictsWith.t option
        [@ocaml.doc "The options that conflict with this option."];
      persistent: Boolean.t option
        [@ocaml.doc
          "Persistent options can't be removed from an option group while DB instances are associated with the option group. If you disassociate all DB instances from the option group, your can remove the persistent option from the option group."];
      permanent: Boolean.t option
        [@ocaml.doc
          "Permanent options can never be removed from an option group. An option group containing a permanent option can't be removed from a DB instance."];
      requiresAutoMinorEngineVersionUpgrade: Boolean.t option
        [@ocaml.doc
          "If true, you must enable the Auto Minor Version Upgrade setting for your DB instance before you can use this option. You can enable Auto Minor Version Upgrade when you first create your DB instance, or by modifying your DB instance later."];
      vpcOnly: Boolean.t option
        [@ocaml.doc
          "If true, you can only use this option with a DB instance that is in a VPC."];
      supportsOptionVersionDowngrade: BooleanOptional.t option
        [@ocaml.doc
          "If true, you can change the option to an earlier version of the option. This only applies to options that have different versions available."];
      optionGroupOptionSettings: OptionGroupOptionSettingsList.t option
        [@ocaml.doc
          "The option settings that are available (and the default value) for each option in an option group."];
      optionGroupOptionVersions: OptionGroupOptionVersionsList.t option
        [@ocaml.doc "The versions that are available for the option."];
      copyableCrossAccount: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the option can be copied across Amazon Web Services accounts."]}
    let make ?name =
      fun ?description ->
        fun ?engineName ->
          fun ?majorEngineVersion ->
            fun ?minimumRequiredMinorEngineVersion ->
              fun ?portRequired ->
                fun ?defaultPort ->
                  fun ?optionsDependedOn ->
                    fun ?optionsConflictsWith ->
                      fun ?persistent ->
                        fun ?permanent ->
                          fun ?requiresAutoMinorEngineVersionUpgrade ->
                            fun ?vpcOnly ->
                              fun ?supportsOptionVersionDowngrade ->
                                fun ?optionGroupOptionSettings ->
                                  fun ?optionGroupOptionVersions ->
                                    fun ?copyableCrossAccount ->
                                      fun () ->
                                        {
                                          name;
                                          description;
                                          engineName;
                                          majorEngineVersion;
                                          minimumRequiredMinorEngineVersion;
                                          portRequired;
                                          defaultPort;
                                          optionsDependedOn;
                                          optionsConflictsWith;
                                          persistent;
                                          permanent;
                                          requiresAutoMinorEngineVersionUpgrade;
                                          vpcOnly;
                                          supportsOptionVersionDowngrade;
                                          optionGroupOptionSettings;
                                          optionGroupOptionVersions;
                                          copyableCrossAccount
                                        }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("EngineName", (Option.map x.engineName ~f:String_.to_value));
        ("MajorEngineVersion",
          (Option.map x.majorEngineVersion ~f:String_.to_value));
        ("MinimumRequiredMinorEngineVersion",
          (Option.map x.minimumRequiredMinorEngineVersion ~f:String_.to_value));
        ("PortRequired", (Option.map x.portRequired ~f:Boolean.to_value));
        ("DefaultPort",
          (Option.map x.defaultPort ~f:IntegerOptional.to_value));
        ("OptionsDependedOn",
          (Option.map x.optionsDependedOn ~f:OptionsDependedOn.to_value));
        ("OptionsConflictsWith",
          (Option.map x.optionsConflictsWith ~f:OptionsConflictsWith.to_value));
        ("Persistent", (Option.map x.persistent ~f:Boolean.to_value));
        ("Permanent", (Option.map x.permanent ~f:Boolean.to_value));
        ("RequiresAutoMinorEngineVersionUpgrade",
          (Option.map x.requiresAutoMinorEngineVersionUpgrade
             ~f:Boolean.to_value));
        ("VpcOnly", (Option.map x.vpcOnly ~f:Boolean.to_value));
        ("SupportsOptionVersionDowngrade",
          (Option.map x.supportsOptionVersionDowngrade
             ~f:BooleanOptional.to_value));
        ("OptionGroupOptionSettings",
          (Option.map x.optionGroupOptionSettings
             ~f:OptionGroupOptionSettingsList.to_value));
        ("OptionGroupOptionVersions",
          (Option.map x.optionGroupOptionVersions
             ~f:OptionGroupOptionVersionsList.to_value));
        ("CopyableCrossAccount",
          (Option.map x.copyableCrossAccount ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let copyableCrossAccount =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CopyableCrossAccount") in
      let optionGroupOptionVersions =
        (Option.map ~f:OptionGroupOptionVersionsList.of_xml)
          (Xml.child xml_arg0 "OptionGroupOptionVersions") in
      let optionGroupOptionSettings =
        (Option.map ~f:OptionGroupOptionSettingsList.of_xml)
          (Xml.child xml_arg0 "OptionGroupOptionSettings") in
      let supportsOptionVersionDowngrade =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsOptionVersionDowngrade") in
      let vpcOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "VpcOnly") in
      let requiresAutoMinorEngineVersionUpgrade =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RequiresAutoMinorEngineVersionUpgrade") in
      let permanent =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Permanent") in
      let persistent =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Persistent") in
      let optionsConflictsWith =
        (Option.map ~f:OptionsConflictsWith.of_xml)
          (Xml.child xml_arg0 "OptionsConflictsWith") in
      let optionsDependedOn =
        (Option.map ~f:OptionsDependedOn.of_xml)
          (Xml.child xml_arg0 "OptionsDependedOn") in
      let defaultPort =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "DefaultPort") in
      let portRequired =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "PortRequired") in
      let minimumRequiredMinorEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MinimumRequiredMinorEngineVersion") in
      let majorEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MajorEngineVersion") in
      let engineName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineName") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?copyableCrossAccount ?optionGroupOptionVersions
        ?optionGroupOptionSettings ?supportsOptionVersionDowngrade ?vpcOnly
        ?requiresAutoMinorEngineVersionUpgrade ?permanent ?persistent
        ?optionsConflictsWith ?optionsDependedOn ?defaultPort ?portRequired
        ?minimumRequiredMinorEngineVersion ?majorEngineVersion ?engineName
        ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let copyableCrossAccount =
        field_map json__ "CopyableCrossAccount" BooleanOptional.of_json in
      let optionGroupOptionVersions =
        field_map json__ "OptionGroupOptionVersions"
          OptionGroupOptionVersionsList.of_json in
      let optionGroupOptionSettings =
        field_map json__ "OptionGroupOptionSettings"
          OptionGroupOptionSettingsList.of_json in
      let supportsOptionVersionDowngrade =
        field_map json__ "SupportsOptionVersionDowngrade"
          BooleanOptional.of_json in
      let vpcOnly = field_map json__ "VpcOnly" Boolean.of_json in
      let requiresAutoMinorEngineVersionUpgrade =
        field_map json__ "RequiresAutoMinorEngineVersionUpgrade"
          Boolean.of_json in
      let permanent = field_map json__ "Permanent" Boolean.of_json in
      let persistent = field_map json__ "Persistent" Boolean.of_json in
      let optionsConflictsWith =
        field_map json__ "OptionsConflictsWith" OptionsConflictsWith.of_json in
      let optionsDependedOn =
        field_map json__ "OptionsDependedOn" OptionsDependedOn.of_json in
      let defaultPort =
        field_map json__ "DefaultPort" IntegerOptional.of_json in
      let portRequired = field_map json__ "PortRequired" Boolean.of_json in
      let minimumRequiredMinorEngineVersion =
        field_map json__ "MinimumRequiredMinorEngineVersion" String_.of_json in
      let majorEngineVersion =
        field_map json__ "MajorEngineVersion" String_.of_json in
      let engineName = field_map json__ "EngineName" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?copyableCrossAccount ?optionGroupOptionVersions
        ?optionGroupOptionSettings ?supportsOptionVersionDowngrade ?vpcOnly
        ?requiresAutoMinorEngineVersionUpgrade ?permanent ?persistent
        ?optionsConflictsWith ?optionsDependedOn ?defaultPort ?portRequired
        ?minimumRequiredMinorEngineVersion ?majorEngineVersion ?engineName
        ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Available option."]
module OptionConfiguration =
  struct
    type nonrec t =
      {
      optionName: String_.t
        [@ocaml.doc "The configuration of options to include in a group."];
      port: IntegerOptional.t option
        [@ocaml.doc "The optional port for the option."];
      optionVersion: String_.t option
        [@ocaml.doc "The version for the option."];
      dBSecurityGroupMemberships: DBSecurityGroupNameList.t option
        [@ocaml.doc "A list of DB security groups used for this option."];
      vpcSecurityGroupMemberships: VpcSecurityGroupIdList.t option
        [@ocaml.doc
          "A list of VPC security group names used for this option."];
      optionSettings: OptionSettingsList.t option
        [@ocaml.doc "The option settings to include in an option group."]}
    let context_ = "OptionConfiguration"
    let make ?port =
      fun ?optionVersion ->
        fun ?dBSecurityGroupMemberships ->
          fun ?vpcSecurityGroupMemberships ->
            fun ?optionSettings ->
              fun ~optionName ->
                fun () ->
                  {
                    port;
                    optionVersion;
                    dBSecurityGroupMemberships;
                    vpcSecurityGroupMemberships;
                    optionSettings;
                    optionName
                  }
    let to_value x =
      structure_to_value
        [("OptionName", (Some (String_.to_value x.optionName)));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("OptionVersion", (Option.map x.optionVersion ~f:String_.to_value));
        ("DBSecurityGroupMemberships",
          (Option.map x.dBSecurityGroupMemberships
             ~f:DBSecurityGroupNameList.to_value));
        ("VpcSecurityGroupMemberships",
          (Option.map x.vpcSecurityGroupMemberships
             ~f:VpcSecurityGroupIdList.to_value));
        ("OptionSettings",
          (Option.map x.optionSettings ~f:OptionSettingsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optionSettings =
        (Option.map ~f:OptionSettingsList.of_xml)
          (Xml.child xml_arg0 "OptionSettings") in
      let vpcSecurityGroupMemberships =
        (Option.map ~f:VpcSecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupMemberships") in
      let dBSecurityGroupMemberships =
        (Option.map ~f:DBSecurityGroupNameList.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroupMemberships") in
      let optionVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionVersion") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let optionName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptionName") in
      make ?optionSettings ?vpcSecurityGroupMemberships
        ?dBSecurityGroupMemberships ?optionVersion ?port ~optionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optionSettings =
        field_map json__ "OptionSettings" OptionSettingsList.of_json in
      let vpcSecurityGroupMemberships =
        field_map json__ "VpcSecurityGroupMemberships"
          VpcSecurityGroupIdList.of_json in
      let dBSecurityGroupMemberships =
        field_map json__ "DBSecurityGroupMemberships"
          DBSecurityGroupNameList.of_json in
      let optionVersion = field_map json__ "OptionVersion" String_.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let optionName = field_map_exn json__ "OptionName" String_.of_json in
      make ?optionSettings ?vpcSecurityGroupMemberships
        ?dBSecurityGroupMemberships ?optionVersion ?port ~optionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of all available options for an option group."]
module DBSnapshotAttributeList =
  struct
    type nonrec t = DBSnapshotAttribute.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:DBSnapshotAttribute.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:DBSnapshotAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"DBSnapshotAttributeList"
        ~of_json:DBSnapshotAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendedActionUpdate =
  struct
    type nonrec t =
      {
      actionId: String_.t
        [@ocaml.doc
          "A unique identifier of the updated recommendation action."];
      status: String_.t
        [@ocaml.doc
          "The status of the updated recommendation action. applied scheduled"]}
    let context_ = "RecommendedActionUpdate"
    let make ~actionId = fun ~status -> fun () -> { actionId; status }
    let to_value x =
      structure_to_value
        [("ActionId", (Some (String_.to_value x.actionId)));
        ("Status", (Some (String_.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let actionId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ActionId") in
      make ~status ~actionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "Status" String_.of_json in
      let actionId = field_map_exn json__ "ActionId" String_.of_json in
      make ~status ~actionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The recommended status to update for the specified recommendation action ID."]
module UserAuthConfig =
  struct
    type nonrec t =
      {
      description: Description.t option
        [@ocaml.doc
          "A user-specified description about the authentication used by a proxy to log in as a specific database user."];
      userName: AuthUserName.t option
        [@ocaml.doc
          "The name of the database user to which the proxy connects."];
      authScheme: AuthScheme.t option
        [@ocaml.doc
          "The type of authentication that the proxy uses for connections from the proxy to the underlying database."];
      secretArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) representing the secret that the proxy uses to authenticate to the RDS DB instance or Aurora DB cluster. These secrets are stored within Amazon Secrets Manager."];
      iAMAuth: IAMAuthMode.t option
        [@ocaml.doc
          "A value that indicates whether to require or disallow Amazon Web Services Identity and Access Management (IAM) authentication for connections to the proxy. The ENABLED value is valid only for proxies with RDS for Microsoft SQL Server."];
      clientPasswordAuthType: ClientPasswordAuthType.t option
        [@ocaml.doc
          "The type of authentication the proxy uses for connections from clients. The following values are defaults for the corresponding engines: RDS for MySQL: MYSQL_CACHING_SHA2_PASSWORD RDS for SQL Server: SQL_SERVER_AUTHENTICATION RDS for PostgreSQL: POSTGRES_SCRAM_SHA2_256"]}
    let make ?description =
      fun ?userName ->
        fun ?authScheme ->
          fun ?secretArn ->
            fun ?iAMAuth ->
              fun ?clientPasswordAuthType ->
                fun () ->
                  {
                    description;
                    userName;
                    authScheme;
                    secretArn;
                    iAMAuth;
                    clientPasswordAuthType
                  }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:Description.to_value));
        ("UserName", (Option.map x.userName ~f:AuthUserName.to_value));
        ("AuthScheme", (Option.map x.authScheme ~f:AuthScheme.to_value));
        ("SecretArn", (Option.map x.secretArn ~f:Arn.to_value));
        ("IAMAuth", (Option.map x.iAMAuth ~f:IAMAuthMode.to_value));
        ("ClientPasswordAuthType",
          (Option.map x.clientPasswordAuthType
             ~f:ClientPasswordAuthType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientPasswordAuthType =
        (Option.map ~f:ClientPasswordAuthType.of_xml)
          (Xml.child xml_arg0 "ClientPasswordAuthType") in
      let iAMAuth =
        (Option.map ~f:IAMAuthMode.of_xml) (Xml.child xml_arg0 "IAMAuth") in
      let secretArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SecretArn") in
      let authScheme =
        (Option.map ~f:AuthScheme.of_xml) (Xml.child xml_arg0 "AuthScheme") in
      let userName =
        (Option.map ~f:AuthUserName.of_xml) (Xml.child xml_arg0 "UserName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      make ?clientPasswordAuthType ?iAMAuth ?secretArn ?authScheme ?userName
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientPasswordAuthType =
        field_map json__ "ClientPasswordAuthType"
          ClientPasswordAuthType.of_json in
      let iAMAuth = field_map json__ "IAMAuth" IAMAuthMode.of_json in
      let secretArn = field_map json__ "SecretArn" Arn.of_json in
      let authScheme = field_map json__ "AuthScheme" AuthScheme.of_json in
      let userName = field_map json__ "UserName" AuthUserName.of_json in
      let description = field_map json__ "Description" Description.of_json in
      make ?clientPasswordAuthType ?iAMAuth ?secretArn ?authScheme ?userName
        ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the details of authentication used by a proxy to log in as a specific database user."]
module ModifyAdditionalStorageVolume =
  struct
    type nonrec t =
      {
      volumeName: String_.t
        [@ocaml.doc
          "The name of the additional storage volume that you want to modify. Valid Values: RDSDBDATA2 | RDSDBDATA3 | RDSDBDATA4"];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The amount of storage allocated for the additional storage volume, in gibibytes (GiB). The minimum is 20 GiB. The maximum is 65,536 GiB (64 TiB)."];
      iOPS: IntegerOptional.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS) provisioned for the additional storage volume. This setting is only supported for Provisioned IOPS SSD (io1 and io2) storage types."];
      maxAllocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The upper limit in gibibytes (GiB) to which RDS can automatically scale the storage of the additional storage volume. You must provide a value greater than or equal to AllocatedStorage."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput value for the additional storage volume, in mebibytes per second (MiBps). This setting applies only to the General Purpose SSD (gp3) storage type."];
      storageType: String_.t option
        [@ocaml.doc
          "The new storage type for the additional storage volume. Valid Values: GP3 | IO2"];
      setForDelete: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether to delete the additional storage volume. The value true schedules the volume for deletion. You can delete an additional storage volume only when it doesn't contain database files or other data."]}
    let context_ = "ModifyAdditionalStorageVolume"
    let make ?allocatedStorage =
      fun ?iOPS ->
        fun ?maxAllocatedStorage ->
          fun ?storageThroughput ->
            fun ?storageType ->
              fun ?setForDelete ->
                fun ~volumeName ->
                  fun () ->
                    {
                      allocatedStorage;
                      iOPS;
                      maxAllocatedStorage;
                      storageThroughput;
                      storageType;
                      setForDelete;
                      volumeName
                    }
    let to_value x =
      structure_to_value
        [("VolumeName", (Some (String_.to_value x.volumeName)));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("IOPS", (Option.map x.iOPS ~f:IntegerOptional.to_value));
        ("MaxAllocatedStorage",
          (Option.map x.maxAllocatedStorage ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("SetForDelete",
          (Option.map x.setForDelete ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let setForDelete =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SetForDelete") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let maxAllocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxAllocatedStorage") in
      let iOPS =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "IOPS") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let volumeName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeName") in
      make ?setForDelete ?storageType ?storageThroughput ?maxAllocatedStorage
        ?iOPS ?allocatedStorage ~volumeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let setForDelete =
        field_map json__ "SetForDelete" BooleanOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let maxAllocatedStorage =
        field_map json__ "MaxAllocatedStorage" IntegerOptional.of_json in
      let iOPS = field_map json__ "IOPS" IntegerOptional.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let volumeName = field_map_exn json__ "VolumeName" String_.of_json in
      make ?setForDelete ?storageType ?storageThroughput ?maxAllocatedStorage
        ?iOPS ?allocatedStorage ~volumeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the modification of an additional storage volume."]
module DBClusterSnapshotAttributeList =
  struct
    type nonrec t = DBClusterSnapshotAttribute.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:DBClusterSnapshotAttribute.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:DBClusterSnapshotAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterSnapshotAttributeList"
        ~of_json:DBClusterSnapshotAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module Filter =
  struct
    type nonrec t =
      {
      name: String_.t
        [@ocaml.doc
          "The name of the filter. Filter names are case-sensitive."];
      values: FilterValueList.t
        [@ocaml.doc
          "One or more filter values. Filter values are case-sensitive."]}
    let context_ = "Filter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ 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_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter name and value pair that is used to return a more specific list of results from a describe operation. Filters can be used to match a set of resources by specific criteria, such as IDs. The filters supported by a describe operation are documented with the describe operation. Currently, wildcards are not supported in filters. The following actions can be filtered: DescribeDBClusterBacktracks DescribeDBClusterEndpoints DescribeDBClusters DescribeDBInstances DescribeDBRecommendations DescribeDBShardGroups DescribePendingMaintenanceActions"]
module GlobalCluster =
  struct
    type nonrec t =
      {
      globalClusterIdentifier: GlobalClusterIdentifier.t option
        [@ocaml.doc
          "Contains a user-supplied global database cluster identifier. This identifier is the unique key that identifies a global database cluster."];
      globalClusterResourceId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services partition-unique, immutable identifier for the global database cluster. This identifier is found in Amazon Web Services CloudTrail log entries whenever the Amazon Web Services KMS key for the DB cluster is accessed."];
      globalClusterArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the global database cluster."];
      status: String_.t option
        [@ocaml.doc
          "Specifies the current state of this global database cluster."];
      engine: String_.t option
        [@ocaml.doc
          "The Aurora database engine used by the global database cluster."];
      engineVersion: String_.t option
        [@ocaml.doc "Indicates the database engine version."];
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The lifecycle type for the global cluster. For more information, see CreateGlobalCluster."];
      databaseName: String_.t option
        [@ocaml.doc
          "The default database name within the new global database cluster."];
      storageEncrypted: BooleanOptional.t option
        [@ocaml.doc
          "The storage encryption setting for the global database cluster."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the global database cluster. Possible values: none - The global database cluster is not encrypted. sse-rds - The global database cluster is encrypted using an Amazon Web Services owned KMS key. sse-kms - The global database cluster is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      deletionProtection: BooleanOptional.t option
        [@ocaml.doc
          "The deletion protection setting for the new global database cluster."];
      globalClusterMembers: GlobalClusterMemberList.t option
        [@ocaml.doc
          "The list of primary and secondary clusters within the global database cluster."];
      endpoint: String_.t option
        [@ocaml.doc
          "The writer endpoint for the new global database cluster. This endpoint always points to the writer DB instance in the current primary cluster."];
      failoverState: FailoverState.t option
        [@ocaml.doc
          "A data object containing all properties for the current state of an in-process or pending switchover or failover process for this global cluster (Aurora global database). This object is empty unless the SwitchoverGlobalCluster or FailoverGlobalCluster operation was called on this global cluster."];
      tagList: TagList.t option }
    let make ?globalClusterIdentifier =
      fun ?globalClusterResourceId ->
        fun ?globalClusterArn ->
          fun ?status ->
            fun ?engine ->
              fun ?engineVersion ->
                fun ?engineLifecycleSupport ->
                  fun ?databaseName ->
                    fun ?storageEncrypted ->
                      fun ?storageEncryptionType ->
                        fun ?deletionProtection ->
                          fun ?globalClusterMembers ->
                            fun ?endpoint ->
                              fun ?failoverState ->
                                fun ?tagList ->
                                  fun () ->
                                    {
                                      globalClusterIdentifier;
                                      globalClusterResourceId;
                                      globalClusterArn;
                                      status;
                                      engine;
                                      engineVersion;
                                      engineLifecycleSupport;
                                      databaseName;
                                      storageEncrypted;
                                      storageEncryptionType;
                                      deletionProtection;
                                      globalClusterMembers;
                                      endpoint;
                                      failoverState;
                                      tagList
                                    }
    let to_value x =
      structure_to_value
        [("GlobalClusterIdentifier",
           (Option.map x.globalClusterIdentifier
              ~f:GlobalClusterIdentifier.to_value));
        ("GlobalClusterResourceId",
          (Option.map x.globalClusterResourceId ~f:String_.to_value));
        ("GlobalClusterArn",
          (Option.map x.globalClusterArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("DatabaseName", (Option.map x.databaseName ~f:String_.to_value));
        ("StorageEncrypted",
          (Option.map x.storageEncrypted ~f:BooleanOptional.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:BooleanOptional.to_value));
        ("GlobalClusterMembers",
          (Option.map x.globalClusterMembers
             ~f:GlobalClusterMemberList.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("FailoverState",
          (Option.map x.failoverState ~f:FailoverState.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
      let failoverState =
        (Option.map ~f:FailoverState.of_xml)
          (Xml.child xml_arg0 "FailoverState") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let globalClusterMembers =
        (Option.map ~f:GlobalClusterMemberList.of_xml)
          (Xml.child xml_arg0 "GlobalClusterMembers") in
      let deletionProtection =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let storageEncrypted =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "StorageEncrypted") in
      let databaseName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DatabaseName") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let globalClusterArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "GlobalClusterArn") in
      let globalClusterResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "GlobalClusterResourceId") in
      let globalClusterIdentifier =
        (Option.map ~f:GlobalClusterIdentifier.of_xml)
          (Xml.child xml_arg0 "GlobalClusterIdentifier") in
      make ?tagList ?failoverState ?endpoint ?globalClusterMembers
        ?deletionProtection ?storageEncryptionType ?storageEncrypted
        ?databaseName ?engineLifecycleSupport ?engineVersion ?engine ?status
        ?globalClusterArn ?globalClusterResourceId ?globalClusterIdentifier
        ()
    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
      let failoverState =
        field_map json__ "FailoverState" FailoverState.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let globalClusterMembers =
        field_map json__ "GlobalClusterMembers"
          GlobalClusterMemberList.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" BooleanOptional.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let storageEncrypted =
        field_map json__ "StorageEncrypted" BooleanOptional.of_json in
      let databaseName = field_map json__ "DatabaseName" String_.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let globalClusterArn =
        field_map json__ "GlobalClusterArn" String_.of_json in
      let globalClusterResourceId =
        field_map json__ "GlobalClusterResourceId" String_.of_json in
      let globalClusterIdentifier =
        field_map json__ "GlobalClusterIdentifier"
          GlobalClusterIdentifier.of_json in
      make ?tagList ?failoverState ?endpoint ?globalClusterMembers
        ?deletionProtection ?storageEncryptionType ?storageEncrypted
        ?databaseName ?engineLifecycleSupport ?engineVersion ?engine ?status
        ?globalClusterArn ?globalClusterResourceId ?globalClusterIdentifier
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A data type representing an Aurora global database."]
module ExportTask =
  struct
    type cancelExportTaskResult =
      {
      exportTaskIdentifier: String_.t option
        [@ocaml.doc
          "A unique identifier for the snapshot or cluster export task. This ID isn't an identifier for the Amazon S3 bucket where the data is exported."];
      sourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the snapshot or cluster exported to Amazon S3."];
      exportOnly: StringList.t option
        [@ocaml.doc
          "The data exported from the snapshot or cluster. Valid Values: database - Export all the data from a specified database. database.table table-name - Export a table of the snapshot or cluster. This format is valid only for RDS for MySQL, RDS for MariaDB, and Aurora MySQL. database.schema schema-name - Export a database schema of the snapshot or cluster. This format is valid only for RDS for PostgreSQL and Aurora PostgreSQL. database.schema.table table-name - Export a table of the database schema. This format is valid only for RDS for PostgreSQL and Aurora PostgreSQL."];
      snapshotTime: TStamp.t option
        [@ocaml.doc "The time when the snapshot was created."];
      taskStartTime: TStamp.t option
        [@ocaml.doc
          "The time when the snapshot or cluster export task started."];
      taskEndTime: TStamp.t option
        [@ocaml.doc
          "The time when the snapshot or cluster export task ended."];
      s3Bucket: String_.t option
        [@ocaml.doc
          "The Amazon S3 bucket where the snapshot or cluster is exported to."];
      s3Prefix: String_.t option
        [@ocaml.doc
          "The Amazon S3 bucket prefix that is the file name and path of the exported data."];
      iamRoleArn: String_.t option
        [@ocaml.doc
          "The name of the IAM role that is used to write to Amazon S3 when exporting a snapshot or cluster."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The key identifier of the Amazon Web Services KMS key that is used to encrypt the data when it's exported to Amazon S3. The KMS key identifier is its key ARN, key ID, alias ARN, or alias name. The IAM role used for the export must have encryption and decryption permissions to use this KMS key."];
      status: String_.t option
        [@ocaml.doc
          "The progress status of the export task. The status can be one of the following: CANCELED CANCELING COMPLETE FAILED IN_PROGRESS STARTING"];
      percentProgress: Integer.t option
        [@ocaml.doc
          "The progress of the snapshot or cluster export task as a percentage."];
      totalExtractedDataInGB: Integer.t option
        [@ocaml.doc "The total amount of data exported, in gigabytes."];
      failureCause: String_.t option
        [@ocaml.doc "The reason the export failed, if it failed."];
      warningMessage: String_.t option
        [@ocaml.doc "A warning about the snapshot or cluster export task."];
      sourceType: ExportSourceType.t option
        [@ocaml.doc "The type of source for the export."]}
    and responseMetaData = unit
    and t =
      {
      cancelExportTaskResult: cancelExportTaskResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `ExportTaskNotFoundFault of ExportTaskNotFoundFault.t 
      | `InvalidExportTaskStateFault of InvalidExportTaskStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ExportTask"
    let make ?exportTaskIdentifier =
      fun ?sourceArn ->
        fun ?exportOnly ->
          fun ?snapshotTime ->
            fun ?taskStartTime ->
              fun ?taskEndTime ->
                fun ?s3Bucket ->
                  fun ?s3Prefix ->
                    fun ?iamRoleArn ->
                      fun ?kmsKeyId ->
                        fun ?status ->
                          fun ?percentProgress ->
                            fun ?totalExtractedDataInGB ->
                              fun ?failureCause ->
                                fun ?warningMessage ->
                                  fun ?sourceType ->
                                    fun () ->
                                      {
                                        cancelExportTaskResult =
                                          {
                                            exportTaskIdentifier;
                                            sourceArn;
                                            exportOnly;
                                            snapshotTime;
                                            taskStartTime;
                                            taskEndTime;
                                            s3Bucket;
                                            s3Prefix;
                                            iamRoleArn;
                                            kmsKeyId;
                                            status;
                                            percentProgress;
                                            totalExtractedDataInGB;
                                            failureCause;
                                            warningMessage;
                                            sourceType
                                          };
                                        responseMetaData = ()
                                      }
    let error_of_json name json =
      match name with
      | "ExportTaskNotFoundFault" ->
          `ExportTaskNotFoundFault (ExportTaskNotFoundFault.of_json json)
      | "InvalidExportTaskStateFault" ->
          `InvalidExportTaskStateFault
            (InvalidExportTaskStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ExportTaskNotFoundFault" ->
          `ExportTaskNotFoundFault (ExportTaskNotFoundFault.of_xml xml)
      | "InvalidExportTaskStateFault" ->
          `InvalidExportTaskStateFault
            (InvalidExportTaskStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ExportTaskNotFoundFault e ->
          `Assoc
            [("error", (`String "ExportTaskNotFoundFault"));
            ("details", (ExportTaskNotFoundFault.to_json e))]
      | `InvalidExportTaskStateFault e ->
          `Assoc
            [("error", (`String "InvalidExportTaskStateFault"));
            ("details", (InvalidExportTaskStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.cancelExportTaskResult in
      structure_to_wrapped_value
        [("ExportTaskIdentifier",
           (Option.map x.exportTaskIdentifier ~f:String_.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:String_.to_value));
        ("ExportOnly", (Option.map x.exportOnly ~f:StringList.to_value));
        ("SnapshotTime", (Option.map x.snapshotTime ~f:TStamp.to_value));
        ("TaskStartTime", (Option.map x.taskStartTime ~f:TStamp.to_value));
        ("TaskEndTime", (Option.map x.taskEndTime ~f:TStamp.to_value));
        ("S3Bucket", (Option.map x.s3Bucket ~f:String_.to_value));
        ("S3Prefix", (Option.map x.s3Prefix ~f:String_.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:String_.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("PercentProgress",
          (Option.map x.percentProgress ~f:Integer.to_value));
        ("TotalExtractedDataInGB",
          (Option.map x.totalExtractedDataInGB ~f:Integer.to_value));
        ("FailureCause", (Option.map x.failureCause ~f:String_.to_value));
        ("WarningMessage", (Option.map x.warningMessage ~f:String_.to_value));
        ("SourceType",
          (Option.map x.sourceType ~f:ExportSourceType.to_value))]
        ~wrapper:"CancelExportTaskResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CancelExportTaskResult" in
      let sourceType =
        (Option.map ~f:ExportSourceType.of_xml)
          (Xml.child xml_arg0 "SourceType") in
      let warningMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "WarningMessage") in
      let failureCause =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureCause") in
      let totalExtractedDataInGB =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "TotalExtractedDataInGB") in
      let percentProgress =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "PercentProgress") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let iamRoleArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let s3Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "S3Prefix") in
      let s3Bucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "S3Bucket") in
      let taskEndTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "TaskEndTime") in
      let taskStartTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "TaskStartTime") in
      let snapshotTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "SnapshotTime") in
      let exportOnly =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "ExportOnly") in
      let sourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let exportTaskIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ExportTaskIdentifier") in
      make ?sourceType ?warningMessage ?failureCause ?totalExtractedDataInGB
        ?percentProgress ?status ?kmsKeyId ?iamRoleArn ?s3Prefix ?s3Bucket
        ?taskEndTime ?taskStartTime ?snapshotTime ?exportOnly ?sourceArn
        ?exportTaskIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceType = field_map json__ "SourceType" ExportSourceType.of_json in
      let warningMessage = field_map json__ "WarningMessage" String_.of_json in
      let failureCause = field_map json__ "FailureCause" String_.of_json in
      let totalExtractedDataInGB =
        field_map json__ "TotalExtractedDataInGB" Integer.of_json in
      let percentProgress =
        field_map json__ "PercentProgress" Integer.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" String_.of_json in
      let s3Prefix = field_map json__ "S3Prefix" String_.of_json in
      let s3Bucket = field_map json__ "S3Bucket" String_.of_json in
      let taskEndTime = field_map json__ "TaskEndTime" TStamp.of_json in
      let taskStartTime = field_map json__ "TaskStartTime" TStamp.of_json in
      let snapshotTime = field_map json__ "SnapshotTime" TStamp.of_json in
      let exportOnly = field_map json__ "ExportOnly" StringList.of_json in
      let sourceArn = field_map json__ "SourceArn" String_.of_json in
      let exportTaskIdentifier =
        field_map json__ "ExportTaskIdentifier" String_.of_json in
      make ?sourceType ?warningMessage ?failureCause ?totalExtractedDataInGB
        ?percentProgress ?status ?kmsKeyId ?iamRoleArn ?s3Prefix ?s3Bucket
        ?taskEndTime ?taskStartTime ?snapshotTime ?exportOnly ?sourceArn
        ?exportTaskIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of a snapshot or cluster export to Amazon S3. This data type is used as a response element in the DescribeExportTasks operation."]
module Event =
  struct
    type nonrec t =
      {
      sourceIdentifier: String_.t option
        [@ocaml.doc "Provides the identifier for the source of the event."];
      sourceType: SourceType.t option
        [@ocaml.doc "Specifies the source type for this event."];
      message: String_.t option
        [@ocaml.doc "Provides the text of this event."];
      eventCategories: EventCategoriesList.t option
        [@ocaml.doc "Specifies the category for the event."];
      date: TStamp.t option
        [@ocaml.doc "Specifies the date and time of the event."];
      sourceArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the event."]}
    let make ?sourceIdentifier =
      fun ?sourceType ->
        fun ?message ->
          fun ?eventCategories ->
            fun ?date ->
              fun ?sourceArn ->
                fun () ->
                  {
                    sourceIdentifier;
                    sourceType;
                    message;
                    eventCategories;
                    date;
                    sourceArn
                  }
    let to_value x =
      structure_to_value
        [("SourceIdentifier",
           (Option.map x.sourceIdentifier ~f:String_.to_value));
        ("SourceType", (Option.map x.sourceType ~f:SourceType.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value));
        ("EventCategories",
          (Option.map x.eventCategories ~f:EventCategoriesList.to_value));
        ("Date", (Option.map x.date ~f:TStamp.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let date = (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "Date") in
      let eventCategories =
        (Option.map ~f:EventCategoriesList.of_xml)
          (Xml.child xml_arg0 "EventCategories") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let sourceType =
        (Option.map ~f:SourceType.of_xml) (Xml.child xml_arg0 "SourceType") in
      let sourceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceIdentifier") in
      make ?sourceArn ?date ?eventCategories ?message ?sourceType
        ?sourceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceArn = field_map json__ "SourceArn" String_.of_json in
      let date = field_map json__ "Date" TStamp.of_json in
      let eventCategories =
        field_map json__ "EventCategories" EventCategoriesList.of_json in
      let message = field_map json__ "Message" String_.of_json in
      let sourceType = field_map json__ "SourceType" SourceType.of_json in
      let sourceIdentifier =
        field_map json__ "SourceIdentifier" String_.of_json in
      make ?sourceArn ?date ?eventCategories ?message ?sourceType
        ?sourceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the DescribeEvents action."]
module EventSubscription =
  struct
    type nonrec t =
      {
      customerAwsId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services customer account associated with the RDS event notification subscription."];
      custSubscriptionId: String_.t option
        [@ocaml.doc "The RDS event notification subscription Id."];
      snsTopicArn: String_.t option
        [@ocaml.doc
          "The topic ARN of the RDS event notification subscription."];
      status: String_.t option
        [@ocaml.doc
          "The status of the RDS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status \"no-permission\" indicates that RDS no longer has permission to post to the SNS topic. The status \"topic-not-exist\" indicates that the topic was deleted after the subscription was created."];
      subscriptionCreationTime: String_.t option
        [@ocaml.doc
          "The time the RDS event notification subscription was created."];
      sourceType: String_.t option
        [@ocaml.doc
          "The source type for the RDS event notification subscription."];
      sourceIdsList: SourceIdsList.t option
        [@ocaml.doc
          "A list of source IDs for the RDS event notification subscription."];
      eventCategoriesList: EventCategoriesList.t option
        [@ocaml.doc
          "A list of event categories for the RDS event notification subscription."];
      enabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether the subscription is enabled. True indicates the subscription is enabled."];
      eventSubscriptionArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the event subscription."]}
    let make ?customerAwsId =
      fun ?custSubscriptionId ->
        fun ?snsTopicArn ->
          fun ?status ->
            fun ?subscriptionCreationTime ->
              fun ?sourceType ->
                fun ?sourceIdsList ->
                  fun ?eventCategoriesList ->
                    fun ?enabled ->
                      fun ?eventSubscriptionArn ->
                        fun () ->
                          {
                            customerAwsId;
                            custSubscriptionId;
                            snsTopicArn;
                            status;
                            subscriptionCreationTime;
                            sourceType;
                            sourceIdsList;
                            eventCategoriesList;
                            enabled;
                            eventSubscriptionArn
                          }
    let to_value x =
      structure_to_value
        [("CustomerAwsId", (Option.map x.customerAwsId ~f:String_.to_value));
        ("CustSubscriptionId",
          (Option.map x.custSubscriptionId ~f:String_.to_value));
        ("SnsTopicArn", (Option.map x.snsTopicArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("SubscriptionCreationTime",
          (Option.map x.subscriptionCreationTime ~f:String_.to_value));
        ("SourceType", (Option.map x.sourceType ~f:String_.to_value));
        ("SourceIdsList",
          (Option.map x.sourceIdsList ~f:SourceIdsList.to_value));
        ("EventCategoriesList",
          (Option.map x.eventCategoriesList ~f:EventCategoriesList.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("EventSubscriptionArn",
          (Option.map x.eventSubscriptionArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventSubscriptionArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EventSubscriptionArn") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let eventCategoriesList =
        (Option.map ~f:EventCategoriesList.of_xml)
          (Xml.child xml_arg0 "EventCategoriesList") in
      let sourceIdsList =
        (Option.map ~f:SourceIdsList.of_xml)
          (Xml.child xml_arg0 "SourceIdsList") in
      let sourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceType") in
      let subscriptionCreationTime =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SubscriptionCreationTime") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let snsTopicArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnsTopicArn") in
      let custSubscriptionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CustSubscriptionId") in
      let customerAwsId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CustomerAwsId") in
      make ?eventSubscriptionArn ?enabled ?eventCategoriesList ?sourceIdsList
        ?sourceType ?subscriptionCreationTime ?status ?snsTopicArn
        ?custSubscriptionId ?customerAwsId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventSubscriptionArn =
        field_map json__ "EventSubscriptionArn" String_.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let eventCategoriesList =
        field_map json__ "EventCategoriesList" EventCategoriesList.of_json in
      let sourceIdsList =
        field_map json__ "SourceIdsList" SourceIdsList.of_json in
      let sourceType = field_map json__ "SourceType" String_.of_json in
      let subscriptionCreationTime =
        field_map json__ "SubscriptionCreationTime" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let snsTopicArn = field_map json__ "SnsTopicArn" String_.of_json in
      let custSubscriptionId =
        field_map json__ "CustSubscriptionId" String_.of_json in
      let customerAwsId = field_map json__ "CustomerAwsId" String_.of_json in
      make ?eventSubscriptionArn ?enabled ?eventCategoriesList ?sourceIdsList
        ?sourceType ?subscriptionCreationTime ?status ?snsTopicArn
        ?custSubscriptionId ?customerAwsId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of a successful invocation of the DescribeEventSubscriptions action."]
module EventCategoriesMap =
  struct
    type nonrec t =
      {
      sourceType: String_.t option
        [@ocaml.doc "The source type that the returned categories belong to"];
      eventCategories: EventCategoriesList.t option
        [@ocaml.doc "The event categories for the specified source type"]}
    let make ?sourceType =
      fun ?eventCategories -> fun () -> { sourceType; eventCategories }
    let to_value x =
      structure_to_value
        [("SourceType", (Option.map x.sourceType ~f:String_.to_value));
        ("EventCategories",
          (Option.map x.eventCategories ~f:EventCategoriesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventCategories =
        (Option.map ~f:EventCategoriesList.of_xml)
          (Xml.child xml_arg0 "EventCategories") in
      let sourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceType") in
      make ?eventCategories ?sourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventCategories =
        field_map json__ "EventCategories" EventCategoriesList.of_json in
      let sourceType = field_map json__ "SourceType" String_.of_json in
      make ?eventCategories ?sourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of a successful invocation of the DescribeEventCategories operation."]
module ValidAdditionalStorageOptions =
  struct
    type nonrec t =
      {
      supportsAdditionalStorageVolumes: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB instance supports additional storage volumes."];
      volumes: ValidVolumeOptionsList.t option
        [@ocaml.doc
          "The valid additional storage volume options for the DB instance."]}
    let make ?supportsAdditionalStorageVolumes =
      fun ?volumes -> fun () -> { supportsAdditionalStorageVolumes; volumes }
    let to_value x =
      structure_to_value
        [("SupportsAdditionalStorageVolumes",
           (Option.map x.supportsAdditionalStorageVolumes ~f:Boolean.to_value));
        ("Volumes",
          (Option.map x.volumes ~f:ValidVolumeOptionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumes =
        (Option.map ~f:ValidVolumeOptionsList.of_xml)
          (Xml.child xml_arg0 "Volumes") in
      let supportsAdditionalStorageVolumes =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsAdditionalStorageVolumes") in
      make ?volumes ?supportsAdditionalStorageVolumes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumes = field_map json__ "Volumes" ValidVolumeOptionsList.of_json in
      let supportsAdditionalStorageVolumes =
        field_map json__ "SupportsAdditionalStorageVolumes" Boolean.of_json in
      make ?volumes ?supportsAdditionalStorageVolumes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the valid options for additional storage volumes for a DB instance."]
module Integration =
  struct
    type createIntegrationResult =
      {
      sourceArn: SourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the database used as the source for replication."];
      targetArn: Arn.t option
        [@ocaml.doc
          "The ARN of the Redshift data warehouse used as the target for replication."];
      integrationName: IntegrationName.t option
        [@ocaml.doc "The name of the integration."];
      integrationArn: IntegrationArn.t option
        [@ocaml.doc "The ARN of the integration."];
      kMSKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Key Management System (Amazon Web Services KMS) key identifier for the key used to to encrypt the integration."];
      additionalEncryptionContext: EncryptionContextMap.t option
        [@ocaml.doc
          "The encryption context for the integration. For more information, see Encryption context in the Amazon Web Services Key Management Service Developer Guide."];
      status: IntegrationStatus.t option
        [@ocaml.doc "The current status of the integration."];
      tags: TagList.t option ;
      dataFilter: DataFilter.t option
        [@ocaml.doc
          "Data filters for the integration. These filters determine which tables from the source database are sent to the target Amazon Redshift data warehouse."];
      description: IntegrationDescription.t option
        [@ocaml.doc "A description of the integration."];
      createTime: TStamp.t option
        [@ocaml.doc
          "The time when the integration was created, in Universal Coordinated Time (UTC)."];
      errors: IntegrationErrorList.t option
        [@ocaml.doc "Any errors associated with the integration."]}
    and responseMetaData = unit
    and t =
      {
      createIntegrationResult: createIntegrationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `IntegrationAlreadyExistsFault of IntegrationAlreadyExistsFault.t 
      | `IntegrationConflictOperationFault of
          IntegrationConflictOperationFault.t 
      | `IntegrationQuotaExceededFault of IntegrationQuotaExceededFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "Integration"
    let make ?sourceArn =
      fun ?targetArn ->
        fun ?integrationName ->
          fun ?integrationArn ->
            fun ?kMSKeyId ->
              fun ?additionalEncryptionContext ->
                fun ?status ->
                  fun ?tags ->
                    fun ?dataFilter ->
                      fun ?description ->
                        fun ?createTime ->
                          fun ?errors ->
                            fun () ->
                              {
                                createIntegrationResult =
                                  {
                                    sourceArn;
                                    targetArn;
                                    integrationName;
                                    integrationArn;
                                    kMSKeyId;
                                    additionalEncryptionContext;
                                    status;
                                    tags;
                                    dataFilter;
                                    description;
                                    createTime;
                                    errors
                                  };
                                responseMetaData = ()
                              }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "IntegrationAlreadyExistsFault" ->
          `IntegrationAlreadyExistsFault
            (IntegrationAlreadyExistsFault.of_json json)
      | "IntegrationConflictOperationFault" ->
          `IntegrationConflictOperationFault
            (IntegrationConflictOperationFault.of_json json)
      | "IntegrationQuotaExceededFault" ->
          `IntegrationQuotaExceededFault
            (IntegrationQuotaExceededFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "IntegrationAlreadyExistsFault" ->
          `IntegrationAlreadyExistsFault
            (IntegrationAlreadyExistsFault.of_xml xml)
      | "IntegrationConflictOperationFault" ->
          `IntegrationConflictOperationFault
            (IntegrationConflictOperationFault.of_xml xml)
      | "IntegrationQuotaExceededFault" ->
          `IntegrationQuotaExceededFault
            (IntegrationQuotaExceededFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `IntegrationAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "IntegrationAlreadyExistsFault"));
            ("details", (IntegrationAlreadyExistsFault.to_json e))]
      | `IntegrationConflictOperationFault e ->
          `Assoc
            [("error", (`String "IntegrationConflictOperationFault"));
            ("details", (IntegrationConflictOperationFault.to_json e))]
      | `IntegrationQuotaExceededFault e ->
          `Assoc
            [("error", (`String "IntegrationQuotaExceededFault"));
            ("details", (IntegrationQuotaExceededFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createIntegrationResult in
      structure_to_wrapped_value
        [("SourceArn", (Option.map x.sourceArn ~f:SourceArn.to_value));
        ("TargetArn", (Option.map x.targetArn ~f:Arn.to_value));
        ("IntegrationName",
          (Option.map x.integrationName ~f:IntegrationName.to_value));
        ("IntegrationArn",
          (Option.map x.integrationArn ~f:IntegrationArn.to_value));
        ("KMSKeyId", (Option.map x.kMSKeyId ~f:String_.to_value));
        ("AdditionalEncryptionContext",
          (Option.map x.additionalEncryptionContext
             ~f:EncryptionContextMap.to_value));
        ("Status", (Option.map x.status ~f:IntegrationStatus.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DataFilter", (Option.map x.dataFilter ~f:DataFilter.to_value));
        ("Description",
          (Option.map x.description ~f:IntegrationDescription.to_value));
        ("CreateTime", (Option.map x.createTime ~f:TStamp.to_value));
        ("Errors", (Option.map x.errors ~f:IntegrationErrorList.to_value))]
        ~wrapper:"CreateIntegrationResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateIntegrationResult" in
      let errors =
        (Option.map ~f:IntegrationErrorList.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let createTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let description =
        (Option.map ~f:IntegrationDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let dataFilter =
        (Option.map ~f:DataFilter.of_xml) (Xml.child xml_arg0 "DataFilter") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let status =
        (Option.map ~f:IntegrationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let additionalEncryptionContext =
        (Option.map ~f:EncryptionContextMap.of_xml)
          (Xml.child xml_arg0 "AdditionalEncryptionContext") in
      let kMSKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KMSKeyId") in
      let integrationArn =
        (Option.map ~f:IntegrationArn.of_xml)
          (Xml.child xml_arg0 "IntegrationArn") in
      let integrationName =
        (Option.map ~f:IntegrationName.of_xml)
          (Xml.child xml_arg0 "IntegrationName") in
      let targetArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "TargetArn") in
      let sourceArn =
        (Option.map ~f:SourceArn.of_xml) (Xml.child xml_arg0 "SourceArn") in
      make ?errors ?createTime ?description ?dataFilter ?tags ?status
        ?additionalEncryptionContext ?kMSKeyId ?integrationArn
        ?integrationName ?targetArn ?sourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "Errors" IntegrationErrorList.of_json in
      let createTime = field_map json__ "CreateTime" TStamp.of_json in
      let description =
        field_map json__ "Description" IntegrationDescription.of_json in
      let dataFilter = field_map json__ "DataFilter" DataFilter.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let status = field_map json__ "Status" IntegrationStatus.of_json in
      let additionalEncryptionContext =
        field_map json__ "AdditionalEncryptionContext"
          EncryptionContextMap.of_json in
      let kMSKeyId = field_map json__ "KMSKeyId" String_.of_json in
      let integrationArn =
        field_map json__ "IntegrationArn" IntegrationArn.of_json in
      let integrationName =
        field_map json__ "IntegrationName" IntegrationName.of_json in
      let targetArn = field_map json__ "TargetArn" Arn.of_json in
      let sourceArn = field_map json__ "SourceArn" SourceArn.of_json in
      make ?errors ?createTime ?description ?dataFilter ?tags ?status
        ?additionalEncryptionContext ?kMSKeyId ?integrationArn
        ?integrationName ?targetArn ?sourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A zero-ETL integration with Amazon Redshift."]
module ParametersList =
  struct
    type nonrec t = Parameter.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:Parameter.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:Parameter.of_xml)
    let of_json j =
      list_of_json ~kind:"ParametersList" ~of_json:Parameter.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBShardGroup =
  struct
    type createDBShardGroupResult =
      {
      dBShardGroupResourceId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region-unique, immutable identifier for the DB shard group."];
      dBShardGroupIdentifier: DBShardGroupIdentifier.t option
        [@ocaml.doc "The name of the DB shard group."];
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The name of the primary DB cluster for the DB shard group."];
      maxACU: DoubleOptional.t option
        [@ocaml.doc
          "The maximum capacity of the DB shard group in Aurora capacity units (ACUs)."];
      minACU: DoubleOptional.t option
        [@ocaml.doc
          "The minimum capacity of the DB shard group in Aurora capacity units (ACUs)."];
      computeRedundancy: IntegerOptional.t option
        [@ocaml.doc
          "Specifies whether to create standby DB shard groups for the DB shard group. Valid values are the following: 0 - Creates a DB shard group without a standby DB shard group. This is the default value. 1 - Creates a DB shard group with a standby DB shard group in a different Availability Zone (AZ). 2 - Creates a DB shard group with two standby DB shard groups in two different AZs."];
      status: String_.t option
        [@ocaml.doc "The status of the DB shard group."];
      publiclyAccessible: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB shard group is publicly accessible. When the DB shard group is publicly accessible, its Domain Name System (DNS) endpoint resolves to the private IP address from within the DB shard group's virtual private cloud (VPC). It resolves to the public IP address from outside of the DB shard group's VPC. Access to the DB shard group is ultimately controlled by the security group it uses. That public access isn't permitted if the security group assigned to the DB shard group doesn't permit it. When the DB shard group isn't publicly accessible, it is an internal DB shard group with a DNS name that resolves to a private IP address. For more information, see CreateDBShardGroup. This setting is only for Aurora Limitless Database."];
      endpoint: String_.t option
        [@ocaml.doc "The connection endpoint for the DB shard group."];
      dBShardGroupArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the DB shard group."];
      tagList: TagList.t option }
    and responseMetaData = unit
    and t =
      {
      createDBShardGroupResult: createDBShardGroupResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBShardGroupAlreadyExistsFault of DBShardGroupAlreadyExistsFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidVPCNetworkStateFault of InvalidVPCNetworkStateFault.t 
      | `MaxDBShardGroupLimitReached of MaxDBShardGroupLimitReached.t 
      | `NetworkTypeNotSupported of NetworkTypeNotSupported.t 
      | `UnsupportedDBEngineVersionFault of UnsupportedDBEngineVersionFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DBShardGroup"
    let make ?dBShardGroupResourceId =
      fun ?dBShardGroupIdentifier ->
        fun ?dBClusterIdentifier ->
          fun ?maxACU ->
            fun ?minACU ->
              fun ?computeRedundancy ->
                fun ?status ->
                  fun ?publiclyAccessible ->
                    fun ?endpoint ->
                      fun ?dBShardGroupArn ->
                        fun ?tagList ->
                          fun () ->
                            {
                              createDBShardGroupResult =
                                {
                                  dBShardGroupResourceId;
                                  dBShardGroupIdentifier;
                                  dBClusterIdentifier;
                                  maxACU;
                                  minACU;
                                  computeRedundancy;
                                  status;
                                  publiclyAccessible;
                                  endpoint;
                                  dBShardGroupArn;
                                  tagList
                                };
                              responseMetaData = ()
                            }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBShardGroupAlreadyExistsFault" ->
          `DBShardGroupAlreadyExistsFault
            (DBShardGroupAlreadyExistsFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_json json)
      | "MaxDBShardGroupLimitReached" ->
          `MaxDBShardGroupLimitReached
            (MaxDBShardGroupLimitReached.of_json json)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_json json)
      | "UnsupportedDBEngineVersionFault" ->
          `UnsupportedDBEngineVersionFault
            (UnsupportedDBEngineVersionFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBShardGroupAlreadyExistsFault" ->
          `DBShardGroupAlreadyExistsFault
            (DBShardGroupAlreadyExistsFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_xml xml)
      | "MaxDBShardGroupLimitReached" ->
          `MaxDBShardGroupLimitReached
            (MaxDBShardGroupLimitReached.of_xml xml)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_xml xml)
      | "UnsupportedDBEngineVersionFault" ->
          `UnsupportedDBEngineVersionFault
            (UnsupportedDBEngineVersionFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBShardGroupAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBShardGroupAlreadyExistsFault"));
            ("details", (DBShardGroupAlreadyExistsFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidVPCNetworkStateFault e ->
          `Assoc
            [("error", (`String "InvalidVPCNetworkStateFault"));
            ("details", (InvalidVPCNetworkStateFault.to_json e))]
      | `MaxDBShardGroupLimitReached e ->
          `Assoc
            [("error", (`String "MaxDBShardGroupLimitReached"));
            ("details", (MaxDBShardGroupLimitReached.to_json e))]
      | `NetworkTypeNotSupported e ->
          `Assoc
            [("error", (`String "NetworkTypeNotSupported"));
            ("details", (NetworkTypeNotSupported.to_json e))]
      | `UnsupportedDBEngineVersionFault e ->
          `Assoc
            [("error", (`String "UnsupportedDBEngineVersionFault"));
            ("details", (UnsupportedDBEngineVersionFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createDBShardGroupResult in
      structure_to_wrapped_value
        [("DBShardGroupResourceId",
           (Option.map x.dBShardGroupResourceId ~f:String_.to_value));
        ("DBShardGroupIdentifier",
          (Option.map x.dBShardGroupIdentifier
             ~f:DBShardGroupIdentifier.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("MaxACU", (Option.map x.maxACU ~f:DoubleOptional.to_value));
        ("MinACU", (Option.map x.minACU ~f:DoubleOptional.to_value));
        ("ComputeRedundancy",
          (Option.map x.computeRedundancy ~f:IntegerOptional.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:BooleanOptional.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("DBShardGroupArn",
          (Option.map x.dBShardGroupArn ~f:String_.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value))]
        ~wrapper:"CreateDBShardGroupResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateDBShardGroupResult" in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let dBShardGroupArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBShardGroupArn") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let publiclyAccessible =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let computeRedundancy =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "ComputeRedundancy") in
      let minACU =
        (Option.map ~f:DoubleOptional.of_xml) (Xml.child xml_arg0 "MinACU") in
      let maxACU =
        (Option.map ~f:DoubleOptional.of_xml) (Xml.child xml_arg0 "MaxACU") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let dBShardGroupIdentifier =
        (Option.map ~f:DBShardGroupIdentifier.of_xml)
          (Xml.child xml_arg0 "DBShardGroupIdentifier") in
      let dBShardGroupResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBShardGroupResourceId") in
      make ?tagList ?dBShardGroupArn ?endpoint ?publiclyAccessible ?status
        ?computeRedundancy ?minACU ?maxACU ?dBClusterIdentifier
        ?dBShardGroupIdentifier ?dBShardGroupResourceId ()
    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
      let dBShardGroupArn =
        field_map json__ "DBShardGroupArn" String_.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" BooleanOptional.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let computeRedundancy =
        field_map json__ "ComputeRedundancy" IntegerOptional.of_json in
      let minACU = field_map json__ "MinACU" DoubleOptional.of_json in
      let maxACU = field_map json__ "MaxACU" DoubleOptional.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let dBShardGroupIdentifier =
        field_map json__ "DBShardGroupIdentifier"
          DBShardGroupIdentifier.of_json in
      let dBShardGroupResourceId =
        field_map json__ "DBShardGroupResourceId" String_.of_json in
      make ?tagList ?dBShardGroupArn ?endpoint ?publiclyAccessible ?status
        ?computeRedundancy ?minACU ?maxACU ?dBClusterIdentifier
        ?dBShardGroupIdentifier ?dBShardGroupResourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the details for an Amazon RDS DB shard group."]
module DBProxyTargetGroup =
  struct
    type nonrec t =
      {
      dBProxyName: String_.t option
        [@ocaml.doc
          "The identifier for the RDS proxy associated with this target group."];
      targetGroupName: String_.t option
        [@ocaml.doc
          "The identifier for the target group. This name must be unique for all target groups owned by your Amazon Web Services account in the specified Amazon Web Services Region."];
      targetGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) representing the target group."];
      isDefault: Boolean.t option
        [@ocaml.doc
          "Indicates whether this target group is the first one used for connection requests by the associated proxy. Because each proxy is currently associated with a single target group, currently this setting is always true."];
      status: String_.t option
        [@ocaml.doc
          "The current status of this target group. A status of available means the target group is correctly associated with a database. Other values indicate that you must wait for the target group to be ready, or take some action to resolve an issue."];
      connectionPoolConfig: ConnectionPoolConfigurationInfo.t option
        [@ocaml.doc
          "The settings that determine the size and behavior of the connection pool for the target group."];
      createdDate: TStamp.t option
        [@ocaml.doc
          "The date and time when the target group was first created."];
      updatedDate: TStamp.t option
        [@ocaml.doc
          "The date and time when the target group was last updated."]}
    let make ?dBProxyName =
      fun ?targetGroupName ->
        fun ?targetGroupArn ->
          fun ?isDefault ->
            fun ?status ->
              fun ?connectionPoolConfig ->
                fun ?createdDate ->
                  fun ?updatedDate ->
                    fun () ->
                      {
                        dBProxyName;
                        targetGroupName;
                        targetGroupArn;
                        isDefault;
                        status;
                        connectionPoolConfig;
                        createdDate;
                        updatedDate
                      }
    let to_value x =
      structure_to_value
        [("DBProxyName", (Option.map x.dBProxyName ~f:String_.to_value));
        ("TargetGroupName",
          (Option.map x.targetGroupName ~f:String_.to_value));
        ("TargetGroupArn", (Option.map x.targetGroupArn ~f:String_.to_value));
        ("IsDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("ConnectionPoolConfig",
          (Option.map x.connectionPoolConfig
             ~f:ConnectionPoolConfigurationInfo.to_value));
        ("CreatedDate", (Option.map x.createdDate ~f:TStamp.to_value));
        ("UpdatedDate", (Option.map x.updatedDate ~f:TStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "UpdatedDate") in
      let createdDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreatedDate") in
      let connectionPoolConfig =
        (Option.map ~f:ConnectionPoolConfigurationInfo.of_xml)
          (Xml.child xml_arg0 "ConnectionPoolConfig") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsDefault") in
      let targetGroupArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TargetGroupArn") in
      let targetGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TargetGroupName") in
      let dBProxyName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBProxyName") in
      make ?updatedDate ?createdDate ?connectionPoolConfig ?status ?isDefault
        ?targetGroupArn ?targetGroupName ?dBProxyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedDate = field_map json__ "UpdatedDate" TStamp.of_json in
      let createdDate = field_map json__ "CreatedDate" TStamp.of_json in
      let connectionPoolConfig =
        field_map json__ "ConnectionPoolConfig"
          ConnectionPoolConfigurationInfo.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let isDefault = field_map json__ "IsDefault" Boolean.of_json in
      let targetGroupArn = field_map json__ "TargetGroupArn" String_.of_json in
      let targetGroupName =
        field_map json__ "TargetGroupName" String_.of_json in
      let dBProxyName = field_map json__ "DBProxyName" String_.of_json in
      make ?updatedDate ?createdDate ?connectionPoolConfig ?status ?isDefault
        ?targetGroupArn ?targetGroupName ?dBProxyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a set of RDS DB instances, Aurora DB clusters, or both that a proxy can connect to. Currently, each target group is associated with exactly one RDS DB instance or Aurora DB cluster. This data type is used as a response element in the DescribeDBProxyTargetGroups action."]
module DBProxyEndpoint =
  struct
    type nonrec t =
      {
      dBProxyEndpointName: String_.t option
        [@ocaml.doc
          "The name for the DB proxy endpoint. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it can't end with a hyphen or contain two consecutive hyphens."];
      dBProxyEndpointArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the DB proxy endpoint."];
      dBProxyName: String_.t option
        [@ocaml.doc
          "The identifier for the DB proxy that is associated with this DB proxy endpoint."];
      status: DBProxyEndpointStatus.t option
        [@ocaml.doc
          "The current status of this DB proxy endpoint. A status of available means the endpoint is ready to handle requests. Other values indicate that you must wait for the endpoint to be ready, or take some action to resolve an issue."];
      vpcId: String_.t option
        [@ocaml.doc "Provides the VPC ID of the DB proxy endpoint."];
      vpcSecurityGroupIds: StringList.t option
        [@ocaml.doc
          "Provides a list of VPC security groups that the DB proxy endpoint belongs to."];
      vpcSubnetIds: StringList.t option
        [@ocaml.doc "The EC2 subnet IDs for the DB proxy endpoint."];
      endpoint: String_.t option
        [@ocaml.doc
          "The endpoint that you can use to connect to the DB proxy. You include the endpoint value in the connection string for a database client application."];
      createdDate: TStamp.t option
        [@ocaml.doc
          "The date and time when the DB proxy endpoint was first created."];
      targetRole: DBProxyEndpointTargetRole.t option
        [@ocaml.doc
          "A value that indicates whether the DB proxy endpoint can be used for read/write or read-only operations."];
      isDefault: Boolean.t option
        [@ocaml.doc
          "Indicates whether this endpoint is the default endpoint for the associated DB proxy. Default DB proxy endpoints always have read/write capability. Other endpoints that you associate with the DB proxy can be either read/write or read-only."];
      endpointNetworkType: EndpointNetworkType.t option
        [@ocaml.doc
          "The network type of the DB proxy endpoint. The network type determines the IP version that the proxy endpoint supports. Valid values: IPV4 - The proxy endpoint supports IPv4 only. IPV6 - The proxy endpoint supports IPv6 only. DUAL - The proxy endpoint supports both IPv4 and IPv6."]}
    let make ?dBProxyEndpointName =
      fun ?dBProxyEndpointArn ->
        fun ?dBProxyName ->
          fun ?status ->
            fun ?vpcId ->
              fun ?vpcSecurityGroupIds ->
                fun ?vpcSubnetIds ->
                  fun ?endpoint ->
                    fun ?createdDate ->
                      fun ?targetRole ->
                        fun ?isDefault ->
                          fun ?endpointNetworkType ->
                            fun () ->
                              {
                                dBProxyEndpointName;
                                dBProxyEndpointArn;
                                dBProxyName;
                                status;
                                vpcId;
                                vpcSecurityGroupIds;
                                vpcSubnetIds;
                                endpoint;
                                createdDate;
                                targetRole;
                                isDefault;
                                endpointNetworkType
                              }
    let to_value x =
      structure_to_value
        [("DBProxyEndpointName",
           (Option.map x.dBProxyEndpointName ~f:String_.to_value));
        ("DBProxyEndpointArn",
          (Option.map x.dBProxyEndpointArn ~f:String_.to_value));
        ("DBProxyName", (Option.map x.dBProxyName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:DBProxyEndpointStatus.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("VpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds ~f:StringList.to_value));
        ("VpcSubnetIds", (Option.map x.vpcSubnetIds ~f:StringList.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("CreatedDate", (Option.map x.createdDate ~f:TStamp.to_value));
        ("TargetRole",
          (Option.map x.targetRole ~f:DBProxyEndpointTargetRole.to_value));
        ("IsDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("EndpointNetworkType",
          (Option.map x.endpointNetworkType ~f:EndpointNetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointNetworkType =
        (Option.map ~f:EndpointNetworkType.of_xml)
          (Xml.child xml_arg0 "EndpointNetworkType") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsDefault") in
      let targetRole =
        (Option.map ~f:DBProxyEndpointTargetRole.of_xml)
          (Xml.child xml_arg0 "TargetRole") in
      let createdDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreatedDate") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let vpcSubnetIds =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "VpcSubnetIds") in
      let vpcSecurityGroupIds =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupIds") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let status =
        (Option.map ~f:DBProxyEndpointStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let dBProxyName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBProxyName") in
      let dBProxyEndpointArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBProxyEndpointArn") in
      let dBProxyEndpointName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBProxyEndpointName") in
      make ?endpointNetworkType ?isDefault ?targetRole ?createdDate ?endpoint
        ?vpcSubnetIds ?vpcSecurityGroupIds ?vpcId ?status ?dBProxyName
        ?dBProxyEndpointArn ?dBProxyEndpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointNetworkType =
        field_map json__ "EndpointNetworkType" EndpointNetworkType.of_json in
      let isDefault = field_map json__ "IsDefault" Boolean.of_json in
      let targetRole =
        field_map json__ "TargetRole" DBProxyEndpointTargetRole.of_json in
      let createdDate = field_map json__ "CreatedDate" TStamp.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let vpcSubnetIds = field_map json__ "VpcSubnetIds" StringList.of_json in
      let vpcSecurityGroupIds =
        field_map json__ "VpcSecurityGroupIds" StringList.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let status = field_map json__ "Status" DBProxyEndpointStatus.of_json in
      let dBProxyName = field_map json__ "DBProxyName" String_.of_json in
      let dBProxyEndpointArn =
        field_map json__ "DBProxyEndpointArn" String_.of_json in
      let dBProxyEndpointName =
        field_map json__ "DBProxyEndpointName" String_.of_json in
      make ?endpointNetworkType ?isDefault ?targetRole ?createdDate ?endpoint
        ?vpcSubnetIds ?vpcSecurityGroupIds ?vpcId ?status ?dBProxyName
        ?dBProxyEndpointArn ?dBProxyEndpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The data structure representing an endpoint associated with a DB proxy. RDS automatically creates one endpoint for each DB proxy. For Aurora DB clusters, you can associate additional endpoints with the same DB proxy. These endpoints can be read/write or read-only. They can also reside in different VPCs than the associated DB proxy. This data type is used as a response element in the DescribeDBProxyEndpoints operation."]
module DBProxy =
  struct
    type nonrec t =
      {
      dBProxyName: String_.t option
        [@ocaml.doc
          "The identifier for the proxy. This name must be unique for all proxies owned by your Amazon Web Services account in the specified Amazon Web Services Region."];
      dBProxyArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the proxy."];
      status: DBProxyStatus.t option
        [@ocaml.doc
          "The current status of this proxy. A status of available means the proxy is ready to handle requests. Other values indicate that you must wait for the proxy to be ready, or take some action to resolve an issue."];
      engineFamily: String_.t option
        [@ocaml.doc
          "The kinds of databases that the proxy can connect to. This value determines which database network protocol the proxy recognizes when it interprets network traffic to and from the database. MYSQL supports Aurora MySQL, RDS for MariaDB, and RDS for MySQL databases. POSTGRESQL supports Aurora PostgreSQL and RDS for PostgreSQL databases. SQLSERVER supports RDS for Microsoft SQL Server databases."];
      vpcId: String_.t option
        [@ocaml.doc "Provides the VPC ID of the DB proxy."];
      vpcSecurityGroupIds: StringList.t option
        [@ocaml.doc
          "Provides a list of VPC security groups that the proxy belongs to."];
      vpcSubnetIds: StringList.t option
        [@ocaml.doc "The EC2 subnet IDs for the proxy."];
      defaultAuthScheme: String_.t option
        [@ocaml.doc
          "The default authentication scheme that the proxy uses for client connections to the proxy and connections from the proxy to the underlying database. Valid values are NONE and IAM_AUTH. When set to IAM_AUTH, the proxy uses end-to-end IAM authentication to connect to the database."];
      auth: UserAuthConfigInfoList.t option
        [@ocaml.doc
          "One or more data structures specifying the authorization mechanism to connect to the associated RDS DB instance or Aurora DB cluster."];
      roleArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the IAM role that the proxy uses to access Amazon Secrets Manager."];
      endpoint: String_.t option
        [@ocaml.doc
          "The endpoint that you can use to connect to the DB proxy. You include the endpoint value in the connection string for a database client application."];
      requireTLS: Boolean.t option
        [@ocaml.doc
          "Indicates whether Transport Layer Security (TLS) encryption is required for connections to the proxy."];
      idleClientTimeout: Integer.t option
        [@ocaml.doc
          "The number of seconds a connection to the proxy can have no activity before the proxy drops the client connection. The proxy keeps the underlying database connection open and puts it back into the connection pool for reuse by later connection requests. Default: 1800 (30 minutes) Constraints: 1 to 28,800"];
      debugLogging: Boolean.t option
        [@ocaml.doc
          "Specifies whether the proxy logs detailed connection and query information. When you enable DebugLogging, the proxy captures connection details and connection pool behavior from your queries. Debug logging increases CloudWatch costs and can impact proxy performance. Enable this option only when you need to troubleshoot connection or performance issues."];
      createdDate: TStamp.t option
        [@ocaml.doc "The date and time when the proxy was first created."];
      updatedDate: TStamp.t option
        [@ocaml.doc "The date and time when the proxy was last updated."];
      endpointNetworkType: EndpointNetworkType.t option
        [@ocaml.doc
          "The network type of the DB proxy endpoint. The network type determines the IP version that the proxy endpoint supports. Valid values: IPV4 - The proxy endpoint supports IPv4 only. IPV6 - The proxy endpoint supports IPv6 only. DUAL - The proxy endpoint supports both IPv4 and IPv6."];
      targetConnectionNetworkType: TargetConnectionNetworkType.t option
        [@ocaml.doc
          "The network type that the proxy uses to connect to the target database. The network type determines the IP version that the proxy uses for connections to the database. Valid values: IPV4 - The proxy connects to the database using IPv4 only. IPV6 - The proxy connects to the database using IPv6 only."]}
    let make ?dBProxyName =
      fun ?dBProxyArn ->
        fun ?status ->
          fun ?engineFamily ->
            fun ?vpcId ->
              fun ?vpcSecurityGroupIds ->
                fun ?vpcSubnetIds ->
                  fun ?defaultAuthScheme ->
                    fun ?auth ->
                      fun ?roleArn ->
                        fun ?endpoint ->
                          fun ?requireTLS ->
                            fun ?idleClientTimeout ->
                              fun ?debugLogging ->
                                fun ?createdDate ->
                                  fun ?updatedDate ->
                                    fun ?endpointNetworkType ->
                                      fun ?targetConnectionNetworkType ->
                                        fun () ->
                                          {
                                            dBProxyName;
                                            dBProxyArn;
                                            status;
                                            engineFamily;
                                            vpcId;
                                            vpcSecurityGroupIds;
                                            vpcSubnetIds;
                                            defaultAuthScheme;
                                            auth;
                                            roleArn;
                                            endpoint;
                                            requireTLS;
                                            idleClientTimeout;
                                            debugLogging;
                                            createdDate;
                                            updatedDate;
                                            endpointNetworkType;
                                            targetConnectionNetworkType
                                          }
    let to_value x =
      structure_to_value
        [("DBProxyName", (Option.map x.dBProxyName ~f:String_.to_value));
        ("DBProxyArn", (Option.map x.dBProxyArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:DBProxyStatus.to_value));
        ("EngineFamily", (Option.map x.engineFamily ~f:String_.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("VpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds ~f:StringList.to_value));
        ("VpcSubnetIds", (Option.map x.vpcSubnetIds ~f:StringList.to_value));
        ("DefaultAuthScheme",
          (Option.map x.defaultAuthScheme ~f:String_.to_value));
        ("Auth", (Option.map x.auth ~f:UserAuthConfigInfoList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:String_.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("RequireTLS", (Option.map x.requireTLS ~f:Boolean.to_value));
        ("IdleClientTimeout",
          (Option.map x.idleClientTimeout ~f:Integer.to_value));
        ("DebugLogging", (Option.map x.debugLogging ~f:Boolean.to_value));
        ("CreatedDate", (Option.map x.createdDate ~f:TStamp.to_value));
        ("UpdatedDate", (Option.map x.updatedDate ~f:TStamp.to_value));
        ("EndpointNetworkType",
          (Option.map x.endpointNetworkType ~f:EndpointNetworkType.to_value));
        ("TargetConnectionNetworkType",
          (Option.map x.targetConnectionNetworkType
             ~f:TargetConnectionNetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetConnectionNetworkType =
        (Option.map ~f:TargetConnectionNetworkType.of_xml)
          (Xml.child xml_arg0 "TargetConnectionNetworkType") in
      let endpointNetworkType =
        (Option.map ~f:EndpointNetworkType.of_xml)
          (Xml.child xml_arg0 "EndpointNetworkType") in
      let updatedDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "UpdatedDate") in
      let createdDate =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreatedDate") in
      let debugLogging =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DebugLogging") in
      let idleClientTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "IdleClientTimeout") in
      let requireTLS =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequireTLS") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let roleArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let auth =
        (Option.map ~f:UserAuthConfigInfoList.of_xml)
          (Xml.child xml_arg0 "Auth") in
      let defaultAuthScheme =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DefaultAuthScheme") in
      let vpcSubnetIds =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "VpcSubnetIds") in
      let vpcSecurityGroupIds =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupIds") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let engineFamily =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineFamily") in
      let status =
        (Option.map ~f:DBProxyStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let dBProxyArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBProxyArn") in
      let dBProxyName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBProxyName") in
      make ?targetConnectionNetworkType ?endpointNetworkType ?updatedDate
        ?createdDate ?debugLogging ?idleClientTimeout ?requireTLS ?endpoint
        ?roleArn ?auth ?defaultAuthScheme ?vpcSubnetIds ?vpcSecurityGroupIds
        ?vpcId ?engineFamily ?status ?dBProxyArn ?dBProxyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetConnectionNetworkType =
        field_map json__ "TargetConnectionNetworkType"
          TargetConnectionNetworkType.of_json in
      let endpointNetworkType =
        field_map json__ "EndpointNetworkType" EndpointNetworkType.of_json in
      let updatedDate = field_map json__ "UpdatedDate" TStamp.of_json in
      let createdDate = field_map json__ "CreatedDate" TStamp.of_json in
      let debugLogging = field_map json__ "DebugLogging" Boolean.of_json in
      let idleClientTimeout =
        field_map json__ "IdleClientTimeout" Integer.of_json in
      let requireTLS = field_map json__ "RequireTLS" Boolean.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let roleArn = field_map json__ "RoleArn" String_.of_json in
      let auth = field_map json__ "Auth" UserAuthConfigInfoList.of_json in
      let defaultAuthScheme =
        field_map json__ "DefaultAuthScheme" String_.of_json in
      let vpcSubnetIds = field_map json__ "VpcSubnetIds" StringList.of_json in
      let vpcSecurityGroupIds =
        field_map json__ "VpcSecurityGroupIds" StringList.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let engineFamily = field_map json__ "EngineFamily" String_.of_json in
      let status = field_map json__ "Status" DBProxyStatus.of_json in
      let dBProxyArn = field_map json__ "DBProxyArn" String_.of_json in
      let dBProxyName = field_map json__ "DBProxyName" String_.of_json in
      make ?targetConnectionNetworkType ?endpointNetworkType ?updatedDate
        ?createdDate ?debugLogging ?idleClientTimeout ?requireTLS ?endpoint
        ?roleArn ?auth ?defaultAuthScheme ?vpcSubnetIds ?vpcSecurityGroupIds
        ?vpcId ?engineFamily ?status ?dBProxyArn ?dBProxyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The data structure representing a proxy managed by the RDS Proxy. This data type is used as a response element in the DescribeDBProxies action."]
module DBMajorEngineVersion =
  struct
    type nonrec t =
      {
      engine: String_.t option
        [@ocaml.doc "The name of the database engine."];
      majorEngineVersion: String_.t option
        [@ocaml.doc "The major version number of the database engine."];
      supportedEngineLifecycles: SupportedEngineLifecycleList.t option
        [@ocaml.doc
          "A list of the lifecycles supported by this engine for the DescribeDBMajorEngineVersions operation."]}
    let make ?engine =
      fun ?majorEngineVersion ->
        fun ?supportedEngineLifecycles ->
          fun () -> { engine; majorEngineVersion; supportedEngineLifecycles }
    let to_value x =
      structure_to_value
        [("Engine", (Option.map x.engine ~f:String_.to_value));
        ("MajorEngineVersion",
          (Option.map x.majorEngineVersion ~f:String_.to_value));
        ("SupportedEngineLifecycles",
          (Option.map x.supportedEngineLifecycles
             ~f:SupportedEngineLifecycleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedEngineLifecycles =
        (Option.map ~f:SupportedEngineLifecycleList.of_xml)
          (Xml.child xml_arg0 "SupportedEngineLifecycles") in
      let majorEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MajorEngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      make ?supportedEngineLifecycles ?majorEngineVersion ?engine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedEngineLifecycles =
        field_map json__ "SupportedEngineLifecycles"
          SupportedEngineLifecycleList.of_json in
      let majorEngineVersion =
        field_map json__ "MajorEngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      make ?supportedEngineLifecycles ?majorEngineVersion ?engine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the operation DescribeDBMajorEngineVersions."]
module DescribeDBLogFilesDetails =
  struct
    type nonrec t =
      {
      logFileName: String_.t option
        [@ocaml.doc
          "The name of the log file for the specified DB instance."];
      lastWritten: Long.t option
        [@ocaml.doc "A POSIX timestamp when the last log entry was written."];
      size: Long.t option
        [@ocaml.doc
          "The size, in bytes, of the log file for the specified DB instance."]}
    let make ?logFileName =
      fun ?lastWritten ->
        fun ?size -> fun () -> { logFileName; lastWritten; size }
    let to_value x =
      structure_to_value
        [("LogFileName", (Option.map x.logFileName ~f:String_.to_value));
        ("LastWritten", (Option.map x.lastWritten ~f:Long.to_value));
        ("Size", (Option.map x.size ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let size = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Size") in
      let lastWritten =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "LastWritten") in
      let logFileName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LogFileName") in
      make ?size ?lastWritten ?logFileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let size = field_map json__ "Size" Long.of_json in
      let lastWritten = field_map json__ "LastWritten" Long.of_json in
      let logFileName = field_map json__ "LogFileName" String_.of_json in
      make ?size ?lastWritten ?logFileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element to DescribeDBLogFiles."]
module BlueGreenDeployment =
  struct
    type nonrec t =
      {
      blueGreenDeploymentIdentifier: BlueGreenDeploymentIdentifier.t option
        [@ocaml.doc "The unique identifier of the blue/green deployment."];
      blueGreenDeploymentName: BlueGreenDeploymentName.t option
        [@ocaml.doc "The user-supplied name of the blue/green deployment."];
      source: DatabaseArn.t option
        [@ocaml.doc
          "The source database for the blue/green deployment. Before switchover, the source database is the production database in the blue environment."];
      target: DatabaseArn.t option
        [@ocaml.doc
          "The target database for the blue/green deployment. Before switchover, the target database is the clone database in the green environment."];
      switchoverDetails: SwitchoverDetailList.t option
        [@ocaml.doc
          "The details about each source and target resource in the blue/green deployment."];
      tasks: BlueGreenDeploymentTaskList.t option
        [@ocaml.doc
          "Either tasks to be performed or tasks that have been completed on the target database before switchover."];
      status: BlueGreenDeploymentStatus.t option
        [@ocaml.doc
          "The status of the blue/green deployment. Valid Values: PROVISIONING - Resources are being created in the green environment. AVAILABLE - Resources are available in the green environment. SWITCHOVER_IN_PROGRESS - The deployment is being switched from the blue environment to the green environment. SWITCHOVER_COMPLETED - Switchover from the blue environment to the green environment is complete. INVALID_CONFIGURATION - Resources in the green environment are invalid, so switchover isn't possible. SWITCHOVER_FAILED - Switchover was attempted but failed. DELETING - The blue/green deployment is being deleted."];
      statusDetails: BlueGreenDeploymentStatusDetails.t option
        [@ocaml.doc
          "Additional information about the status of the blue/green deployment."];
      createTime: TStamp.t option
        [@ocaml.doc
          "The time when the blue/green deployment was created, in Universal Coordinated Time (UTC)."];
      deleteTime: TStamp.t option
        [@ocaml.doc
          "The time when the blue/green deployment was deleted, in Universal Coordinated Time (UTC)."];
      tagList: TagList.t option }
    let make ?blueGreenDeploymentIdentifier =
      fun ?blueGreenDeploymentName ->
        fun ?source ->
          fun ?target ->
            fun ?switchoverDetails ->
              fun ?tasks ->
                fun ?status ->
                  fun ?statusDetails ->
                    fun ?createTime ->
                      fun ?deleteTime ->
                        fun ?tagList ->
                          fun () ->
                            {
                              blueGreenDeploymentIdentifier;
                              blueGreenDeploymentName;
                              source;
                              target;
                              switchoverDetails;
                              tasks;
                              status;
                              statusDetails;
                              createTime;
                              deleteTime;
                              tagList
                            }
    let to_value x =
      structure_to_value
        [("BlueGreenDeploymentIdentifier",
           (Option.map x.blueGreenDeploymentIdentifier
              ~f:BlueGreenDeploymentIdentifier.to_value));
        ("BlueGreenDeploymentName",
          (Option.map x.blueGreenDeploymentName
             ~f:BlueGreenDeploymentName.to_value));
        ("Source", (Option.map x.source ~f:DatabaseArn.to_value));
        ("Target", (Option.map x.target ~f:DatabaseArn.to_value));
        ("SwitchoverDetails",
          (Option.map x.switchoverDetails ~f:SwitchoverDetailList.to_value));
        ("Tasks",
          (Option.map x.tasks ~f:BlueGreenDeploymentTaskList.to_value));
        ("Status",
          (Option.map x.status ~f:BlueGreenDeploymentStatus.to_value));
        ("StatusDetails",
          (Option.map x.statusDetails
             ~f:BlueGreenDeploymentStatusDetails.to_value));
        ("CreateTime", (Option.map x.createTime ~f:TStamp.to_value));
        ("DeleteTime", (Option.map x.deleteTime ~f:TStamp.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
      let deleteTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "DeleteTime") in
      let createTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let statusDetails =
        (Option.map ~f:BlueGreenDeploymentStatusDetails.of_xml)
          (Xml.child xml_arg0 "StatusDetails") in
      let status =
        (Option.map ~f:BlueGreenDeploymentStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let tasks =
        (Option.map ~f:BlueGreenDeploymentTaskList.of_xml)
          (Xml.child xml_arg0 "Tasks") in
      let switchoverDetails =
        (Option.map ~f:SwitchoverDetailList.of_xml)
          (Xml.child xml_arg0 "SwitchoverDetails") in
      let target =
        (Option.map ~f:DatabaseArn.of_xml) (Xml.child xml_arg0 "Target") in
      let source =
        (Option.map ~f:DatabaseArn.of_xml) (Xml.child xml_arg0 "Source") in
      let blueGreenDeploymentName =
        (Option.map ~f:BlueGreenDeploymentName.of_xml)
          (Xml.child xml_arg0 "BlueGreenDeploymentName") in
      let blueGreenDeploymentIdentifier =
        (Option.map ~f:BlueGreenDeploymentIdentifier.of_xml)
          (Xml.child xml_arg0 "BlueGreenDeploymentIdentifier") in
      make ?tagList ?deleteTime ?createTime ?statusDetails ?status ?tasks
        ?switchoverDetails ?target ?source ?blueGreenDeploymentName
        ?blueGreenDeploymentIdentifier ()
    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
      let deleteTime = field_map json__ "DeleteTime" TStamp.of_json in
      let createTime = field_map json__ "CreateTime" TStamp.of_json in
      let statusDetails =
        field_map json__ "StatusDetails"
          BlueGreenDeploymentStatusDetails.of_json in
      let status =
        field_map json__ "Status" BlueGreenDeploymentStatus.of_json in
      let tasks =
        field_map json__ "Tasks" BlueGreenDeploymentTaskList.of_json in
      let switchoverDetails =
        field_map json__ "SwitchoverDetails" SwitchoverDetailList.of_json in
      let target = field_map json__ "Target" DatabaseArn.of_json in
      let source = field_map json__ "Source" DatabaseArn.of_json in
      let blueGreenDeploymentName =
        field_map json__ "BlueGreenDeploymentName"
          BlueGreenDeploymentName.of_json in
      let blueGreenDeploymentIdentifier =
        field_map json__ "BlueGreenDeploymentIdentifier"
          BlueGreenDeploymentIdentifier.of_json in
      make ?tagList ?deleteTime ?createTime ?statusDetails ?status ?tasks
        ?switchoverDetails ?target ?source ?blueGreenDeploymentName
        ?blueGreenDeploymentIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about a blue/green deployment. For more information, see Using Amazon RDS Blue/Green Deployments for database updates in the Amazon RDS User Guide and Using Amazon RDS Blue/Green Deployments for database updates in the Amazon Aurora User Guide."]
module DBSnapshotTenantDatabase =
  struct
    type nonrec t =
      {
      dBSnapshotIdentifier: String_.t option
        [@ocaml.doc "The identifier for the snapshot of the DB instance."];
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "The ID for the DB instance that contains the tenant databases."];
      dbiResourceId: String_.t option
        [@ocaml.doc
          "The resource identifier of the source CDB instance. This identifier can't be changed and is unique to an Amazon Web Services Region."];
      engineName: String_.t option
        [@ocaml.doc "The name of the database engine."];
      snapshotType: String_.t option [@ocaml.doc "The type of DB snapshot."];
      tenantDatabaseCreateTime: TStamp.t option
        [@ocaml.doc
          "The time the DB snapshot was taken, specified in Coordinated Universal Time (UTC). If you copy the snapshot, the creation time changes."];
      tenantDBName: String_.t option
        [@ocaml.doc "The name of the tenant database."];
      masterUsername: String_.t option
        [@ocaml.doc "The master username of the tenant database."];
      tenantDatabaseResourceId: String_.t option
        [@ocaml.doc "The resource ID of the tenant database."];
      characterSetName: String_.t option
        [@ocaml.doc "The name of the character set of a tenant database."];
      dBSnapshotTenantDatabaseARN: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the snapshot tenant database."];
      ncharCharacterSetName: String_.t option
        [@ocaml.doc "The NCHAR character set name of the tenant database."];
      tagList: TagList.t option }
    let make ?dBSnapshotIdentifier =
      fun ?dBInstanceIdentifier ->
        fun ?dbiResourceId ->
          fun ?engineName ->
            fun ?snapshotType ->
              fun ?tenantDatabaseCreateTime ->
                fun ?tenantDBName ->
                  fun ?masterUsername ->
                    fun ?tenantDatabaseResourceId ->
                      fun ?characterSetName ->
                        fun ?dBSnapshotTenantDatabaseARN ->
                          fun ?ncharCharacterSetName ->
                            fun ?tagList ->
                              fun () ->
                                {
                                  dBSnapshotIdentifier;
                                  dBInstanceIdentifier;
                                  dbiResourceId;
                                  engineName;
                                  snapshotType;
                                  tenantDatabaseCreateTime;
                                  tenantDBName;
                                  masterUsername;
                                  tenantDatabaseResourceId;
                                  characterSetName;
                                  dBSnapshotTenantDatabaseARN;
                                  ncharCharacterSetName;
                                  tagList
                                }
    let to_value x =
      structure_to_value
        [("DBSnapshotIdentifier",
           (Option.map x.dBSnapshotIdentifier ~f:String_.to_value));
        ("DBInstanceIdentifier",
          (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("DbiResourceId", (Option.map x.dbiResourceId ~f:String_.to_value));
        ("EngineName", (Option.map x.engineName ~f:String_.to_value));
        ("SnapshotType", (Option.map x.snapshotType ~f:String_.to_value));
        ("TenantDatabaseCreateTime",
          (Option.map x.tenantDatabaseCreateTime ~f:TStamp.to_value));
        ("TenantDBName", (Option.map x.tenantDBName ~f:String_.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("TenantDatabaseResourceId",
          (Option.map x.tenantDatabaseResourceId ~f:String_.to_value));
        ("CharacterSetName",
          (Option.map x.characterSetName ~f:String_.to_value));
        ("DBSnapshotTenantDatabaseARN",
          (Option.map x.dBSnapshotTenantDatabaseARN ~f:String_.to_value));
        ("NcharCharacterSetName",
          (Option.map x.ncharCharacterSetName ~f:String_.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
      let ncharCharacterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "NcharCharacterSetName") in
      let dBSnapshotTenantDatabaseARN =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSnapshotTenantDatabaseARN") in
      let characterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CharacterSetName") in
      let tenantDatabaseResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TenantDatabaseResourceId") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let tenantDBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TenantDBName") in
      let tenantDatabaseCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "TenantDatabaseCreateTime") in
      let snapshotType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnapshotType") in
      let engineName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineName") in
      let dbiResourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DbiResourceId") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      let dBSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSnapshotIdentifier") in
      make ?tagList ?ncharCharacterSetName ?dBSnapshotTenantDatabaseARN
        ?characterSetName ?tenantDatabaseResourceId ?masterUsername
        ?tenantDBName ?tenantDatabaseCreateTime ?snapshotType ?engineName
        ?dbiResourceId ?dBInstanceIdentifier ?dBSnapshotIdentifier ()
    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
      let ncharCharacterSetName =
        field_map json__ "NcharCharacterSetName" String_.of_json in
      let dBSnapshotTenantDatabaseARN =
        field_map json__ "DBSnapshotTenantDatabaseARN" String_.of_json in
      let characterSetName =
        field_map json__ "CharacterSetName" String_.of_json in
      let tenantDatabaseResourceId =
        field_map json__ "TenantDatabaseResourceId" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let tenantDBName = field_map json__ "TenantDBName" String_.of_json in
      let tenantDatabaseCreateTime =
        field_map json__ "TenantDatabaseCreateTime" TStamp.of_json in
      let snapshotType = field_map json__ "SnapshotType" String_.of_json in
      let engineName = field_map json__ "EngineName" String_.of_json in
      let dbiResourceId = field_map json__ "DbiResourceId" String_.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      let dBSnapshotIdentifier =
        field_map json__ "DBSnapshotIdentifier" String_.of_json in
      make ?tagList ?ncharCharacterSetName ?dBSnapshotTenantDatabaseARN
        ?characterSetName ?tenantDatabaseResourceId ?masterUsername
        ?tenantDBName ?tenantDatabaseCreateTime ?snapshotType ?engineName
        ?dbiResourceId ?dBInstanceIdentifier ?dBSnapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of a tenant database in a snapshot of a DB instance."]
module DBSnapshot =
  struct
    type nonrec t =
      {
      dBSnapshotIdentifier: String_.t option
        [@ocaml.doc "Specifies the identifier for the DB snapshot."];
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "Specifies the DB instance identifier of the DB instance this DB snapshot was created from."];
      snapshotCreateTime: TStamp.t option
        [@ocaml.doc
          "Specifies when the snapshot was taken in Coordinated Universal Time (UTC). Changes for the copy when the snapshot is copied."];
      engine: String_.t option
        [@ocaml.doc "Specifies the name of the database engine."];
      allocatedStorage: Integer.t option
        [@ocaml.doc
          "Specifies the allocated storage size in gibibytes (GiB)."];
      status: String_.t option
        [@ocaml.doc "Specifies the status of this DB snapshot."];
      port: Integer.t option
        [@ocaml.doc
          "Specifies the port that the database engine was listening on at the time of the snapshot."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "Specifies the name of the Availability Zone the DB instance was located in at the time of the DB snapshot."];
      vpcId: String_.t option
        [@ocaml.doc "Provides the VPC ID associated with the DB snapshot."];
      instanceCreateTime: TStamp.t option
        [@ocaml.doc
          "Specifies the time in Coordinated Universal Time (UTC) when the DB instance, from which the snapshot was taken, was created."];
      masterUsername: String_.t option
        [@ocaml.doc "Provides the master username for the DB snapshot."];
      engineVersion: String_.t option
        [@ocaml.doc "Specifies the version of the database engine."];
      licenseModel: String_.t option
        [@ocaml.doc
          "License model information for the restored DB instance."];
      snapshotType: String_.t option
        [@ocaml.doc "Provides the type of the DB snapshot."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "Specifies the Provisioned IOPS (I/O operations per second) value of the DB instance at the time of the snapshot."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc "Specifies the storage throughput for the DB snapshot."];
      optionGroupName: String_.t option
        [@ocaml.doc "Provides the option group name for the DB snapshot."];
      percentProgress: Integer.t option
        [@ocaml.doc
          "The percentage of the estimated data that has been transferred."];
      sourceRegion: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region that the DB snapshot was created in or copied from."];
      sourceDBSnapshotIdentifier: String_.t option
        [@ocaml.doc
          "The DB snapshot Amazon Resource Name (ARN) that the DB snapshot was copied from. It only has a value in the case of a cross-account or cross-Region copy."];
      storageType: String_.t option
        [@ocaml.doc
          "Specifies the storage type associated with DB snapshot."];
      tdeCredentialArn: String_.t option
        [@ocaml.doc
          "The ARN from the key store with which to associate the instance for TDE encryption."];
      encrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the DB snapshot is encrypted."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the DB snapshot. Possible values: none - The DB snapshot is not encrypted. sse-rds - The DB snapshot is encrypted using an Amazon Web Services owned KMS key. sse-kms - The DB snapshot is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automatic DB snapshots are retained."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "If Encrypted is true, the Amazon Web Services KMS key identifier for the encrypted DB snapshot. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      dBSnapshotArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the DB snapshot."];
      timezone: String_.t option
        [@ocaml.doc
          "The time zone of the DB snapshot. In most cases, the Timezone element is empty. Timezone content appears only for snapshots taken from Microsoft SQL Server DB instances that were created with a time zone specified."];
      iAMDatabaseAuthenticationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled."];
      processorFeatures: ProcessorFeatureList.t option
        [@ocaml.doc
          "The number of CPU cores and the number of threads per core for the DB instance class of the DB instance when the DB snapshot was created."];
      dbiResourceId: String_.t option
        [@ocaml.doc
          "The identifier for the source DB instance, which can't be changed and which is unique to an Amazon Web Services Region."];
      tagList: TagList.t option ;
      snapshotTarget: String_.t option
        [@ocaml.doc
          "Specifies where manual snapshots are stored: Dedicated Local Zones, Amazon Web Services Outposts or the Amazon Web Services Region."];
      originalSnapshotCreateTime: TStamp.t option
        [@ocaml.doc
          "Specifies the time of the CreateDBSnapshot operation in Coordinated Universal Time (UTC). Doesn't change when the snapshot is copied."];
      snapshotDatabaseTime: TStamp.t option
        [@ocaml.doc
          "The timestamp of the most recent transaction applied to the database that you're backing up. Thus, if you restore a snapshot, SnapshotDatabaseTime is the most recent transaction in the restored DB instance. In contrast, originalSnapshotCreateTime specifies the system time that the snapshot completed. If you back up a read replica, you can determine the replica lag by comparing SnapshotDatabaseTime with originalSnapshotCreateTime. For example, if originalSnapshotCreateTime is two hours later than SnapshotDatabaseTime, then the replica lag is two hours."];
      dBSystemId: String_.t option
        [@ocaml.doc
          "The Oracle system identifier (SID), which is the name of the Oracle database instance that manages your database files. The Oracle SID is also the name of your CDB."];
      multiTenant: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the snapshot is of a DB instance using the multi-tenant configuration (TRUE) or the single-tenant configuration (FALSE)."];
      dedicatedLogVolume: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB instance has a dedicated log volume (DLV) enabled."];
      additionalStorageVolumes: AdditionalStorageVolumesList.t option
        [@ocaml.doc
          "The additional storage volumes associated with the DB snapshot. RDS supports additional storage volumes for RDS for Oracle and RDS for SQL Server."];
      snapshotAvailabilityZone: String_.t option
        [@ocaml.doc
          "Specifies the name of the Availability Zone where RDS stores the DB snapshot. This value is valid only for snapshots that RDS stores on a Dedicated Local Zone."]}
    let make ?dBSnapshotIdentifier =
      fun ?dBInstanceIdentifier ->
        fun ?snapshotCreateTime ->
          fun ?engine ->
            fun ?allocatedStorage ->
              fun ?status ->
                fun ?port ->
                  fun ?availabilityZone ->
                    fun ?vpcId ->
                      fun ?instanceCreateTime ->
                        fun ?masterUsername ->
                          fun ?engineVersion ->
                            fun ?licenseModel ->
                              fun ?snapshotType ->
                                fun ?iops ->
                                  fun ?storageThroughput ->
                                    fun ?optionGroupName ->
                                      fun ?percentProgress ->
                                        fun ?sourceRegion ->
                                          fun ?sourceDBSnapshotIdentifier ->
                                            fun ?storageType ->
                                              fun ?tdeCredentialArn ->
                                                fun ?encrypted ->
                                                  fun ?storageEncryptionType
                                                    ->
                                                    fun
                                                      ?backupRetentionPeriod
                                                      ->
                                                      fun
                                                        ?preferredBackupWindow
                                                        ->
                                                        fun ?kmsKeyId ->
                                                          fun ?dBSnapshotArn
                                                            ->
                                                            fun ?timezone ->
                                                              fun
                                                                ?iAMDatabaseAuthenticationEnabled
                                                                ->
                                                                fun
                                                                  ?processorFeatures
                                                                  ->
                                                                  fun
                                                                    ?dbiResourceId
                                                                    ->
                                                                    fun
                                                                    ?tagList
                                                                    ->
                                                                    fun
                                                                    ?snapshotTarget
                                                                    ->
                                                                    fun
                                                                    ?originalSnapshotCreateTime
                                                                    ->
                                                                    fun
                                                                    ?snapshotDatabaseTime
                                                                    ->
                                                                    fun
                                                                    ?dBSystemId
                                                                    ->
                                                                    fun
                                                                    ?multiTenant
                                                                    ->
                                                                    fun
                                                                    ?dedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?additionalStorageVolumes
                                                                    ->
                                                                    fun
                                                                    ?snapshotAvailabilityZone
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    dBSnapshotIdentifier;
                                                                    dBInstanceIdentifier;
                                                                    snapshotCreateTime;
                                                                    engine;
                                                                    allocatedStorage;
                                                                    status;
                                                                    port;
                                                                    availabilityZone;
                                                                    vpcId;
                                                                    instanceCreateTime;
                                                                    masterUsername;
                                                                    engineVersion;
                                                                    licenseModel;
                                                                    snapshotType;
                                                                    iops;
                                                                    storageThroughput;
                                                                    optionGroupName;
                                                                    percentProgress;
                                                                    sourceRegion;
                                                                    sourceDBSnapshotIdentifier;
                                                                    storageType;
                                                                    tdeCredentialArn;
                                                                    encrypted;
                                                                    storageEncryptionType;
                                                                    backupRetentionPeriod;
                                                                    preferredBackupWindow;
                                                                    kmsKeyId;
                                                                    dBSnapshotArn;
                                                                    timezone;
                                                                    iAMDatabaseAuthenticationEnabled;
                                                                    processorFeatures;
                                                                    dbiResourceId;
                                                                    tagList;
                                                                    snapshotTarget;
                                                                    originalSnapshotCreateTime;
                                                                    snapshotDatabaseTime;
                                                                    dBSystemId;
                                                                    multiTenant;
                                                                    dedicatedLogVolume;
                                                                    additionalStorageVolumes;
                                                                    snapshotAvailabilityZone
                                                                    }
    let to_value x =
      structure_to_value
        [("DBSnapshotIdentifier",
           (Option.map x.dBSnapshotIdentifier ~f:String_.to_value));
        ("DBInstanceIdentifier",
          (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("SnapshotCreateTime",
          (Option.map x.snapshotCreateTime ~f:TStamp.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:Integer.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:Integer.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("InstanceCreateTime",
          (Option.map x.instanceCreateTime ~f:TStamp.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("SnapshotType", (Option.map x.snapshotType ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("OptionGroupName",
          (Option.map x.optionGroupName ~f:String_.to_value));
        ("PercentProgress",
          (Option.map x.percentProgress ~f:Integer.to_value));
        ("SourceRegion", (Option.map x.sourceRegion ~f:String_.to_value));
        ("SourceDBSnapshotIdentifier",
          (Option.map x.sourceDBSnapshotIdentifier ~f:String_.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("TdeCredentialArn",
          (Option.map x.tdeCredentialArn ~f:String_.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("DBSnapshotArn", (Option.map x.dBSnapshotArn ~f:String_.to_value));
        ("Timezone", (Option.map x.timezone ~f:String_.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled ~f:Boolean.to_value));
        ("ProcessorFeatures",
          (Option.map x.processorFeatures ~f:ProcessorFeatureList.to_value));
        ("DbiResourceId", (Option.map x.dbiResourceId ~f:String_.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("SnapshotTarget", (Option.map x.snapshotTarget ~f:String_.to_value));
        ("OriginalSnapshotCreateTime",
          (Option.map x.originalSnapshotCreateTime ~f:TStamp.to_value));
        ("SnapshotDatabaseTime",
          (Option.map x.snapshotDatabaseTime ~f:TStamp.to_value));
        ("DBSystemId", (Option.map x.dBSystemId ~f:String_.to_value));
        ("MultiTenant",
          (Option.map x.multiTenant ~f:BooleanOptional.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:Boolean.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesList.to_value));
        ("SnapshotAvailabilityZone",
          (Option.map x.snapshotAvailabilityZone ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotAvailabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SnapshotAvailabilityZone") in
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let dedicatedLogVolume =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let multiTenant =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "MultiTenant") in
      let dBSystemId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBSystemId") in
      let snapshotDatabaseTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "SnapshotDatabaseTime") in
      let originalSnapshotCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "OriginalSnapshotCreateTime") in
      let snapshotTarget =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnapshotTarget") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let dbiResourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DbiResourceId") in
      let processorFeatures =
        (Option.map ~f:ProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ProcessorFeatures") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let timezone =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Timezone") in
      let dBSnapshotArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBSnapshotArn") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let tdeCredentialArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TdeCredentialArn") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let sourceDBSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDBSnapshotIdentifier") in
      let sourceRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceRegion") in
      let percentProgress =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "PercentProgress") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let snapshotType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnapshotType") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let instanceCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "InstanceCreateTime") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let port = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Port") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let allocatedStorage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let snapshotCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "SnapshotCreateTime") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      let dBSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSnapshotIdentifier") in
      make ?snapshotAvailabilityZone ?additionalStorageVolumes
        ?dedicatedLogVolume ?multiTenant ?dBSystemId ?snapshotDatabaseTime
        ?originalSnapshotCreateTime ?snapshotTarget ?tagList ?dbiResourceId
        ?processorFeatures ?iAMDatabaseAuthenticationEnabled ?timezone
        ?dBSnapshotArn ?kmsKeyId ?preferredBackupWindow
        ?backupRetentionPeriod ?storageEncryptionType ?encrypted
        ?tdeCredentialArn ?storageType ?sourceDBSnapshotIdentifier
        ?sourceRegion ?percentProgress ?optionGroupName ?storageThroughput
        ?iops ?snapshotType ?licenseModel ?engineVersion ?masterUsername
        ?instanceCreateTime ?vpcId ?availabilityZone ?port ?status
        ?allocatedStorage ?engine ?snapshotCreateTime ?dBInstanceIdentifier
        ?dBSnapshotIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotAvailabilityZone =
        field_map json__ "SnapshotAvailabilityZone" String_.of_json in
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesList.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" Boolean.of_json in
      let multiTenant =
        field_map json__ "MultiTenant" BooleanOptional.of_json in
      let dBSystemId = field_map json__ "DBSystemId" String_.of_json in
      let snapshotDatabaseTime =
        field_map json__ "SnapshotDatabaseTime" TStamp.of_json in
      let originalSnapshotCreateTime =
        field_map json__ "OriginalSnapshotCreateTime" TStamp.of_json in
      let snapshotTarget = field_map json__ "SnapshotTarget" String_.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let dbiResourceId = field_map json__ "DbiResourceId" String_.of_json in
      let processorFeatures =
        field_map json__ "ProcessorFeatures" ProcessorFeatureList.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled" Boolean.of_json in
      let timezone = field_map json__ "Timezone" String_.of_json in
      let dBSnapshotArn = field_map json__ "DBSnapshotArn" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      let tdeCredentialArn =
        field_map json__ "TdeCredentialArn" String_.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let sourceDBSnapshotIdentifier =
        field_map json__ "SourceDBSnapshotIdentifier" String_.of_json in
      let sourceRegion = field_map json__ "SourceRegion" String_.of_json in
      let percentProgress =
        field_map json__ "PercentProgress" Integer.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let snapshotType = field_map json__ "SnapshotType" String_.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let instanceCreateTime =
        field_map json__ "InstanceCreateTime" TStamp.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let port = field_map json__ "Port" Integer.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" Integer.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let snapshotCreateTime =
        field_map json__ "SnapshotCreateTime" TStamp.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      let dBSnapshotIdentifier =
        field_map json__ "DBSnapshotIdentifier" String_.of_json in
      make ?snapshotAvailabilityZone ?additionalStorageVolumes
        ?dedicatedLogVolume ?multiTenant ?dBSystemId ?snapshotDatabaseTime
        ?originalSnapshotCreateTime ?snapshotTarget ?tagList ?dbiResourceId
        ?processorFeatures ?iAMDatabaseAuthenticationEnabled ?timezone
        ?dBSnapshotArn ?kmsKeyId ?preferredBackupWindow
        ?backupRetentionPeriod ?storageEncryptionType ?encrypted
        ?tdeCredentialArn ?storageType ?sourceDBSnapshotIdentifier
        ?sourceRegion ?percentProgress ?optionGroupName ?storageThroughput
        ?iops ?snapshotType ?licenseModel ?engineVersion ?masterUsername
        ?instanceCreateTime ?vpcId ?availabilityZone ?port ?status
        ?allocatedStorage ?engine ?snapshotCreateTime ?dBInstanceIdentifier
        ?dBSnapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of an Amazon RDS DB snapshot. This data type is used as a response element in the DescribeDBSnapshots action."]
module DBSecurityGroup =
  struct
    type nonrec t =
      {
      ownerId: String_.t option
        [@ocaml.doc
          "Provides the Amazon Web Services ID of the owner of a specific DB security group."];
      dBSecurityGroupName: String_.t option
        [@ocaml.doc "Specifies the name of the DB security group."];
      dBSecurityGroupDescription: String_.t option
        [@ocaml.doc "Provides the description of the DB security group."];
      vpcId: String_.t option
        [@ocaml.doc "Provides the VpcId of the DB security group."];
      eC2SecurityGroups: EC2SecurityGroupList.t option
        [@ocaml.doc "Contains a list of EC2SecurityGroup elements."];
      iPRanges: IPRangeList.t option
        [@ocaml.doc "Contains a list of IPRange elements."];
      dBSecurityGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the DB security group."]}
    let make ?ownerId =
      fun ?dBSecurityGroupName ->
        fun ?dBSecurityGroupDescription ->
          fun ?vpcId ->
            fun ?eC2SecurityGroups ->
              fun ?iPRanges ->
                fun ?dBSecurityGroupArn ->
                  fun () ->
                    {
                      ownerId;
                      dBSecurityGroupName;
                      dBSecurityGroupDescription;
                      vpcId;
                      eC2SecurityGroups;
                      iPRanges;
                      dBSecurityGroupArn
                    }
    let to_value x =
      structure_to_value
        [("OwnerId", (Option.map x.ownerId ~f:String_.to_value));
        ("DBSecurityGroupName",
          (Option.map x.dBSecurityGroupName ~f:String_.to_value));
        ("DBSecurityGroupDescription",
          (Option.map x.dBSecurityGroupDescription ~f:String_.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("EC2SecurityGroups",
          (Option.map x.eC2SecurityGroups ~f:EC2SecurityGroupList.to_value));
        ("IPRanges", (Option.map x.iPRanges ~f:IPRangeList.to_value));
        ("DBSecurityGroupArn",
          (Option.map x.dBSecurityGroupArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBSecurityGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroupArn") in
      let iPRanges =
        (Option.map ~f:IPRangeList.of_xml) (Xml.child xml_arg0 "IPRanges") in
      let eC2SecurityGroups =
        (Option.map ~f:EC2SecurityGroupList.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroups") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let dBSecurityGroupDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroupDescription") in
      let dBSecurityGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroupName") in
      let ownerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OwnerId") in
      make ?dBSecurityGroupArn ?iPRanges ?eC2SecurityGroups ?vpcId
        ?dBSecurityGroupDescription ?dBSecurityGroupName ?ownerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBSecurityGroupArn =
        field_map json__ "DBSecurityGroupArn" String_.of_json in
      let iPRanges = field_map json__ "IPRanges" IPRangeList.of_json in
      let eC2SecurityGroups =
        field_map json__ "EC2SecurityGroups" EC2SecurityGroupList.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let dBSecurityGroupDescription =
        field_map json__ "DBSecurityGroupDescription" String_.of_json in
      let dBSecurityGroupName =
        field_map json__ "DBSecurityGroupName" String_.of_json in
      let ownerId = field_map json__ "OwnerId" String_.of_json in
      make ?dBSecurityGroupArn ?iPRanges ?eC2SecurityGroups ?vpcId
        ?dBSecurityGroupDescription ?dBSecurityGroupName ?ownerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details for an Amazon RDS DB security group. This data type is used as a response element in the DescribeDBSecurityGroups action."]
module DBRecommendation =
  struct
    type nonrec t =
      {
      recommendationId: String_.t option
        [@ocaml.doc "The unique identifier of the recommendation."];
      typeId: String_.t option
        [@ocaml.doc
          "A value that indicates the type of recommendation. This value determines how the description is rendered."];
      severity: String_.t option
        [@ocaml.doc
          "The severity level of the recommendation. The severity level can help you decide the urgency with which to address the recommendation. Valid values: high medium low informational"];
      resourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the RDS resource associated with the recommendation."];
      status: String_.t option
        [@ocaml.doc
          "The current status of the recommendation. Valid values: active - The recommendations which are ready for you to apply. pending - The applied or scheduled recommendations which are in progress. resolved - The recommendations which are completed. dismissed - The recommendations that you dismissed."];
      createdTime: TStamp.t option
        [@ocaml.doc
          "The time when the recommendation was created. For example, 2023-09-28T01:13:53.931000+00:00."];
      updatedTime: TStamp.t option
        [@ocaml.doc "The time when the recommendation was last updated."];
      detection: String_.t option
        [@ocaml.doc
          "A short description of the issue identified for this recommendation. The description might contain markdown."];
      recommendation: String_.t option
        [@ocaml.doc
          "A short description of the recommendation to resolve an issue. The description might contain markdown."];
      description: String_.t option
        [@ocaml.doc
          "A detailed description of the recommendation. The description might contain markdown."];
      reason: String_.t option
        [@ocaml.doc
          "The reason why this recommendation was created. The information might contain markdown."];
      recommendedActions: RecommendedActionList.t option
        [@ocaml.doc "A list of recommended actions."];
      category: String_.t option
        [@ocaml.doc
          "The category of the recommendation. Valid values: performance efficiency security reliability cost optimization operational excellence sustainability"];
      source: String_.t option
        [@ocaml.doc
          "The Amazon Web Services service that generated the recommendations."];
      typeDetection: String_.t option
        [@ocaml.doc
          "A short description of the recommendation type. The description might contain markdown."];
      typeRecommendation: String_.t option
        [@ocaml.doc
          "A short description that summarizes the recommendation to fix all the issues of the recommendation type. The description might contain markdown."];
      impact: String_.t option
        [@ocaml.doc
          "A short description that explains the possible impact of an issue."];
      additionalInfo: String_.t option
        [@ocaml.doc
          "Additional information about the recommendation. The information might contain markdown."];
      links: DocLinkList.t option
        [@ocaml.doc
          "A link to documentation that provides additional information about the recommendation."];
      issueDetails: IssueDetails.t option
        [@ocaml.doc "Details of the issue that caused the recommendation."]}
    let make ?recommendationId =
      fun ?typeId ->
        fun ?severity ->
          fun ?resourceArn ->
            fun ?status ->
              fun ?createdTime ->
                fun ?updatedTime ->
                  fun ?detection ->
                    fun ?recommendation ->
                      fun ?description ->
                        fun ?reason ->
                          fun ?recommendedActions ->
                            fun ?category ->
                              fun ?source ->
                                fun ?typeDetection ->
                                  fun ?typeRecommendation ->
                                    fun ?impact ->
                                      fun ?additionalInfo ->
                                        fun ?links ->
                                          fun ?issueDetails ->
                                            fun () ->
                                              {
                                                recommendationId;
                                                typeId;
                                                severity;
                                                resourceArn;
                                                status;
                                                createdTime;
                                                updatedTime;
                                                detection;
                                                recommendation;
                                                description;
                                                reason;
                                                recommendedActions;
                                                category;
                                                source;
                                                typeDetection;
                                                typeRecommendation;
                                                impact;
                                                additionalInfo;
                                                links;
                                                issueDetails
                                              }
    let to_value x =
      structure_to_value
        [("RecommendationId",
           (Option.map x.recommendationId ~f:String_.to_value));
        ("TypeId", (Option.map x.typeId ~f:String_.to_value));
        ("Severity", (Option.map x.severity ~f:String_.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("CreatedTime", (Option.map x.createdTime ~f:TStamp.to_value));
        ("UpdatedTime", (Option.map x.updatedTime ~f:TStamp.to_value));
        ("Detection", (Option.map x.detection ~f:String_.to_value));
        ("Recommendation", (Option.map x.recommendation ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("Reason", (Option.map x.reason ~f:String_.to_value));
        ("RecommendedActions",
          (Option.map x.recommendedActions ~f:RecommendedActionList.to_value));
        ("Category", (Option.map x.category ~f:String_.to_value));
        ("Source", (Option.map x.source ~f:String_.to_value));
        ("TypeDetection", (Option.map x.typeDetection ~f:String_.to_value));
        ("TypeRecommendation",
          (Option.map x.typeRecommendation ~f:String_.to_value));
        ("Impact", (Option.map x.impact ~f:String_.to_value));
        ("AdditionalInfo", (Option.map x.additionalInfo ~f:String_.to_value));
        ("Links", (Option.map x.links ~f:DocLinkList.to_value));
        ("IssueDetails",
          (Option.map x.issueDetails ~f:IssueDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let issueDetails =
        (Option.map ~f:IssueDetails.of_xml)
          (Xml.child xml_arg0 "IssueDetails") in
      let links =
        (Option.map ~f:DocLinkList.of_xml) (Xml.child xml_arg0 "Links") in
      let additionalInfo =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AdditionalInfo") in
      let impact =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Impact") in
      let typeRecommendation =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TypeRecommendation") in
      let typeDetection =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TypeDetection") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Source") in
      let category =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Category") in
      let recommendedActions =
        (Option.map ~f:RecommendedActionList.of_xml)
          (Xml.child xml_arg0 "RecommendedActions") in
      let reason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Reason") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let recommendation =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Recommendation") in
      let detection =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Detection") in
      let updatedTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "UpdatedTime") in
      let createdTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreatedTime") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let severity =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Severity") in
      let typeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TypeId") in
      let recommendationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RecommendationId") in
      make ?issueDetails ?links ?additionalInfo ?impact ?typeRecommendation
        ?typeDetection ?source ?category ?recommendedActions ?reason
        ?description ?recommendation ?detection ?updatedTime ?createdTime
        ?status ?resourceArn ?severity ?typeId ?recommendationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let issueDetails = field_map json__ "IssueDetails" IssueDetails.of_json in
      let links = field_map json__ "Links" DocLinkList.of_json in
      let additionalInfo = field_map json__ "AdditionalInfo" String_.of_json in
      let impact = field_map json__ "Impact" String_.of_json in
      let typeRecommendation =
        field_map json__ "TypeRecommendation" String_.of_json in
      let typeDetection = field_map json__ "TypeDetection" String_.of_json in
      let source = field_map json__ "Source" String_.of_json in
      let category = field_map json__ "Category" String_.of_json in
      let recommendedActions =
        field_map json__ "RecommendedActions" RecommendedActionList.of_json in
      let reason = field_map json__ "Reason" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let recommendation = field_map json__ "Recommendation" String_.of_json in
      let detection = field_map json__ "Detection" String_.of_json in
      let updatedTime = field_map json__ "UpdatedTime" TStamp.of_json in
      let createdTime = field_map json__ "CreatedTime" TStamp.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      let severity = field_map json__ "Severity" String_.of_json in
      let typeId = field_map json__ "TypeId" String_.of_json in
      let recommendationId =
        field_map json__ "RecommendationId" String_.of_json in
      make ?issueDetails ?links ?additionalInfo ?impact ?typeRecommendation
        ?typeDetection ?source ?category ?recommendedActions ?reason
        ?description ?recommendation ?detection ?updatedTime ?createdTime
        ?status ?resourceArn ?severity ?typeId ?recommendationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The recommendation for your DB instances, DB clusters, and DB parameter groups."]
module DBParameterGroup =
  struct
    type nonrec t =
      {
      dBParameterGroupName: String_.t option
        [@ocaml.doc "The name of the DB parameter group."];
      dBParameterGroupFamily: String_.t option
        [@ocaml.doc
          "The name of the DB parameter group family that this DB parameter group is compatible with."];
      description: String_.t option
        [@ocaml.doc
          "Provides the customer-specified description for this DB parameter group."];
      dBParameterGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the DB parameter group."]}
    let make ?dBParameterGroupName =
      fun ?dBParameterGroupFamily ->
        fun ?description ->
          fun ?dBParameterGroupArn ->
            fun () ->
              {
                dBParameterGroupName;
                dBParameterGroupFamily;
                description;
                dBParameterGroupArn
              }
    let to_value x =
      structure_to_value
        [("DBParameterGroupName",
           (Option.map x.dBParameterGroupName ~f:String_.to_value));
        ("DBParameterGroupFamily",
          (Option.map x.dBParameterGroupFamily ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("DBParameterGroupArn",
          (Option.map x.dBParameterGroupArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBParameterGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupArn") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let dBParameterGroupFamily =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupFamily") in
      let dBParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupName") in
      make ?dBParameterGroupArn ?description ?dBParameterGroupFamily
        ?dBParameterGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBParameterGroupArn =
        field_map json__ "DBParameterGroupArn" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let dBParameterGroupFamily =
        field_map json__ "DBParameterGroupFamily" String_.of_json in
      let dBParameterGroupName =
        field_map json__ "DBParameterGroupName" String_.of_json in
      make ?dBParameterGroupArn ?description ?dBParameterGroupFamily
        ?dBParameterGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of an Amazon RDS DB parameter group. This data type is used as a response element in the DescribeDBParameterGroups action."]
module DBInstance =
  struct
    type nonrec t =
      {
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "The user-supplied database identifier. This identifier is the unique key that identifies a DB instance."];
      dBInstanceClass: String_.t option
        [@ocaml.doc
          "The name of the compute and memory capacity class of the DB instance."];
      engine: String_.t option
        [@ocaml.doc "The database engine used for this DB instance."];
      dBInstanceStatus: String_.t option
        [@ocaml.doc
          "The current state of this database. For information about DB instance statuses, see Viewing DB instance status in the Amazon RDS User Guide."];
      masterUsername: String_.t option
        [@ocaml.doc "The master username for the DB instance."];
      dBName: String_.t option
        [@ocaml.doc
          "The initial database name that you provided (if required) when you created the DB instance. This name is returned for the life of your DB instance. For an RDS for Oracle CDB instance, the name identifies the PDB rather than the CDB."];
      endpoint: Endpoint.t option
        [@ocaml.doc
          "The connection endpoint for the DB instance. The endpoint might not be shown for instances with the status of creating."];
      allocatedStorage: Integer.t option
        [@ocaml.doc
          "The amount of storage in gibibytes (GiB) allocated for the DB instance."];
      instanceCreateTime: TStamp.t option
        [@ocaml.doc "The date and time when the DB instance was created."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod."];
      backupRetentionPeriod: Integer.t option
        [@ocaml.doc
          "The number of days for which automatic DB snapshots are retained."];
      dBSecurityGroups: DBSecurityGroupMembershipList.t option
        [@ocaml.doc
          "A list of DB security group elements containing DBSecurityGroup.Name and DBSecurityGroup.Status subelements."];
      vpcSecurityGroups: VpcSecurityGroupMembershipList.t option
        [@ocaml.doc
          "The list of Amazon EC2 VPC security groups that the DB instance belongs to."];
      dBParameterGroups: DBParameterGroupStatusList.t option
        [@ocaml.doc
          "The list of DB parameter groups applied to this DB instance."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The name of the Availability Zone where the DB instance is located."];
      dBSubnetGroup: DBSubnetGroup.t option
        [@ocaml.doc
          "Information about the subnet group associated with the DB instance, including the name, description, and subnets in the subnet group."];
      preferredMaintenanceWindow: String_.t option
        [@ocaml.doc
          "The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC)."];
      upgradeRolloutOrder: UpgradeRolloutOrder.t option
        [@ocaml.doc
          "This data type represents the order in which the instances are upgraded. \\[first\\] - Typically used for development or testing environments. \\[second\\] - Default order for resources not specifically configured. \\[last\\] - Usually reserved for production environments."];
      pendingModifiedValues: PendingModifiedValues.t option
        [@ocaml.doc
          "Information about pending changes to the DB instance. This information is returned only when there are pending changes. Specific changes are identified by subelements."];
      latestRestorableTime: TStamp.t option
        [@ocaml.doc
          "The latest time to which a database in this DB instance can be restored with point-in-time restore."];
      multiAZ: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB instance is a Multi-AZ deployment. This setting doesn't apply to RDS Custom DB instances."];
      engineVersion: String_.t option
        [@ocaml.doc "The version of the database engine."];
      autoMinorVersionUpgrade: Boolean.t option
        [@ocaml.doc
          "Indicates whether minor version patches are applied automatically. For more information about automatic minor version upgrades, see Automatically upgrading the minor engine version."];
      readReplicaSourceDBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the source DB instance if this DB instance is a read replica."];
      readReplicaDBInstanceIdentifiers:
        ReadReplicaDBInstanceIdentifierList.t option
        [@ocaml.doc
          "The identifiers of the read replicas associated with this DB instance."];
      readReplicaDBClusterIdentifiers:
        ReadReplicaDBClusterIdentifierList.t option
        [@ocaml.doc
          "The identifiers of Aurora DB clusters to which the RDS DB instance is replicated as a read replica. For example, when you create an Aurora read replica of an RDS for MySQL DB instance, the Aurora MySQL DB cluster for the Aurora read replica is shown. This output doesn't contain information about cross-Region Aurora read replicas. Currently, each RDS DB instance can have only one Aurora read replica."];
      replicaMode: ReplicaMode.t option
        [@ocaml.doc
          "The open mode of a Db2 or an Oracle read replica. The default is open-read-only. For more information, see Working with replicas for Amazon RDS for Db2 and Working with read replicas for Amazon RDS for Oracle in the Amazon RDS User Guide. This attribute is only supported in RDS for Db2, RDS for Oracle, and RDS Custom for Oracle."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model information for this DB instance. This setting doesn't apply to Amazon Aurora or RDS Custom DB instances."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The Provisioned IOPS (I/O operations per second) value for the DB instance."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput for the DB instance. This setting applies only to the gp3 storage type."];
      optionGroupMemberships: OptionGroupMembershipList.t option
        [@ocaml.doc
          "The list of option group memberships for this DB instance."];
      characterSetName: String_.t option
        [@ocaml.doc
          "If present, specifies the name of the character set that this instance is associated with."];
      ncharCharacterSetName: String_.t option
        [@ocaml.doc
          "The name of the NCHAR character set for the Oracle DB instance. This character set specifies the Unicode encoding for data stored in table columns of type NCHAR, NCLOB, or NVARCHAR2."];
      secondaryAvailabilityZone: String_.t option
        [@ocaml.doc
          "If present, specifies the name of the secondary Availability Zone for a DB instance with multi-AZ support."];
      publiclyAccessible: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB instance is publicly accessible. When the DB instance is publicly accessible and you connect from outside of the DB instance's virtual private cloud (VPC), its Domain Name System (DNS) endpoint resolves to the public IP address. When you connect from within the same VPC as the DB instance, the endpoint resolves to the private IP address. Access to the DB cluster is ultimately controlled by the security group it uses. That public access isn't permitted if the security group assigned to the DB cluster doesn't permit it. When the DB instance isn't publicly accessible, it is an internal DB instance with a DNS name that resolves to a private IP address. For more information, see CreateDBInstance."];
      statusInfos: DBInstanceStatusInfoList.t option
        [@ocaml.doc
          "The status of a read replica. If the DB instance isn't a read replica, the value is blank."];
      storageType: String_.t option
        [@ocaml.doc "The storage type associated with the DB instance."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the DB instance. Possible values: none - The DB instance is not encrypted. sse-rds - The DB instance is encrypted using an Amazon Web Services owned KMS key. sse-kms - The DB instance is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      tdeCredentialArn: String_.t option
        [@ocaml.doc
          "The ARN from the key store with which the instance is associated for TDE encryption."];
      dbInstancePort: Integer.t option
        [@ocaml.doc
          "The port that the DB instance listens on. If the DB instance is part of a DB cluster, this can be a different port than the DB cluster port."];
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "If the DB instance is a member of a DB cluster, indicates the name of the DB cluster that the DB instance is a member of."];
      storageEncrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the DB instance is encrypted."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "If StorageEncrypted is enabled, the Amazon Web Services KMS key identifier for the encrypted DB instance. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      dbiResourceId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region-unique, immutable identifier for the DB instance. This identifier is found in Amazon Web Services CloudTrail log entries whenever the Amazon Web Services KMS key for the DB instance is accessed."];
      cACertificateIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the CA certificate for this DB instance. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."];
      domainMemberships: DomainMembershipList.t option
        [@ocaml.doc
          "The Active Directory Domain membership records associated with the DB instance."];
      copyTagsToSnapshot: Boolean.t option
        [@ocaml.doc
          "Indicates whether tags are copied from the DB instance to snapshots of the DB instance. This setting doesn't apply to Amazon Aurora DB instances. Copying tags to snapshots is managed by the DB cluster. Setting this value for an Aurora DB instance has no effect on the DB cluster setting. For more information, see DBCluster."];
      monitoringInterval: IntegerOptional.t option
        [@ocaml.doc
          "The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance."];
      enhancedMonitoringResourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon CloudWatch Logs log stream that receives the Enhanced Monitoring metrics data for the DB instance."];
      monitoringRoleArn: String_.t option
        [@ocaml.doc
          "The ARN for the IAM role that permits RDS to send Enhanced Monitoring metrics to Amazon CloudWatch Logs."];
      promotionTier: IntegerOptional.t option
        [@ocaml.doc
          "The order of priority in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see Fault Tolerance for an Aurora DB Cluster in the Amazon Aurora User Guide."];
      dBInstanceArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the DB instance."];
      timezone: String_.t option
        [@ocaml.doc
          "The time zone of the DB instance. In most cases, the Timezone element is empty. Timezone content appears only for RDS for Db2 and RDS for SQL Server DB instances that were created with a time zone specified."];
      iAMDatabaseAuthenticationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled for the DB instance. For a list of engine versions that support IAM database authentication, see IAM database authentication in the Amazon RDS User Guide and IAM database authentication in Aurora in the Amazon Aurora User Guide."];
      databaseInsightsMode: DatabaseInsightsMode.t option
        [@ocaml.doc
          "The mode of Database Insights that is enabled for the instance."];
      performanceInsightsEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether Performance Insights is enabled for the DB instance."];
      performanceInsightsKMSKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encryption of Performance Insights data. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      performanceInsightsRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days to retain Performance Insights data. Valid Values: 7 month * 31, where month is a number of months from 1-23. Examples: 93 (3 months * 31), 341 (11 months * 31), 589 (19 months * 31) 731 Default: 7 days"];
      enabledCloudwatchLogsExports: LogTypeList.t option
        [@ocaml.doc
          "A list of log types that this DB instance is configured to export to CloudWatch Logs. Log types vary by DB engine. For information about the log types for each DB engine, see Monitoring Amazon RDS log files in the Amazon RDS User Guide."];
      processorFeatures: ProcessorFeatureList.t option
        [@ocaml.doc
          "The number of CPU cores and the number of threads per core for the DB instance class of the DB instance."];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB instance has deletion protection enabled. The database can't be deleted when deletion protection is enabled. For more information, see Deleting a DB Instance."];
      associatedRoles: DBInstanceRoles.t option
        [@ocaml.doc
          "The Amazon Web Services Identity and Access Management (IAM) roles associated with the DB instance."];
      listenerEndpoint: Endpoint.t option
        [@ocaml.doc
          "The listener connection endpoint for SQL Server Always On."];
      maxAllocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The upper limit in gibibytes (GiB) to which Amazon RDS can automatically scale the storage of the DB instance."];
      tagList: TagList.t option ;
      automationMode: AutomationMode.t option
        [@ocaml.doc
          "The automation mode of the RDS Custom DB instance: full or all paused. If full, the DB instance automates monitoring and instance recovery. If all paused, the instance pauses automation for the duration set by --resume-full-automation-mode-minutes."];
      resumeFullAutomationModeTime: TStamp.t option
        [@ocaml.doc
          "The number of minutes to pause the automation. When the time period ends, RDS Custom resumes full automation. The minimum value is 60 (default). The maximum value is 1,440."];
      customerOwnedIpEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether a customer-owned IP address (CoIP) is enabled for an RDS on Outposts DB instance. A CoIP provides local or external connectivity to resources in your Outpost subnets through your on-premises network. For some use cases, a CoIP can provide lower latency for connections to the DB instance from outside of its virtual private cloud (VPC) on your local network. For more information about RDS on Outposts, see Working with Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide. For more information about CoIPs, see Customer-owned IP addresses in the Amazon Web Services Outposts User Guide."];
      networkType: String_.t option
        [@ocaml.doc
          "The network type of the DB instance. The network type is determined by the DBSubnetGroup specified for the DB instance. A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon RDS User Guide and Working with a DB instance in a VPC in the Amazon Aurora User Guide. Valid Values: IPV4 | DUAL"];
      activityStreamStatus: ActivityStreamStatus.t option
        [@ocaml.doc "The status of the database activity stream."];
      activityStreamKmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier used for encrypting messages in the database activity stream. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      activityStreamKinesisStreamName: String_.t option
        [@ocaml.doc
          "The name of the Amazon Kinesis data stream used for the database activity stream."];
      activityStreamMode: ActivityStreamMode.t option
        [@ocaml.doc
          "The mode of the database activity stream. Database events such as a change or access generate an activity stream event. RDS for Oracle always handles these events asynchronously."];
      activityStreamEngineNativeAuditFieldsIncluded: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether engine-native audit fields are included in the database activity stream."];
      awsBackupRecoveryPointArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the recovery point in Amazon Web Services Backup."];
      dBInstanceAutomatedBackupsReplications:
        DBInstanceAutomatedBackupsReplicationList.t option
        [@ocaml.doc
          "The list of replicated automated backups associated with the DB instance."];
      backupTarget: String_.t option
        [@ocaml.doc
          "The location where automated backups and manual snapshots are stored: Dedicated Local Zones, Amazon Web Services Outposts or the Amazon Web Services Region."];
      automaticRestartTime: TStamp.t option
        [@ocaml.doc
          "The time when a stopped DB instance is restarted automatically."];
      customIamInstanceProfile: String_.t option
        [@ocaml.doc
          "The instance profile associated with the underlying Amazon EC2 instance of an RDS Custom DB instance. The instance profile must meet the following requirements: The profile must exist in your account. The profile must have an IAM role that Amazon EC2 has permissions to assume. The instance profile name and the associated IAM role name must start with the prefix AWSRDSCustom. For the list of permissions required for the IAM role, see Configure IAM and your VPC in the Amazon RDS User Guide."];
      activityStreamPolicyStatus: ActivityStreamPolicyStatus.t option
        [@ocaml.doc "The status of the policy state of the activity stream."];
      certificateDetails: CertificateDetails.t option
        [@ocaml.doc "The details of the DB instance's server certificate."];
      dBSystemId: String_.t option
        [@ocaml.doc
          "The Oracle system ID (Oracle SID) for a container database (CDB). The Oracle SID is also the name of the CDB. This setting is only valid for RDS Custom DB instances."];
      masterUserSecret: MasterUserSecret.t option
        [@ocaml.doc
          "The secret managed by RDS in Amazon Web Services Secrets Manager for the master user password. For more information, see Password management with Amazon Web Services Secrets Manager in the Amazon RDS User Guide."];
      readReplicaSourceDBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the source DB cluster if this DB instance is a read replica."];
      percentProgress: String_.t option
        [@ocaml.doc
          "The progress of the storage optimization operation as a percentage."];
      multiTenant: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance is in the multi-tenant configuration (TRUE) or the single-tenant configuration (FALSE)."];
      dedicatedLogVolume: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB instance has a dedicated log volume (DLV) enabled."];
      isStorageConfigUpgradeAvailable: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether an upgrade is recommended for the storage file system configuration on the DB instance. To migrate to the preferred configuration, you can either create a blue/green deployment, or create a read replica from the DB instance. For more information, see Upgrading the storage file system for a DB instance."];
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The lifecycle type for the DB instance. For more information, see CreateDBInstance."];
      additionalStorageVolumes: AdditionalStorageVolumesOutputList.t option
        [@ocaml.doc
          "The additional storage volumes associated with the DB instance. RDS supports additional storage volumes for RDS for Oracle and RDS for SQL Server."];
      storageVolumeStatus: String_.t option
        [@ocaml.doc
          "The detailed status information for storage volumes associated with the DB instance. This information helps identify which specific volume is causing the instance to be in a storage-full state."]}
    let make ?dBInstanceIdentifier =
      fun ?dBInstanceClass ->
        fun ?engine ->
          fun ?dBInstanceStatus ->
            fun ?masterUsername ->
              fun ?dBName ->
                fun ?endpoint ->
                  fun ?allocatedStorage ->
                    fun ?instanceCreateTime ->
                      fun ?preferredBackupWindow ->
                        fun ?backupRetentionPeriod ->
                          fun ?dBSecurityGroups ->
                            fun ?vpcSecurityGroups ->
                              fun ?dBParameterGroups ->
                                fun ?availabilityZone ->
                                  fun ?dBSubnetGroup ->
                                    fun ?preferredMaintenanceWindow ->
                                      fun ?upgradeRolloutOrder ->
                                        fun ?pendingModifiedValues ->
                                          fun ?latestRestorableTime ->
                                            fun ?multiAZ ->
                                              fun ?engineVersion ->
                                                fun ?autoMinorVersionUpgrade
                                                  ->
                                                  fun
                                                    ?readReplicaSourceDBInstanceIdentifier
                                                    ->
                                                    fun
                                                      ?readReplicaDBInstanceIdentifiers
                                                      ->
                                                      fun
                                                        ?readReplicaDBClusterIdentifiers
                                                        ->
                                                        fun ?replicaMode ->
                                                          fun ?licenseModel
                                                            ->
                                                            fun ?iops ->
                                                              fun
                                                                ?storageThroughput
                                                                ->
                                                                fun
                                                                  ?optionGroupMemberships
                                                                  ->
                                                                  fun
                                                                    ?characterSetName
                                                                    ->
                                                                    fun
                                                                    ?ncharCharacterSetName
                                                                    ->
                                                                    fun
                                                                    ?secondaryAvailabilityZone
                                                                    ->
                                                                    fun
                                                                    ?publiclyAccessible
                                                                    ->
                                                                    fun
                                                                    ?statusInfos
                                                                    ->
                                                                    fun
                                                                    ?storageType
                                                                    ->
                                                                    fun
                                                                    ?storageEncryptionType
                                                                    ->
                                                                    fun
                                                                    ?tdeCredentialArn
                                                                    ->
                                                                    fun
                                                                    ?dbInstancePort
                                                                    ->
                                                                    fun
                                                                    ?dBClusterIdentifier
                                                                    ->
                                                                    fun
                                                                    ?storageEncrypted
                                                                    ->
                                                                    fun
                                                                    ?kmsKeyId
                                                                    ->
                                                                    fun
                                                                    ?dbiResourceId
                                                                    ->
                                                                    fun
                                                                    ?cACertificateIdentifier
                                                                    ->
                                                                    fun
                                                                    ?domainMemberships
                                                                    ->
                                                                    fun
                                                                    ?copyTagsToSnapshot
                                                                    ->
                                                                    fun
                                                                    ?monitoringInterval
                                                                    ->
                                                                    fun
                                                                    ?enhancedMonitoringResourceArn
                                                                    ->
                                                                    fun
                                                                    ?monitoringRoleArn
                                                                    ->
                                                                    fun
                                                                    ?promotionTier
                                                                    ->
                                                                    fun
                                                                    ?dBInstanceArn
                                                                    ->
                                                                    fun
                                                                    ?timezone
                                                                    ->
                                                                    fun
                                                                    ?iAMDatabaseAuthenticationEnabled
                                                                    ->
                                                                    fun
                                                                    ?databaseInsightsMode
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsEnabled
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsKMSKeyId
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?enabledCloudwatchLogsExports
                                                                    ->
                                                                    fun
                                                                    ?processorFeatures
                                                                    ->
                                                                    fun
                                                                    ?deletionProtection
                                                                    ->
                                                                    fun
                                                                    ?associatedRoles
                                                                    ->
                                                                    fun
                                                                    ?listenerEndpoint
                                                                    ->
                                                                    fun
                                                                    ?maxAllocatedStorage
                                                                    ->
                                                                    fun
                                                                    ?tagList
                                                                    ->
                                                                    fun
                                                                    ?automationMode
                                                                    ->
                                                                    fun
                                                                    ?resumeFullAutomationModeTime
                                                                    ->
                                                                    fun
                                                                    ?customerOwnedIpEnabled
                                                                    ->
                                                                    fun
                                                                    ?networkType
                                                                    ->
                                                                    fun
                                                                    ?activityStreamStatus
                                                                    ->
                                                                    fun
                                                                    ?activityStreamKmsKeyId
                                                                    ->
                                                                    fun
                                                                    ?activityStreamKinesisStreamName
                                                                    ->
                                                                    fun
                                                                    ?activityStreamMode
                                                                    ->
                                                                    fun
                                                                    ?activityStreamEngineNativeAuditFieldsIncluded
                                                                    ->
                                                                    fun
                                                                    ?awsBackupRecoveryPointArn
                                                                    ->
                                                                    fun
                                                                    ?dBInstanceAutomatedBackupsReplications
                                                                    ->
                                                                    fun
                                                                    ?backupTarget
                                                                    ->
                                                                    fun
                                                                    ?automaticRestartTime
                                                                    ->
                                                                    fun
                                                                    ?customIamInstanceProfile
                                                                    ->
                                                                    fun
                                                                    ?activityStreamPolicyStatus
                                                                    ->
                                                                    fun
                                                                    ?certificateDetails
                                                                    ->
                                                                    fun
                                                                    ?dBSystemId
                                                                    ->
                                                                    fun
                                                                    ?masterUserSecret
                                                                    ->
                                                                    fun
                                                                    ?readReplicaSourceDBClusterIdentifier
                                                                    ->
                                                                    fun
                                                                    ?percentProgress
                                                                    ->
                                                                    fun
                                                                    ?multiTenant
                                                                    ->
                                                                    fun
                                                                    ?dedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?isStorageConfigUpgradeAvailable
                                                                    ->
                                                                    fun
                                                                    ?engineLifecycleSupport
                                                                    ->
                                                                    fun
                                                                    ?additionalStorageVolumes
                                                                    ->
                                                                    fun
                                                                    ?storageVolumeStatus
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    dBInstanceIdentifier;
                                                                    dBInstanceClass;
                                                                    engine;
                                                                    dBInstanceStatus;
                                                                    masterUsername;
                                                                    dBName;
                                                                    endpoint;
                                                                    allocatedStorage;
                                                                    instanceCreateTime;
                                                                    preferredBackupWindow;
                                                                    backupRetentionPeriod;
                                                                    dBSecurityGroups;
                                                                    vpcSecurityGroups;
                                                                    dBParameterGroups;
                                                                    availabilityZone;
                                                                    dBSubnetGroup;
                                                                    preferredMaintenanceWindow;
                                                                    upgradeRolloutOrder;
                                                                    pendingModifiedValues;
                                                                    latestRestorableTime;
                                                                    multiAZ;
                                                                    engineVersion;
                                                                    autoMinorVersionUpgrade;
                                                                    readReplicaSourceDBInstanceIdentifier;
                                                                    readReplicaDBInstanceIdentifiers;
                                                                    readReplicaDBClusterIdentifiers;
                                                                    replicaMode;
                                                                    licenseModel;
                                                                    iops;
                                                                    storageThroughput;
                                                                    optionGroupMemberships;
                                                                    characterSetName;
                                                                    ncharCharacterSetName;
                                                                    secondaryAvailabilityZone;
                                                                    publiclyAccessible;
                                                                    statusInfos;
                                                                    storageType;
                                                                    storageEncryptionType;
                                                                    tdeCredentialArn;
                                                                    dbInstancePort;
                                                                    dBClusterIdentifier;
                                                                    storageEncrypted;
                                                                    kmsKeyId;
                                                                    dbiResourceId;
                                                                    cACertificateIdentifier;
                                                                    domainMemberships;
                                                                    copyTagsToSnapshot;
                                                                    monitoringInterval;
                                                                    enhancedMonitoringResourceArn;
                                                                    monitoringRoleArn;
                                                                    promotionTier;
                                                                    dBInstanceArn;
                                                                    timezone;
                                                                    iAMDatabaseAuthenticationEnabled;
                                                                    databaseInsightsMode;
                                                                    performanceInsightsEnabled;
                                                                    performanceInsightsKMSKeyId;
                                                                    performanceInsightsRetentionPeriod;
                                                                    enabledCloudwatchLogsExports;
                                                                    processorFeatures;
                                                                    deletionProtection;
                                                                    associatedRoles;
                                                                    listenerEndpoint;
                                                                    maxAllocatedStorage;
                                                                    tagList;
                                                                    automationMode;
                                                                    resumeFullAutomationModeTime;
                                                                    customerOwnedIpEnabled;
                                                                    networkType;
                                                                    activityStreamStatus;
                                                                    activityStreamKmsKeyId;
                                                                    activityStreamKinesisStreamName;
                                                                    activityStreamMode;
                                                                    activityStreamEngineNativeAuditFieldsIncluded;
                                                                    awsBackupRecoveryPointArn;
                                                                    dBInstanceAutomatedBackupsReplications;
                                                                    backupTarget;
                                                                    automaticRestartTime;
                                                                    customIamInstanceProfile;
                                                                    activityStreamPolicyStatus;
                                                                    certificateDetails;
                                                                    dBSystemId;
                                                                    masterUserSecret;
                                                                    readReplicaSourceDBClusterIdentifier;
                                                                    percentProgress;
                                                                    multiTenant;
                                                                    dedicatedLogVolume;
                                                                    isStorageConfigUpgradeAvailable;
                                                                    engineLifecycleSupport;
                                                                    additionalStorageVolumes;
                                                                    storageVolumeStatus
                                                                    }
    let to_value x =
      structure_to_value
        [("DBInstanceIdentifier",
           (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("DBInstanceClass",
          (Option.map x.dBInstanceClass ~f:String_.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("DBInstanceStatus",
          (Option.map x.dBInstanceStatus ~f:String_.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("DBName", (Option.map x.dBName ~f:String_.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:Endpoint.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:Integer.to_value));
        ("InstanceCreateTime",
          (Option.map x.instanceCreateTime ~f:TStamp.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:Integer.to_value));
        ("DBSecurityGroups",
          (Option.map x.dBSecurityGroups
             ~f:DBSecurityGroupMembershipList.to_value));
        ("VpcSecurityGroups",
          (Option.map x.vpcSecurityGroups
             ~f:VpcSecurityGroupMembershipList.to_value));
        ("DBParameterGroups",
          (Option.map x.dBParameterGroups
             ~f:DBParameterGroupStatusList.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("DBSubnetGroup",
          (Option.map x.dBSubnetGroup ~f:DBSubnetGroup.to_value));
        ("PreferredMaintenanceWindow",
          (Option.map x.preferredMaintenanceWindow ~f:String_.to_value));
        ("UpgradeRolloutOrder",
          (Option.map x.upgradeRolloutOrder ~f:UpgradeRolloutOrder.to_value));
        ("PendingModifiedValues",
          (Option.map x.pendingModifiedValues
             ~f:PendingModifiedValues.to_value));
        ("LatestRestorableTime",
          (Option.map x.latestRestorableTime ~f:TStamp.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:Boolean.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("AutoMinorVersionUpgrade",
          (Option.map x.autoMinorVersionUpgrade ~f:Boolean.to_value));
        ("ReadReplicaSourceDBInstanceIdentifier",
          (Option.map x.readReplicaSourceDBInstanceIdentifier
             ~f:String_.to_value));
        ("ReadReplicaDBInstanceIdentifiers",
          (Option.map x.readReplicaDBInstanceIdentifiers
             ~f:ReadReplicaDBInstanceIdentifierList.to_value));
        ("ReadReplicaDBClusterIdentifiers",
          (Option.map x.readReplicaDBClusterIdentifiers
             ~f:ReadReplicaDBClusterIdentifierList.to_value));
        ("ReplicaMode", (Option.map x.replicaMode ~f:ReplicaMode.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("OptionGroupMemberships",
          (Option.map x.optionGroupMemberships
             ~f:OptionGroupMembershipList.to_value));
        ("CharacterSetName",
          (Option.map x.characterSetName ~f:String_.to_value));
        ("NcharCharacterSetName",
          (Option.map x.ncharCharacterSetName ~f:String_.to_value));
        ("SecondaryAvailabilityZone",
          (Option.map x.secondaryAvailabilityZone ~f:String_.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:Boolean.to_value));
        ("StatusInfos",
          (Option.map x.statusInfos ~f:DBInstanceStatusInfoList.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("TdeCredentialArn",
          (Option.map x.tdeCredentialArn ~f:String_.to_value));
        ("DbInstancePort", (Option.map x.dbInstancePort ~f:Integer.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("StorageEncrypted",
          (Option.map x.storageEncrypted ~f:Boolean.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("DbiResourceId", (Option.map x.dbiResourceId ~f:String_.to_value));
        ("CACertificateIdentifier",
          (Option.map x.cACertificateIdentifier ~f:String_.to_value));
        ("DomainMemberships",
          (Option.map x.domainMemberships ~f:DomainMembershipList.to_value));
        ("CopyTagsToSnapshot",
          (Option.map x.copyTagsToSnapshot ~f:Boolean.to_value));
        ("MonitoringInterval",
          (Option.map x.monitoringInterval ~f:IntegerOptional.to_value));
        ("EnhancedMonitoringResourceArn",
          (Option.map x.enhancedMonitoringResourceArn ~f:String_.to_value));
        ("MonitoringRoleArn",
          (Option.map x.monitoringRoleArn ~f:String_.to_value));
        ("PromotionTier",
          (Option.map x.promotionTier ~f:IntegerOptional.to_value));
        ("DBInstanceArn", (Option.map x.dBInstanceArn ~f:String_.to_value));
        ("Timezone", (Option.map x.timezone ~f:String_.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled ~f:Boolean.to_value));
        ("DatabaseInsightsMode",
          (Option.map x.databaseInsightsMode ~f:DatabaseInsightsMode.to_value));
        ("PerformanceInsightsEnabled",
          (Option.map x.performanceInsightsEnabled
             ~f:BooleanOptional.to_value));
        ("PerformanceInsightsKMSKeyId",
          (Option.map x.performanceInsightsKMSKeyId ~f:String_.to_value));
        ("PerformanceInsightsRetentionPeriod",
          (Option.map x.performanceInsightsRetentionPeriod
             ~f:IntegerOptional.to_value));
        ("EnabledCloudwatchLogsExports",
          (Option.map x.enabledCloudwatchLogsExports ~f:LogTypeList.to_value));
        ("ProcessorFeatures",
          (Option.map x.processorFeatures ~f:ProcessorFeatureList.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("AssociatedRoles",
          (Option.map x.associatedRoles ~f:DBInstanceRoles.to_value));
        ("ListenerEndpoint",
          (Option.map x.listenerEndpoint ~f:Endpoint.to_value));
        ("MaxAllocatedStorage",
          (Option.map x.maxAllocatedStorage ~f:IntegerOptional.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("AutomationMode",
          (Option.map x.automationMode ~f:AutomationMode.to_value));
        ("ResumeFullAutomationModeTime",
          (Option.map x.resumeFullAutomationModeTime ~f:TStamp.to_value));
        ("CustomerOwnedIpEnabled",
          (Option.map x.customerOwnedIpEnabled ~f:BooleanOptional.to_value));
        ("NetworkType", (Option.map x.networkType ~f:String_.to_value));
        ("ActivityStreamStatus",
          (Option.map x.activityStreamStatus ~f:ActivityStreamStatus.to_value));
        ("ActivityStreamKmsKeyId",
          (Option.map x.activityStreamKmsKeyId ~f:String_.to_value));
        ("ActivityStreamKinesisStreamName",
          (Option.map x.activityStreamKinesisStreamName ~f:String_.to_value));
        ("ActivityStreamMode",
          (Option.map x.activityStreamMode ~f:ActivityStreamMode.to_value));
        ("ActivityStreamEngineNativeAuditFieldsIncluded",
          (Option.map x.activityStreamEngineNativeAuditFieldsIncluded
             ~f:BooleanOptional.to_value));
        ("AwsBackupRecoveryPointArn",
          (Option.map x.awsBackupRecoveryPointArn ~f:String_.to_value));
        ("DBInstanceAutomatedBackupsReplications",
          (Option.map x.dBInstanceAutomatedBackupsReplications
             ~f:DBInstanceAutomatedBackupsReplicationList.to_value));
        ("BackupTarget", (Option.map x.backupTarget ~f:String_.to_value));
        ("AutomaticRestartTime",
          (Option.map x.automaticRestartTime ~f:TStamp.to_value));
        ("CustomIamInstanceProfile",
          (Option.map x.customIamInstanceProfile ~f:String_.to_value));
        ("ActivityStreamPolicyStatus",
          (Option.map x.activityStreamPolicyStatus
             ~f:ActivityStreamPolicyStatus.to_value));
        ("CertificateDetails",
          (Option.map x.certificateDetails ~f:CertificateDetails.to_value));
        ("DBSystemId", (Option.map x.dBSystemId ~f:String_.to_value));
        ("MasterUserSecret",
          (Option.map x.masterUserSecret ~f:MasterUserSecret.to_value));
        ("ReadReplicaSourceDBClusterIdentifier",
          (Option.map x.readReplicaSourceDBClusterIdentifier
             ~f:String_.to_value));
        ("PercentProgress",
          (Option.map x.percentProgress ~f:String_.to_value));
        ("MultiTenant",
          (Option.map x.multiTenant ~f:BooleanOptional.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:Boolean.to_value));
        ("IsStorageConfigUpgradeAvailable",
          (Option.map x.isStorageConfigUpgradeAvailable
             ~f:BooleanOptional.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesOutputList.to_value));
        ("StorageVolumeStatus",
          (Option.map x.storageVolumeStatus ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageVolumeStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "StorageVolumeStatus") in
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesOutputList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let isStorageConfigUpgradeAvailable =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "IsStorageConfigUpgradeAvailable") in
      let dedicatedLogVolume =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let multiTenant =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "MultiTenant") in
      let percentProgress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PercentProgress") in
      let readReplicaSourceDBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReadReplicaSourceDBClusterIdentifier") in
      let masterUserSecret =
        (Option.map ~f:MasterUserSecret.of_xml)
          (Xml.child xml_arg0 "MasterUserSecret") in
      let dBSystemId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBSystemId") in
      let certificateDetails =
        (Option.map ~f:CertificateDetails.of_xml)
          (Xml.child xml_arg0 "CertificateDetails") in
      let activityStreamPolicyStatus =
        (Option.map ~f:ActivityStreamPolicyStatus.of_xml)
          (Xml.child xml_arg0 "ActivityStreamPolicyStatus") in
      let customIamInstanceProfile =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CustomIamInstanceProfile") in
      let automaticRestartTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "AutomaticRestartTime") in
      let backupTarget =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BackupTarget") in
      let dBInstanceAutomatedBackupsReplications =
        (Option.map ~f:DBInstanceAutomatedBackupsReplicationList.of_xml)
          (Xml.child xml_arg0 "DBInstanceAutomatedBackupsReplications") in
      let awsBackupRecoveryPointArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AwsBackupRecoveryPointArn") in
      let activityStreamEngineNativeAuditFieldsIncluded =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "ActivityStreamEngineNativeAuditFieldsIncluded") in
      let activityStreamMode =
        (Option.map ~f:ActivityStreamMode.of_xml)
          (Xml.child xml_arg0 "ActivityStreamMode") in
      let activityStreamKinesisStreamName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ActivityStreamKinesisStreamName") in
      let activityStreamKmsKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ActivityStreamKmsKeyId") in
      let activityStreamStatus =
        (Option.map ~f:ActivityStreamStatus.of_xml)
          (Xml.child xml_arg0 "ActivityStreamStatus") in
      let networkType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let customerOwnedIpEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CustomerOwnedIpEnabled") in
      let resumeFullAutomationModeTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "ResumeFullAutomationModeTime") in
      let automationMode =
        (Option.map ~f:AutomationMode.of_xml)
          (Xml.child xml_arg0 "AutomationMode") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let maxAllocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxAllocatedStorage") in
      let listenerEndpoint =
        (Option.map ~f:Endpoint.of_xml)
          (Xml.child xml_arg0 "ListenerEndpoint") in
      let associatedRoles =
        (Option.map ~f:DBInstanceRoles.of_xml)
          (Xml.child xml_arg0 "AssociatedRoles") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let processorFeatures =
        (Option.map ~f:ProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ProcessorFeatures") in
      let enabledCloudwatchLogsExports =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnabledCloudwatchLogsExports") in
      let performanceInsightsRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsRetentionPeriod") in
      let performanceInsightsKMSKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsKMSKeyId") in
      let performanceInsightsEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsEnabled") in
      let databaseInsightsMode =
        (Option.map ~f:DatabaseInsightsMode.of_xml)
          (Xml.child xml_arg0 "DatabaseInsightsMode") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let timezone =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Timezone") in
      let dBInstanceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceArn") in
      let promotionTier =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "PromotionTier") in
      let monitoringRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonitoringRoleArn") in
      let enhancedMonitoringResourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EnhancedMonitoringResourceArn") in
      let monitoringInterval =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MonitoringInterval") in
      let copyTagsToSnapshot =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "CopyTagsToSnapshot") in
      let domainMemberships =
        (Option.map ~f:DomainMembershipList.of_xml)
          (Xml.child xml_arg0 "DomainMemberships") in
      let cACertificateIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CACertificateIdentifier") in
      let dbiResourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DbiResourceId") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let storageEncrypted =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "StorageEncrypted") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let dbInstancePort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "DbInstancePort") in
      let tdeCredentialArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TdeCredentialArn") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let statusInfos =
        (Option.map ~f:DBInstanceStatusInfoList.of_xml)
          (Xml.child xml_arg0 "StatusInfos") in
      let publiclyAccessible =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let secondaryAvailabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SecondaryAvailabilityZone") in
      let ncharCharacterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "NcharCharacterSetName") in
      let characterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CharacterSetName") in
      let optionGroupMemberships =
        (Option.map ~f:OptionGroupMembershipList.of_xml)
          (Xml.child xml_arg0 "OptionGroupMemberships") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let replicaMode =
        (Option.map ~f:ReplicaMode.of_xml) (Xml.child xml_arg0 "ReplicaMode") in
      let readReplicaDBClusterIdentifiers =
        (Option.map ~f:ReadReplicaDBClusterIdentifierList.of_xml)
          (Xml.child xml_arg0 "ReadReplicaDBClusterIdentifiers") in
      let readReplicaDBInstanceIdentifiers =
        (Option.map ~f:ReadReplicaDBInstanceIdentifierList.of_xml)
          (Xml.child xml_arg0 "ReadReplicaDBInstanceIdentifiers") in
      let readReplicaSourceDBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReadReplicaSourceDBInstanceIdentifier") in
      let autoMinorVersionUpgrade =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AutoMinorVersionUpgrade") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let multiAZ =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let latestRestorableTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "LatestRestorableTime") in
      let pendingModifiedValues =
        (Option.map ~f:PendingModifiedValues.of_xml)
          (Xml.child xml_arg0 "PendingModifiedValues") in
      let upgradeRolloutOrder =
        (Option.map ~f:UpgradeRolloutOrder.of_xml)
          (Xml.child xml_arg0 "UpgradeRolloutOrder") in
      let preferredMaintenanceWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredMaintenanceWindow") in
      let dBSubnetGroup =
        (Option.map ~f:DBSubnetGroup.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroup") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let dBParameterGroups =
        (Option.map ~f:DBParameterGroupStatusList.of_xml)
          (Xml.child xml_arg0 "DBParameterGroups") in
      let vpcSecurityGroups =
        (Option.map ~f:VpcSecurityGroupMembershipList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroups") in
      let dBSecurityGroups =
        (Option.map ~f:DBSecurityGroupMembershipList.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroups") in
      let backupRetentionPeriod =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let instanceCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "InstanceCreateTime") in
      let allocatedStorage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let endpoint =
        (Option.map ~f:Endpoint.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let dBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBName") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let dBInstanceStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceStatus") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      make ?storageVolumeStatus ?additionalStorageVolumes
        ?engineLifecycleSupport ?isStorageConfigUpgradeAvailable
        ?dedicatedLogVolume ?multiTenant ?percentProgress
        ?readReplicaSourceDBClusterIdentifier ?masterUserSecret ?dBSystemId
        ?certificateDetails ?activityStreamPolicyStatus
        ?customIamInstanceProfile ?automaticRestartTime ?backupTarget
        ?dBInstanceAutomatedBackupsReplications ?awsBackupRecoveryPointArn
        ?activityStreamEngineNativeAuditFieldsIncluded ?activityStreamMode
        ?activityStreamKinesisStreamName ?activityStreamKmsKeyId
        ?activityStreamStatus ?networkType ?customerOwnedIpEnabled
        ?resumeFullAutomationModeTime ?automationMode ?tagList
        ?maxAllocatedStorage ?listenerEndpoint ?associatedRoles
        ?deletionProtection ?processorFeatures ?enabledCloudwatchLogsExports
        ?performanceInsightsRetentionPeriod ?performanceInsightsKMSKeyId
        ?performanceInsightsEnabled ?databaseInsightsMode
        ?iAMDatabaseAuthenticationEnabled ?timezone ?dBInstanceArn
        ?promotionTier ?monitoringRoleArn ?enhancedMonitoringResourceArn
        ?monitoringInterval ?copyTagsToSnapshot ?domainMemberships
        ?cACertificateIdentifier ?dbiResourceId ?kmsKeyId ?storageEncrypted
        ?dBClusterIdentifier ?dbInstancePort ?tdeCredentialArn
        ?storageEncryptionType ?storageType ?statusInfos ?publiclyAccessible
        ?secondaryAvailabilityZone ?ncharCharacterSetName ?characterSetName
        ?optionGroupMemberships ?storageThroughput ?iops ?licenseModel
        ?replicaMode ?readReplicaDBClusterIdentifiers
        ?readReplicaDBInstanceIdentifiers
        ?readReplicaSourceDBInstanceIdentifier ?autoMinorVersionUpgrade
        ?engineVersion ?multiAZ ?latestRestorableTime ?pendingModifiedValues
        ?upgradeRolloutOrder ?preferredMaintenanceWindow ?dBSubnetGroup
        ?availabilityZone ?dBParameterGroups ?vpcSecurityGroups
        ?dBSecurityGroups ?backupRetentionPeriod ?preferredBackupWindow
        ?instanceCreateTime ?allocatedStorage ?endpoint ?dBName
        ?masterUsername ?dBInstanceStatus ?engine ?dBInstanceClass
        ?dBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageVolumeStatus =
        field_map json__ "StorageVolumeStatus" String_.of_json in
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesOutputList.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let isStorageConfigUpgradeAvailable =
        field_map json__ "IsStorageConfigUpgradeAvailable"
          BooleanOptional.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" Boolean.of_json in
      let multiTenant =
        field_map json__ "MultiTenant" BooleanOptional.of_json in
      let percentProgress =
        field_map json__ "PercentProgress" String_.of_json in
      let readReplicaSourceDBClusterIdentifier =
        field_map json__ "ReadReplicaSourceDBClusterIdentifier"
          String_.of_json in
      let masterUserSecret =
        field_map json__ "MasterUserSecret" MasterUserSecret.of_json in
      let dBSystemId = field_map json__ "DBSystemId" String_.of_json in
      let certificateDetails =
        field_map json__ "CertificateDetails" CertificateDetails.of_json in
      let activityStreamPolicyStatus =
        field_map json__ "ActivityStreamPolicyStatus"
          ActivityStreamPolicyStatus.of_json in
      let customIamInstanceProfile =
        field_map json__ "CustomIamInstanceProfile" String_.of_json in
      let automaticRestartTime =
        field_map json__ "AutomaticRestartTime" TStamp.of_json in
      let backupTarget = field_map json__ "BackupTarget" String_.of_json in
      let dBInstanceAutomatedBackupsReplications =
        field_map json__ "DBInstanceAutomatedBackupsReplications"
          DBInstanceAutomatedBackupsReplicationList.of_json in
      let awsBackupRecoveryPointArn =
        field_map json__ "AwsBackupRecoveryPointArn" String_.of_json in
      let activityStreamEngineNativeAuditFieldsIncluded =
        field_map json__ "ActivityStreamEngineNativeAuditFieldsIncluded"
          BooleanOptional.of_json in
      let activityStreamMode =
        field_map json__ "ActivityStreamMode" ActivityStreamMode.of_json in
      let activityStreamKinesisStreamName =
        field_map json__ "ActivityStreamKinesisStreamName" String_.of_json in
      let activityStreamKmsKeyId =
        field_map json__ "ActivityStreamKmsKeyId" String_.of_json in
      let activityStreamStatus =
        field_map json__ "ActivityStreamStatus" ActivityStreamStatus.of_json in
      let networkType = field_map json__ "NetworkType" String_.of_json in
      let customerOwnedIpEnabled =
        field_map json__ "CustomerOwnedIpEnabled" BooleanOptional.of_json in
      let resumeFullAutomationModeTime =
        field_map json__ "ResumeFullAutomationModeTime" TStamp.of_json in
      let automationMode =
        field_map json__ "AutomationMode" AutomationMode.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let maxAllocatedStorage =
        field_map json__ "MaxAllocatedStorage" IntegerOptional.of_json in
      let listenerEndpoint =
        field_map json__ "ListenerEndpoint" Endpoint.of_json in
      let associatedRoles =
        field_map json__ "AssociatedRoles" DBInstanceRoles.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" Boolean.of_json in
      let processorFeatures =
        field_map json__ "ProcessorFeatures" ProcessorFeatureList.of_json in
      let enabledCloudwatchLogsExports =
        field_map json__ "EnabledCloudwatchLogsExports" LogTypeList.of_json in
      let performanceInsightsRetentionPeriod =
        field_map json__ "PerformanceInsightsRetentionPeriod"
          IntegerOptional.of_json in
      let performanceInsightsKMSKeyId =
        field_map json__ "PerformanceInsightsKMSKeyId" String_.of_json in
      let performanceInsightsEnabled =
        field_map json__ "PerformanceInsightsEnabled" BooleanOptional.of_json in
      let databaseInsightsMode =
        field_map json__ "DatabaseInsightsMode" DatabaseInsightsMode.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled" Boolean.of_json in
      let timezone = field_map json__ "Timezone" String_.of_json in
      let dBInstanceArn = field_map json__ "DBInstanceArn" String_.of_json in
      let promotionTier =
        field_map json__ "PromotionTier" IntegerOptional.of_json in
      let monitoringRoleArn =
        field_map json__ "MonitoringRoleArn" String_.of_json in
      let enhancedMonitoringResourceArn =
        field_map json__ "EnhancedMonitoringResourceArn" String_.of_json in
      let monitoringInterval =
        field_map json__ "MonitoringInterval" IntegerOptional.of_json in
      let copyTagsToSnapshot =
        field_map json__ "CopyTagsToSnapshot" Boolean.of_json in
      let domainMemberships =
        field_map json__ "DomainMemberships" DomainMembershipList.of_json in
      let cACertificateIdentifier =
        field_map json__ "CACertificateIdentifier" String_.of_json in
      let dbiResourceId = field_map json__ "DbiResourceId" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let storageEncrypted =
        field_map json__ "StorageEncrypted" Boolean.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let dbInstancePort = field_map json__ "DbInstancePort" Integer.of_json in
      let tdeCredentialArn =
        field_map json__ "TdeCredentialArn" String_.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let statusInfos =
        field_map json__ "StatusInfos" DBInstanceStatusInfoList.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" Boolean.of_json in
      let secondaryAvailabilityZone =
        field_map json__ "SecondaryAvailabilityZone" String_.of_json in
      let ncharCharacterSetName =
        field_map json__ "NcharCharacterSetName" String_.of_json in
      let characterSetName =
        field_map json__ "CharacterSetName" String_.of_json in
      let optionGroupMemberships =
        field_map json__ "OptionGroupMemberships"
          OptionGroupMembershipList.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let replicaMode = field_map json__ "ReplicaMode" ReplicaMode.of_json in
      let readReplicaDBClusterIdentifiers =
        field_map json__ "ReadReplicaDBClusterIdentifiers"
          ReadReplicaDBClusterIdentifierList.of_json in
      let readReplicaDBInstanceIdentifiers =
        field_map json__ "ReadReplicaDBInstanceIdentifiers"
          ReadReplicaDBInstanceIdentifierList.of_json in
      let readReplicaSourceDBInstanceIdentifier =
        field_map json__ "ReadReplicaSourceDBInstanceIdentifier"
          String_.of_json in
      let autoMinorVersionUpgrade =
        field_map json__ "AutoMinorVersionUpgrade" Boolean.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let multiAZ = field_map json__ "MultiAZ" Boolean.of_json in
      let latestRestorableTime =
        field_map json__ "LatestRestorableTime" TStamp.of_json in
      let pendingModifiedValues =
        field_map json__ "PendingModifiedValues"
          PendingModifiedValues.of_json in
      let upgradeRolloutOrder =
        field_map json__ "UpgradeRolloutOrder" UpgradeRolloutOrder.of_json in
      let preferredMaintenanceWindow =
        field_map json__ "PreferredMaintenanceWindow" String_.of_json in
      let dBSubnetGroup =
        field_map json__ "DBSubnetGroup" DBSubnetGroup.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let dBParameterGroups =
        field_map json__ "DBParameterGroups"
          DBParameterGroupStatusList.of_json in
      let vpcSecurityGroups =
        field_map json__ "VpcSecurityGroups"
          VpcSecurityGroupMembershipList.of_json in
      let dBSecurityGroups =
        field_map json__ "DBSecurityGroups"
          DBSecurityGroupMembershipList.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" Integer.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let instanceCreateTime =
        field_map json__ "InstanceCreateTime" TStamp.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" Integer.of_json in
      let endpoint = field_map json__ "Endpoint" Endpoint.of_json in
      let dBName = field_map json__ "DBName" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let dBInstanceStatus =
        field_map json__ "DBInstanceStatus" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      make ?storageVolumeStatus ?additionalStorageVolumes
        ?engineLifecycleSupport ?isStorageConfigUpgradeAvailable
        ?dedicatedLogVolume ?multiTenant ?percentProgress
        ?readReplicaSourceDBClusterIdentifier ?masterUserSecret ?dBSystemId
        ?certificateDetails ?activityStreamPolicyStatus
        ?customIamInstanceProfile ?automaticRestartTime ?backupTarget
        ?dBInstanceAutomatedBackupsReplications ?awsBackupRecoveryPointArn
        ?activityStreamEngineNativeAuditFieldsIncluded ?activityStreamMode
        ?activityStreamKinesisStreamName ?activityStreamKmsKeyId
        ?activityStreamStatus ?networkType ?customerOwnedIpEnabled
        ?resumeFullAutomationModeTime ?automationMode ?tagList
        ?maxAllocatedStorage ?listenerEndpoint ?associatedRoles
        ?deletionProtection ?processorFeatures ?enabledCloudwatchLogsExports
        ?performanceInsightsRetentionPeriod ?performanceInsightsKMSKeyId
        ?performanceInsightsEnabled ?databaseInsightsMode
        ?iAMDatabaseAuthenticationEnabled ?timezone ?dBInstanceArn
        ?promotionTier ?monitoringRoleArn ?enhancedMonitoringResourceArn
        ?monitoringInterval ?copyTagsToSnapshot ?domainMemberships
        ?cACertificateIdentifier ?dbiResourceId ?kmsKeyId ?storageEncrypted
        ?dBClusterIdentifier ?dbInstancePort ?tdeCredentialArn
        ?storageEncryptionType ?storageType ?statusInfos ?publiclyAccessible
        ?secondaryAvailabilityZone ?ncharCharacterSetName ?characterSetName
        ?optionGroupMemberships ?storageThroughput ?iops ?licenseModel
        ?replicaMode ?readReplicaDBClusterIdentifiers
        ?readReplicaDBInstanceIdentifiers
        ?readReplicaSourceDBInstanceIdentifier ?autoMinorVersionUpgrade
        ?engineVersion ?multiAZ ?latestRestorableTime ?pendingModifiedValues
        ?upgradeRolloutOrder ?preferredMaintenanceWindow ?dBSubnetGroup
        ?availabilityZone ?dBParameterGroups ?vpcSecurityGroups
        ?dBSecurityGroups ?backupRetentionPeriod ?preferredBackupWindow
        ?instanceCreateTime ?allocatedStorage ?endpoint ?dBName
        ?masterUsername ?dBInstanceStatus ?engine ?dBInstanceClass
        ?dBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of an Amazon RDS DB instance. This data type is used as a response element in the operations CreateDBInstance, CreateDBInstanceReadReplica, DeleteDBInstance, DescribeDBInstances, ModifyDBInstance, PromoteReadReplica, RebootDBInstance, RestoreDBInstanceFromDBSnapshot, RestoreDBInstanceFromS3, RestoreDBInstanceToPointInTime, StartDBInstance, and StopDBInstance."]
module DBInstanceAutomatedBackup =
  struct
    type nonrec t =
      {
      dBInstanceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the automated backups."];
      dbiResourceId: String_.t option
        [@ocaml.doc
          "The resource ID for the source DB instance, which can't be changed and which is unique to an Amazon Web Services Region."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region associated with the automated backup."];
      dBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "The identifier for the source DB instance, which can't be changed and which is unique to an Amazon Web Services Region."];
      restoreWindow: RestoreWindow.t option
        [@ocaml.doc
          "The earliest and latest time a DB instance can be restored to."];
      allocatedStorage: Integer.t option
        [@ocaml.doc
          "The allocated storage size for the automated backup in gibibytes (GiB)."];
      status: String_.t option
        [@ocaml.doc
          "A list of status information for an automated backup: active - Automated backups for current instances. retained - Automated backups for deleted instances. creating - Automated backups that are waiting for the first automated snapshot to be available."];
      port: Integer.t option
        [@ocaml.doc
          "The port number that the automated backup used for connections. Default: Inherits from the source DB instance Valid Values: 1150-65535"];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone that the automated backup was created in. For information on Amazon Web Services Regions and Availability Zones, see Regions and Availability Zones."];
      vpcId: String_.t option
        [@ocaml.doc "The VPC ID associated with the DB instance."];
      instanceCreateTime: TStamp.t option
        [@ocaml.doc "The date and time when the DB instance was created."];
      masterUsername: String_.t option
        [@ocaml.doc "The master user name of an automated backup."];
      engine: String_.t option
        [@ocaml.doc
          "The name of the database engine for this automated backup."];
      engineVersion: String_.t option
        [@ocaml.doc
          "The version of the database engine for the automated backup."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model information for the automated backup."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The IOPS (I/O operations per second) value for the automated backup."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc "The storage throughput for the automated backup."];
      optionGroupName: String_.t option
        [@ocaml.doc
          "The option group the automated backup is associated with. If omitted, the default option group for the engine specified is used."];
      tdeCredentialArn: String_.t option
        [@ocaml.doc
          "The ARN from the key store with which the automated backup is associated for TDE encryption."];
      encrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the automated backup is encrypted."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the automated backup. Possible values: none - The automated backup is not encrypted. sse-rds - The automated backup is encrypted using an Amazon Web Services owned KMS key. sse-kms - The automated backup is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      storageType: String_.t option
        [@ocaml.doc "The storage type associated with the automated backup."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key ID for an automated backup. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      timezone: String_.t option
        [@ocaml.doc
          "The time zone of the automated backup. In most cases, the Timezone element is empty. Timezone content appears only for Microsoft SQL Server DB instances that were created with a time zone specified."];
      iAMDatabaseAuthenticationEnabled: Boolean.t option
        [@ocaml.doc
          "True if mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled, and otherwise false."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc "The retention period for the automated backups."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod."];
      dBInstanceAutomatedBackupsArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the replicated automated backups."];
      dBInstanceAutomatedBackupsReplications:
        DBInstanceAutomatedBackupsReplicationList.t option
        [@ocaml.doc
          "The list of replications to different Amazon Web Services Regions associated with the automated backup."];
      backupTarget: String_.t option
        [@ocaml.doc
          "The location where automated backups are stored: Dedicated Local Zones, Amazon Web Services Outposts or the Amazon Web Services Region."];
      multiTenant: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the automatic backup is for a DB instance in the multi-tenant configuration (TRUE) or the single-tenant configuration (FALSE)."];
      awsBackupRecoveryPointArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the recovery point in Amazon Web Services Backup."];
      tagList: TagList.t option ;
      dedicatedLogVolume: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB instance has a dedicated log volume (DLV) enabled."];
      additionalStorageVolumes: AdditionalStorageVolumesList.t option
        [@ocaml.doc
          "The additional storage volumes associated with the automated backup. Valid Values: GP3 | IO2"]}
    let make ?dBInstanceArn =
      fun ?dbiResourceId ->
        fun ?region ->
          fun ?dBInstanceIdentifier ->
            fun ?restoreWindow ->
              fun ?allocatedStorage ->
                fun ?status ->
                  fun ?port ->
                    fun ?availabilityZone ->
                      fun ?vpcId ->
                        fun ?instanceCreateTime ->
                          fun ?masterUsername ->
                            fun ?engine ->
                              fun ?engineVersion ->
                                fun ?licenseModel ->
                                  fun ?iops ->
                                    fun ?storageThroughput ->
                                      fun ?optionGroupName ->
                                        fun ?tdeCredentialArn ->
                                          fun ?encrypted ->
                                            fun ?storageEncryptionType ->
                                              fun ?storageType ->
                                                fun ?kmsKeyId ->
                                                  fun ?timezone ->
                                                    fun
                                                      ?iAMDatabaseAuthenticationEnabled
                                                      ->
                                                      fun
                                                        ?backupRetentionPeriod
                                                        ->
                                                        fun
                                                          ?preferredBackupWindow
                                                          ->
                                                          fun
                                                            ?dBInstanceAutomatedBackupsArn
                                                            ->
                                                            fun
                                                              ?dBInstanceAutomatedBackupsReplications
                                                              ->
                                                              fun
                                                                ?backupTarget
                                                                ->
                                                                fun
                                                                  ?multiTenant
                                                                  ->
                                                                  fun
                                                                    ?awsBackupRecoveryPointArn
                                                                    ->
                                                                    fun
                                                                    ?tagList
                                                                    ->
                                                                    fun
                                                                    ?dedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?additionalStorageVolumes
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    dBInstanceArn;
                                                                    dbiResourceId;
                                                                    region;
                                                                    dBInstanceIdentifier;
                                                                    restoreWindow;
                                                                    allocatedStorage;
                                                                    status;
                                                                    port;
                                                                    availabilityZone;
                                                                    vpcId;
                                                                    instanceCreateTime;
                                                                    masterUsername;
                                                                    engine;
                                                                    engineVersion;
                                                                    licenseModel;
                                                                    iops;
                                                                    storageThroughput;
                                                                    optionGroupName;
                                                                    tdeCredentialArn;
                                                                    encrypted;
                                                                    storageEncryptionType;
                                                                    storageType;
                                                                    kmsKeyId;
                                                                    timezone;
                                                                    iAMDatabaseAuthenticationEnabled;
                                                                    backupRetentionPeriod;
                                                                    preferredBackupWindow;
                                                                    dBInstanceAutomatedBackupsArn;
                                                                    dBInstanceAutomatedBackupsReplications;
                                                                    backupTarget;
                                                                    multiTenant;
                                                                    awsBackupRecoveryPointArn;
                                                                    tagList;
                                                                    dedicatedLogVolume;
                                                                    additionalStorageVolumes
                                                                    }
    let to_value x =
      structure_to_value
        [("DBInstanceArn", (Option.map x.dBInstanceArn ~f:String_.to_value));
        ("DbiResourceId", (Option.map x.dbiResourceId ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("DBInstanceIdentifier",
          (Option.map x.dBInstanceIdentifier ~f:String_.to_value));
        ("RestoreWindow",
          (Option.map x.restoreWindow ~f:RestoreWindow.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:Integer.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:Integer.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("InstanceCreateTime",
          (Option.map x.instanceCreateTime ~f:TStamp.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("OptionGroupName",
          (Option.map x.optionGroupName ~f:String_.to_value));
        ("TdeCredentialArn",
          (Option.map x.tdeCredentialArn ~f:String_.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("Timezone", (Option.map x.timezone ~f:String_.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled ~f:Boolean.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("DBInstanceAutomatedBackupsArn",
          (Option.map x.dBInstanceAutomatedBackupsArn ~f:String_.to_value));
        ("DBInstanceAutomatedBackupsReplications",
          (Option.map x.dBInstanceAutomatedBackupsReplications
             ~f:DBInstanceAutomatedBackupsReplicationList.to_value));
        ("BackupTarget", (Option.map x.backupTarget ~f:String_.to_value));
        ("MultiTenant",
          (Option.map x.multiTenant ~f:BooleanOptional.to_value));
        ("AwsBackupRecoveryPointArn",
          (Option.map x.awsBackupRecoveryPointArn ~f:String_.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:BooleanOptional.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let dedicatedLogVolume =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let awsBackupRecoveryPointArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AwsBackupRecoveryPointArn") in
      let multiTenant =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "MultiTenant") in
      let backupTarget =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BackupTarget") in
      let dBInstanceAutomatedBackupsReplications =
        (Option.map ~f:DBInstanceAutomatedBackupsReplicationList.of_xml)
          (Xml.child xml_arg0 "DBInstanceAutomatedBackupsReplications") in
      let dBInstanceAutomatedBackupsArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceAutomatedBackupsArn") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let timezone =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Timezone") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let tdeCredentialArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TdeCredentialArn") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let instanceCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "InstanceCreateTime") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let port = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Port") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let allocatedStorage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let restoreWindow =
        (Option.map ~f:RestoreWindow.of_xml)
          (Xml.child xml_arg0 "RestoreWindow") in
      let dBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBInstanceIdentifier") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let dbiResourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DbiResourceId") in
      let dBInstanceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceArn") in
      make ?additionalStorageVolumes ?dedicatedLogVolume ?tagList
        ?awsBackupRecoveryPointArn ?multiTenant ?backupTarget
        ?dBInstanceAutomatedBackupsReplications
        ?dBInstanceAutomatedBackupsArn ?preferredBackupWindow
        ?backupRetentionPeriod ?iAMDatabaseAuthenticationEnabled ?timezone
        ?kmsKeyId ?storageType ?storageEncryptionType ?encrypted
        ?tdeCredentialArn ?optionGroupName ?storageThroughput ?iops
        ?licenseModel ?engineVersion ?engine ?masterUsername
        ?instanceCreateTime ?vpcId ?availabilityZone ?port ?status
        ?allocatedStorage ?restoreWindow ?dBInstanceIdentifier ?region
        ?dbiResourceId ?dBInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesList.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" BooleanOptional.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let awsBackupRecoveryPointArn =
        field_map json__ "AwsBackupRecoveryPointArn" String_.of_json in
      let multiTenant =
        field_map json__ "MultiTenant" BooleanOptional.of_json in
      let backupTarget = field_map json__ "BackupTarget" String_.of_json in
      let dBInstanceAutomatedBackupsReplications =
        field_map json__ "DBInstanceAutomatedBackupsReplications"
          DBInstanceAutomatedBackupsReplicationList.of_json in
      let dBInstanceAutomatedBackupsArn =
        field_map json__ "DBInstanceAutomatedBackupsArn" String_.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled" Boolean.of_json in
      let timezone = field_map json__ "Timezone" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      let tdeCredentialArn =
        field_map json__ "TdeCredentialArn" String_.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let instanceCreateTime =
        field_map json__ "InstanceCreateTime" TStamp.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let port = field_map json__ "Port" Integer.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" Integer.of_json in
      let restoreWindow =
        field_map json__ "RestoreWindow" RestoreWindow.of_json in
      let dBInstanceIdentifier =
        field_map json__ "DBInstanceIdentifier" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let dbiResourceId = field_map json__ "DbiResourceId" String_.of_json in
      let dBInstanceArn = field_map json__ "DBInstanceArn" String_.of_json in
      make ?additionalStorageVolumes ?dedicatedLogVolume ?tagList
        ?awsBackupRecoveryPointArn ?multiTenant ?backupTarget
        ?dBInstanceAutomatedBackupsReplications
        ?dBInstanceAutomatedBackupsArn ?preferredBackupWindow
        ?backupRetentionPeriod ?iAMDatabaseAuthenticationEnabled ?timezone
        ?kmsKeyId ?storageType ?storageEncryptionType ?encrypted
        ?tdeCredentialArn ?optionGroupName ?storageThroughput ?iops
        ?licenseModel ?engineVersion ?engine ?masterUsername
        ?instanceCreateTime ?vpcId ?availabilityZone ?port ?status
        ?allocatedStorage ?restoreWindow ?dBInstanceIdentifier ?region
        ?dbiResourceId ?dBInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An automated backup of a DB instance. It consists of system backups, transaction logs, and the database instance properties that existed at the time you deleted the source instance."]
module DBEngineVersion =
  struct
    type createCustomDBEngineVersionResult =
      {
      engine: String_.t option
        [@ocaml.doc "The name of the database engine."];
      majorEngineVersion: String_.t option
        [@ocaml.doc "The major engine version of the CEV."];
      engineVersion: String_.t option
        [@ocaml.doc "The version number of the database engine."];
      databaseInstallationFilesS3BucketName: String_.t option
        [@ocaml.doc
          "The name of the Amazon S3 bucket that contains your database installation files."];
      databaseInstallationFilesS3Prefix: String_.t option
        [@ocaml.doc
          "The Amazon S3 directory that contains the database installation files. If not specified, then no prefix is assumed."];
      databaseInstallationFiles: StringList.t option
        [@ocaml.doc
          "The database installation files (ISO and EXE) uploaded to Amazon S3 for your database engine version to import to Amazon RDS. Required for sqlserver-dev-ee."];
      customDBEngineVersionManifest: CustomDBEngineVersionManifest.t option
        [@ocaml.doc
          "JSON string that lists the installation files and parameters that RDS Custom uses to create a custom engine version (CEV). RDS Custom applies the patches in the order in which they're listed in the manifest. You can set the Oracle home, Oracle base, and UNIX/Linux user and group using the installation parameters. For more information, see JSON fields in the CEV manifest in the Amazon RDS User Guide."];
      dBParameterGroupFamily: String_.t option
        [@ocaml.doc
          "The name of the DB parameter group family for the database engine."];
      dBEngineDescription: String_.t option
        [@ocaml.doc "The description of the database engine."];
      dBEngineVersionArn: String_.t option
        [@ocaml.doc "The ARN of the custom engine version."];
      dBEngineVersionDescription: String_.t option
        [@ocaml.doc "The description of the database engine version."];
      defaultCharacterSet: CharacterSet.t option
        [@ocaml.doc
          "The default character set for new instances of this engine version, if the CharacterSetName parameter of the CreateDBInstance API isn't specified."];
      failureReason: String_.t option
        [@ocaml.doc
          "The reason that the custom engine version creation for sqlserver-dev-ee failed with an incompatible-installation-media status."];
      image: CustomDBEngineVersionAMI.t option [@ocaml.doc "The EC2 image"];
      dBEngineMediaType: String_.t option
        [@ocaml.doc
          "A value that indicates the source media provider of the AMI based on the usage operation. Applicable for RDS Custom for SQL Server."];
      kMSKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for an encrypted CEV. This parameter is required for RDS Custom, but optional for Amazon RDS."];
      createTime: TStamp.t option
        [@ocaml.doc "The creation time of the DB engine version."];
      supportedCharacterSets: SupportedCharacterSetsList.t option
        [@ocaml.doc
          "A list of the character sets supported by this engine for the CharacterSetName parameter of the CreateDBInstance operation."];
      supportedNcharCharacterSets: SupportedCharacterSetsList.t option
        [@ocaml.doc
          "A list of the character sets supported by the Oracle DB engine for the NcharCharacterSetName parameter of the CreateDBInstance operation."];
      validUpgradeTarget: ValidUpgradeTargetList.t option
        [@ocaml.doc
          "A list of engine versions that this database engine version can be upgraded to."];
      supportedTimezones: SupportedTimezonesList.t option
        [@ocaml.doc
          "A list of the time zones supported by this engine for the Timezone parameter of the CreateDBInstance action."];
      exportableLogTypes: LogTypeList.t option
        [@ocaml.doc
          "The types of logs that the database engine has available for export to CloudWatch Logs."];
      supportsLogExportsToCloudwatchLogs: Boolean.t option
        [@ocaml.doc
          "Indicates whether the engine version supports exporting the log types specified by ExportableLogTypes to CloudWatch Logs."];
      supportsReadReplica: Boolean.t option
        [@ocaml.doc
          "Indicates whether the database engine version supports read replicas."];
      supportedEngineModes: EngineModeList.t option
        [@ocaml.doc "A list of the supported DB engine modes."];
      supportedFeatureNames: FeatureNameList.t option
        [@ocaml.doc
          "A list of features supported by the DB engine. The supported features vary by DB engine and DB engine version. To determine the supported features for a specific DB engine and DB engine version using the CLI, use the following command: aws rds describe-db-engine-versions --engine <engine_name> --engine-version <engine_version> For example, to determine the supported features for RDS for PostgreSQL version 13.3 using the CLI, use the following command: aws rds describe-db-engine-versions --engine postgres --engine-version 13.3 The supported features are listed under SupportedFeatureNames in the output."];
      status: String_.t option
        [@ocaml.doc
          "The status of the DB engine version, either available or deprecated."];
      supportsParallelQuery: Boolean.t option
        [@ocaml.doc
          "Indicates whether you can use Aurora parallel query with a specific DB engine version."];
      supportsGlobalDatabases: Boolean.t option
        [@ocaml.doc
          "Indicates whether you can use Aurora global databases with a specific DB engine version."];
      tagList: TagList.t option ;
      supportsBabelfish: Boolean.t option
        [@ocaml.doc
          "Indicates whether the engine version supports Babelfish for Aurora PostgreSQL."];
      supportsLimitlessDatabase: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB engine version supports Aurora Limitless Database."];
      supportsCertificateRotationWithoutRestart: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the engine version supports rotating the server certificate without rebooting the DB instance."];
      supportedCACertificateIdentifiers:
        CACertificateIdentifiersList.t option
        [@ocaml.doc
          "A list of the supported CA certificate identifiers. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."];
      supportsLocalWriteForwarding: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB engine version supports forwarding write operations from reader DB instances to the writer DB instance in the DB cluster. By default, write operations aren't allowed on reader DB instances. Valid for: Aurora DB clusters only"];
      supportsIntegrations: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB engine version supports zero-ETL integrations with Amazon Redshift."];
      serverlessV2FeaturesSupport: ServerlessV2FeaturesSupport.t option
        [@ocaml.doc
          "Specifies any Aurora Serverless v2 properties or limits that differ between Aurora engine versions. You can test the values of this attribute when deciding which Aurora version to use in a new or upgraded DB cluster. You can also retrieve the version of an existing DB cluster and check whether that version supports certain Aurora Serverless v2 features before you attempt to use those features."]}
    and responseMetaData = unit
    and t =
      {
      createCustomDBEngineVersionResult: createCustomDBEngineVersionResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `CreateCustomDBEngineVersionFault of
          CreateCustomDBEngineVersionFault.t 
      | `CustomDBEngineVersionAlreadyExistsFault of
          CustomDBEngineVersionAlreadyExistsFault.t 
      | `CustomDBEngineVersionNotFoundFault of
          CustomDBEngineVersionNotFoundFault.t 
      | `CustomDBEngineVersionQuotaExceededFault of
          CustomDBEngineVersionQuotaExceededFault.t 
      | `Ec2ImagePropertiesNotSupportedFault of
          Ec2ImagePropertiesNotSupportedFault.t 
      | `InvalidCustomDBEngineVersionStateFault of
          InvalidCustomDBEngineVersionStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DBEngineVersion"
    let make ?engine =
      fun ?majorEngineVersion ->
        fun ?engineVersion ->
          fun ?databaseInstallationFilesS3BucketName ->
            fun ?databaseInstallationFilesS3Prefix ->
              fun ?databaseInstallationFiles ->
                fun ?customDBEngineVersionManifest ->
                  fun ?dBParameterGroupFamily ->
                    fun ?dBEngineDescription ->
                      fun ?dBEngineVersionArn ->
                        fun ?dBEngineVersionDescription ->
                          fun ?defaultCharacterSet ->
                            fun ?failureReason ->
                              fun ?image ->
                                fun ?dBEngineMediaType ->
                                  fun ?kMSKeyId ->
                                    fun ?createTime ->
                                      fun ?supportedCharacterSets ->
                                        fun ?supportedNcharCharacterSets ->
                                          fun ?validUpgradeTarget ->
                                            fun ?supportedTimezones ->
                                              fun ?exportableLogTypes ->
                                                fun
                                                  ?supportsLogExportsToCloudwatchLogs
                                                  ->
                                                  fun ?supportsReadReplica ->
                                                    fun ?supportedEngineModes
                                                      ->
                                                      fun
                                                        ?supportedFeatureNames
                                                        ->
                                                        fun ?status ->
                                                          fun
                                                            ?supportsParallelQuery
                                                            ->
                                                            fun
                                                              ?supportsGlobalDatabases
                                                              ->
                                                              fun ?tagList ->
                                                                fun
                                                                  ?supportsBabelfish
                                                                  ->
                                                                  fun
                                                                    ?supportsLimitlessDatabase
                                                                    ->
                                                                    fun
                                                                    ?supportsCertificateRotationWithoutRestart
                                                                    ->
                                                                    fun
                                                                    ?supportedCACertificateIdentifiers
                                                                    ->
                                                                    fun
                                                                    ?supportsLocalWriteForwarding
                                                                    ->
                                                                    fun
                                                                    ?supportsIntegrations
                                                                    ->
                                                                    fun
                                                                    ?serverlessV2FeaturesSupport
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    createCustomDBEngineVersionResult
                                                                    =
                                                                    {
                                                                    engine;
                                                                    majorEngineVersion;
                                                                    engineVersion;
                                                                    databaseInstallationFilesS3BucketName;
                                                                    databaseInstallationFilesS3Prefix;
                                                                    databaseInstallationFiles;
                                                                    customDBEngineVersionManifest;
                                                                    dBParameterGroupFamily;
                                                                    dBEngineDescription;
                                                                    dBEngineVersionArn;
                                                                    dBEngineVersionDescription;
                                                                    defaultCharacterSet;
                                                                    failureReason;
                                                                    image;
                                                                    dBEngineMediaType;
                                                                    kMSKeyId;
                                                                    createTime;
                                                                    supportedCharacterSets;
                                                                    supportedNcharCharacterSets;
                                                                    validUpgradeTarget;
                                                                    supportedTimezones;
                                                                    exportableLogTypes;
                                                                    supportsLogExportsToCloudwatchLogs;
                                                                    supportsReadReplica;
                                                                    supportedEngineModes;
                                                                    supportedFeatureNames;
                                                                    status;
                                                                    supportsParallelQuery;
                                                                    supportsGlobalDatabases;
                                                                    tagList;
                                                                    supportsBabelfish;
                                                                    supportsLimitlessDatabase;
                                                                    supportsCertificateRotationWithoutRestart;
                                                                    supportedCACertificateIdentifiers;
                                                                    supportsLocalWriteForwarding;
                                                                    supportsIntegrations;
                                                                    serverlessV2FeaturesSupport
                                                                    };
                                                                    responseMetaData
                                                                    = ()
                                                                    }
    let error_of_json name json =
      match name with
      | "CreateCustomDBEngineVersionFault" ->
          `CreateCustomDBEngineVersionFault
            (CreateCustomDBEngineVersionFault.of_json json)
      | "CustomDBEngineVersionAlreadyExistsFault" ->
          `CustomDBEngineVersionAlreadyExistsFault
            (CustomDBEngineVersionAlreadyExistsFault.of_json json)
      | "CustomDBEngineVersionNotFoundFault" ->
          `CustomDBEngineVersionNotFoundFault
            (CustomDBEngineVersionNotFoundFault.of_json json)
      | "CustomDBEngineVersionQuotaExceededFault" ->
          `CustomDBEngineVersionQuotaExceededFault
            (CustomDBEngineVersionQuotaExceededFault.of_json json)
      | "Ec2ImagePropertiesNotSupportedFault" ->
          `Ec2ImagePropertiesNotSupportedFault
            (Ec2ImagePropertiesNotSupportedFault.of_json json)
      | "InvalidCustomDBEngineVersionStateFault" ->
          `InvalidCustomDBEngineVersionStateFault
            (InvalidCustomDBEngineVersionStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CreateCustomDBEngineVersionFault" ->
          `CreateCustomDBEngineVersionFault
            (CreateCustomDBEngineVersionFault.of_xml xml)
      | "CustomDBEngineVersionAlreadyExistsFault" ->
          `CustomDBEngineVersionAlreadyExistsFault
            (CustomDBEngineVersionAlreadyExistsFault.of_xml xml)
      | "CustomDBEngineVersionNotFoundFault" ->
          `CustomDBEngineVersionNotFoundFault
            (CustomDBEngineVersionNotFoundFault.of_xml xml)
      | "CustomDBEngineVersionQuotaExceededFault" ->
          `CustomDBEngineVersionQuotaExceededFault
            (CustomDBEngineVersionQuotaExceededFault.of_xml xml)
      | "Ec2ImagePropertiesNotSupportedFault" ->
          `Ec2ImagePropertiesNotSupportedFault
            (Ec2ImagePropertiesNotSupportedFault.of_xml xml)
      | "InvalidCustomDBEngineVersionStateFault" ->
          `InvalidCustomDBEngineVersionStateFault
            (InvalidCustomDBEngineVersionStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CreateCustomDBEngineVersionFault e ->
          `Assoc
            [("error", (`String "CreateCustomDBEngineVersionFault"));
            ("details", (CreateCustomDBEngineVersionFault.to_json e))]
      | `CustomDBEngineVersionAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "CustomDBEngineVersionAlreadyExistsFault"));
            ("details", (CustomDBEngineVersionAlreadyExistsFault.to_json e))]
      | `CustomDBEngineVersionNotFoundFault e ->
          `Assoc
            [("error", (`String "CustomDBEngineVersionNotFoundFault"));
            ("details", (CustomDBEngineVersionNotFoundFault.to_json e))]
      | `CustomDBEngineVersionQuotaExceededFault e ->
          `Assoc
            [("error", (`String "CustomDBEngineVersionQuotaExceededFault"));
            ("details", (CustomDBEngineVersionQuotaExceededFault.to_json e))]
      | `Ec2ImagePropertiesNotSupportedFault e ->
          `Assoc
            [("error", (`String "Ec2ImagePropertiesNotSupportedFault"));
            ("details", (Ec2ImagePropertiesNotSupportedFault.to_json e))]
      | `InvalidCustomDBEngineVersionStateFault e ->
          `Assoc
            [("error", (`String "InvalidCustomDBEngineVersionStateFault"));
            ("details", (InvalidCustomDBEngineVersionStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createCustomDBEngineVersionResult in
      structure_to_wrapped_value
        [("Engine", (Option.map x.engine ~f:String_.to_value));
        ("MajorEngineVersion",
          (Option.map x.majorEngineVersion ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("DatabaseInstallationFilesS3BucketName",
          (Option.map x.databaseInstallationFilesS3BucketName
             ~f:String_.to_value));
        ("DatabaseInstallationFilesS3Prefix",
          (Option.map x.databaseInstallationFilesS3Prefix ~f:String_.to_value));
        ("DatabaseInstallationFiles",
          (Option.map x.databaseInstallationFiles ~f:StringList.to_value));
        ("CustomDBEngineVersionManifest",
          (Option.map x.customDBEngineVersionManifest
             ~f:CustomDBEngineVersionManifest.to_value));
        ("DBParameterGroupFamily",
          (Option.map x.dBParameterGroupFamily ~f:String_.to_value));
        ("DBEngineDescription",
          (Option.map x.dBEngineDescription ~f:String_.to_value));
        ("DBEngineVersionArn",
          (Option.map x.dBEngineVersionArn ~f:String_.to_value));
        ("DBEngineVersionDescription",
          (Option.map x.dBEngineVersionDescription ~f:String_.to_value));
        ("DefaultCharacterSet",
          (Option.map x.defaultCharacterSet ~f:CharacterSet.to_value));
        ("FailureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("Image", (Option.map x.image ~f:CustomDBEngineVersionAMI.to_value));
        ("DBEngineMediaType",
          (Option.map x.dBEngineMediaType ~f:String_.to_value));
        ("KMSKeyId", (Option.map x.kMSKeyId ~f:String_.to_value));
        ("CreateTime", (Option.map x.createTime ~f:TStamp.to_value));
        ("SupportedCharacterSets",
          (Option.map x.supportedCharacterSets
             ~f:SupportedCharacterSetsList.to_value));
        ("SupportedNcharCharacterSets",
          (Option.map x.supportedNcharCharacterSets
             ~f:SupportedCharacterSetsList.to_value));
        ("ValidUpgradeTarget",
          (Option.map x.validUpgradeTarget ~f:ValidUpgradeTargetList.to_value));
        ("SupportedTimezones",
          (Option.map x.supportedTimezones ~f:SupportedTimezonesList.to_value));
        ("ExportableLogTypes",
          (Option.map x.exportableLogTypes ~f:LogTypeList.to_value));
        ("SupportsLogExportsToCloudwatchLogs",
          (Option.map x.supportsLogExportsToCloudwatchLogs
             ~f:Boolean.to_value));
        ("SupportsReadReplica",
          (Option.map x.supportsReadReplica ~f:Boolean.to_value));
        ("SupportedEngineModes",
          (Option.map x.supportedEngineModes ~f:EngineModeList.to_value));
        ("SupportedFeatureNames",
          (Option.map x.supportedFeatureNames ~f:FeatureNameList.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("SupportsParallelQuery",
          (Option.map x.supportsParallelQuery ~f:Boolean.to_value));
        ("SupportsGlobalDatabases",
          (Option.map x.supportsGlobalDatabases ~f:Boolean.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("SupportsBabelfish",
          (Option.map x.supportsBabelfish ~f:Boolean.to_value));
        ("SupportsLimitlessDatabase",
          (Option.map x.supportsLimitlessDatabase ~f:Boolean.to_value));
        ("SupportsCertificateRotationWithoutRestart",
          (Option.map x.supportsCertificateRotationWithoutRestart
             ~f:BooleanOptional.to_value));
        ("SupportedCACertificateIdentifiers",
          (Option.map x.supportedCACertificateIdentifiers
             ~f:CACertificateIdentifiersList.to_value));
        ("SupportsLocalWriteForwarding",
          (Option.map x.supportsLocalWriteForwarding
             ~f:BooleanOptional.to_value));
        ("SupportsIntegrations",
          (Option.map x.supportsIntegrations ~f:Boolean.to_value));
        ("ServerlessV2FeaturesSupport",
          (Option.map x.serverlessV2FeaturesSupport
             ~f:ServerlessV2FeaturesSupport.to_value))]
        ~wrapper:"CreateCustomDBEngineVersionResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateCustomDBEngineVersionResult" in
      let serverlessV2FeaturesSupport =
        (Option.map ~f:ServerlessV2FeaturesSupport.of_xml)
          (Xml.child xml_arg0 "ServerlessV2FeaturesSupport") in
      let supportsIntegrations =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsIntegrations") in
      let supportsLocalWriteForwarding =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsLocalWriteForwarding") in
      let supportedCACertificateIdentifiers =
        (Option.map ~f:CACertificateIdentifiersList.of_xml)
          (Xml.child xml_arg0 "SupportedCACertificateIdentifiers") in
      let supportsCertificateRotationWithoutRestart =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "SupportsCertificateRotationWithoutRestart") in
      let supportsLimitlessDatabase =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsLimitlessDatabase") in
      let supportsBabelfish =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsBabelfish") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let supportsGlobalDatabases =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsGlobalDatabases") in
      let supportsParallelQuery =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsParallelQuery") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let supportedFeatureNames =
        (Option.map ~f:FeatureNameList.of_xml)
          (Xml.child xml_arg0 "SupportedFeatureNames") in
      let supportedEngineModes =
        (Option.map ~f:EngineModeList.of_xml)
          (Xml.child xml_arg0 "SupportedEngineModes") in
      let supportsReadReplica =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsReadReplica") in
      let supportsLogExportsToCloudwatchLogs =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsLogExportsToCloudwatchLogs") in
      let exportableLogTypes =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "ExportableLogTypes") in
      let supportedTimezones =
        (Option.map ~f:SupportedTimezonesList.of_xml)
          (Xml.child xml_arg0 "SupportedTimezones") in
      let validUpgradeTarget =
        (Option.map ~f:ValidUpgradeTargetList.of_xml)
          (Xml.child xml_arg0 "ValidUpgradeTarget") in
      let supportedNcharCharacterSets =
        (Option.map ~f:SupportedCharacterSetsList.of_xml)
          (Xml.child xml_arg0 "SupportedNcharCharacterSets") in
      let supportedCharacterSets =
        (Option.map ~f:SupportedCharacterSetsList.of_xml)
          (Xml.child xml_arg0 "SupportedCharacterSets") in
      let createTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let kMSKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KMSKeyId") in
      let dBEngineMediaType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBEngineMediaType") in
      let image =
        (Option.map ~f:CustomDBEngineVersionAMI.of_xml)
          (Xml.child xml_arg0 "Image") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureReason") in
      let defaultCharacterSet =
        (Option.map ~f:CharacterSet.of_xml)
          (Xml.child xml_arg0 "DefaultCharacterSet") in
      let dBEngineVersionDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBEngineVersionDescription") in
      let dBEngineVersionArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBEngineVersionArn") in
      let dBEngineDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBEngineDescription") in
      let dBParameterGroupFamily =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupFamily") in
      let customDBEngineVersionManifest =
        (Option.map ~f:CustomDBEngineVersionManifest.of_xml)
          (Xml.child xml_arg0 "CustomDBEngineVersionManifest") in
      let databaseInstallationFiles =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "DatabaseInstallationFiles") in
      let databaseInstallationFilesS3Prefix =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DatabaseInstallationFilesS3Prefix") in
      let databaseInstallationFilesS3BucketName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DatabaseInstallationFilesS3BucketName") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let majorEngineVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MajorEngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      make ?serverlessV2FeaturesSupport ?supportsIntegrations
        ?supportsLocalWriteForwarding ?supportedCACertificateIdentifiers
        ?supportsCertificateRotationWithoutRestart ?supportsLimitlessDatabase
        ?supportsBabelfish ?tagList ?supportsGlobalDatabases
        ?supportsParallelQuery ?status ?supportedFeatureNames
        ?supportedEngineModes ?supportsReadReplica
        ?supportsLogExportsToCloudwatchLogs ?exportableLogTypes
        ?supportedTimezones ?validUpgradeTarget ?supportedNcharCharacterSets
        ?supportedCharacterSets ?createTime ?kMSKeyId ?dBEngineMediaType
        ?image ?failureReason ?defaultCharacterSet
        ?dBEngineVersionDescription ?dBEngineVersionArn ?dBEngineDescription
        ?dBParameterGroupFamily ?customDBEngineVersionManifest
        ?databaseInstallationFiles ?databaseInstallationFilesS3Prefix
        ?databaseInstallationFilesS3BucketName ?engineVersion
        ?majorEngineVersion ?engine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverlessV2FeaturesSupport =
        field_map json__ "ServerlessV2FeaturesSupport"
          ServerlessV2FeaturesSupport.of_json in
      let supportsIntegrations =
        field_map json__ "SupportsIntegrations" Boolean.of_json in
      let supportsLocalWriteForwarding =
        field_map json__ "SupportsLocalWriteForwarding"
          BooleanOptional.of_json in
      let supportedCACertificateIdentifiers =
        field_map json__ "SupportedCACertificateIdentifiers"
          CACertificateIdentifiersList.of_json in
      let supportsCertificateRotationWithoutRestart =
        field_map json__ "SupportsCertificateRotationWithoutRestart"
          BooleanOptional.of_json in
      let supportsLimitlessDatabase =
        field_map json__ "SupportsLimitlessDatabase" Boolean.of_json in
      let supportsBabelfish =
        field_map json__ "SupportsBabelfish" Boolean.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let supportsGlobalDatabases =
        field_map json__ "SupportsGlobalDatabases" Boolean.of_json in
      let supportsParallelQuery =
        field_map json__ "SupportsParallelQuery" Boolean.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let supportedFeatureNames =
        field_map json__ "SupportedFeatureNames" FeatureNameList.of_json in
      let supportedEngineModes =
        field_map json__ "SupportedEngineModes" EngineModeList.of_json in
      let supportsReadReplica =
        field_map json__ "SupportsReadReplica" Boolean.of_json in
      let supportsLogExportsToCloudwatchLogs =
        field_map json__ "SupportsLogExportsToCloudwatchLogs" Boolean.of_json in
      let exportableLogTypes =
        field_map json__ "ExportableLogTypes" LogTypeList.of_json in
      let supportedTimezones =
        field_map json__ "SupportedTimezones" SupportedTimezonesList.of_json in
      let validUpgradeTarget =
        field_map json__ "ValidUpgradeTarget" ValidUpgradeTargetList.of_json in
      let supportedNcharCharacterSets =
        field_map json__ "SupportedNcharCharacterSets"
          SupportedCharacterSetsList.of_json in
      let supportedCharacterSets =
        field_map json__ "SupportedCharacterSets"
          SupportedCharacterSetsList.of_json in
      let createTime = field_map json__ "CreateTime" TStamp.of_json in
      let kMSKeyId = field_map json__ "KMSKeyId" String_.of_json in
      let dBEngineMediaType =
        field_map json__ "DBEngineMediaType" String_.of_json in
      let image = field_map json__ "Image" CustomDBEngineVersionAMI.of_json in
      let failureReason = field_map json__ "FailureReason" String_.of_json in
      let defaultCharacterSet =
        field_map json__ "DefaultCharacterSet" CharacterSet.of_json in
      let dBEngineVersionDescription =
        field_map json__ "DBEngineVersionDescription" String_.of_json in
      let dBEngineVersionArn =
        field_map json__ "DBEngineVersionArn" String_.of_json in
      let dBEngineDescription =
        field_map json__ "DBEngineDescription" String_.of_json in
      let dBParameterGroupFamily =
        field_map json__ "DBParameterGroupFamily" String_.of_json in
      let customDBEngineVersionManifest =
        field_map json__ "CustomDBEngineVersionManifest"
          CustomDBEngineVersionManifest.of_json in
      let databaseInstallationFiles =
        field_map json__ "DatabaseInstallationFiles" StringList.of_json in
      let databaseInstallationFilesS3Prefix =
        field_map json__ "DatabaseInstallationFilesS3Prefix" String_.of_json in
      let databaseInstallationFilesS3BucketName =
        field_map json__ "DatabaseInstallationFilesS3BucketName"
          String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let majorEngineVersion =
        field_map json__ "MajorEngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      make ?serverlessV2FeaturesSupport ?supportsIntegrations
        ?supportsLocalWriteForwarding ?supportedCACertificateIdentifiers
        ?supportsCertificateRotationWithoutRestart ?supportsLimitlessDatabase
        ?supportsBabelfish ?tagList ?supportsGlobalDatabases
        ?supportsParallelQuery ?status ?supportedFeatureNames
        ?supportedEngineModes ?supportsReadReplica
        ?supportsLogExportsToCloudwatchLogs ?exportableLogTypes
        ?supportedTimezones ?validUpgradeTarget ?supportedNcharCharacterSets
        ?supportedCharacterSets ?createTime ?kMSKeyId ?dBEngineMediaType
        ?image ?failureReason ?defaultCharacterSet
        ?dBEngineVersionDescription ?dBEngineVersionArn ?dBEngineDescription
        ?dBParameterGroupFamily ?customDBEngineVersionManifest
        ?databaseInstallationFiles ?databaseInstallationFilesS3Prefix
        ?databaseInstallationFilesS3BucketName ?engineVersion
        ?majorEngineVersion ?engine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the action DescribeDBEngineVersions."]
module DBClusterSnapshot =
  struct
    type nonrec t =
      {
      availabilityZones: AvailabilityZones.t option
        [@ocaml.doc
          "The list of Availability Zones (AZs) where instances in the DB cluster snapshot can be restored."];
      dBClusterSnapshotIdentifier: String_.t option
        [@ocaml.doc "The identifier for the DB cluster snapshot."];
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The DB cluster identifier of the DB cluster that this DB cluster snapshot was created from."];
      snapshotCreateTime: TStamp.t option
        [@ocaml.doc
          "The time when the snapshot was taken, in Universal Coordinated Time (UTC)."];
      engine: String_.t option
        [@ocaml.doc
          "The name of the database engine for this DB cluster snapshot."];
      engineMode: String_.t option
        [@ocaml.doc
          "The engine mode of the database engine for this DB cluster snapshot."];
      allocatedStorage: Integer.t option
        [@ocaml.doc
          "The allocated storage size of the DB cluster snapshot in gibibytes (GiB)."];
      status: String_.t option
        [@ocaml.doc
          "The status of this DB cluster snapshot. Valid statuses are the following: available copying creating"];
      port: Integer.t option
        [@ocaml.doc
          "The port that the DB cluster was listening on at the time of the snapshot."];
      vpcId: String_.t option
        [@ocaml.doc "The VPC ID associated with the DB cluster snapshot."];
      clusterCreateTime: TStamp.t option
        [@ocaml.doc
          "The time when the DB cluster was created, in Universal Coordinated Time (UTC)."];
      masterUsername: String_.t option
        [@ocaml.doc "The master username for this DB cluster snapshot."];
      engineVersion: String_.t option
        [@ocaml.doc
          "The version of the database engine for this DB cluster snapshot."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model information for this DB cluster snapshot."];
      snapshotType: String_.t option
        [@ocaml.doc "The type of the DB cluster snapshot."];
      percentProgress: Integer.t option
        [@ocaml.doc
          "The percentage of the estimated data that has been transferred."];
      storageEncrypted: Boolean.t option
        [@ocaml.doc
          "Indicates whether the DB cluster snapshot is encrypted."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the DB cluster snapshot. Possible values: none - The DB cluster snapshot is not encrypted. sse-rds - The DB cluster snapshot is encrypted using an Amazon Web Services owned KMS key. sse-kms - The DB cluster snapshot is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automatic DB snapshots are retained."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "If StorageEncrypted is true, the Amazon Web Services KMS key identifier for the encrypted DB cluster snapshot. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      dBClusterSnapshotArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the DB cluster snapshot."];
      sourceDBClusterSnapshotArn: String_.t option
        [@ocaml.doc
          "If the DB cluster snapshot was copied from a source DB cluster snapshot, the Amazon Resource Name (ARN) for the source DB cluster snapshot, otherwise, a null value."];
      iAMDatabaseAuthenticationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled."];
      tagList: TagList.t option ;
      storageType: String_.t option
        [@ocaml.doc
          "The storage type associated with the DB cluster snapshot. This setting is only for Aurora DB clusters."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput for the DB cluster snapshot. The throughput is automatically set based on the IOPS that you provision, and is not configurable. This setting is only for non-Aurora Multi-AZ DB clusters."];
      dbClusterResourceId: String_.t option
        [@ocaml.doc
          "The resource ID of the DB cluster that this DB cluster snapshot was created from."];
      dBSystemId: String_.t option [@ocaml.doc "Reserved for future use."]}
    let make ?availabilityZones =
      fun ?dBClusterSnapshotIdentifier ->
        fun ?dBClusterIdentifier ->
          fun ?snapshotCreateTime ->
            fun ?engine ->
              fun ?engineMode ->
                fun ?allocatedStorage ->
                  fun ?status ->
                    fun ?port ->
                      fun ?vpcId ->
                        fun ?clusterCreateTime ->
                          fun ?masterUsername ->
                            fun ?engineVersion ->
                              fun ?licenseModel ->
                                fun ?snapshotType ->
                                  fun ?percentProgress ->
                                    fun ?storageEncrypted ->
                                      fun ?storageEncryptionType ->
                                        fun ?backupRetentionPeriod ->
                                          fun ?preferredBackupWindow ->
                                            fun ?kmsKeyId ->
                                              fun ?dBClusterSnapshotArn ->
                                                fun
                                                  ?sourceDBClusterSnapshotArn
                                                  ->
                                                  fun
                                                    ?iAMDatabaseAuthenticationEnabled
                                                    ->
                                                    fun ?tagList ->
                                                      fun ?storageType ->
                                                        fun
                                                          ?storageThroughput
                                                          ->
                                                          fun
                                                            ?dbClusterResourceId
                                                            ->
                                                            fun ?dBSystemId
                                                              ->
                                                              fun () ->
                                                                {
                                                                  availabilityZones;
                                                                  dBClusterSnapshotIdentifier;
                                                                  dBClusterIdentifier;
                                                                  snapshotCreateTime;
                                                                  engine;
                                                                  engineMode;
                                                                  allocatedStorage;
                                                                  status;
                                                                  port;
                                                                  vpcId;
                                                                  clusterCreateTime;
                                                                  masterUsername;
                                                                  engineVersion;
                                                                  licenseModel;
                                                                  snapshotType;
                                                                  percentProgress;
                                                                  storageEncrypted;
                                                                  storageEncryptionType;
                                                                  backupRetentionPeriod;
                                                                  preferredBackupWindow;
                                                                  kmsKeyId;
                                                                  dBClusterSnapshotArn;
                                                                  sourceDBClusterSnapshotArn;
                                                                  iAMDatabaseAuthenticationEnabled;
                                                                  tagList;
                                                                  storageType;
                                                                  storageThroughput;
                                                                  dbClusterResourceId;
                                                                  dBSystemId
                                                                }
    let to_value x =
      structure_to_value
        [("AvailabilityZones",
           (Option.map x.availabilityZones ~f:AvailabilityZones.to_value));
        ("DBClusterSnapshotIdentifier",
          (Option.map x.dBClusterSnapshotIdentifier ~f:String_.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("SnapshotCreateTime",
          (Option.map x.snapshotCreateTime ~f:TStamp.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("EngineMode", (Option.map x.engineMode ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:Integer.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:Integer.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("ClusterCreateTime",
          (Option.map x.clusterCreateTime ~f:TStamp.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("SnapshotType", (Option.map x.snapshotType ~f:String_.to_value));
        ("PercentProgress",
          (Option.map x.percentProgress ~f:Integer.to_value));
        ("StorageEncrypted",
          (Option.map x.storageEncrypted ~f:Boolean.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("DBClusterSnapshotArn",
          (Option.map x.dBClusterSnapshotArn ~f:String_.to_value));
        ("SourceDBClusterSnapshotArn",
          (Option.map x.sourceDBClusterSnapshotArn ~f:String_.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled ~f:Boolean.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("DbClusterResourceId",
          (Option.map x.dbClusterResourceId ~f:String_.to_value));
        ("DBSystemId", (Option.map x.dBSystemId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBSystemId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBSystemId") in
      let dbClusterResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DbClusterResourceId") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let sourceDBClusterSnapshotArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDBClusterSnapshotArn") in
      let dBClusterSnapshotArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterSnapshotArn") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let storageEncrypted =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "StorageEncrypted") in
      let percentProgress =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "PercentProgress") in
      let snapshotType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnapshotType") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let clusterCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "ClusterCreateTime") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let port = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Port") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let allocatedStorage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let engineMode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineMode") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let snapshotCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "SnapshotCreateTime") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let dBClusterSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterSnapshotIdentifier") in
      let availabilityZones =
        (Option.map ~f:AvailabilityZones.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      make ?dBSystemId ?dbClusterResourceId ?storageThroughput ?storageType
        ?tagList ?iAMDatabaseAuthenticationEnabled
        ?sourceDBClusterSnapshotArn ?dBClusterSnapshotArn ?kmsKeyId
        ?preferredBackupWindow ?backupRetentionPeriod ?storageEncryptionType
        ?storageEncrypted ?percentProgress ?snapshotType ?licenseModel
        ?engineVersion ?masterUsername ?clusterCreateTime ?vpcId ?port
        ?status ?allocatedStorage ?engineMode ?engine ?snapshotCreateTime
        ?dBClusterIdentifier ?dBClusterSnapshotIdentifier ?availabilityZones
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBSystemId = field_map json__ "DBSystemId" String_.of_json in
      let dbClusterResourceId =
        field_map json__ "DbClusterResourceId" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled" Boolean.of_json in
      let sourceDBClusterSnapshotArn =
        field_map json__ "SourceDBClusterSnapshotArn" String_.of_json in
      let dBClusterSnapshotArn =
        field_map json__ "DBClusterSnapshotArn" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let storageEncrypted =
        field_map json__ "StorageEncrypted" Boolean.of_json in
      let percentProgress =
        field_map json__ "PercentProgress" Integer.of_json in
      let snapshotType = field_map json__ "SnapshotType" String_.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let clusterCreateTime =
        field_map json__ "ClusterCreateTime" TStamp.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let port = field_map json__ "Port" Integer.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" Integer.of_json in
      let engineMode = field_map json__ "EngineMode" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let snapshotCreateTime =
        field_map json__ "SnapshotCreateTime" TStamp.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let dBClusterSnapshotIdentifier =
        field_map json__ "DBClusterSnapshotIdentifier" String_.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" AvailabilityZones.of_json in
      make ?dBSystemId ?dbClusterResourceId ?storageThroughput ?storageType
        ?tagList ?iAMDatabaseAuthenticationEnabled
        ?sourceDBClusterSnapshotArn ?dBClusterSnapshotArn ?kmsKeyId
        ?preferredBackupWindow ?backupRetentionPeriod ?storageEncryptionType
        ?storageEncrypted ?percentProgress ?snapshotType ?licenseModel
        ?engineVersion ?masterUsername ?clusterCreateTime ?vpcId ?port
        ?status ?allocatedStorage ?engineMode ?engine ?snapshotCreateTime
        ?dBClusterIdentifier ?dBClusterSnapshotIdentifier ?availabilityZones
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details for an Amazon RDS DB cluster snapshot This data type is used as a response element in the DescribeDBClusterSnapshots action."]
module DBClusterParameterGroup =
  struct
    type nonrec t =
      {
      dBClusterParameterGroupName: String_.t option
        [@ocaml.doc "The name of the DB cluster parameter group."];
      dBParameterGroupFamily: String_.t option
        [@ocaml.doc
          "The name of the DB parameter group family that this DB cluster parameter group is compatible with."];
      description: String_.t option
        [@ocaml.doc
          "Provides the customer-specified description for this DB cluster parameter group."];
      dBClusterParameterGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the DB cluster parameter group."]}
    let make ?dBClusterParameterGroupName =
      fun ?dBParameterGroupFamily ->
        fun ?description ->
          fun ?dBClusterParameterGroupArn ->
            fun () ->
              {
                dBClusterParameterGroupName;
                dBParameterGroupFamily;
                description;
                dBClusterParameterGroupArn
              }
    let to_value x =
      structure_to_value
        [("DBClusterParameterGroupName",
           (Option.map x.dBClusterParameterGroupName ~f:String_.to_value));
        ("DBParameterGroupFamily",
          (Option.map x.dBParameterGroupFamily ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("DBClusterParameterGroupArn",
          (Option.map x.dBClusterParameterGroupArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBClusterParameterGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterParameterGroupArn") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let dBParameterGroupFamily =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupFamily") in
      let dBClusterParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterParameterGroupName") in
      make ?dBClusterParameterGroupArn ?description ?dBParameterGroupFamily
        ?dBClusterParameterGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBClusterParameterGroupArn =
        field_map json__ "DBClusterParameterGroupArn" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let dBParameterGroupFamily =
        field_map json__ "DBParameterGroupFamily" String_.of_json in
      let dBClusterParameterGroupName =
        field_map json__ "DBClusterParameterGroupName" String_.of_json in
      make ?dBClusterParameterGroupArn ?description ?dBParameterGroupFamily
        ?dBClusterParameterGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of an Amazon RDS DB cluster parameter group. This data type is used as a response element in the DescribeDBClusterParameterGroups action."]
module DBCluster =
  struct
    type nonrec t =
      {
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "AllocatedStorage specifies the allocated storage size in gibibytes (GiB). For Aurora, AllocatedStorage can vary because Aurora DB cluster storage size adjusts as needed."];
      availabilityZones: AvailabilityZones.t option
        [@ocaml.doc
          "The list of Availability Zones (AZs) where instances in the DB cluster can be created."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automatic DB snapshots are retained."];
      characterSetName: String_.t option
        [@ocaml.doc
          "If present, specifies the name of the character set that this cluster is associated with."];
      databaseName: String_.t option
        [@ocaml.doc
          "The name of the initial database that was specified for the DB cluster when it was created, if one was provided. This same name is returned for the life of the DB cluster."];
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The user-supplied identifier for the DB cluster. This identifier is the unique key that identifies a DB cluster."];
      dBClusterParameterGroup: String_.t option
        [@ocaml.doc
          "The name of the DB cluster parameter group for the DB cluster."];
      dBSubnetGroup: String_.t option
        [@ocaml.doc
          "Information about the subnet group associated with the DB cluster, including the name, description, and subnets in the subnet group."];
      status: String_.t option
        [@ocaml.doc "The current state of this DB cluster."];
      percentProgress: String_.t option
        [@ocaml.doc "The progress of the operation as a percentage."];
      earliestRestorableTime: TStamp.t option
        [@ocaml.doc
          "The earliest time to which a database can be restored with point-in-time restore."];
      endpoint: String_.t option
        [@ocaml.doc
          "The connection endpoint for the primary instance of the DB cluster."];
      readerEndpoint: String_.t option
        [@ocaml.doc
          "The reader endpoint for the DB cluster. The reader endpoint for a DB cluster load-balances connections across the Aurora Replicas that are available in a DB cluster. As clients request new connections to the reader endpoint, Aurora distributes the connection requests among the Aurora Replicas in the DB cluster. This functionality can help balance your read workload across multiple Aurora Replicas in your DB cluster. If a failover occurs, and the Aurora Replica that you are connected to is promoted to be the primary instance, your connection is dropped. To continue sending your read workload to other Aurora Replicas in the cluster, you can then reconnect to the reader endpoint."];
      customEndpoints: StringList.t option
        [@ocaml.doc "The custom endpoints associated with the DB cluster."];
      multiAZ: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB cluster has instances in multiple Availability Zones."];
      engine: String_.t option
        [@ocaml.doc "The database engine used for this DB cluster."];
      engineVersion: String_.t option
        [@ocaml.doc "The version of the database engine."];
      latestRestorableTime: TStamp.t option
        [@ocaml.doc
          "The latest time to which a database can be restored with point-in-time restore."];
      port: IntegerOptional.t option
        [@ocaml.doc "The port that the database engine is listening on."];
      masterUsername: String_.t option
        [@ocaml.doc "The master username for the DB cluster."];
      dBClusterOptionGroupMemberships:
        DBClusterOptionGroupMemberships.t option
        [@ocaml.doc
          "The list of option group memberships for this DB cluster."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod."];
      preferredMaintenanceWindow: String_.t option
        [@ocaml.doc
          "The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC)."];
      upgradeRolloutOrder: UpgradeRolloutOrder.t option
        [@ocaml.doc
          "This data type represents the order in which the clusters are upgraded. \\[first\\] - Typically used for development or testing environments. \\[second\\] - Default order for resources not specifically configured. \\[last\\] - Usually reserved for production environments."];
      replicationSourceIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the source DB cluster if this DB cluster is a read replica."];
      readReplicaIdentifiers: ReadReplicaIdentifierList.t option
        [@ocaml.doc
          "Contains one or more identifiers of the read replicas associated with this DB cluster."];
      statusInfos: DBClusterStatusInfoList.t option
        [@ocaml.doc "Reserved for future use."];
      dBClusterMembers: DBClusterMemberList.t option
        [@ocaml.doc "The list of DB instances that make up the DB cluster."];
      vpcSecurityGroups: VpcSecurityGroupMembershipList.t option
        [@ocaml.doc
          "The list of VPC security groups that the DB cluster belongs to."];
      hostedZoneId: String_.t option
        [@ocaml.doc
          "The ID that Amazon Route 53 assigns when you create a hosted zone."];
      storageEncrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the DB cluster is encrypted."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the DB cluster. Possible values: none - The DB cluster is not encrypted. sse-rds - The DB cluster is encrypted using an Amazon Web Services owned KMS key. sse-kms - The DB cluster is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "If StorageEncrypted is enabled, the Amazon Web Services KMS key identifier for the encrypted DB cluster. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      dbClusterResourceId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region-unique, immutable identifier for the DB cluster. This identifier is found in Amazon Web Services CloudTrail log entries whenever the KMS key for the DB cluster is accessed."];
      dBClusterArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the DB cluster."];
      associatedRoles: DBClusterRoles.t option
        [@ocaml.doc
          "A list of the Amazon Web Services Identity and Access Management (IAM) roles that are associated with the DB cluster. IAM roles that are associated with a DB cluster grant permission for the DB cluster to access other Amazon Web Services on your behalf."];
      iAMDatabaseAuthenticationEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled."];
      cloneGroupId: String_.t option
        [@ocaml.doc
          "The ID of the clone group with which the DB cluster is associated. For newly created clusters, the ID is typically null. If you clone a DB cluster when the ID is null, the operation populates the ID value for the source cluster and the clone because both clusters become part of the same clone group. Even if you delete the clone cluster, the clone group ID remains for the lifetime of the source cluster to show that it was used in a cloning operation. For PITR, the clone group ID is inherited from the source cluster. For snapshot restore operations, the clone group ID isn't inherited from the source cluster."];
      clusterCreateTime: TStamp.t option
        [@ocaml.doc
          "The time when the DB cluster was created, in Universal Coordinated Time (UTC)."];
      earliestBacktrackTime: TStamp.t option
        [@ocaml.doc
          "The earliest time to which a DB cluster can be backtracked."];
      backtrackWindow: LongOptional.t option
        [@ocaml.doc
          "The target backtrack window, in seconds. If this value is set to 0, backtracking is disabled for the DB cluster. Otherwise, backtracking is enabled."];
      backtrackConsumedChangeRecords: LongOptional.t option
        [@ocaml.doc "The number of change records stored for Backtrack."];
      enabledCloudwatchLogsExports: LogTypeList.t option
        [@ocaml.doc
          "A list of log types that this DB cluster is configured to export to CloudWatch Logs. Log types vary by DB engine. For information about the log types for each DB engine, see Amazon RDS Database Log Files in the Amazon Aurora User Guide."];
      capacity: IntegerOptional.t option
        [@ocaml.doc
          "The current capacity of an Aurora Serverless v1 DB cluster. The capacity is 0 (zero) when the cluster is paused. For more information about Aurora Serverless v1, see Using Amazon Aurora Serverless v1 in the Amazon Aurora User Guide."];
      pendingModifiedValues: ClusterPendingModifiedValues.t option
        [@ocaml.doc
          "Information about pending changes to the DB cluster. This information is returned only when there are pending changes. Specific changes are identified by subelements."];
      engineMode: String_.t option
        [@ocaml.doc
          "The DB engine mode of the DB cluster, either provisioned or serverless. For more information, see CreateDBCluster."];
      scalingConfigurationInfo: ScalingConfigurationInfo.t option ;
      rdsCustomClusterConfiguration: RdsCustomClusterConfiguration.t option
        [@ocaml.doc "Reserved for future use."];
      dBClusterInstanceClass: String_.t option
        [@ocaml.doc
          "The name of the compute and memory capacity class of the DB instance. This setting is only for non-Aurora Multi-AZ DB clusters."];
      storageType: String_.t option
        [@ocaml.doc "The storage type associated with the DB cluster."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The Provisioned IOPS (I/O operations per second) value. This setting is only for non-Aurora Multi-AZ DB clusters."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput for the DB cluster. The throughput is automatically set based on the IOPS that you provision, and is not configurable. This setting is only for non-Aurora Multi-AZ DB clusters."];
      iOOptimizedNextAllowedModificationTime: TStamp.t option
        [@ocaml.doc
          "The next time you can modify the DB cluster to use the aurora-iopt1 storage type. This setting is only for Aurora DB clusters."];
      publiclyAccessible: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB cluster is publicly accessible. When the DB cluster is publicly accessible and you connect from outside of the DB cluster's virtual private cloud (VPC), its Domain Name System (DNS) endpoint resolves to the public IP address. When you connect from within the same VPC as the DB cluster, the endpoint resolves to the private IP address. Access to the DB cluster is ultimately controlled by the security group it uses. That public access isn't permitted if the security group assigned to the DB cluster doesn't permit it. When the DB cluster isn't publicly accessible, it is an internal DB cluster with a DNS name that resolves to a private IP address. For more information, see CreateDBCluster. This setting is only for non-Aurora Multi-AZ DB clusters."];
      autoMinorVersionUpgrade: Boolean.t option
        [@ocaml.doc
          "Indicates whether minor version patches are applied automatically. This setting is for Aurora DB clusters and Multi-AZ DB clusters. For more information about automatic minor version upgrades, see Automatically upgrading the minor engine version."];
      deletionProtection: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB cluster has deletion protection enabled. The database can't be deleted when deletion protection is enabled."];
      httpEndpointEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the HTTP endpoint is enabled for an Aurora DB cluster. When enabled, the HTTP endpoint provides a connectionless web service API (RDS Data API) for running SQL queries on the DB cluster. You can also query your database from inside the RDS console with the RDS query editor. For more information, see Using RDS Data API in the Amazon Aurora User Guide."];
      activityStreamMode: ActivityStreamMode.t option
        [@ocaml.doc
          "The mode of the database activity stream. Database events such as a change or access generate an activity stream event. The database session can handle these events either synchronously or asynchronously."];
      activityStreamStatus: ActivityStreamStatus.t option
        [@ocaml.doc "The status of the database activity stream."];
      activityStreamKmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier used for encrypting messages in the database activity stream. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      activityStreamKinesisStreamName: String_.t option
        [@ocaml.doc
          "The name of the Amazon Kinesis data stream used for the database activity stream."];
      copyTagsToSnapshot: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether tags are copied from the DB cluster to snapshots of the DB cluster."];
      crossAccountClone: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB cluster is a clone of a DB cluster owned by a different Amazon Web Services account."];
      domainMemberships: DomainMembershipList.t option
        [@ocaml.doc
          "The Active Directory Domain membership records associated with the DB cluster."];
      tagList: TagList.t option ;
      globalClusterIdentifier: GlobalClusterIdentifier.t option
        [@ocaml.doc
          "Contains a user-supplied global database cluster identifier. This identifier is the unique key that identifies a global database cluster."];
      globalWriteForwardingStatus: WriteForwardingStatus.t option
        [@ocaml.doc
          "The status of write forwarding for a secondary cluster in an Aurora global database."];
      globalWriteForwardingRequested: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether write forwarding is enabled for a secondary cluster in an Aurora global database. Because write forwarding takes time to enable, check the value of GlobalWriteForwardingStatus to confirm that the request has completed before using the write forwarding feature for this cluster."];
      networkType: String_.t option
        [@ocaml.doc
          "The network type of the DB instance. The network type is determined by the DBSubnetGroup specified for the DB cluster. A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon Aurora User Guide. This setting is only for Aurora DB clusters. Valid Values: IPV4 | DUAL"];
      automaticRestartTime: TStamp.t option
        [@ocaml.doc
          "The time when a stopped DB cluster is restarted automatically."];
      serverlessV2ScalingConfiguration:
        ServerlessV2ScalingConfigurationInfo.t option ;
      serverlessV2PlatformVersion: String_.t option
        [@ocaml.doc
          "The version of the Aurora Serverless V2 platform used by the DB cluster. For more information, see Using Aurora Serverless v2 in the Amazon Aurora User Guide."];
      monitoringInterval: IntegerOptional.t option
        [@ocaml.doc
          "The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB cluster. This setting is only for -Aurora DB clusters and Multi-AZ DB clusters."];
      monitoringRoleArn: String_.t option
        [@ocaml.doc
          "The ARN for the IAM role that permits RDS to send Enhanced Monitoring metrics to Amazon CloudWatch Logs. This setting is only for Aurora DB clusters and Multi-AZ DB clusters."];
      databaseInsightsMode: DatabaseInsightsMode.t option
        [@ocaml.doc
          "The mode of Database Insights that is enabled for the DB cluster."];
      performanceInsightsEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether Performance Insights is enabled for the DB cluster. This setting is only for Aurora DB clusters and Multi-AZ DB clusters."];
      performanceInsightsKMSKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encryption of Performance Insights data. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. This setting is only for Aurora DB clusters and Multi-AZ DB clusters."];
      performanceInsightsRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days to retain Performance Insights data. This setting is only for Aurora DB clusters and Multi-AZ DB clusters. Valid Values: 7 month * 31, where month is a number of months from 1-23. Examples: 93 (3 months * 31), 341 (11 months * 31), 589 (19 months * 31) 731 Default: 7 days"];
      dBSystemId: String_.t option [@ocaml.doc "Reserved for future use."];
      masterUserSecret: MasterUserSecret.t option
        [@ocaml.doc
          "The secret managed by RDS in Amazon Web Services Secrets Manager for the master user password. For more information, see Password management with Amazon Web Services Secrets Manager in the Amazon RDS User Guide and Password management with Amazon Web Services Secrets Manager in the Amazon Aurora User Guide."];
      localWriteForwardingStatus: LocalWriteForwardingStatus.t option
        [@ocaml.doc
          "Indicates whether an Aurora DB cluster has in-cluster write forwarding enabled, not enabled, requested, or is in the process of enabling it."];
      awsBackupRecoveryPointArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the recovery point in Amazon Web Services Backup."];
      limitlessDatabase: LimitlessDatabase.t option
        [@ocaml.doc "The details for Aurora Limitless Database."];
      clusterScalabilityType: ClusterScalabilityType.t option
        [@ocaml.doc
          "The scalability mode of the Aurora DB cluster. When set to limitless, the cluster operates as an Aurora Limitless Database. When set to standard (the default), the cluster uses normal DB instance creation."];
      certificateDetails: CertificateDetails.t option ;
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The lifecycle type for the DB cluster. For more information, see CreateDBCluster."];
      vPCNetworkingEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB cluster uses VPC-based networking. This setting is applicable only for Aurora PostgreSQL clusters created through express configuration."];
      internetAccessGatewayEnabled: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether the DB cluster has internet-based connectivity enabled through an internet access gateway. This setting is applicable only for Aurora PostgreSQL clusters created through express configuration."]}
    let make ?allocatedStorage =
      fun ?availabilityZones ->
        fun ?backupRetentionPeriod ->
          fun ?characterSetName ->
            fun ?databaseName ->
              fun ?dBClusterIdentifier ->
                fun ?dBClusterParameterGroup ->
                  fun ?dBSubnetGroup ->
                    fun ?status ->
                      fun ?percentProgress ->
                        fun ?earliestRestorableTime ->
                          fun ?endpoint ->
                            fun ?readerEndpoint ->
                              fun ?customEndpoints ->
                                fun ?multiAZ ->
                                  fun ?engine ->
                                    fun ?engineVersion ->
                                      fun ?latestRestorableTime ->
                                        fun ?port ->
                                          fun ?masterUsername ->
                                            fun
                                              ?dBClusterOptionGroupMemberships
                                              ->
                                              fun ?preferredBackupWindow ->
                                                fun
                                                  ?preferredMaintenanceWindow
                                                  ->
                                                  fun ?upgradeRolloutOrder ->
                                                    fun
                                                      ?replicationSourceIdentifier
                                                      ->
                                                      fun
                                                        ?readReplicaIdentifiers
                                                        ->
                                                        fun ?statusInfos ->
                                                          fun
                                                            ?dBClusterMembers
                                                            ->
                                                            fun
                                                              ?vpcSecurityGroups
                                                              ->
                                                              fun
                                                                ?hostedZoneId
                                                                ->
                                                                fun
                                                                  ?storageEncrypted
                                                                  ->
                                                                  fun
                                                                    ?storageEncryptionType
                                                                    ->
                                                                    fun
                                                                    ?kmsKeyId
                                                                    ->
                                                                    fun
                                                                    ?dbClusterResourceId
                                                                    ->
                                                                    fun
                                                                    ?dBClusterArn
                                                                    ->
                                                                    fun
                                                                    ?associatedRoles
                                                                    ->
                                                                    fun
                                                                    ?iAMDatabaseAuthenticationEnabled
                                                                    ->
                                                                    fun
                                                                    ?cloneGroupId
                                                                    ->
                                                                    fun
                                                                    ?clusterCreateTime
                                                                    ->
                                                                    fun
                                                                    ?earliestBacktrackTime
                                                                    ->
                                                                    fun
                                                                    ?backtrackWindow
                                                                    ->
                                                                    fun
                                                                    ?backtrackConsumedChangeRecords
                                                                    ->
                                                                    fun
                                                                    ?enabledCloudwatchLogsExports
                                                                    ->
                                                                    fun
                                                                    ?capacity
                                                                    ->
                                                                    fun
                                                                    ?pendingModifiedValues
                                                                    ->
                                                                    fun
                                                                    ?engineMode
                                                                    ->
                                                                    fun
                                                                    ?scalingConfigurationInfo
                                                                    ->
                                                                    fun
                                                                    ?rdsCustomClusterConfiguration
                                                                    ->
                                                                    fun
                                                                    ?dBClusterInstanceClass
                                                                    ->
                                                                    fun
                                                                    ?storageType
                                                                    ->
                                                                    fun ?iops
                                                                    ->
                                                                    fun
                                                                    ?storageThroughput
                                                                    ->
                                                                    fun
                                                                    ?iOOptimizedNextAllowedModificationTime
                                                                    ->
                                                                    fun
                                                                    ?publiclyAccessible
                                                                    ->
                                                                    fun
                                                                    ?autoMinorVersionUpgrade
                                                                    ->
                                                                    fun
                                                                    ?deletionProtection
                                                                    ->
                                                                    fun
                                                                    ?httpEndpointEnabled
                                                                    ->
                                                                    fun
                                                                    ?activityStreamMode
                                                                    ->
                                                                    fun
                                                                    ?activityStreamStatus
                                                                    ->
                                                                    fun
                                                                    ?activityStreamKmsKeyId
                                                                    ->
                                                                    fun
                                                                    ?activityStreamKinesisStreamName
                                                                    ->
                                                                    fun
                                                                    ?copyTagsToSnapshot
                                                                    ->
                                                                    fun
                                                                    ?crossAccountClone
                                                                    ->
                                                                    fun
                                                                    ?domainMemberships
                                                                    ->
                                                                    fun
                                                                    ?tagList
                                                                    ->
                                                                    fun
                                                                    ?globalClusterIdentifier
                                                                    ->
                                                                    fun
                                                                    ?globalWriteForwardingStatus
                                                                    ->
                                                                    fun
                                                                    ?globalWriteForwardingRequested
                                                                    ->
                                                                    fun
                                                                    ?networkType
                                                                    ->
                                                                    fun
                                                                    ?automaticRestartTime
                                                                    ->
                                                                    fun
                                                                    ?serverlessV2ScalingConfiguration
                                                                    ->
                                                                    fun
                                                                    ?serverlessV2PlatformVersion
                                                                    ->
                                                                    fun
                                                                    ?monitoringInterval
                                                                    ->
                                                                    fun
                                                                    ?monitoringRoleArn
                                                                    ->
                                                                    fun
                                                                    ?databaseInsightsMode
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsEnabled
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsKMSKeyId
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?dBSystemId
                                                                    ->
                                                                    fun
                                                                    ?masterUserSecret
                                                                    ->
                                                                    fun
                                                                    ?localWriteForwardingStatus
                                                                    ->
                                                                    fun
                                                                    ?awsBackupRecoveryPointArn
                                                                    ->
                                                                    fun
                                                                    ?limitlessDatabase
                                                                    ->
                                                                    fun
                                                                    ?clusterScalabilityType
                                                                    ->
                                                                    fun
                                                                    ?certificateDetails
                                                                    ->
                                                                    fun
                                                                    ?engineLifecycleSupport
                                                                    ->
                                                                    fun
                                                                    ?vPCNetworkingEnabled
                                                                    ->
                                                                    fun
                                                                    ?internetAccessGatewayEnabled
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    allocatedStorage;
                                                                    availabilityZones;
                                                                    backupRetentionPeriod;
                                                                    characterSetName;
                                                                    databaseName;
                                                                    dBClusterIdentifier;
                                                                    dBClusterParameterGroup;
                                                                    dBSubnetGroup;
                                                                    status;
                                                                    percentProgress;
                                                                    earliestRestorableTime;
                                                                    endpoint;
                                                                    readerEndpoint;
                                                                    customEndpoints;
                                                                    multiAZ;
                                                                    engine;
                                                                    engineVersion;
                                                                    latestRestorableTime;
                                                                    port;
                                                                    masterUsername;
                                                                    dBClusterOptionGroupMemberships;
                                                                    preferredBackupWindow;
                                                                    preferredMaintenanceWindow;
                                                                    upgradeRolloutOrder;
                                                                    replicationSourceIdentifier;
                                                                    readReplicaIdentifiers;
                                                                    statusInfos;
                                                                    dBClusterMembers;
                                                                    vpcSecurityGroups;
                                                                    hostedZoneId;
                                                                    storageEncrypted;
                                                                    storageEncryptionType;
                                                                    kmsKeyId;
                                                                    dbClusterResourceId;
                                                                    dBClusterArn;
                                                                    associatedRoles;
                                                                    iAMDatabaseAuthenticationEnabled;
                                                                    cloneGroupId;
                                                                    clusterCreateTime;
                                                                    earliestBacktrackTime;
                                                                    backtrackWindow;
                                                                    backtrackConsumedChangeRecords;
                                                                    enabledCloudwatchLogsExports;
                                                                    capacity;
                                                                    pendingModifiedValues;
                                                                    engineMode;
                                                                    scalingConfigurationInfo;
                                                                    rdsCustomClusterConfiguration;
                                                                    dBClusterInstanceClass;
                                                                    storageType;
                                                                    iops;
                                                                    storageThroughput;
                                                                    iOOptimizedNextAllowedModificationTime;
                                                                    publiclyAccessible;
                                                                    autoMinorVersionUpgrade;
                                                                    deletionProtection;
                                                                    httpEndpointEnabled;
                                                                    activityStreamMode;
                                                                    activityStreamStatus;
                                                                    activityStreamKmsKeyId;
                                                                    activityStreamKinesisStreamName;
                                                                    copyTagsToSnapshot;
                                                                    crossAccountClone;
                                                                    domainMemberships;
                                                                    tagList;
                                                                    globalClusterIdentifier;
                                                                    globalWriteForwardingStatus;
                                                                    globalWriteForwardingRequested;
                                                                    networkType;
                                                                    automaticRestartTime;
                                                                    serverlessV2ScalingConfiguration;
                                                                    serverlessV2PlatformVersion;
                                                                    monitoringInterval;
                                                                    monitoringRoleArn;
                                                                    databaseInsightsMode;
                                                                    performanceInsightsEnabled;
                                                                    performanceInsightsKMSKeyId;
                                                                    performanceInsightsRetentionPeriod;
                                                                    dBSystemId;
                                                                    masterUserSecret;
                                                                    localWriteForwardingStatus;
                                                                    awsBackupRecoveryPointArn;
                                                                    limitlessDatabase;
                                                                    clusterScalabilityType;
                                                                    certificateDetails;
                                                                    engineLifecycleSupport;
                                                                    vPCNetworkingEnabled;
                                                                    internetAccessGatewayEnabled
                                                                    }
    let to_value x =
      structure_to_value
        [("AllocatedStorage",
           (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("AvailabilityZones",
          (Option.map x.availabilityZones ~f:AvailabilityZones.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("CharacterSetName",
          (Option.map x.characterSetName ~f:String_.to_value));
        ("DatabaseName", (Option.map x.databaseName ~f:String_.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("DBClusterParameterGroup",
          (Option.map x.dBClusterParameterGroup ~f:String_.to_value));
        ("DBSubnetGroup", (Option.map x.dBSubnetGroup ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("PercentProgress",
          (Option.map x.percentProgress ~f:String_.to_value));
        ("EarliestRestorableTime",
          (Option.map x.earliestRestorableTime ~f:TStamp.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("ReaderEndpoint", (Option.map x.readerEndpoint ~f:String_.to_value));
        ("CustomEndpoints",
          (Option.map x.customEndpoints ~f:StringList.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:BooleanOptional.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("LatestRestorableTime",
          (Option.map x.latestRestorableTime ~f:TStamp.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("DBClusterOptionGroupMemberships",
          (Option.map x.dBClusterOptionGroupMemberships
             ~f:DBClusterOptionGroupMemberships.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("PreferredMaintenanceWindow",
          (Option.map x.preferredMaintenanceWindow ~f:String_.to_value));
        ("UpgradeRolloutOrder",
          (Option.map x.upgradeRolloutOrder ~f:UpgradeRolloutOrder.to_value));
        ("ReplicationSourceIdentifier",
          (Option.map x.replicationSourceIdentifier ~f:String_.to_value));
        ("ReadReplicaIdentifiers",
          (Option.map x.readReplicaIdentifiers
             ~f:ReadReplicaIdentifierList.to_value));
        ("StatusInfos",
          (Option.map x.statusInfos ~f:DBClusterStatusInfoList.to_value));
        ("DBClusterMembers",
          (Option.map x.dBClusterMembers ~f:DBClusterMemberList.to_value));
        ("VpcSecurityGroups",
          (Option.map x.vpcSecurityGroups
             ~f:VpcSecurityGroupMembershipList.to_value));
        ("HostedZoneId", (Option.map x.hostedZoneId ~f:String_.to_value));
        ("StorageEncrypted",
          (Option.map x.storageEncrypted ~f:Boolean.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("DbClusterResourceId",
          (Option.map x.dbClusterResourceId ~f:String_.to_value));
        ("DBClusterArn", (Option.map x.dBClusterArn ~f:String_.to_value));
        ("AssociatedRoles",
          (Option.map x.associatedRoles ~f:DBClusterRoles.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled
             ~f:BooleanOptional.to_value));
        ("CloneGroupId", (Option.map x.cloneGroupId ~f:String_.to_value));
        ("ClusterCreateTime",
          (Option.map x.clusterCreateTime ~f:TStamp.to_value));
        ("EarliestBacktrackTime",
          (Option.map x.earliestBacktrackTime ~f:TStamp.to_value));
        ("BacktrackWindow",
          (Option.map x.backtrackWindow ~f:LongOptional.to_value));
        ("BacktrackConsumedChangeRecords",
          (Option.map x.backtrackConsumedChangeRecords
             ~f:LongOptional.to_value));
        ("EnabledCloudwatchLogsExports",
          (Option.map x.enabledCloudwatchLogsExports ~f:LogTypeList.to_value));
        ("Capacity", (Option.map x.capacity ~f:IntegerOptional.to_value));
        ("PendingModifiedValues",
          (Option.map x.pendingModifiedValues
             ~f:ClusterPendingModifiedValues.to_value));
        ("EngineMode", (Option.map x.engineMode ~f:String_.to_value));
        ("ScalingConfigurationInfo",
          (Option.map x.scalingConfigurationInfo
             ~f:ScalingConfigurationInfo.to_value));
        ("RdsCustomClusterConfiguration",
          (Option.map x.rdsCustomClusterConfiguration
             ~f:RdsCustomClusterConfiguration.to_value));
        ("DBClusterInstanceClass",
          (Option.map x.dBClusterInstanceClass ~f:String_.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("IOOptimizedNextAllowedModificationTime",
          (Option.map x.iOOptimizedNextAllowedModificationTime
             ~f:TStamp.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:BooleanOptional.to_value));
        ("AutoMinorVersionUpgrade",
          (Option.map x.autoMinorVersionUpgrade ~f:Boolean.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:BooleanOptional.to_value));
        ("HttpEndpointEnabled",
          (Option.map x.httpEndpointEnabled ~f:BooleanOptional.to_value));
        ("ActivityStreamMode",
          (Option.map x.activityStreamMode ~f:ActivityStreamMode.to_value));
        ("ActivityStreamStatus",
          (Option.map x.activityStreamStatus ~f:ActivityStreamStatus.to_value));
        ("ActivityStreamKmsKeyId",
          (Option.map x.activityStreamKmsKeyId ~f:String_.to_value));
        ("ActivityStreamKinesisStreamName",
          (Option.map x.activityStreamKinesisStreamName ~f:String_.to_value));
        ("CopyTagsToSnapshot",
          (Option.map x.copyTagsToSnapshot ~f:BooleanOptional.to_value));
        ("CrossAccountClone",
          (Option.map x.crossAccountClone ~f:BooleanOptional.to_value));
        ("DomainMemberships",
          (Option.map x.domainMemberships ~f:DomainMembershipList.to_value));
        ("TagList", (Option.map x.tagList ~f:TagList.to_value));
        ("GlobalClusterIdentifier",
          (Option.map x.globalClusterIdentifier
             ~f:GlobalClusterIdentifier.to_value));
        ("GlobalWriteForwardingStatus",
          (Option.map x.globalWriteForwardingStatus
             ~f:WriteForwardingStatus.to_value));
        ("GlobalWriteForwardingRequested",
          (Option.map x.globalWriteForwardingRequested
             ~f:BooleanOptional.to_value));
        ("NetworkType", (Option.map x.networkType ~f:String_.to_value));
        ("AutomaticRestartTime",
          (Option.map x.automaticRestartTime ~f:TStamp.to_value));
        ("ServerlessV2ScalingConfiguration",
          (Option.map x.serverlessV2ScalingConfiguration
             ~f:ServerlessV2ScalingConfigurationInfo.to_value));
        ("ServerlessV2PlatformVersion",
          (Option.map x.serverlessV2PlatformVersion ~f:String_.to_value));
        ("MonitoringInterval",
          (Option.map x.monitoringInterval ~f:IntegerOptional.to_value));
        ("MonitoringRoleArn",
          (Option.map x.monitoringRoleArn ~f:String_.to_value));
        ("DatabaseInsightsMode",
          (Option.map x.databaseInsightsMode ~f:DatabaseInsightsMode.to_value));
        ("PerformanceInsightsEnabled",
          (Option.map x.performanceInsightsEnabled
             ~f:BooleanOptional.to_value));
        ("PerformanceInsightsKMSKeyId",
          (Option.map x.performanceInsightsKMSKeyId ~f:String_.to_value));
        ("PerformanceInsightsRetentionPeriod",
          (Option.map x.performanceInsightsRetentionPeriod
             ~f:IntegerOptional.to_value));
        ("DBSystemId", (Option.map x.dBSystemId ~f:String_.to_value));
        ("MasterUserSecret",
          (Option.map x.masterUserSecret ~f:MasterUserSecret.to_value));
        ("LocalWriteForwardingStatus",
          (Option.map x.localWriteForwardingStatus
             ~f:LocalWriteForwardingStatus.to_value));
        ("AwsBackupRecoveryPointArn",
          (Option.map x.awsBackupRecoveryPointArn ~f:String_.to_value));
        ("LimitlessDatabase",
          (Option.map x.limitlessDatabase ~f:LimitlessDatabase.to_value));
        ("ClusterScalabilityType",
          (Option.map x.clusterScalabilityType
             ~f:ClusterScalabilityType.to_value));
        ("CertificateDetails",
          (Option.map x.certificateDetails ~f:CertificateDetails.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("VPCNetworkingEnabled",
          (Option.map x.vPCNetworkingEnabled ~f:BooleanOptional.to_value));
        ("InternetAccessGatewayEnabled",
          (Option.map x.internetAccessGatewayEnabled
             ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let internetAccessGatewayEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "InternetAccessGatewayEnabled") in
      let vPCNetworkingEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "VPCNetworkingEnabled") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let certificateDetails =
        (Option.map ~f:CertificateDetails.of_xml)
          (Xml.child xml_arg0 "CertificateDetails") in
      let clusterScalabilityType =
        (Option.map ~f:ClusterScalabilityType.of_xml)
          (Xml.child xml_arg0 "ClusterScalabilityType") in
      let limitlessDatabase =
        (Option.map ~f:LimitlessDatabase.of_xml)
          (Xml.child xml_arg0 "LimitlessDatabase") in
      let awsBackupRecoveryPointArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AwsBackupRecoveryPointArn") in
      let localWriteForwardingStatus =
        (Option.map ~f:LocalWriteForwardingStatus.of_xml)
          (Xml.child xml_arg0 "LocalWriteForwardingStatus") in
      let masterUserSecret =
        (Option.map ~f:MasterUserSecret.of_xml)
          (Xml.child xml_arg0 "MasterUserSecret") in
      let dBSystemId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBSystemId") in
      let performanceInsightsRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsRetentionPeriod") in
      let performanceInsightsKMSKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsKMSKeyId") in
      let performanceInsightsEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsEnabled") in
      let databaseInsightsMode =
        (Option.map ~f:DatabaseInsightsMode.of_xml)
          (Xml.child xml_arg0 "DatabaseInsightsMode") in
      let monitoringRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonitoringRoleArn") in
      let monitoringInterval =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MonitoringInterval") in
      let serverlessV2PlatformVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ServerlessV2PlatformVersion") in
      let serverlessV2ScalingConfiguration =
        (Option.map ~f:ServerlessV2ScalingConfigurationInfo.of_xml)
          (Xml.child xml_arg0 "ServerlessV2ScalingConfiguration") in
      let automaticRestartTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "AutomaticRestartTime") in
      let networkType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let globalWriteForwardingRequested =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "GlobalWriteForwardingRequested") in
      let globalWriteForwardingStatus =
        (Option.map ~f:WriteForwardingStatus.of_xml)
          (Xml.child xml_arg0 "GlobalWriteForwardingStatus") in
      let globalClusterIdentifier =
        (Option.map ~f:GlobalClusterIdentifier.of_xml)
          (Xml.child xml_arg0 "GlobalClusterIdentifier") in
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      let domainMemberships =
        (Option.map ~f:DomainMembershipList.of_xml)
          (Xml.child xml_arg0 "DomainMemberships") in
      let crossAccountClone =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CrossAccountClone") in
      let copyTagsToSnapshot =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CopyTagsToSnapshot") in
      let activityStreamKinesisStreamName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ActivityStreamKinesisStreamName") in
      let activityStreamKmsKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ActivityStreamKmsKeyId") in
      let activityStreamStatus =
        (Option.map ~f:ActivityStreamStatus.of_xml)
          (Xml.child xml_arg0 "ActivityStreamStatus") in
      let activityStreamMode =
        (Option.map ~f:ActivityStreamMode.of_xml)
          (Xml.child xml_arg0 "ActivityStreamMode") in
      let httpEndpointEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "HttpEndpointEnabled") in
      let deletionProtection =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let autoMinorVersionUpgrade =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AutoMinorVersionUpgrade") in
      let publiclyAccessible =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let iOOptimizedNextAllowedModificationTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "IOOptimizedNextAllowedModificationTime") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let dBClusterInstanceClass =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterInstanceClass") in
      let rdsCustomClusterConfiguration =
        (Option.map ~f:RdsCustomClusterConfiguration.of_xml)
          (Xml.child xml_arg0 "RdsCustomClusterConfiguration") in
      let scalingConfigurationInfo =
        (Option.map ~f:ScalingConfigurationInfo.of_xml)
          (Xml.child xml_arg0 "ScalingConfigurationInfo") in
      let engineMode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineMode") in
      let pendingModifiedValues =
        (Option.map ~f:ClusterPendingModifiedValues.of_xml)
          (Xml.child xml_arg0 "PendingModifiedValues") in
      let capacity =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "Capacity") in
      let enabledCloudwatchLogsExports =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnabledCloudwatchLogsExports") in
      let backtrackConsumedChangeRecords =
        (Option.map ~f:LongOptional.of_xml)
          (Xml.child xml_arg0 "BacktrackConsumedChangeRecords") in
      let backtrackWindow =
        (Option.map ~f:LongOptional.of_xml)
          (Xml.child xml_arg0 "BacktrackWindow") in
      let earliestBacktrackTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "EarliestBacktrackTime") in
      let clusterCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "ClusterCreateTime") in
      let cloneGroupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CloneGroupId") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let associatedRoles =
        (Option.map ~f:DBClusterRoles.of_xml)
          (Xml.child xml_arg0 "AssociatedRoles") in
      let dBClusterArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBClusterArn") in
      let dbClusterResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DbClusterResourceId") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let storageEncrypted =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "StorageEncrypted") in
      let hostedZoneId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HostedZoneId") in
      let vpcSecurityGroups =
        (Option.map ~f:VpcSecurityGroupMembershipList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroups") in
      let dBClusterMembers =
        (Option.map ~f:DBClusterMemberList.of_xml)
          (Xml.child xml_arg0 "DBClusterMembers") in
      let statusInfos =
        (Option.map ~f:DBClusterStatusInfoList.of_xml)
          (Xml.child xml_arg0 "StatusInfos") in
      let readReplicaIdentifiers =
        (Option.map ~f:ReadReplicaIdentifierList.of_xml)
          (Xml.child xml_arg0 "ReadReplicaIdentifiers") in
      let replicationSourceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReplicationSourceIdentifier") in
      let upgradeRolloutOrder =
        (Option.map ~f:UpgradeRolloutOrder.of_xml)
          (Xml.child xml_arg0 "UpgradeRolloutOrder") in
      let preferredMaintenanceWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredMaintenanceWindow") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let dBClusterOptionGroupMemberships =
        (Option.map ~f:DBClusterOptionGroupMemberships.of_xml)
          (Xml.child xml_arg0 "DBClusterOptionGroupMemberships") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let latestRestorableTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "LatestRestorableTime") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let multiAZ =
        (Option.map ~f:BooleanOptional.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let customEndpoints =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "CustomEndpoints") in
      let readerEndpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ReaderEndpoint") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let earliestRestorableTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "EarliestRestorableTime") in
      let percentProgress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PercentProgress") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let dBSubnetGroup =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBSubnetGroup") in
      let dBClusterParameterGroup =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterParameterGroup") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let databaseName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DatabaseName") in
      let characterSetName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CharacterSetName") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let availabilityZones =
        (Option.map ~f:AvailabilityZones.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      make ?internetAccessGatewayEnabled ?vPCNetworkingEnabled
        ?engineLifecycleSupport ?certificateDetails ?clusterScalabilityType
        ?limitlessDatabase ?awsBackupRecoveryPointArn
        ?localWriteForwardingStatus ?masterUserSecret ?dBSystemId
        ?performanceInsightsRetentionPeriod ?performanceInsightsKMSKeyId
        ?performanceInsightsEnabled ?databaseInsightsMode ?monitoringRoleArn
        ?monitoringInterval ?serverlessV2PlatformVersion
        ?serverlessV2ScalingConfiguration ?automaticRestartTime ?networkType
        ?globalWriteForwardingRequested ?globalWriteForwardingStatus
        ?globalClusterIdentifier ?tagList ?domainMemberships
        ?crossAccountClone ?copyTagsToSnapshot
        ?activityStreamKinesisStreamName ?activityStreamKmsKeyId
        ?activityStreamStatus ?activityStreamMode ?httpEndpointEnabled
        ?deletionProtection ?autoMinorVersionUpgrade ?publiclyAccessible
        ?iOOptimizedNextAllowedModificationTime ?storageThroughput ?iops
        ?storageType ?dBClusterInstanceClass ?rdsCustomClusterConfiguration
        ?scalingConfigurationInfo ?engineMode ?pendingModifiedValues
        ?capacity ?enabledCloudwatchLogsExports
        ?backtrackConsumedChangeRecords ?backtrackWindow
        ?earliestBacktrackTime ?clusterCreateTime ?cloneGroupId
        ?iAMDatabaseAuthenticationEnabled ?associatedRoles ?dBClusterArn
        ?dbClusterResourceId ?kmsKeyId ?storageEncryptionType
        ?storageEncrypted ?hostedZoneId ?vpcSecurityGroups ?dBClusterMembers
        ?statusInfos ?readReplicaIdentifiers ?replicationSourceIdentifier
        ?upgradeRolloutOrder ?preferredMaintenanceWindow
        ?preferredBackupWindow ?dBClusterOptionGroupMemberships
        ?masterUsername ?port ?latestRestorableTime ?engineVersion ?engine
        ?multiAZ ?customEndpoints ?readerEndpoint ?endpoint
        ?earliestRestorableTime ?percentProgress ?status ?dBSubnetGroup
        ?dBClusterParameterGroup ?dBClusterIdentifier ?databaseName
        ?characterSetName ?backupRetentionPeriod ?availabilityZones
        ?allocatedStorage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let internetAccessGatewayEnabled =
        field_map json__ "InternetAccessGatewayEnabled"
          BooleanOptional.of_json in
      let vPCNetworkingEnabled =
        field_map json__ "VPCNetworkingEnabled" BooleanOptional.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let certificateDetails =
        field_map json__ "CertificateDetails" CertificateDetails.of_json in
      let clusterScalabilityType =
        field_map json__ "ClusterScalabilityType"
          ClusterScalabilityType.of_json in
      let limitlessDatabase =
        field_map json__ "LimitlessDatabase" LimitlessDatabase.of_json in
      let awsBackupRecoveryPointArn =
        field_map json__ "AwsBackupRecoveryPointArn" String_.of_json in
      let localWriteForwardingStatus =
        field_map json__ "LocalWriteForwardingStatus"
          LocalWriteForwardingStatus.of_json in
      let masterUserSecret =
        field_map json__ "MasterUserSecret" MasterUserSecret.of_json in
      let dBSystemId = field_map json__ "DBSystemId" String_.of_json in
      let performanceInsightsRetentionPeriod =
        field_map json__ "PerformanceInsightsRetentionPeriod"
          IntegerOptional.of_json in
      let performanceInsightsKMSKeyId =
        field_map json__ "PerformanceInsightsKMSKeyId" String_.of_json in
      let performanceInsightsEnabled =
        field_map json__ "PerformanceInsightsEnabled" BooleanOptional.of_json in
      let databaseInsightsMode =
        field_map json__ "DatabaseInsightsMode" DatabaseInsightsMode.of_json in
      let monitoringRoleArn =
        field_map json__ "MonitoringRoleArn" String_.of_json in
      let monitoringInterval =
        field_map json__ "MonitoringInterval" IntegerOptional.of_json in
      let serverlessV2PlatformVersion =
        field_map json__ "ServerlessV2PlatformVersion" String_.of_json in
      let serverlessV2ScalingConfiguration =
        field_map json__ "ServerlessV2ScalingConfiguration"
          ServerlessV2ScalingConfigurationInfo.of_json in
      let automaticRestartTime =
        field_map json__ "AutomaticRestartTime" TStamp.of_json in
      let networkType = field_map json__ "NetworkType" String_.of_json in
      let globalWriteForwardingRequested =
        field_map json__ "GlobalWriteForwardingRequested"
          BooleanOptional.of_json in
      let globalWriteForwardingStatus =
        field_map json__ "GlobalWriteForwardingStatus"
          WriteForwardingStatus.of_json in
      let globalClusterIdentifier =
        field_map json__ "GlobalClusterIdentifier"
          GlobalClusterIdentifier.of_json in
      let tagList = field_map json__ "TagList" TagList.of_json in
      let domainMemberships =
        field_map json__ "DomainMemberships" DomainMembershipList.of_json in
      let crossAccountClone =
        field_map json__ "CrossAccountClone" BooleanOptional.of_json in
      let copyTagsToSnapshot =
        field_map json__ "CopyTagsToSnapshot" BooleanOptional.of_json in
      let activityStreamKinesisStreamName =
        field_map json__ "ActivityStreamKinesisStreamName" String_.of_json in
      let activityStreamKmsKeyId =
        field_map json__ "ActivityStreamKmsKeyId" String_.of_json in
      let activityStreamStatus =
        field_map json__ "ActivityStreamStatus" ActivityStreamStatus.of_json in
      let activityStreamMode =
        field_map json__ "ActivityStreamMode" ActivityStreamMode.of_json in
      let httpEndpointEnabled =
        field_map json__ "HttpEndpointEnabled" BooleanOptional.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" BooleanOptional.of_json in
      let autoMinorVersionUpgrade =
        field_map json__ "AutoMinorVersionUpgrade" Boolean.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" BooleanOptional.of_json in
      let iOOptimizedNextAllowedModificationTime =
        field_map json__ "IOOptimizedNextAllowedModificationTime"
          TStamp.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let dBClusterInstanceClass =
        field_map json__ "DBClusterInstanceClass" String_.of_json in
      let rdsCustomClusterConfiguration =
        field_map json__ "RdsCustomClusterConfiguration"
          RdsCustomClusterConfiguration.of_json in
      let scalingConfigurationInfo =
        field_map json__ "ScalingConfigurationInfo"
          ScalingConfigurationInfo.of_json in
      let engineMode = field_map json__ "EngineMode" String_.of_json in
      let pendingModifiedValues =
        field_map json__ "PendingModifiedValues"
          ClusterPendingModifiedValues.of_json in
      let capacity = field_map json__ "Capacity" IntegerOptional.of_json in
      let enabledCloudwatchLogsExports =
        field_map json__ "EnabledCloudwatchLogsExports" LogTypeList.of_json in
      let backtrackConsumedChangeRecords =
        field_map json__ "BacktrackConsumedChangeRecords"
          LongOptional.of_json in
      let backtrackWindow =
        field_map json__ "BacktrackWindow" LongOptional.of_json in
      let earliestBacktrackTime =
        field_map json__ "EarliestBacktrackTime" TStamp.of_json in
      let clusterCreateTime =
        field_map json__ "ClusterCreateTime" TStamp.of_json in
      let cloneGroupId = field_map json__ "CloneGroupId" String_.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled"
          BooleanOptional.of_json in
      let associatedRoles =
        field_map json__ "AssociatedRoles" DBClusterRoles.of_json in
      let dBClusterArn = field_map json__ "DBClusterArn" String_.of_json in
      let dbClusterResourceId =
        field_map json__ "DbClusterResourceId" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let storageEncrypted =
        field_map json__ "StorageEncrypted" Boolean.of_json in
      let hostedZoneId = field_map json__ "HostedZoneId" String_.of_json in
      let vpcSecurityGroups =
        field_map json__ "VpcSecurityGroups"
          VpcSecurityGroupMembershipList.of_json in
      let dBClusterMembers =
        field_map json__ "DBClusterMembers" DBClusterMemberList.of_json in
      let statusInfos =
        field_map json__ "StatusInfos" DBClusterStatusInfoList.of_json in
      let readReplicaIdentifiers =
        field_map json__ "ReadReplicaIdentifiers"
          ReadReplicaIdentifierList.of_json in
      let replicationSourceIdentifier =
        field_map json__ "ReplicationSourceIdentifier" String_.of_json in
      let upgradeRolloutOrder =
        field_map json__ "UpgradeRolloutOrder" UpgradeRolloutOrder.of_json in
      let preferredMaintenanceWindow =
        field_map json__ "PreferredMaintenanceWindow" String_.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let dBClusterOptionGroupMemberships =
        field_map json__ "DBClusterOptionGroupMemberships"
          DBClusterOptionGroupMemberships.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let latestRestorableTime =
        field_map json__ "LatestRestorableTime" TStamp.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let multiAZ = field_map json__ "MultiAZ" BooleanOptional.of_json in
      let customEndpoints =
        field_map json__ "CustomEndpoints" StringList.of_json in
      let readerEndpoint = field_map json__ "ReaderEndpoint" String_.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let earliestRestorableTime =
        field_map json__ "EarliestRestorableTime" TStamp.of_json in
      let percentProgress =
        field_map json__ "PercentProgress" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let dBSubnetGroup = field_map json__ "DBSubnetGroup" String_.of_json in
      let dBClusterParameterGroup =
        field_map json__ "DBClusterParameterGroup" String_.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let databaseName = field_map json__ "DatabaseName" String_.of_json in
      let characterSetName =
        field_map json__ "CharacterSetName" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" AvailabilityZones.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      make ?internetAccessGatewayEnabled ?vPCNetworkingEnabled
        ?engineLifecycleSupport ?certificateDetails ?clusterScalabilityType
        ?limitlessDatabase ?awsBackupRecoveryPointArn
        ?localWriteForwardingStatus ?masterUserSecret ?dBSystemId
        ?performanceInsightsRetentionPeriod ?performanceInsightsKMSKeyId
        ?performanceInsightsEnabled ?databaseInsightsMode ?monitoringRoleArn
        ?monitoringInterval ?serverlessV2PlatformVersion
        ?serverlessV2ScalingConfiguration ?automaticRestartTime ?networkType
        ?globalWriteForwardingRequested ?globalWriteForwardingStatus
        ?globalClusterIdentifier ?tagList ?domainMemberships
        ?crossAccountClone ?copyTagsToSnapshot
        ?activityStreamKinesisStreamName ?activityStreamKmsKeyId
        ?activityStreamStatus ?activityStreamMode ?httpEndpointEnabled
        ?deletionProtection ?autoMinorVersionUpgrade ?publiclyAccessible
        ?iOOptimizedNextAllowedModificationTime ?storageThroughput ?iops
        ?storageType ?dBClusterInstanceClass ?rdsCustomClusterConfiguration
        ?scalingConfigurationInfo ?engineMode ?pendingModifiedValues
        ?capacity ?enabledCloudwatchLogsExports
        ?backtrackConsumedChangeRecords ?backtrackWindow
        ?earliestBacktrackTime ?clusterCreateTime ?cloneGroupId
        ?iAMDatabaseAuthenticationEnabled ?associatedRoles ?dBClusterArn
        ?dbClusterResourceId ?kmsKeyId ?storageEncryptionType
        ?storageEncrypted ?hostedZoneId ?vpcSecurityGroups ?dBClusterMembers
        ?statusInfos ?readReplicaIdentifiers ?replicationSourceIdentifier
        ?upgradeRolloutOrder ?preferredMaintenanceWindow
        ?preferredBackupWindow ?dBClusterOptionGroupMemberships
        ?masterUsername ?port ?latestRestorableTime ?engineVersion ?engine
        ?multiAZ ?customEndpoints ?readerEndpoint ?endpoint
        ?earliestRestorableTime ?percentProgress ?status ?dBSubnetGroup
        ?dBClusterParameterGroup ?dBClusterIdentifier ?databaseName
        ?characterSetName ?backupRetentionPeriod ?availabilityZones
        ?allocatedStorage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of an Amazon Aurora DB cluster or Multi-AZ DB cluster. For an Amazon Aurora DB cluster, this data type is used as a response element in the operations CreateDBCluster, DeleteDBCluster, DescribeDBClusters, FailoverDBCluster, ModifyDBCluster, PromoteReadReplicaDBCluster, RestoreDBClusterFromS3, RestoreDBClusterFromSnapshot, RestoreDBClusterToPointInTime, StartDBCluster, and StopDBCluster. For a Multi-AZ DB cluster, this data type is used as a response element in the operations CreateDBCluster, DeleteDBCluster, DescribeDBClusters, FailoverDBCluster, ModifyDBCluster, RebootDBCluster, RestoreDBClusterFromSnapshot, and RestoreDBClusterToPointInTime. For more information on Amazon Aurora DB clusters, see What is Amazon Aurora? in the Amazon Aurora User Guide. For more information on Multi-AZ DB clusters, see Multi-AZ deployments with two readable standby DB instances in the Amazon RDS User Guide."]
module DBClusterEndpoint =
  struct
    type createDBClusterEndpointResult =
      {
      dBClusterEndpointIdentifier: String_.t option
        [@ocaml.doc
          "The identifier associated with the endpoint. This parameter is stored as a lowercase string."];
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The DB cluster identifier of the DB cluster associated with the endpoint. This parameter is stored as a lowercase string."];
      dBClusterEndpointResourceIdentifier: String_.t option
        [@ocaml.doc
          "A unique system-generated identifier for an endpoint. It remains the same for the whole life of the endpoint."];
      endpoint: String_.t option
        [@ocaml.doc "The DNS address of the endpoint."];
      status: String_.t option
        [@ocaml.doc
          "The current status of the endpoint. One of: creating, available, deleting, inactive, modifying. The inactive state applies to an endpoint that can't be used for a certain kind of cluster, such as a writer endpoint for a read-only secondary cluster in a global database."];
      endpointType: String_.t option
        [@ocaml.doc
          "The type of the endpoint. One of: READER, WRITER, CUSTOM."];
      customEndpointType: String_.t option
        [@ocaml.doc
          "The type associated with a custom endpoint. One of: READER, WRITER, ANY."];
      staticMembers: StringList.t option
        [@ocaml.doc
          "List of DB instance identifiers that are part of the custom endpoint group."];
      excludedMembers: StringList.t option
        [@ocaml.doc
          "List of DB instance identifiers that aren't part of the custom endpoint group. All other eligible instances are reachable through the custom endpoint. Only relevant if the list of static members is empty."];
      dBClusterEndpointArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the endpoint."]}
    and responseMetaData = unit
    and t =
      {
      createDBClusterEndpointResult: createDBClusterEndpointResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `DBClusterEndpointAlreadyExistsFault of
          DBClusterEndpointAlreadyExistsFault.t 
      | `DBClusterEndpointQuotaExceededFault of
          DBClusterEndpointQuotaExceededFault.t 
      | `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DBClusterEndpoint"
    let make ?dBClusterEndpointIdentifier =
      fun ?dBClusterIdentifier ->
        fun ?dBClusterEndpointResourceIdentifier ->
          fun ?endpoint ->
            fun ?status ->
              fun ?endpointType ->
                fun ?customEndpointType ->
                  fun ?staticMembers ->
                    fun ?excludedMembers ->
                      fun ?dBClusterEndpointArn ->
                        fun () ->
                          {
                            createDBClusterEndpointResult =
                              {
                                dBClusterEndpointIdentifier;
                                dBClusterIdentifier;
                                dBClusterEndpointResourceIdentifier;
                                endpoint;
                                status;
                                endpointType;
                                customEndpointType;
                                staticMembers;
                                excludedMembers;
                                dBClusterEndpointArn
                              };
                            responseMetaData = ()
                          }
    let error_of_json name json =
      match name with
      | "DBClusterEndpointAlreadyExistsFault" ->
          `DBClusterEndpointAlreadyExistsFault
            (DBClusterEndpointAlreadyExistsFault.of_json json)
      | "DBClusterEndpointQuotaExceededFault" ->
          `DBClusterEndpointQuotaExceededFault
            (DBClusterEndpointQuotaExceededFault.of_json json)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterEndpointAlreadyExistsFault" ->
          `DBClusterEndpointAlreadyExistsFault
            (DBClusterEndpointAlreadyExistsFault.of_xml xml)
      | "DBClusterEndpointQuotaExceededFault" ->
          `DBClusterEndpointQuotaExceededFault
            (DBClusterEndpointQuotaExceededFault.of_xml xml)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterEndpointAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBClusterEndpointAlreadyExistsFault"));
            ("details", (DBClusterEndpointAlreadyExistsFault.to_json e))]
      | `DBClusterEndpointQuotaExceededFault e ->
          `Assoc
            [("error", (`String "DBClusterEndpointQuotaExceededFault"));
            ("details", (DBClusterEndpointQuotaExceededFault.to_json e))]
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createDBClusterEndpointResult in
      structure_to_wrapped_value
        [("DBClusterEndpointIdentifier",
           (Option.map x.dBClusterEndpointIdentifier ~f:String_.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("DBClusterEndpointResourceIdentifier",
          (Option.map x.dBClusterEndpointResourceIdentifier
             ~f:String_.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("EndpointType", (Option.map x.endpointType ~f:String_.to_value));
        ("CustomEndpointType",
          (Option.map x.customEndpointType ~f:String_.to_value));
        ("StaticMembers",
          (Option.map x.staticMembers ~f:StringList.to_value));
        ("ExcludedMembers",
          (Option.map x.excludedMembers ~f:StringList.to_value));
        ("DBClusterEndpointArn",
          (Option.map x.dBClusterEndpointArn ~f:String_.to_value))]
        ~wrapper:"CreateDBClusterEndpointResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreateDBClusterEndpointResult" in
      let dBClusterEndpointArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterEndpointArn") in
      let excludedMembers =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "ExcludedMembers") in
      let staticMembers =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "StaticMembers") in
      let customEndpointType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CustomEndpointType") in
      let endpointType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EndpointType") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let dBClusterEndpointResourceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterEndpointResourceIdentifier") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let dBClusterEndpointIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterEndpointIdentifier") in
      make ?dBClusterEndpointArn ?excludedMembers ?staticMembers
        ?customEndpointType ?endpointType ?status ?endpoint
        ?dBClusterEndpointResourceIdentifier ?dBClusterIdentifier
        ?dBClusterEndpointIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBClusterEndpointArn =
        field_map json__ "DBClusterEndpointArn" String_.of_json in
      let excludedMembers =
        field_map json__ "ExcludedMembers" StringList.of_json in
      let staticMembers = field_map json__ "StaticMembers" StringList.of_json in
      let customEndpointType =
        field_map json__ "CustomEndpointType" String_.of_json in
      let endpointType = field_map json__ "EndpointType" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let endpoint = field_map json__ "Endpoint" String_.of_json in
      let dBClusterEndpointResourceIdentifier =
        field_map json__ "DBClusterEndpointResourceIdentifier"
          String_.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let dBClusterEndpointIdentifier =
        field_map json__ "DBClusterEndpointIdentifier" String_.of_json in
      make ?dBClusterEndpointArn ?excludedMembers ?staticMembers
        ?customEndpointType ?endpointType ?status ?endpoint
        ?dBClusterEndpointResourceIdentifier ?dBClusterIdentifier
        ?dBClusterEndpointIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type represents the information you need to connect to an Amazon Aurora DB cluster. This data type is used as a response element in the following actions: CreateDBClusterEndpoint DescribeDBClusterEndpoints ModifyDBClusterEndpoint DeleteDBClusterEndpoint For the data structure that represents Amazon RDS DB instance endpoints, see Endpoint."]
module DBClusterBacktrack =
  struct
    type backtrackDBClusterResult =
      {
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "Contains a user-supplied DB cluster identifier. This identifier is the unique key that identifies a DB cluster."];
      backtrackIdentifier: String_.t option
        [@ocaml.doc "Contains the backtrack identifier."];
      backtrackTo: TStamp.t option
        [@ocaml.doc
          "The timestamp of the time to which the DB cluster was backtracked."];
      backtrackedFrom: TStamp.t option
        [@ocaml.doc
          "The timestamp of the time from which the DB cluster was backtracked."];
      backtrackRequestCreationTime: TStamp.t option
        [@ocaml.doc
          "The timestamp of the time at which the backtrack was requested."];
      status: String_.t option
        [@ocaml.doc
          "The status of the backtrack. This property returns one of the following values: applying - The backtrack is currently being applied to or rolled back from the DB cluster. completed - The backtrack has successfully been applied to or rolled back from the DB cluster. failed - An error occurred while the backtrack was applied to or rolled back from the DB cluster. pending - The backtrack is currently pending application to or rollback from the DB cluster."]}
    and responseMetaData = unit
    and t =
      {
      backtrackDBClusterResult: backtrackDBClusterResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "DBClusterBacktrack"
    let make ?dBClusterIdentifier =
      fun ?backtrackIdentifier ->
        fun ?backtrackTo ->
          fun ?backtrackedFrom ->
            fun ?backtrackRequestCreationTime ->
              fun ?status ->
                fun () ->
                  {
                    backtrackDBClusterResult =
                      {
                        dBClusterIdentifier;
                        backtrackIdentifier;
                        backtrackTo;
                        backtrackedFrom;
                        backtrackRequestCreationTime;
                        status
                      };
                    responseMetaData = ()
                  }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.backtrackDBClusterResult in
      structure_to_wrapped_value
        [("DBClusterIdentifier",
           (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("BacktrackIdentifier",
          (Option.map x.backtrackIdentifier ~f:String_.to_value));
        ("BacktrackTo", (Option.map x.backtrackTo ~f:TStamp.to_value));
        ("BacktrackedFrom",
          (Option.map x.backtrackedFrom ~f:TStamp.to_value));
        ("BacktrackRequestCreationTime",
          (Option.map x.backtrackRequestCreationTime ~f:TStamp.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
        ~wrapper:"BacktrackDBClusterResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "BacktrackDBClusterResult" in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let backtrackRequestCreationTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "BacktrackRequestCreationTime") in
      let backtrackedFrom =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "BacktrackedFrom") in
      let backtrackTo =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "BacktrackTo") in
      let backtrackIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "BacktrackIdentifier") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      make ?status ?backtrackRequestCreationTime ?backtrackedFrom
        ?backtrackTo ?backtrackIdentifier ?dBClusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let backtrackRequestCreationTime =
        field_map json__ "BacktrackRequestCreationTime" TStamp.of_json in
      let backtrackedFrom = field_map json__ "BacktrackedFrom" TStamp.of_json in
      let backtrackTo = field_map json__ "BacktrackTo" TStamp.of_json in
      let backtrackIdentifier =
        field_map json__ "BacktrackIdentifier" String_.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      make ?status ?backtrackRequestCreationTime ?backtrackedFrom
        ?backtrackTo ?backtrackIdentifier ?dBClusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This data type is used as a response element in the DescribeDBClusterBacktracks action."]
module DBClusterAutomatedBackup =
  struct
    type nonrec t =
      {
      engine: String_.t option
        [@ocaml.doc
          "The name of the database engine for this automated backup."];
      vpcId: String_.t option
        [@ocaml.doc "The VPC ID associated with the DB cluster."];
      dBClusterAutomatedBackupsArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the automated backups."];
      dBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The identifier for the source DB cluster, which can't be changed and which is unique to an Amazon Web Services Region."];
      restoreWindow: RestoreWindow.t option ;
      masterUsername: String_.t option
        [@ocaml.doc "The master user name of the automated backup."];
      dbClusterResourceId: String_.t option
        [@ocaml.doc
          "The resource ID for the source DB cluster, which can't be changed and which is unique to an Amazon Web Services Region."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region associated with the automated backup."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model information for this DB cluster automated backup."];
      status: String_.t option
        [@ocaml.doc
          "A list of status information for an automated backup: retained - Automated backups for deleted clusters."];
      iAMDatabaseAuthenticationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts is enabled."];
      clusterCreateTime: TStamp.t option
        [@ocaml.doc
          "The time when the DB cluster was created, in Universal Coordinated Time (UTC)."];
      storageEncrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the source DB cluster is encrypted."];
      storageEncryptionType: StorageEncryptionType.t option
        [@ocaml.doc
          "The type of encryption used to protect data at rest in the automated backup. Possible values: none - The automated backup is not encrypted. sse-rds - The automated backup is encrypted using an Amazon Web Services owned KMS key. sse-kms - The automated backup is encrypted using a customer managed KMS key or Amazon Web Services managed KMS key."];
      allocatedStorage: Integer.t option
        [@ocaml.doc
          "For all database engines except Amazon Aurora, AllocatedStorage specifies the allocated storage size in gibibytes (GiB). For Aurora, AllocatedStorage always returns 1, because Aurora DB cluster storage size isn't fixed, but instead automatically adjusts as needed."];
      engineVersion: String_.t option
        [@ocaml.doc
          "The version of the database engine for the automated backup."];
      dBClusterArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the source DB cluster."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc "The retention period for the automated backups."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod."];
      engineMode: String_.t option
        [@ocaml.doc
          "The engine mode of the database engine for the automated backup."];
      availabilityZones: AvailabilityZones.t option
        [@ocaml.doc
          "The Availability Zones where instances in the DB cluster can be created. For information on Amazon Web Services Regions and Availability Zones, see Regions and Availability Zones."];
      port: Integer.t option
        [@ocaml.doc
          "The port number that the automated backup used for connections. Default: Inherits from the source DB cluster Valid Values: 1150-65535"];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key ID for an automated backup. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      storageType: String_.t option
        [@ocaml.doc
          "The storage type associated with the DB cluster. This setting is only for non-Aurora Multi-AZ DB clusters."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The IOPS (I/O operations per second) value for the automated backup. This setting is only for non-Aurora Multi-AZ DB clusters."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput for the automated backup. The throughput is automatically set based on the IOPS that you provision, and is not configurable. This setting is only for non-Aurora Multi-AZ DB clusters."];
      awsBackupRecoveryPointArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the recovery point in Amazon Web Services Backup."];
      tagList: TagList.t option }
    let make ?engine =
      fun ?vpcId ->
        fun ?dBClusterAutomatedBackupsArn ->
          fun ?dBClusterIdentifier ->
            fun ?restoreWindow ->
              fun ?masterUsername ->
                fun ?dbClusterResourceId ->
                  fun ?region ->
                    fun ?licenseModel ->
                      fun ?status ->
                        fun ?iAMDatabaseAuthenticationEnabled ->
                          fun ?clusterCreateTime ->
                            fun ?storageEncrypted ->
                              fun ?storageEncryptionType ->
                                fun ?allocatedStorage ->
                                  fun ?engineVersion ->
                                    fun ?dBClusterArn ->
                                      fun ?backupRetentionPeriod ->
                                        fun ?preferredBackupWindow ->
                                          fun ?engineMode ->
                                            fun ?availabilityZones ->
                                              fun ?port ->
                                                fun ?kmsKeyId ->
                                                  fun ?storageType ->
                                                    fun ?iops ->
                                                      fun ?storageThroughput
                                                        ->
                                                        fun
                                                          ?awsBackupRecoveryPointArn
                                                          ->
                                                          fun ?tagList ->
                                                            fun () ->
                                                              {
                                                                engine;
                                                                vpcId;
                                                                dBClusterAutomatedBackupsArn;
                                                                dBClusterIdentifier;
                                                                restoreWindow;
                                                                masterUsername;
                                                                dbClusterResourceId;
                                                                region;
                                                                licenseModel;
                                                                status;
                                                                iAMDatabaseAuthenticationEnabled;
                                                                clusterCreateTime;
                                                                storageEncrypted;
                                                                storageEncryptionType;
                                                                allocatedStorage;
                                                                engineVersion;
                                                                dBClusterArn;
                                                                backupRetentionPeriod;
                                                                preferredBackupWindow;
                                                                engineMode;
                                                                availabilityZones;
                                                                port;
                                                                kmsKeyId;
                                                                storageType;
                                                                iops;
                                                                storageThroughput;
                                                                awsBackupRecoveryPointArn;
                                                                tagList
                                                              }
    let to_value x =
      structure_to_value
        [("Engine", (Option.map x.engine ~f:String_.to_value));
        ("VpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("DBClusterAutomatedBackupsArn",
          (Option.map x.dBClusterAutomatedBackupsArn ~f:String_.to_value));
        ("DBClusterIdentifier",
          (Option.map x.dBClusterIdentifier ~f:String_.to_value));
        ("RestoreWindow",
          (Option.map x.restoreWindow ~f:RestoreWindow.to_value));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("DbClusterResourceId",
          (Option.map x.dbClusterResourceId ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("IAMDatabaseAuthenticationEnabled",
          (Option.map x.iAMDatabaseAuthenticationEnabled ~f:Boolean.to_value));
        ("ClusterCreateTime",
          (Option.map x.clusterCreateTime ~f:TStamp.to_value));
        ("StorageEncrypted",
          (Option.map x.storageEncrypted ~f:Boolean.to_value));
        ("StorageEncryptionType",
          (Option.map x.storageEncryptionType
             ~f:StorageEncryptionType.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:Integer.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("DBClusterArn", (Option.map x.dBClusterArn ~f:String_.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("EngineMode", (Option.map x.engineMode ~f:String_.to_value));
        ("AvailabilityZones",
          (Option.map x.availabilityZones ~f:AvailabilityZones.to_value));
        ("Port", (Option.map x.port ~f:Integer.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("AwsBackupRecoveryPointArn",
          (Option.map x.awsBackupRecoveryPointArn ~f:String_.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
      let awsBackupRecoveryPointArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AwsBackupRecoveryPointArn") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let port = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Port") in
      let availabilityZones =
        (Option.map ~f:AvailabilityZones.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      let engineMode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineMode") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let dBClusterArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBClusterArn") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let allocatedStorage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let storageEncryptionType =
        (Option.map ~f:StorageEncryptionType.of_xml)
          (Xml.child xml_arg0 "StorageEncryptionType") in
      let storageEncrypted =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "StorageEncrypted") in
      let clusterCreateTime =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "ClusterCreateTime") in
      let iAMDatabaseAuthenticationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IAMDatabaseAuthenticationEnabled") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let dbClusterResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DbClusterResourceId") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let restoreWindow =
        (Option.map ~f:RestoreWindow.of_xml)
          (Xml.child xml_arg0 "RestoreWindow") in
      let dBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterIdentifier") in
      let dBClusterAutomatedBackupsArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterAutomatedBackupsArn") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VpcId") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      make ?tagList ?awsBackupRecoveryPointArn ?storageThroughput ?iops
        ?storageType ?kmsKeyId ?port ?availabilityZones ?engineMode
        ?preferredBackupWindow ?backupRetentionPeriod ?dBClusterArn
        ?engineVersion ?allocatedStorage ?storageEncryptionType
        ?storageEncrypted ?clusterCreateTime
        ?iAMDatabaseAuthenticationEnabled ?status ?licenseModel ?region
        ?dbClusterResourceId ?masterUsername ?restoreWindow
        ?dBClusterIdentifier ?dBClusterAutomatedBackupsArn ?vpcId ?engine ()
    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
      let awsBackupRecoveryPointArn =
        field_map json__ "AwsBackupRecoveryPointArn" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let port = field_map json__ "Port" Integer.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" AvailabilityZones.of_json in
      let engineMode = field_map json__ "EngineMode" String_.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let dBClusterArn = field_map json__ "DBClusterArn" String_.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" Integer.of_json in
      let storageEncryptionType =
        field_map json__ "StorageEncryptionType"
          StorageEncryptionType.of_json in
      let storageEncrypted =
        field_map json__ "StorageEncrypted" Boolean.of_json in
      let clusterCreateTime =
        field_map json__ "ClusterCreateTime" TStamp.of_json in
      let iAMDatabaseAuthenticationEnabled =
        field_map json__ "IAMDatabaseAuthenticationEnabled" Boolean.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let dbClusterResourceId =
        field_map json__ "DbClusterResourceId" String_.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let restoreWindow =
        field_map json__ "RestoreWindow" RestoreWindow.of_json in
      let dBClusterIdentifier =
        field_map json__ "DBClusterIdentifier" String_.of_json in
      let dBClusterAutomatedBackupsArn =
        field_map json__ "DBClusterAutomatedBackupsArn" String_.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      make ?tagList ?awsBackupRecoveryPointArn ?storageThroughput ?iops
        ?storageType ?kmsKeyId ?port ?availabilityZones ?engineMode
        ?preferredBackupWindow ?backupRetentionPeriod ?dBClusterArn
        ?engineVersion ?allocatedStorage ?storageEncryptionType
        ?storageEncrypted ?clusterCreateTime
        ?iAMDatabaseAuthenticationEnabled ?status ?licenseModel ?region
        ?dbClusterResourceId ?masterUsername ?restoreWindow
        ?dBClusterIdentifier ?dBClusterAutomatedBackupsArn ?vpcId ?engine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An automated backup of a DB cluster. It consists of system backups, transaction logs, and the database cluster properties that existed at the time you deleted the source cluster."]
module Certificate =
  struct
    type nonrec t =
      {
      certificateIdentifier: String_.t option
        [@ocaml.doc "The unique key that identifies a certificate."];
      certificateType: String_.t option
        [@ocaml.doc "The type of the certificate."];
      thumbprint: String_.t option
        [@ocaml.doc "The thumbprint of the certificate."];
      validFrom: TStamp.t option
        [@ocaml.doc "The starting date from which the certificate is valid."];
      validTill: TStamp.t option
        [@ocaml.doc
          "The final date that the certificate continues to be valid."];
      certificateArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the certificate."];
      customerOverride: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether there is an override for the default certificate identifier."];
      customerOverrideValidTill: TStamp.t option
        [@ocaml.doc
          "If there is an override for the default certificate identifier, when the override expires."]}
    let make ?certificateIdentifier =
      fun ?certificateType ->
        fun ?thumbprint ->
          fun ?validFrom ->
            fun ?validTill ->
              fun ?certificateArn ->
                fun ?customerOverride ->
                  fun ?customerOverrideValidTill ->
                    fun () ->
                      {
                        certificateIdentifier;
                        certificateType;
                        thumbprint;
                        validFrom;
                        validTill;
                        certificateArn;
                        customerOverride;
                        customerOverrideValidTill
                      }
    let to_value x =
      structure_to_value
        [("CertificateIdentifier",
           (Option.map x.certificateIdentifier ~f:String_.to_value));
        ("CertificateType",
          (Option.map x.certificateType ~f:String_.to_value));
        ("Thumbprint", (Option.map x.thumbprint ~f:String_.to_value));
        ("ValidFrom", (Option.map x.validFrom ~f:TStamp.to_value));
        ("ValidTill", (Option.map x.validTill ~f:TStamp.to_value));
        ("CertificateArn", (Option.map x.certificateArn ~f:String_.to_value));
        ("CustomerOverride",
          (Option.map x.customerOverride ~f:BooleanOptional.to_value));
        ("CustomerOverrideValidTill",
          (Option.map x.customerOverrideValidTill ~f:TStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerOverrideValidTill =
        (Option.map ~f:TStamp.of_xml)
          (Xml.child xml_arg0 "CustomerOverrideValidTill") in
      let customerOverride =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CustomerOverride") in
      let certificateArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CertificateArn") in
      let validTill =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "ValidTill") in
      let validFrom =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "ValidFrom") in
      let thumbprint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Thumbprint") in
      let certificateType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CertificateType") in
      let certificateIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CertificateIdentifier") in
      make ?customerOverrideValidTill ?customerOverride ?certificateArn
        ?validTill ?validFrom ?thumbprint ?certificateType
        ?certificateIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerOverrideValidTill =
        field_map json__ "CustomerOverrideValidTill" TStamp.of_json in
      let customerOverride =
        field_map json__ "CustomerOverride" BooleanOptional.of_json in
      let certificateArn = field_map json__ "CertificateArn" String_.of_json in
      let validTill = field_map json__ "ValidTill" TStamp.of_json in
      let validFrom = field_map json__ "ValidFrom" TStamp.of_json in
      let thumbprint = field_map json__ "Thumbprint" String_.of_json in
      let certificateType =
        field_map json__ "CertificateType" String_.of_json in
      let certificateIdentifier =
        field_map json__ "CertificateIdentifier" String_.of_json in
      make ?customerOverrideValidTill ?customerOverride ?certificateArn
        ?validTill ?validFrom ?thumbprint ?certificateType
        ?certificateIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A CA certificate for an Amazon Web Services account. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."]
module AccountQuota =
  struct
    type nonrec t =
      {
      accountQuotaName: String_.t option
        [@ocaml.doc
          "The name of the Amazon RDS quota for this Amazon Web Services account."];
      used: Long.t option
        [@ocaml.doc "The amount currently used toward the quota maximum."];
      max: Long.t option
        [@ocaml.doc "The maximum allowed value for the quota."]}
    let make ?accountQuotaName =
      fun ?used -> fun ?max -> fun () -> { accountQuotaName; used; max }
    let to_value x =
      structure_to_value
        [("AccountQuotaName",
           (Option.map x.accountQuotaName ~f:String_.to_value));
        ("Used", (Option.map x.used ~f:Long.to_value));
        ("Max", (Option.map x.max ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Max") in
      let used = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "Used") in
      let accountQuotaName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AccountQuotaName") in
      make ?max ?used ?accountQuotaName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Long.of_json in
      let used = field_map json__ "Used" Long.of_json in
      let accountQuotaName =
        field_map json__ "AccountQuotaName" String_.of_json in
      make ?max ?used ?accountQuotaName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a quota for an Amazon Web Services account. The following are account quotas: AllocatedStorage - The total allocated storage per account, in GiB. The used value is the total allocated storage in the account, in GiB. AuthorizationsPerDBSecurityGroup - The number of ingress rules per DB security group. The used value is the highest number of ingress rules in a DB security group in the account. Other DB security groups in the account might have a lower number of ingress rules. CustomEndpointsPerDBCluster - The number of custom endpoints per DB cluster. The used value is the highest number of custom endpoints in a DB clusters in the account. Other DB clusters in the account might have a lower number of custom endpoints. DBClusterParameterGroups - The number of DB cluster parameter groups per account, excluding default parameter groups. The used value is the count of nondefault DB cluster parameter groups in the account. DBClusterRoles - The number of associated Amazon Web Services Identity and Access Management (IAM) roles per DB cluster. The used value is the highest number of associated IAM roles for a DB cluster in the account. Other DB clusters in the account might have a lower number of associated IAM roles. DBClusters - The number of DB clusters per account. The used value is the count of DB clusters in the account. DBInstanceRoles - The number of associated IAM roles per DB instance. The used value is the highest number of associated IAM roles for a DB instance in the account. Other DB instances in the account might have a lower number of associated IAM roles. DBInstances - The number of DB instances per account. The used value is the count of the DB instances in the account. Amazon RDS DB instances, Amazon Aurora DB instances, Amazon Neptune instances, and Amazon DocumentDB instances apply to this quota. DBParameterGroups - The number of DB parameter groups per account, excluding default parameter groups. The used value is the count of nondefault DB parameter groups in the account. DBSecurityGroups - The number of DB security groups (not VPC security groups) per account, excluding the default security group. The used value is the count of nondefault DB security groups in the account. DBSubnetGroups - The number of DB subnet groups per account. The used value is the count of the DB subnet groups in the account. EventSubscriptions - The number of event subscriptions per account. The used value is the count of the event subscriptions in the account. ManualClusterSnapshots - The number of manual DB cluster snapshots per account. The used value is the count of the manual DB cluster snapshots in the account. ManualSnapshots - The number of manual DB instance snapshots per account. The used value is the count of the manual DB instance snapshots in the account. OptionGroups - The number of DB option groups per account, excluding default option groups. The used value is the count of nondefault DB option groups in the account. ReadReplicasPerMaster - The number of read replicas per DB instance. The used value is the highest number of read replicas for a DB instance in the account. Other DB instances in the account might have a lower number of read replicas. ReservedDBInstances - The number of reserved DB instances per account. The used value is the count of the active reserved DB instances in the account. SubnetsPerDBSubnetGroup - The number of subnets per DB subnet group. The used value is highest number of subnets for a DB subnet group in the account. Other DB subnet groups in the account might have a lower number of subnets. For more information, see Quotas for Amazon RDS in the Amazon RDS User Guide and Quotas for Amazon Aurora in the Amazon Aurora User Guide."]
module TenantDatabasesList =
  struct
    type nonrec t = TenantDatabase.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:TenantDatabase.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:TenantDatabase.of_xml)
    let of_json j =
      list_of_json ~kind:"TenantDatabasesList"
        ~of_json:TenantDatabase.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlueGreenDeploymentNotFoundFault =
  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
       "BlueGreenDeploymentIdentifier doesn't refer to an existing blue/green deployment."]
module DBProxyEndpointNotFoundFault =
  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 DB proxy endpoint doesn't exist."]
module DBProxyNotFoundFault =
  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 specified proxy name doesn't correspond to a proxy owned by your Amazon Web Services account in the specified Amazon Web Services Region."]
module DBProxyTargetGroupNotFoundFault =
  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 specified target group isn't available for a proxy owned by your Amazon Web Services account in the specified Amazon Web Services Region."]
module DBSnapshotTenantDatabaseNotFoundFault =
  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 specified snapshot tenant database wasn't found."]
module TenantDatabaseNotFoundFault =
  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 specified tenant database wasn't found in the DB instance."]
module GlobalClusterNotFoundFault =
  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 GlobalClusterIdentifier doesn't refer to an existing global database cluster."]
module InvalidGlobalClusterStateFault =
  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 global cluster is in an invalid state and can't perform the requested operation."]
module DBClusterIdentifier =
  struct
    type nonrec t = string
    let context_ = "DBClusterIdentifier"
    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-z][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:"DBClusterIdentifier" j
    let to_json = simple_to_json to_value
  end
module InvalidBlueGreenDeploymentStateFault =
  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 blue/green deployment can't be switched over or deleted because there is an invalid configuration in the green environment."]
module SwitchoverTimeout =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:30); 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 SwitchoverTimeout" 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 DBSnapshotAlreadyExistsFault =
  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
       "DBSnapshotIdentifier is already used by an existing snapshot."]
module SnapshotQuotaExceededFault =
  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 would result in the user exceeding the allowed number of DB snapshots."]
module ResourceNotFoundFault =
  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 specified resource ID was not found."]
module AuthorizationNotFoundFault =
  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 specified CIDR IP range or Amazon EC2 security group might not be authorized for the specified DB security group. Or, RDS might not be authorized to perform necessary actions using IAM on your behalf."]
module DBSubnetGroupDoesNotCoverEnoughAZs =
  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
       "Subnets in the DB subnet group should cover at least two Availability Zones unless there is only one Availability Zone."]
module DBSubnetGroupNotFoundFault =
  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
       "DBSubnetGroupName doesn't refer to an existing DB subnet group."]
module InsufficientDBInstanceCapacityFault =
  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 specified DB instance class isn't available in the specified Availability Zone."]
module InvalidSubnet =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested subnet is invalid, or multiple subnets were requested that are not all in a common VPC."]
module VpcEncryptionControlViolationException =
  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 operation violates VPC encryption control settings. Make sure that your DB instance type supports the Nitro encryption-in-transit capability, or modify your VPC's encryption controls to not enforce encryption-in-transit."]
module DBInstanceAutomatedBackupQuotaExceededFault =
  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 quota for retained automated backups was exceeded. This prevents you from retaining any additional automated backups. The retained automated backups quota is the same as your DB instance quota."]
module InvalidDBInstanceAutomatedBackupStateFault =
  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 automated backup is in an invalid state. For example, this automated backup is associated with an active instance."]
module StorageTypeNotSupportedFault =
  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 specified StorageType can't be associated with the DB instance."]
module SourceRegionList =
  struct
    type nonrec t = SourceRegion.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:SourceRegion.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:SourceRegion.of_xml)
    let of_json j =
      list_of_json ~kind:"SourceRegionList" ~of_json:SourceRegion.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServerlessV2PlatformVersionList =
  struct
    type nonrec t = ServerlessV2PlatformVersionInfo.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:ServerlessV2PlatformVersionInfo.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:ServerlessV2PlatformVersionInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"ServerlessV2PlatformVersionList"
        ~of_json:ServerlessV2PlatformVersionInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSecurityGroupNotFoundFault =
  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
       "DBSecurityGroupName doesn't refer to an existing DB security group."]
module InvalidDBSecurityGroupStateFault =
  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 state of the DB security group doesn't allow deletion."]
module BackupPolicyNotFoundFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end
module CertificateNotFoundFault =
  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
       "CertificateIdentifier doesn't refer to an existing certificate."]
module DBInstanceAlreadyExistsFault =
  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 user already has a DB instance with the given identifier."]
module DBInstanceAutomatedBackupNotFoundFault =
  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 "No automated backup for this DB instance was found."]
module DBParameterGroupNotFoundFault =
  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
       "DBParameterGroupName doesn't refer to an existing DB parameter group."]
module DomainNotFoundFault =
  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
       "Domain doesn't refer to an existing Active Directory domain."]
module InstanceQuotaExceededFault =
  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 would result in the user exceeding the allowed number of DB instances."]
module InvalidRestoreFault =
  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 "Cannot restore from VPC backup to non-VPC DB instance."]
module OptionGroupNotFoundFault =
  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 specified option group could not be found."]
module PointInTimeRestoreNotEnabledFault =
  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
       "SourceDBInstanceIdentifier refers to a DB instance with BackupRetentionPeriod equal to 0."]
module ProvisionedIopsNotAvailableInAZFault =
  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
       "Provisioned IOPS not available in the specified Availability Zone."]
module StorageQuotaExceededFault =
  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 would result in the user exceeding the allowed amount of storage available across all DB instances."]
module TenantDatabaseQuotaExceededFault =
  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
       "You attempted to create more tenant databases than are permitted in your Amazon Web Services account."]
module TagSpecificationList =
  struct
    type nonrec t = TagSpecification.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:TagSpecification.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:TagSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"TagSpecificationList"
        ~of_json:TagSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidDBSnapshotStateFault =
  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 state of the DB snapshot doesn't allow deletion."]
module DBClusterAlreadyExistsFault =
  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 user already has a DB cluster with the given identifier."]
module DBClusterAutomatedBackupNotFoundFault =
  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 "No automated backup for this DB cluster was found."]
module DBClusterParameterGroupNotFoundFault =
  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
       "DBClusterParameterGroupName doesn't refer to an existing DB cluster parameter group."]
module DBClusterQuotaExceededFault =
  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 user attempted to create a new DB cluster and the user has already reached the maximum allowed DB cluster quota."]
module InsufficientDBClusterCapacityFault =
  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 DB cluster doesn't have enough capacity for the current operation."]
module InsufficientStorageClusterCapacityFault =
  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
       "There is insufficient storage available for the current action. You might be able to resolve this error by updating your subnet group to use different Availability Zones that have more storage available."]
module InvalidDBClusterSnapshotStateFault =
  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 supplied value isn't a valid DB cluster snapshot state."]
module ScalingConfiguration =
  struct
    type nonrec t =
      {
      minCapacity: IntegerOptional.t option
        [@ocaml.doc
          "The minimum capacity for an Aurora DB cluster in serverless DB engine mode. For Aurora MySQL, valid capacity values are 1, 2, 4, 8, 16, 32, 64, 128, and 256. For Aurora PostgreSQL, valid capacity values are 2, 4, 8, 16, 32, 64, 192, and 384. The minimum capacity must be less than or equal to the maximum capacity."];
      maxCapacity: IntegerOptional.t option
        [@ocaml.doc
          "The maximum capacity for an Aurora DB cluster in serverless DB engine mode. For Aurora MySQL, valid capacity values are 1, 2, 4, 8, 16, 32, 64, 128, and 256. For Aurora PostgreSQL, valid capacity values are 2, 4, 8, 16, 32, 64, 192, and 384. The maximum capacity must be greater than or equal to the minimum capacity."];
      autoPause: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether to allow or disallow automatic pause for an Aurora DB cluster in serverless DB engine mode. A DB cluster can be paused only when it's idle (it has no connections). If a DB cluster is paused for more than seven days, the DB cluster might be backed up with a snapshot. In this case, the DB cluster is restored when there is a request to connect to it."];
      secondsUntilAutoPause: IntegerOptional.t option
        [@ocaml.doc
          "The time, in seconds, before an Aurora DB cluster in serverless mode is paused. Specify a value between 300 and 86,400 seconds."];
      timeoutAction: String_.t option
        [@ocaml.doc
          "The action to take when the timeout is reached, either ForceApplyCapacityChange or RollbackCapacityChange. ForceApplyCapacityChange sets the capacity to the specified value as soon as possible. RollbackCapacityChange, the default, ignores the capacity change if a scaling point isn't found in the timeout period. If you specify ForceApplyCapacityChange, connections that prevent Aurora Serverless v1 from finding a scaling point might be dropped. For more information, see Autoscaling for Aurora Serverless v1 in the Amazon Aurora User Guide."];
      secondsBeforeTimeout: IntegerOptional.t option
        [@ocaml.doc
          "The amount of time, in seconds, that Aurora Serverless v1 tries to find a scaling point to perform seamless scaling before enforcing the timeout action. The default is 300. Specify a value between 60 and 600 seconds."]}
    let make ?minCapacity =
      fun ?maxCapacity ->
        fun ?autoPause ->
          fun ?secondsUntilAutoPause ->
            fun ?timeoutAction ->
              fun ?secondsBeforeTimeout ->
                fun () ->
                  {
                    minCapacity;
                    maxCapacity;
                    autoPause;
                    secondsUntilAutoPause;
                    timeoutAction;
                    secondsBeforeTimeout
                  }
    let to_value x =
      structure_to_value
        [("MinCapacity",
           (Option.map x.minCapacity ~f:IntegerOptional.to_value));
        ("MaxCapacity",
          (Option.map x.maxCapacity ~f:IntegerOptional.to_value));
        ("AutoPause", (Option.map x.autoPause ~f:BooleanOptional.to_value));
        ("SecondsUntilAutoPause",
          (Option.map x.secondsUntilAutoPause ~f:IntegerOptional.to_value));
        ("TimeoutAction", (Option.map x.timeoutAction ~f:String_.to_value));
        ("SecondsBeforeTimeout",
          (Option.map x.secondsBeforeTimeout ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secondsBeforeTimeout =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "SecondsBeforeTimeout") in
      let timeoutAction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TimeoutAction") in
      let secondsUntilAutoPause =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "SecondsUntilAutoPause") in
      let autoPause =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "AutoPause") in
      let maxCapacity =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxCapacity") in
      let minCapacity =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MinCapacity") in
      make ?secondsBeforeTimeout ?timeoutAction ?secondsUntilAutoPause
        ?autoPause ?maxCapacity ?minCapacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secondsBeforeTimeout =
        field_map json__ "SecondsBeforeTimeout" IntegerOptional.of_json in
      let timeoutAction = field_map json__ "TimeoutAction" String_.of_json in
      let secondsUntilAutoPause =
        field_map json__ "SecondsUntilAutoPause" IntegerOptional.of_json in
      let autoPause = field_map json__ "AutoPause" BooleanOptional.of_json in
      let maxCapacity =
        field_map json__ "MaxCapacity" IntegerOptional.of_json in
      let minCapacity =
        field_map json__ "MinCapacity" IntegerOptional.of_json in
      make ?secondsBeforeTimeout ?timeoutAction ?secondsUntilAutoPause
        ?autoPause ?maxCapacity ?minCapacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the scaling configuration of an Aurora Serverless v1 DB cluster. For more information, see Using Amazon Aurora Serverless v1 in the Amazon Aurora User Guide."]
module ServerlessV2ScalingConfiguration =
  struct
    type nonrec t =
      {
      minCapacity: DoubleOptional.t option
        [@ocaml.doc
          "The minimum number of Aurora capacity units (ACUs) for a DB instance in an Aurora Serverless v2 cluster. You can specify ACU values in half-step increments, such as 8, 8.5, 9, and so on. For Aurora versions that support the Aurora Serverless v2 auto-pause feature, the smallest value that you can use is 0. For versions that don't support Aurora Serverless v2 auto-pause, the smallest value that you can use is 0.5."];
      maxCapacity: DoubleOptional.t option
        [@ocaml.doc
          "The maximum number of Aurora capacity units (ACUs) for a DB instance in an Aurora Serverless v2 cluster. You can specify ACU values in half-step increments, such as 32, 32.5, 33, and so on. The largest value that you can use is 256 for recent Aurora versions, or 128 for older versions. You can check the attributes of your engine version or platform version to determine the specific maximum capacity supported."];
      secondsUntilAutoPause: IntegerOptional.t option
        [@ocaml.doc
          "Specifies the number of seconds an Aurora Serverless v2 DB instance must be idle before Aurora attempts to automatically pause it. Specify a value between 300 seconds (five minutes) and 86,400 seconds (one day). The default is 300 seconds."]}
    let make ?minCapacity =
      fun ?maxCapacity ->
        fun ?secondsUntilAutoPause ->
          fun () -> { minCapacity; maxCapacity; secondsUntilAutoPause }
    let to_value x =
      structure_to_value
        [("MinCapacity",
           (Option.map x.minCapacity ~f:DoubleOptional.to_value));
        ("MaxCapacity",
          (Option.map x.maxCapacity ~f:DoubleOptional.to_value));
        ("SecondsUntilAutoPause",
          (Option.map x.secondsUntilAutoPause ~f:IntegerOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secondsUntilAutoPause =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "SecondsUntilAutoPause") in
      let maxCapacity =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MaxCapacity") in
      let minCapacity =
        (Option.map ~f:DoubleOptional.of_xml)
          (Xml.child xml_arg0 "MinCapacity") in
      make ?secondsUntilAutoPause ?maxCapacity ?minCapacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secondsUntilAutoPause =
        field_map json__ "SecondsUntilAutoPause" IntegerOptional.of_json in
      let maxCapacity = field_map json__ "MaxCapacity" DoubleOptional.of_json in
      let minCapacity = field_map json__ "MinCapacity" DoubleOptional.of_json in
      make ?secondsUntilAutoPause ?maxCapacity ?minCapacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the scaling configuration of an Aurora Serverless v2 DB cluster. For more information, see Using Amazon Aurora Serverless v2 in the Amazon Aurora User Guide."]
module InvalidDBSubnetGroupStateFault =
  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 DB subnet group cannot be deleted because it's in use."]
module ReservedDBInstancesOfferingList =
  struct
    type nonrec t = ReservedDBInstancesOffering.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:ReservedDBInstancesOffering.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:ReservedDBInstancesOffering.of_xml)
    let of_json j =
      list_of_json ~kind:"ReservedDBInstancesOfferingList"
        ~of_json:ReservedDBInstancesOffering.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReservedDBInstancesOfferingNotFoundFault =
  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 "Specified offering does not exist."]
module ReservedDBInstanceList =
  struct
    type nonrec t = ReservedDBInstance.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:ReservedDBInstance.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:ReservedDBInstance.of_xml)
    let of_json j =
      list_of_json ~kind:"ReservedDBInstanceList"
        ~of_json:ReservedDBInstance.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReservedDBInstanceNotFoundFault =
  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 specified reserved DB Instance not found."]
module KeyList =
  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:"KeyList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module SourceNotFoundFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested source could not be found."]
module SubscriptionNotFoundFault =
  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 subscription name does not exist."]
module DBProxyTargetAlreadyRegisteredFault =
  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 proxy is already associated with the specified RDS DB instance or Aurora DB cluster."]
module InsufficientAvailableIPsInSubnetFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation can't be performed because there aren't enough available IP addresses in the proxy's subnets. Add more CIDR blocks to the VPC or remove IP address that aren't required from the subnets."]
module InvalidDBProxyStateFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation can't be performed while the proxy is in this state."]
module TargetList =
  struct
    type nonrec t = DBProxyTarget.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:DBProxyTarget.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:DBProxyTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetList" ~of_json:DBProxyTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBProxyName =
  struct
    type nonrec t = string
    let context_ = "DBProxyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z](?:-?[a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DBProxyName" j
    let to_json = simple_to_json to_value
  end
module DBProxyTargetGroupName =
  struct
    type nonrec t = string
    let context_ = "DBProxyTargetGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z](?:-?[a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DBProxyTargetGroupName" j
    let to_json = simple_to_json to_value
  end
module ReservedDBInstanceAlreadyExistsFault =
  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
       "User already has a reservation with the given identifier."]
module ReservedDBInstanceQuotaExceededFault =
  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 "Request would exceed the user's DB Instance quota."]
module PendingMaintenanceActions =
  struct
    type nonrec t = ResourcePendingMaintenanceActions.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:ResourcePendingMaintenanceActions.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:ResourcePendingMaintenanceActions.of_xml)
    let of_json j =
      list_of_json ~kind:"PendingMaintenanceActions"
        ~of_json:ResourcePendingMaintenanceActions.of_json j
    let to_json v = composed_to_json to_value v
  end
module OrderableDBInstanceOptionsList =
  struct
    type nonrec t = OrderableDBInstanceOption.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:OrderableDBInstanceOption.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:OrderableDBInstanceOption.of_xml)
    let of_json j =
      list_of_json ~kind:"OrderableDBInstanceOptionsList"
        ~of_json:OrderableDBInstanceOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionGroupsList =
  struct
    type nonrec t = OptionGroup.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:OptionGroup.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:OptionGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionGroupsList" ~of_json:OptionGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionGroupOptionsList =
  struct
    type nonrec t = OptionGroupOption.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:OptionGroupOption.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:OptionGroupOption.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionGroupOptionsList"
        ~of_json:OptionGroupOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module TenantDatabaseAlreadyExistsFault =
  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
       "You attempted to either create a tenant database that already exists or modify a tenant database to use the name of an existing tenant database."]
module InvalidOptionGroupStateFault =
  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 option group isn't in the available state."]
module OptionConfigurationList =
  struct
    type nonrec t = OptionConfiguration.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:OptionConfiguration.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:OptionConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"OptionConfigurationList"
        ~of_json:OptionConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionNamesList =
  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:"OptionNamesList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntegrationIdentifier =
  struct
    type nonrec t = string
    let context_ = "IntegrationIdentifier"
    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_:\\-\\/]+")));
        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:"IntegrationIdentifier" j
    let to_json = simple_to_json to_value
  end
module GlobalClusterAlreadyExistsFault =
  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 GlobalClusterIdentifier already exists. Specify a new global database identifier (unique name) to create a new global database cluster or to rename an existing one."]
module EventSubscriptionQuotaExceededFault =
  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
       "You have reached the maximum number of event subscriptions."]
module SNSInvalidTopicFault =
  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
       "SNS has responded that there is a problem with the SNS topic specified."]
module SNSNoAuthorizationFault =
  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
       "You do not have permission to publish to the SNS topic ARN."]
module SNSTopicArnNotFoundFault =
  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 SNS topic ARN does not exist."]
module SubscriptionCategoryNotFoundFault =
  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 supplied category does not exist."]
module DBSubnetQuotaExceededFault =
  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 would result in the user exceeding the allowed number of subnets in a DB subnet groups."]
module SubnetAlreadyInUse =
  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 DB subnet is already in use in the Availability Zone."]
module SubnetIdentifierList =
  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:"SubnetIdentifierList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSnapshotAttributesResult =
  struct
    type nonrec t =
      {
      dBSnapshotIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the manual DB snapshot that the attributes apply to."];
      dBSnapshotAttributes: DBSnapshotAttributeList.t option
        [@ocaml.doc
          "The list of attributes and values for the manual DB snapshot."]}
    let make ?dBSnapshotIdentifier =
      fun ?dBSnapshotAttributes ->
        fun () -> { dBSnapshotIdentifier; dBSnapshotAttributes }
    let to_value x =
      structure_to_value
        [("DBSnapshotIdentifier",
           (Option.map x.dBSnapshotIdentifier ~f:String_.to_value));
        ("DBSnapshotAttributes",
          (Option.map x.dBSnapshotAttributes
             ~f:DBSnapshotAttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBSnapshotAttributes =
        (Option.map ~f:DBSnapshotAttributeList.of_xml)
          (Xml.child xml_arg0 "DBSnapshotAttributes") in
      let dBSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSnapshotIdentifier") in
      make ?dBSnapshotAttributes ?dBSnapshotIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBSnapshotAttributes =
        field_map json__ "DBSnapshotAttributes"
          DBSnapshotAttributeList.of_json in
      let dBSnapshotIdentifier =
        field_map json__ "DBSnapshotIdentifier" String_.of_json in
      make ?dBSnapshotAttributes ?dBSnapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of a successful call to the DescribeDBSnapshotAttributes API action. Manual DB snapshot attributes are used to authorize other Amazon Web Services accounts to copy or restore a manual DB snapshot. For more information, see the ModifyDBSnapshotAttribute API action."]
module SharedSnapshotQuotaExceededFault =
  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
       "You have exceeded the maximum number of accounts that you can share a manual DB snapshot with."]
module RecommendedActionUpdateList =
  struct
    type nonrec t = RecommendedActionUpdate.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:RecommendedActionUpdate.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:RecommendedActionUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendedActionUpdateList"
        ~of_json:RecommendedActionUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionPoolConfiguration =
  struct
    type nonrec t =
      {
      maxConnectionsPercent: IntegerOptional.t option
        [@ocaml.doc
          "The maximum size of the connection pool for each target in a target group. The value is expressed as a percentage of the max_connections setting for the RDS DB instance or Aurora DB cluster used by the target group. If you specify MaxIdleConnectionsPercent, then you must also include a value for this parameter. Default: 10 for RDS for Microsoft SQL Server, and 100 for all other engines Constraints: Must be between 1 and 100."];
      maxIdleConnectionsPercent: IntegerOptional.t option
        [@ocaml.doc
          "A value that controls how actively the proxy closes idle database connections in the connection pool. The value is expressed as a percentage of the max_connections setting for the RDS DB instance or Aurora DB cluster used by the target group. With a high value, the proxy leaves a high percentage of idle database connections open. A low value causes the proxy to close more idle connections and return them to the database. If you specify this parameter, then you must also include a value for MaxConnectionsPercent. Default: The default value is half of the value of MaxConnectionsPercent. For example, if MaxConnectionsPercent is 80, then the default value of MaxIdleConnectionsPercent is 40. If the value of MaxConnectionsPercent isn't specified, then for SQL Server, MaxIdleConnectionsPercent is 5, and for all other engines, the default is 50. Constraints: Must be between 0 and the value of MaxConnectionsPercent."];
      connectionBorrowTimeout: IntegerOptional.t option
        [@ocaml.doc
          "The number of seconds for a proxy to wait for a connection to become available in the connection pool. This setting only applies when the proxy has opened its maximum number of connections and all connections are busy with client sessions. Default: 120 Constraints: Must be between 0 and 300."];
      sessionPinningFilters: StringList.t option
        [@ocaml.doc
          "Each item in the list represents a class of SQL operations that normally cause all later statements in a session using a proxy to be pinned to the same underlying database connection. Including an item in the list exempts that class of SQL operations from the pinning behavior. Default: no session pinning filters"];
      initQuery: OperatorSensitiveString.t option
        [@ocaml.doc
          "Add an initialization query, or modify the current one. You can specify one or more SQL statements for the proxy to run when opening each new database connection. The setting is typically used with SET statements to make sure that each connection has identical settings. Make sure the query added here is valid. This is an optional field, so you can choose to leave it empty. For including multiple variables in a single SET statement, use a comma separator. For example: SET variable1=value1, variable2=value2 Default: no initialization query Since you can access initialization query as part of target group configuration, it is not protected by authentication or cryptographic methods. Anyone with access to view or manage your proxy target group configuration can view the initialization query. You should not add sensitive data, such as passwords or long-lived encryption keys, to this option."]}
    let make ?maxConnectionsPercent =
      fun ?maxIdleConnectionsPercent ->
        fun ?connectionBorrowTimeout ->
          fun ?sessionPinningFilters ->
            fun ?initQuery ->
              fun () ->
                {
                  maxConnectionsPercent;
                  maxIdleConnectionsPercent;
                  connectionBorrowTimeout;
                  sessionPinningFilters;
                  initQuery
                }
    let to_value x =
      structure_to_value
        [("MaxConnectionsPercent",
           (Option.map x.maxConnectionsPercent ~f:IntegerOptional.to_value));
        ("MaxIdleConnectionsPercent",
          (Option.map x.maxIdleConnectionsPercent ~f:IntegerOptional.to_value));
        ("ConnectionBorrowTimeout",
          (Option.map x.connectionBorrowTimeout ~f:IntegerOptional.to_value));
        ("SessionPinningFilters",
          (Option.map x.sessionPinningFilters ~f:StringList.to_value));
        ("InitQuery",
          (Option.map x.initQuery ~f:OperatorSensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initQuery =
        (Option.map ~f:OperatorSensitiveString.of_xml)
          (Xml.child xml_arg0 "InitQuery") in
      let sessionPinningFilters =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "SessionPinningFilters") in
      let connectionBorrowTimeout =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "ConnectionBorrowTimeout") in
      let maxIdleConnectionsPercent =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxIdleConnectionsPercent") in
      let maxConnectionsPercent =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxConnectionsPercent") in
      make ?initQuery ?sessionPinningFilters ?connectionBorrowTimeout
        ?maxIdleConnectionsPercent ?maxConnectionsPercent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initQuery =
        field_map json__ "InitQuery" OperatorSensitiveString.of_json in
      let sessionPinningFilters =
        field_map json__ "SessionPinningFilters" StringList.of_json in
      let connectionBorrowTimeout =
        field_map json__ "ConnectionBorrowTimeout" IntegerOptional.of_json in
      let maxIdleConnectionsPercent =
        field_map json__ "MaxIdleConnectionsPercent" IntegerOptional.of_json in
      let maxConnectionsPercent =
        field_map json__ "MaxConnectionsPercent" IntegerOptional.of_json in
      make ?initQuery ?sessionPinningFilters ?connectionBorrowTimeout
        ?maxIdleConnectionsPercent ?maxConnectionsPercent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the settings that control the size and behavior of the connection pool associated with a DBProxyTargetGroup."]
module DBProxyAlreadyExistsFault =
  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 specified proxy name must be unique for all proxies owned by your Amazon Web Services account in the specified Amazon Web Services Region."]
module DefaultAuthScheme =
  struct
    type nonrec t =
      | IAM_AUTH 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IAM_AUTH -> "IAM_AUTH"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IAM_AUTH" -> IAM_AUTH
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DefaultAuthScheme" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DefaultAuthScheme" j)
    let to_json = simple_to_json to_value
  end
module UserAuthConfigList =
  struct
    type nonrec t = UserAuthConfig.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UserAuthConfig.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:UserAuthConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"UserAuthConfigList" ~of_json:UserAuthConfig.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DBProxyEndpointAlreadyExistsFault =
  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 specified DB proxy endpoint name must be unique for all DB proxy endpoints owned by your Amazon Web Services account in the specified Amazon Web Services Region."]
module InvalidDBProxyEndpointStateFault =
  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
       "You can't perform this operation while the DB proxy endpoint is in a particular state."]
module DBProxyEndpointName =
  struct
    type nonrec t = string
    let context_ = "DBProxyEndpointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z](?:-?[a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DBProxyEndpointName" j
    let to_json = simple_to_json to_value
  end
module DBUpgradeDependencyFailureFault =
  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 DB upgrade failed because a resource the DB depends on can't be modified."]
module AwsBackupRecoveryPointArn =
  struct
    type nonrec t = string
    let context_ = "AwsBackupRecoveryPointArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:43) >>=
             (fun () ->
                (check_string_max i ~max:350) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[a-z-]*:backup:[-a-z0-9]+:[0-9]{12}:[-a-z]+:([a-z0-9\\-]+:)?[a-z][a-z0-9\\-]{0,255}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AwsBackupRecoveryPointArn" j
    let to_json = simple_to_json to_value
  end
module CloudwatchLogsExportConfiguration =
  struct
    type nonrec t =
      {
      enableLogTypes: LogTypeList.t option
        [@ocaml.doc
          "The list of log types to enable. The following values are valid for each DB engine: Aurora MySQL - audit | error | general | slowquery Aurora PostgreSQL - postgresql RDS for MySQL - error | general | slowquery RDS for PostgreSQL - postgresql | upgrade"];
      disableLogTypes: LogTypeList.t option
        [@ocaml.doc
          "The list of log types to disable. The following values are valid for each DB engine: Aurora MySQL - audit | error | general | slowquery Aurora PostgreSQL - postgresql RDS for MySQL - error | general | slowquery RDS for PostgreSQL - postgresql | upgrade"]}
    let make ?enableLogTypes =
      fun ?disableLogTypes -> fun () -> { enableLogTypes; disableLogTypes }
    let to_value x =
      structure_to_value
        [("EnableLogTypes",
           (Option.map x.enableLogTypes ~f:LogTypeList.to_value));
        ("DisableLogTypes",
          (Option.map x.disableLogTypes ~f:LogTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disableLogTypes =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "DisableLogTypes") in
      let enableLogTypes =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnableLogTypes") in
      make ?disableLogTypes ?enableLogTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disableLogTypes =
        field_map json__ "DisableLogTypes" LogTypeList.of_json in
      let enableLogTypes =
        field_map json__ "EnableLogTypes" LogTypeList.of_json in
      make ?disableLogTypes ?enableLogTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration setting for the log types to be enabled for export to CloudWatch Logs for a specific DB instance or DB cluster. The EnableLogTypes and DisableLogTypes arrays determine which logs will be exported (or not exported) to CloudWatch Logs. The values within these arrays depend on the DB engine being used. For more information about exporting CloudWatch Logs for Amazon RDS DB instances, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon RDS User Guide. For more information about exporting CloudWatch Logs for Amazon Aurora DB clusters, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon Aurora User Guide."]
module MasterUserAuthenticationType =
  struct
    type nonrec t =
      | Password 
      | Iam_db_auth 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Password -> "password"
      | Iam_db_auth -> "iam-db-auth"
      | Non_static_id s -> s
    let of_string =
      function
      | "password" -> Password
      | "iam-db-auth" -> Iam_db_auth
      | 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 MasterUserAuthenticationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MasterUserAuthenticationType" j)
    let to_json = simple_to_json to_value
  end
module ModifyAdditionalStorageVolumesList =
  struct
    type nonrec t = ModifyAdditionalStorageVolume.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:ModifyAdditionalStorageVolume.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:ModifyAdditionalStorageVolume.of_xml)
    let of_json j =
      list_of_json ~kind:"ModifyAdditionalStorageVolumesList"
        ~of_json:ModifyAdditionalStorageVolume.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterSnapshotAttributesResult =
  struct
    type nonrec t =
      {
      dBClusterSnapshotIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the manual DB cluster snapshot that the attributes apply to."];
      dBClusterSnapshotAttributes: DBClusterSnapshotAttributeList.t option
        [@ocaml.doc
          "The list of attributes and values for the manual DB cluster snapshot."]}
    let make ?dBClusterSnapshotIdentifier =
      fun ?dBClusterSnapshotAttributes ->
        fun () ->
          { dBClusterSnapshotIdentifier; dBClusterSnapshotAttributes }
    let to_value x =
      structure_to_value
        [("DBClusterSnapshotIdentifier",
           (Option.map x.dBClusterSnapshotIdentifier ~f:String_.to_value));
        ("DBClusterSnapshotAttributes",
          (Option.map x.dBClusterSnapshotAttributes
             ~f:DBClusterSnapshotAttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBClusterSnapshotAttributes =
        (Option.map ~f:DBClusterSnapshotAttributeList.of_xml)
          (Xml.child xml_arg0 "DBClusterSnapshotAttributes") in
      let dBClusterSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterSnapshotIdentifier") in
      make ?dBClusterSnapshotAttributes ?dBClusterSnapshotIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBClusterSnapshotAttributes =
        field_map json__ "DBClusterSnapshotAttributes"
          DBClusterSnapshotAttributeList.of_json in
      let dBClusterSnapshotIdentifier =
        field_map json__ "DBClusterSnapshotIdentifier" String_.of_json in
      make ?dBClusterSnapshotAttributes ?dBClusterSnapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of a successful call to the DescribeDBClusterSnapshotAttributes API action. Manual DB cluster snapshot attributes are used to authorize other Amazon Web Services accounts to copy or restore a manual DB cluster snapshot. For more information, see the ModifyDBClusterSnapshotAttribute API action."]
module StorageTypeNotAvailableFault =
  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 aurora-iopt1 storage type isn't available, because you modified the DB cluster to use this storage type less than one month ago."]
module CustomEngineName =
  struct
    type nonrec t = string
    let context_ = "CustomEngineName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:35) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9-]{1,35}")));
        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:"CustomEngineName" j
    let to_json = simple_to_json to_value
  end
module CustomEngineVersion =
  struct
    type nonrec t = string
    let context_ = "CustomEngineVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:60) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9_.-]{1,60}")));
        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:"CustomEngineVersion" j
    let to_json = simple_to_json to_value
  end
module CustomEngineVersionStatus =
  struct
    type nonrec t =
      | Available 
      | Inactive 
      | Inactive_except_restore 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Inactive -> "inactive"
      | Inactive_except_restore -> "inactive-except-restore"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "inactive" -> Inactive
      | "inactive-except-restore" -> Inactive_except_restore
      | 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 CustomEngineVersionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CustomEngineVersionStatus" j)
    let to_json = simple_to_json to_value
  end
module AuditPolicyState =
  struct
    type nonrec t =
      | Locked 
      | Unlocked 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Locked -> "locked"
      | Unlocked -> "unlocked"
      | Non_static_id s -> s
    let of_string =
      function
      | "locked" -> Locked
      | "unlocked" -> Unlocked
      | 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 AuditPolicyState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuditPolicyState" j)
    let to_json = simple_to_json to_value
  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 GlobalClusterList =
  struct
    type nonrec t = GlobalCluster.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:GlobalCluster.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:GlobalCluster.of_xml)
    let of_json j =
      list_of_json ~kind:"GlobalClusterList" ~of_json:GlobalCluster.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExportTasksList =
  struct
    type nonrec t = ExportTask.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:ExportTask.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:ExportTask.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportTasksList" ~of_json:ExportTask.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventList =
  struct
    type nonrec t = Event.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:Event.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:Event.of_xml)
    let of_json j = list_of_json ~kind:"EventList" ~of_json:Event.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventSubscriptionsList =
  struct
    type nonrec t = EventSubscription.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:EventSubscription.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:EventSubscription.of_xml)
    let of_json j =
      list_of_json ~kind:"EventSubscriptionsList"
        ~of_json:EventSubscription.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventCategoriesMapList =
  struct
    type nonrec t = EventCategoriesMap.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:EventCategoriesMap.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:EventCategoriesMap.of_xml)
    let of_json j =
      list_of_json ~kind:"EventCategoriesMapList"
        ~of_json:EventCategoriesMap.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidResourceStateFault =
  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 operation can't be performed because another operation is in progress."]
module DBInstanceNotReadyFault =
  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 attempt to download or examine log files didn't succeed because an Aurora Serverless v2 instance was paused."]
module DBLogFileNotFoundFault =
  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 "LogFileName doesn't refer to an existing DB log file."]
module ValidDBInstanceModificationsMessage =
  struct
    type nonrec t =
      {
      storage: ValidStorageOptionsList.t option
        [@ocaml.doc "Valid storage options for your DB instance."];
      validProcessorFeatures: AvailableProcessorFeatureList.t option
        [@ocaml.doc "Valid processor features for your DB instance."];
      supportsDedicatedLogVolume: Boolean.t option
        [@ocaml.doc
          "Indicates whether a DB instance supports using a dedicated log volume (DLV)."];
      additionalStorage: ValidAdditionalStorageOptions.t option
        [@ocaml.doc
          "The valid additional storage options for the DB instance."]}
    let make ?storage =
      fun ?validProcessorFeatures ->
        fun ?supportsDedicatedLogVolume ->
          fun ?additionalStorage ->
            fun () ->
              {
                storage;
                validProcessorFeatures;
                supportsDedicatedLogVolume;
                additionalStorage
              }
    let to_value x =
      structure_to_value
        [("Storage",
           (Option.map x.storage ~f:ValidStorageOptionsList.to_value));
        ("ValidProcessorFeatures",
          (Option.map x.validProcessorFeatures
             ~f:AvailableProcessorFeatureList.to_value));
        ("SupportsDedicatedLogVolume",
          (Option.map x.supportsDedicatedLogVolume ~f:Boolean.to_value));
        ("AdditionalStorage",
          (Option.map x.additionalStorage
             ~f:ValidAdditionalStorageOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalStorage =
        (Option.map ~f:ValidAdditionalStorageOptions.of_xml)
          (Xml.child xml_arg0 "AdditionalStorage") in
      let supportsDedicatedLogVolume =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SupportsDedicatedLogVolume") in
      let validProcessorFeatures =
        (Option.map ~f:AvailableProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ValidProcessorFeatures") in
      let storage =
        (Option.map ~f:ValidStorageOptionsList.of_xml)
          (Xml.child xml_arg0 "Storage") in
      make ?additionalStorage ?supportsDedicatedLogVolume
        ?validProcessorFeatures ?storage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalStorage =
        field_map json__ "AdditionalStorage"
          ValidAdditionalStorageOptions.of_json in
      let supportsDedicatedLogVolume =
        field_map json__ "SupportsDedicatedLogVolume" Boolean.of_json in
      let validProcessorFeatures =
        field_map json__ "ValidProcessorFeatures"
          AvailableProcessorFeatureList.of_json in
      let storage =
        field_map json__ "Storage" ValidStorageOptionsList.of_json in
      make ?additionalStorage ?supportsDedicatedLogVolume
        ?validProcessorFeatures ?storage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about valid modifications that you can make to your DB instance. Contains the result of a successful call to the DescribeValidDBInstanceModifications action. You can use this information when you call ModifyDBInstance."]
module IntegrationList =
  struct
    type nonrec t = Integration.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:Integration.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:Integration.of_xml)
    let of_json j =
      list_of_json ~kind:"IntegrationList" ~of_json:Integration.of_json j
    let to_json v = composed_to_json to_value v
  end
module Marker =
  struct
    type nonrec t = string
    let context_ = "Marker"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:340) >>=
             (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:"Marker" j
    let to_json = simple_to_json to_value
  end
module MaxRecords =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:20));
        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 MaxRecords" 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 EngineDefaults =
  struct
    type nonrec t =
      {
      dBParameterGroupFamily: String_.t option
        [@ocaml.doc
          "Specifies the name of the DB parameter group family that the engine default parameters apply to."];
      marker: String_.t option
        [@ocaml.doc
          "An optional pagination token provided by a previous EngineDefaults request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by MaxRecords ."];
      parameters: ParametersList.t option
        [@ocaml.doc "Contains a list of engine default parameters."]}
    let make ?dBParameterGroupFamily =
      fun ?marker ->
        fun ?parameters ->
          fun () -> { dBParameterGroupFamily; marker; parameters }
    let to_value x =
      structure_to_value
        [("DBParameterGroupFamily",
           (Option.map x.dBParameterGroupFamily ~f:String_.to_value));
        ("Marker", (Option.map x.marker ~f:String_.to_value));
        ("Parameters", (Option.map x.parameters ~f:ParametersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameters =
        (Option.map ~f:ParametersList.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      let dBParameterGroupFamily =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupFamily") in
      make ?parameters ?marker ?dBParameterGroupFamily ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameters = field_map json__ "Parameters" ParametersList.of_json in
      let marker = field_map json__ "Marker" String_.of_json in
      let dBParameterGroupFamily =
        field_map json__ "DBParameterGroupFamily" String_.of_json in
      make ?parameters ?marker ?dBParameterGroupFamily ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the result of a successful invocation of the DescribeEngineDefaultParameters action."]
module DBShardGroupsList =
  struct
    type nonrec t = DBShardGroup.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:DBShardGroup.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:DBShardGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBShardGroupsList" ~of_json:DBShardGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBProxyTargetNotFoundFault =
  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 specified RDS DB instance or Aurora DB cluster isn't available for a proxy owned by your Amazon Web Services account in the specified Amazon Web Services Region."]
module TargetGroupList =
  struct
    type nonrec t = DBProxyTargetGroup.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:DBProxyTargetGroup.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:DBProxyTargetGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetGroupList"
        ~of_json:DBProxyTargetGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBProxyEndpointList =
  struct
    type nonrec t = DBProxyEndpoint.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:DBProxyEndpoint.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:DBProxyEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"DBProxyEndpointList"
        ~of_json:DBProxyEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBProxyList =
  struct
    type nonrec t = DBProxy.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:DBProxy.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:DBProxy.of_xml)
    let of_json j =
      list_of_json ~kind:"DBProxyList" ~of_json:DBProxy.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBMajorEngineVersionsList =
  struct
    type nonrec t = DBMajorEngineVersion.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:DBMajorEngineVersion.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:DBMajorEngineVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"DBMajorEngineVersionsList"
        ~of_json:DBMajorEngineVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module Engine =
  struct
    type nonrec t = string
    let context_ = "Engine"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"Engine" j
    let to_json = simple_to_json to_value
  end
module MajorEngineVersion =
  struct
    type nonrec t = string
    let context_ = "MajorEngineVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"MajorEngineVersion" j
    let to_json = simple_to_json to_value
  end
module DescribeDBLogFilesList =
  struct
    type nonrec t = DescribeDBLogFilesDetails.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:DescribeDBLogFilesDetails.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:DescribeDBLogFilesDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribeDBLogFilesList"
        ~of_json:DescribeDBLogFilesDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlueGreenDeploymentList =
  struct
    type nonrec t = BlueGreenDeployment.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:BlueGreenDeployment.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:BlueGreenDeployment.of_xml)
    let of_json j =
      list_of_json ~kind:"BlueGreenDeploymentList"
        ~of_json:BlueGreenDeployment.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidEventSubscriptionStateFault =
  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
       "This error can occur if someone else is modifying a subscription. You should retry the action."]
module DBClusterAutomatedBackupQuotaExceededFault =
  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 quota for retained automated backups was exceeded. This prevents you from retaining any additional automated backups. The retained automated backups quota is the same as your DB cluster quota."]
module DBClusterSnapshotAlreadyExistsFault =
  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 user already has a DB cluster snapshot with the given identifier."]
module InvalidDBClusterAutomatedBackupStateFault =
  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 automated backup is in an invalid state. For example, this automated backup is associated with an active cluster."]
module DBSubnetGroups =
  struct
    type nonrec t = DBSubnetGroup.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:DBSubnetGroup.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:DBSubnetGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBSubnetGroups" ~of_json:DBSubnetGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSnapshotTenantDatabasesList =
  struct
    type nonrec t = DBSnapshotTenantDatabase.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:DBSnapshotTenantDatabase.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:DBSnapshotTenantDatabase.of_xml)
    let of_json j =
      list_of_json ~kind:"DBSnapshotTenantDatabasesList"
        ~of_json:DBSnapshotTenantDatabase.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSnapshotList =
  struct
    type nonrec t = DBSnapshot.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:DBSnapshot.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:DBSnapshot.of_xml)
    let of_json j =
      list_of_json ~kind:"DBSnapshotList" ~of_json:DBSnapshot.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBSecurityGroups =
  struct
    type nonrec t = DBSecurityGroup.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:DBSecurityGroup.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:DBSecurityGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBSecurityGroups" ~of_json:DBSecurityGroup.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DBRecommendationList =
  struct
    type nonrec t = DBRecommendation.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:DBRecommendation.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:DBRecommendation.of_xml)
    let of_json j =
      list_of_json ~kind:"DBRecommendationList"
        ~of_json:DBRecommendation.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBParameterGroupList =
  struct
    type nonrec t = DBParameterGroup.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:DBParameterGroup.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:DBParameterGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBParameterGroupList"
        ~of_json:DBParameterGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidDBParameterGroupStateFault =
  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 DB parameter group is in use or is in an invalid state. If you are attempting to delete the parameter group, you can't delete it when the parameter group is in this state."]
module DBInstanceList =
  struct
    type nonrec t = DBInstance.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:DBInstance.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:DBInstance.of_xml)
    let of_json j =
      list_of_json ~kind:"DBInstanceList" ~of_json:DBInstance.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBInstanceAutomatedBackupList =
  struct
    type nonrec t = DBInstanceAutomatedBackup.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:DBInstanceAutomatedBackup.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:DBInstanceAutomatedBackup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBInstanceAutomatedBackupList"
        ~of_json:DBInstanceAutomatedBackup.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBEngineVersionList =
  struct
    type nonrec t = DBEngineVersion.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:DBEngineVersion.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:DBEngineVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"DBEngineVersionList"
        ~of_json:DBEngineVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterSnapshotList =
  struct
    type nonrec t = DBClusterSnapshot.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:DBClusterSnapshot.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:DBClusterSnapshot.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterSnapshotList"
        ~of_json:DBClusterSnapshot.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterParameterGroupList =
  struct
    type nonrec t = DBClusterParameterGroup.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:DBClusterParameterGroup.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:DBClusterParameterGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterParameterGroupList"
        ~of_json:DBClusterParameterGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterList =
  struct
    type nonrec t = DBCluster.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:DBCluster.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:DBCluster.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterList" ~of_json:DBCluster.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterEndpointList =
  struct
    type nonrec t = DBClusterEndpoint.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:DBClusterEndpoint.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:DBClusterEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterEndpointList"
        ~of_json:DBClusterEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidDBClusterCapacityFault =
  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
       "Capacity isn't a valid Aurora Serverless DB cluster capacity. Valid capacity values are 2, 4, 8, 16, 32, 64, 128, and 256."]
module DBClusterBacktrackList =
  struct
    type nonrec t = DBClusterBacktrack.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:DBClusterBacktrack.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:DBClusterBacktrack.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterBacktrackList"
        ~of_json:DBClusterBacktrack.of_json j
    let to_json v = composed_to_json to_value v
  end
module DBClusterBacktrackNotFoundFault =
  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
       "BacktrackIdentifier doesn't refer to an existing backtrack."]
module DBClusterAutomatedBackupList =
  struct
    type nonrec t = DBClusterAutomatedBackup.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:DBClusterAutomatedBackup.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:DBClusterAutomatedBackup.of_xml)
    let of_json j =
      list_of_json ~kind:"DBClusterAutomatedBackupList"
        ~of_json:DBClusterAutomatedBackup.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptionGroupAlreadyExistsFault =
  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 option group you are trying to create already exists."]
module OptionGroupQuotaExceededFault =
  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 quota of 20 option groups was exceeded for this Amazon Web Services account."]
module GlobalClusterQuotaExceededFault =
  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 number of global database clusters for this account is already at the maximum allowed."]
module SubscriptionAlreadyExistFault =
  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 supplied subscription name already exists."]
module DBSubnetGroupAlreadyExistsFault =
  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
       "DBSubnetGroupName is already used by an existing DB subnet group."]
module DBSubnetGroupQuotaExceededFault =
  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 would result in the user exceeding the allowed number of DB subnet groups."]
module DBSecurityGroupAlreadyExistsFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A DB security group with the name specified in DBSecurityGroupName already exists."]
module DBSecurityGroupNotSupportedFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A DB security group isn't allowed for this action."]
module DBSecurityGroupQuotaExceededFault =
  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 would result in the user exceeding the allowed number of DB security groups."]
module DBProxyQuotaExceededFault =
  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
       "Your Amazon Web Services account already has the maximum number of proxies in the specified Amazon Web Services Region."]
module EngineFamily =
  struct
    type nonrec t =
      | MYSQL 
      | POSTGRESQL 
      | SQLSERVER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MYSQL -> "MYSQL"
      | POSTGRESQL -> "POSTGRESQL"
      | SQLSERVER -> "SQLSERVER"
      | Non_static_id s -> s
    let of_string =
      function
      | "MYSQL" -> MYSQL
      | "POSTGRESQL" -> POSTGRESQL
      | "SQLSERVER" -> SQLSERVER
      | 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 EngineFamily" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EngineFamily" j)
    let to_json = simple_to_json to_value
  end
module DBProxyEndpointQuotaExceededFault =
  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 DB proxy already has the maximum number of endpoints."]
module DBParameterGroupAlreadyExistsFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A DB parameter group with the same name exists."]
module DBParameterGroupQuotaExceededFault =
  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 would result in the user exceeding the allowed number of DB parameter groups."]
module DBSubnetGroupNotAllowedFault =
  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 DBSubnetGroup shouldn't be specified while creating read replicas that lie in the same region as the source instance."]
module InvalidDBSubnetGroupFault =
  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 DBSubnetGroup doesn't belong to the same VPC as that of an existing cross-region read replica of the same source instance."]
module BucketName =
  struct
    type nonrec t = string
    let context_ = "BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BucketName" j
    let to_json = simple_to_json to_value
  end
module KmsKeyIdOrArn =
  struct
    type nonrec t = string
    let context_ = "KmsKeyIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"KmsKeyIdOrArn" j
    let to_json = simple_to_json to_value
  end
module String255 =
  struct
    type nonrec t = string
    let context_ = "String255"
    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:".*")));
        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:"String255" j
    let to_json = simple_to_json to_value
  end
module BlueGreenDeploymentAlreadyExistsFault =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A blue/green deployment with the specified name already exists."]
module SourceClusterNotSupportedFault =
  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 source DB cluster isn't supported for a blue/green deployment."]
module SourceDatabaseNotSupportedFault =
  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 source DB instance isn't supported for a blue/green deployment."]
module TargetDBClusterParameterGroupName =
  struct
    type nonrec t = string
    let context_ = "TargetDBClusterParameterGroupName"
    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-z](?!.*--)[0-9A-Za-z-]*[^-]|^default(?!.*--)(?!.*\\.\\.)[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:"TargetDBClusterParameterGroupName" j
    let to_json = simple_to_json to_value
  end
module TargetDBInstanceClass =
  struct
    type nonrec t = string
    let context_ = "TargetDBInstanceClass"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"db\\.[0-9a-z]{2,6}\\.[0-9a-z]{4,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:"TargetDBInstanceClass" j
    let to_json = simple_to_json to_value
  end
module TargetDBParameterGroupName =
  struct
    type nonrec t = string
    let context_ = "TargetDBParameterGroupName"
    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-z](?!.*--)[0-9A-Za-z-]*[^-]|^default(?!.*--)(?!.*\\.\\.)[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:"TargetDBParameterGroupName" j
    let to_json = simple_to_json to_value
  end
module TargetEngineVersion =
  struct
    type nonrec t = string
    let context_ = "TargetEngineVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"TargetEngineVersion" j
    let to_json = simple_to_json to_value
  end
module TargetStorageType =
  struct
    type nonrec t = string
    let context_ = "TargetStorageType"
    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:"TargetStorageType" j
    let to_json = simple_to_json to_value
  end
module CustomAvailabilityZoneNotFoundFault =
  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
       "CustomAvailabilityZoneId doesn't refer to an existing custom Availability Zone identifier."]
module CertificateList =
  struct
    type nonrec t = Certificate.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:Certificate.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:Certificate.of_xml)
    let of_json j =
      list_of_json ~kind:"CertificateList" ~of_json:Certificate.of_json j
    let to_json v = composed_to_json to_value v
  end
module AuthorizationAlreadyExistsFault =
  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 specified CIDR IP range or Amazon EC2 security group is already authorized for the specified DB security group."]
module AuthorizationQuotaExceededFault =
  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 DB security group authorization quota has been reached."]
module AccountQuotaList =
  struct
    type nonrec t = AccountQuota.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:AccountQuota.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:AccountQuota.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountQuotaList" ~of_json:AccountQuota.of_json j
    let to_json v = composed_to_json to_value v
  end
module TenantDatabasesMessage =
  struct
    type describeTenantDatabasesResult =
      {
      marker: String_.t option
        [@ocaml.doc
          "An optional pagination token provided by a previous DescribeTenantDatabases request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by MaxRecords."];
      tenantDatabases: TenantDatabasesList.t option
        [@ocaml.doc
          "An array of the tenant databases requested by the DescribeTenantDatabases operation."]}
    and responseMetaData = unit
    and t =
      {
      describeTenantDatabasesResult: describeTenantDatabasesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "TenantDatabasesMessage"
    let make ?marker =
      fun ?tenantDatabases ->
        fun () ->
          {
            describeTenantDatabasesResult = { marker; tenantDatabases };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeTenantDatabasesResult in
      structure_to_wrapped_value
        [("Marker", (Option.map x.marker ~f:String_.to_value));
        ("TenantDatabases",
          (Option.map x.tenantDatabases ~f:TenantDatabasesList.to_value))]
        ~wrapper:"DescribeTenantDatabasesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeTenantDatabasesResult" in
      let tenantDatabases =
        (Option.map ~f:TenantDatabasesList.of_xml)
          (Xml.child xml_arg0 "TenantDatabases") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?tenantDatabases ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenantDatabases =
        field_map json__ "TenantDatabases" TenantDatabasesList.of_json in
      let marker = field_map json__ "Marker" String_.of_json in
      make ?tenantDatabases ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the tenant databases in a DB instance that uses the multi-tenant configuration. Only RDS for Oracle CDB instances are supported."]
module TagListMessage =
  struct
    type listTagsForResourceResult =
      {
      tagList: TagList.t option
        [@ocaml.doc
          "List of tags returned by the ListTagsForResource operation."]}
    and responseMetaData = unit
    and t =
      {
      listTagsForResourceResult: listTagsForResourceResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `BlueGreenDeploymentNotFoundFault of
          BlueGreenDeploymentNotFoundFault.t 
      | `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `DBProxyEndpointNotFoundFault of DBProxyEndpointNotFoundFault.t 
      | `DBProxyNotFoundFault of DBProxyNotFoundFault.t 
      | `DBProxyTargetGroupNotFoundFault of DBProxyTargetGroupNotFoundFault.t 
      | `DBShardGroupNotFoundFault of DBShardGroupNotFoundFault.t 
      | `DBSnapshotNotFoundFault of DBSnapshotNotFoundFault.t 
      | `DBSnapshotTenantDatabaseNotFoundFault of
          DBSnapshotTenantDatabaseNotFoundFault.t 
      | `IntegrationNotFoundFault of IntegrationNotFoundFault.t 
      | `TenantDatabaseNotFoundFault of TenantDatabaseNotFoundFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "TagListMessage"
    let make ?tagList =
      fun () ->
        { listTagsForResourceResult = { tagList }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "BlueGreenDeploymentNotFoundFault" ->
          `BlueGreenDeploymentNotFoundFault
            (BlueGreenDeploymentNotFoundFault.of_json json)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "DBProxyEndpointNotFoundFault" ->
          `DBProxyEndpointNotFoundFault
            (DBProxyEndpointNotFoundFault.of_json json)
      | "DBProxyNotFoundFault" ->
          `DBProxyNotFoundFault (DBProxyNotFoundFault.of_json json)
      | "DBProxyTargetGroupNotFoundFault" ->
          `DBProxyTargetGroupNotFoundFault
            (DBProxyTargetGroupNotFoundFault.of_json json)
      | "DBShardGroupNotFoundFault" ->
          `DBShardGroupNotFoundFault (DBShardGroupNotFoundFault.of_json json)
      | "DBSnapshotNotFoundFault" ->
          `DBSnapshotNotFoundFault (DBSnapshotNotFoundFault.of_json json)
      | "DBSnapshotTenantDatabaseNotFoundFault" ->
          `DBSnapshotTenantDatabaseNotFoundFault
            (DBSnapshotTenantDatabaseNotFoundFault.of_json json)
      | "IntegrationNotFoundFault" ->
          `IntegrationNotFoundFault (IntegrationNotFoundFault.of_json json)
      | "TenantDatabaseNotFoundFault" ->
          `TenantDatabaseNotFoundFault
            (TenantDatabaseNotFoundFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BlueGreenDeploymentNotFoundFault" ->
          `BlueGreenDeploymentNotFoundFault
            (BlueGreenDeploymentNotFoundFault.of_xml xml)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "DBProxyEndpointNotFoundFault" ->
          `DBProxyEndpointNotFoundFault
            (DBProxyEndpointNotFoundFault.of_xml xml)
      | "DBProxyNotFoundFault" ->
          `DBProxyNotFoundFault (DBProxyNotFoundFault.of_xml xml)
      | "DBProxyTargetGroupNotFoundFault" ->
          `DBProxyTargetGroupNotFoundFault
            (DBProxyTargetGroupNotFoundFault.of_xml xml)
      | "DBShardGroupNotFoundFault" ->
          `DBShardGroupNotFoundFault (DBShardGroupNotFoundFault.of_xml xml)
      | "DBSnapshotNotFoundFault" ->
          `DBSnapshotNotFoundFault (DBSnapshotNotFoundFault.of_xml xml)
      | "DBSnapshotTenantDatabaseNotFoundFault" ->
          `DBSnapshotTenantDatabaseNotFoundFault
            (DBSnapshotTenantDatabaseNotFoundFault.of_xml xml)
      | "IntegrationNotFoundFault" ->
          `IntegrationNotFoundFault (IntegrationNotFoundFault.of_xml xml)
      | "TenantDatabaseNotFoundFault" ->
          `TenantDatabaseNotFoundFault
            (TenantDatabaseNotFoundFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BlueGreenDeploymentNotFoundFault e ->
          `Assoc
            [("error", (`String "BlueGreenDeploymentNotFoundFault"));
            ("details", (BlueGreenDeploymentNotFoundFault.to_json e))]
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `DBProxyEndpointNotFoundFault e ->
          `Assoc
            [("error", (`String "DBProxyEndpointNotFoundFault"));
            ("details", (DBProxyEndpointNotFoundFault.to_json e))]
      | `DBProxyNotFoundFault e ->
          `Assoc
            [("error", (`String "DBProxyNotFoundFault"));
            ("details", (DBProxyNotFoundFault.to_json e))]
      | `DBProxyTargetGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBProxyTargetGroupNotFoundFault"));
            ("details", (DBProxyTargetGroupNotFoundFault.to_json e))]
      | `DBShardGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBShardGroupNotFoundFault"));
            ("details", (DBShardGroupNotFoundFault.to_json e))]
      | `DBSnapshotNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSnapshotNotFoundFault"));
            ("details", (DBSnapshotNotFoundFault.to_json e))]
      | `DBSnapshotTenantDatabaseNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSnapshotTenantDatabaseNotFoundFault"));
            ("details", (DBSnapshotTenantDatabaseNotFoundFault.to_json e))]
      | `IntegrationNotFoundFault e ->
          `Assoc
            [("error", (`String "IntegrationNotFoundFault"));
            ("details", (IntegrationNotFoundFault.to_json e))]
      | `TenantDatabaseNotFoundFault e ->
          `Assoc
            [("error", (`String "TenantDatabaseNotFoundFault"));
            ("details", (TenantDatabaseNotFoundFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listTagsForResourceResult in
      structure_to_wrapped_value
        [("TagList", (Option.map x.tagList ~f:TagList.to_value))]
        ~wrapper:"ListTagsForResourceResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListTagsForResourceResult" in
      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
module SwitchoverReadReplicaResult =
  struct
    type switchoverReadReplicaResult = {
      dBInstance: DBInstance.t option }
    and responseMetaData = unit
    and t =
      {
      switchoverReadReplicaResult: switchoverReadReplicaResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "SwitchoverReadReplicaResult"
    let make ?dBInstance =
      fun () ->
        { switchoverReadReplicaResult = { dBInstance }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.switchoverReadReplicaResult in
      structure_to_wrapped_value
        [("DBInstance", (Option.map x.dBInstance ~f:DBInstance.to_value))]
        ~wrapper:"SwitchoverReadReplicaResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "SwitchoverReadReplicaResult" in
      let dBInstance =
        (Option.map ~f:DBInstance.of_xml) (Xml.child xml_arg0 "DBInstance") in
      make ?dBInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstance = field_map json__ "DBInstance" DBInstance.of_json in
      make ?dBInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Switches over an Oracle standby database in an Oracle Data Guard environment, making it the new primary database. Issue this command in the Region that hosts the current standby database."]
module SwitchoverReadReplicaMessage =
  struct
    type nonrec t =
      {
      dBInstanceIdentifier: String_.t
        [@ocaml.doc
          "The DB instance identifier of the current standby database. This value is stored as a lowercase string. Constraints: Must match the identi\239\172\129er of an existing Oracle read replica DB instance."]}
    let context_ = "SwitchoverReadReplicaMessage"
    let make ~dBInstanceIdentifier = fun () -> { dBInstanceIdentifier }
    let to_value x =
      structure_to_value
        [("DBInstanceIdentifier",
           (Some (String_.to_value x.dBInstanceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBInstanceIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBInstanceIdentifier") in
      make ~dBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstanceIdentifier =
        field_map_exn json__ "DBInstanceIdentifier" String_.of_json in
      make ~dBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Switches over an Oracle standby database in an Oracle Data Guard environment, making it the new primary database. Issue this command in the Region that hosts the current standby database."]
module SwitchoverGlobalClusterResult =
  struct
    type switchoverGlobalClusterResult =
      {
      globalCluster: GlobalCluster.t option }
    and responseMetaData = unit
    and t =
      {
      switchoverGlobalClusterResult: switchoverGlobalClusterResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `GlobalClusterNotFoundFault of GlobalClusterNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidGlobalClusterStateFault of InvalidGlobalClusterStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "SwitchoverGlobalClusterResult"
    let make ?globalCluster =
      fun () ->
        {
          switchoverGlobalClusterResult = { globalCluster };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "GlobalClusterNotFoundFault" ->
          `GlobalClusterNotFoundFault
            (GlobalClusterNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidGlobalClusterStateFault" ->
          `InvalidGlobalClusterStateFault
            (InvalidGlobalClusterStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "GlobalClusterNotFoundFault" ->
          `GlobalClusterNotFoundFault (GlobalClusterNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidGlobalClusterStateFault" ->
          `InvalidGlobalClusterStateFault
            (InvalidGlobalClusterStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `GlobalClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "GlobalClusterNotFoundFault"));
            ("details", (GlobalClusterNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidGlobalClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidGlobalClusterStateFault"));
            ("details", (InvalidGlobalClusterStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.switchoverGlobalClusterResult in
      structure_to_wrapped_value
        [("GlobalCluster",
           (Option.map x.globalCluster ~f:GlobalCluster.to_value))]
        ~wrapper:"SwitchoverGlobalClusterResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "SwitchoverGlobalClusterResult" in
      let globalCluster =
        (Option.map ~f:GlobalCluster.of_xml)
          (Xml.child xml_arg0 "GlobalCluster") in
      make ?globalCluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalCluster =
        field_map json__ "GlobalCluster" GlobalCluster.of_json in
      make ?globalCluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Switches over the specified secondary DB cluster to be the new primary DB cluster in the global database cluster. Switchover operations were previously called \"managed planned failovers.\" Aurora promotes the specified secondary cluster to assume full read/write capabilities and demotes the current primary cluster to a secondary (read-only) cluster, maintaining the orginal replication topology. All secondary clusters are synchronized with the primary at the beginning of the process so the new primary continues operations for the Aurora global database without losing any data. Your database is unavailable for a short time while the primary and selected secondary clusters are assuming their new roles. For more information about switching over an Aurora global database, see Performing switchovers for Amazon Aurora global databases in the Amazon Aurora User Guide. This operation is intended for controlled environments, for operations such as \"regional rotation\" or to fall back to the original primary after a global database failover."]
module SwitchoverGlobalClusterMessage =
  struct
    type nonrec t =
      {
      globalClusterIdentifier: GlobalClusterIdentifier.t
        [@ocaml.doc
          "The identifier of the global database cluster to switch over. This parameter isn't case-sensitive. Constraints: Must match the identifier of an existing global database cluster (Aurora global database)."];
      targetDbClusterIdentifier: DBClusterIdentifier.t
        [@ocaml.doc
          "The identifier of the secondary Aurora DB cluster to promote to the new primary for the global database cluster. Use the Amazon Resource Name (ARN) for the identifier so that Aurora can locate the cluster in its Amazon Web Services Region."]}
    let context_ = "SwitchoverGlobalClusterMessage"
    let make ~globalClusterIdentifier =
      fun ~targetDbClusterIdentifier ->
        fun () -> { globalClusterIdentifier; targetDbClusterIdentifier }
    let to_value x =
      structure_to_value
        [("GlobalClusterIdentifier",
           (Some (GlobalClusterIdentifier.to_value x.globalClusterIdentifier)));
        ("TargetDbClusterIdentifier",
          (Some (DBClusterIdentifier.to_value x.targetDbClusterIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetDbClusterIdentifier =
        DBClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TargetDbClusterIdentifier") in
      let globalClusterIdentifier =
        GlobalClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GlobalClusterIdentifier") in
      make ~targetDbClusterIdentifier ~globalClusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetDbClusterIdentifier =
        field_map_exn json__ "TargetDbClusterIdentifier"
          DBClusterIdentifier.of_json in
      let globalClusterIdentifier =
        field_map_exn json__ "GlobalClusterIdentifier"
          GlobalClusterIdentifier.of_json in
      make ~targetDbClusterIdentifier ~globalClusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Switches over the specified secondary DB cluster to be the new primary DB cluster in the global database cluster. Switchover operations were previously called \"managed planned failovers.\" Aurora promotes the specified secondary cluster to assume full read/write capabilities and demotes the current primary cluster to a secondary (read-only) cluster, maintaining the orginal replication topology. All secondary clusters are synchronized with the primary at the beginning of the process so the new primary continues operations for the Aurora global database without losing any data. Your database is unavailable for a short time while the primary and selected secondary clusters are assuming their new roles. For more information about switching over an Aurora global database, see Performing switchovers for Amazon Aurora global databases in the Amazon Aurora User Guide. This operation is intended for controlled environments, for operations such as \"regional rotation\" or to fall back to the original primary after a global database failover."]
module SwitchoverBlueGreenDeploymentResponse =
  struct
    type switchoverBlueGreenDeploymentResult =
      {
      blueGreenDeployment: BlueGreenDeployment.t option }
    and responseMetaData = unit
    and t =
      {
      switchoverBlueGreenDeploymentResult:
        switchoverBlueGreenDeploymentResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `BlueGreenDeploymentNotFoundFault of
          BlueGreenDeploymentNotFoundFault.t 
      | `InvalidBlueGreenDeploymentStateFault of
          InvalidBlueGreenDeploymentStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "SwitchoverBlueGreenDeploymentResponse"
    let make ?blueGreenDeployment =
      fun () ->
        {
          switchoverBlueGreenDeploymentResult = { blueGreenDeployment };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "BlueGreenDeploymentNotFoundFault" ->
          `BlueGreenDeploymentNotFoundFault
            (BlueGreenDeploymentNotFoundFault.of_json json)
      | "InvalidBlueGreenDeploymentStateFault" ->
          `InvalidBlueGreenDeploymentStateFault
            (InvalidBlueGreenDeploymentStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BlueGreenDeploymentNotFoundFault" ->
          `BlueGreenDeploymentNotFoundFault
            (BlueGreenDeploymentNotFoundFault.of_xml xml)
      | "InvalidBlueGreenDeploymentStateFault" ->
          `InvalidBlueGreenDeploymentStateFault
            (InvalidBlueGreenDeploymentStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BlueGreenDeploymentNotFoundFault e ->
          `Assoc
            [("error", (`String "BlueGreenDeploymentNotFoundFault"));
            ("details", (BlueGreenDeploymentNotFoundFault.to_json e))]
      | `InvalidBlueGreenDeploymentStateFault e ->
          `Assoc
            [("error", (`String "InvalidBlueGreenDeploymentStateFault"));
            ("details", (InvalidBlueGreenDeploymentStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.switchoverBlueGreenDeploymentResult in
      structure_to_wrapped_value
        [("BlueGreenDeployment",
           (Option.map x.blueGreenDeployment ~f:BlueGreenDeployment.to_value))]
        ~wrapper:"SwitchoverBlueGreenDeploymentResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "SwitchoverBlueGreenDeploymentResult" in
      let blueGreenDeployment =
        (Option.map ~f:BlueGreenDeployment.of_xml)
          (Xml.child xml_arg0 "BlueGreenDeployment") in
      make ?blueGreenDeployment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueGreenDeployment =
        field_map json__ "BlueGreenDeployment" BlueGreenDeployment.of_json in
      make ?blueGreenDeployment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Switches over a blue/green deployment. Before you switch over, production traffic is routed to the databases in the blue environment. After you switch over, production traffic is routed to the databases in the green environment. For more information, see Using Amazon RDS Blue/Green Deployments for database updates in the Amazon RDS User Guide and Using Amazon RDS Blue/Green Deployments for database updates in the Amazon Aurora User Guide."]
module SwitchoverBlueGreenDeploymentRequest =
  struct
    type nonrec t =
      {
      blueGreenDeploymentIdentifier: BlueGreenDeploymentIdentifier.t
        [@ocaml.doc
          "The resource ID of the blue/green deployment. Constraints: Must match an existing blue/green deployment resource ID."];
      switchoverTimeout: SwitchoverTimeout.t option
        [@ocaml.doc
          "The amount of time, in seconds, for the switchover to complete. Default: 300 If the switchover takes longer than the specified duration, then any changes are rolled back, and no changes are made to the environments."]}
    let context_ = "SwitchoverBlueGreenDeploymentRequest"
    let make ?switchoverTimeout =
      fun ~blueGreenDeploymentIdentifier ->
        fun () -> { switchoverTimeout; blueGreenDeploymentIdentifier }
    let to_value x =
      structure_to_value
        [("BlueGreenDeploymentIdentifier",
           (Some
              (BlueGreenDeploymentIdentifier.to_value
                 x.blueGreenDeploymentIdentifier)));
        ("SwitchoverTimeout",
          (Option.map x.switchoverTimeout ~f:SwitchoverTimeout.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let switchoverTimeout =
        (Option.map ~f:SwitchoverTimeout.of_xml)
          (Xml.child xml_arg0 "SwitchoverTimeout") in
      let blueGreenDeploymentIdentifier =
        BlueGreenDeploymentIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "BlueGreenDeploymentIdentifier") in
      make ?switchoverTimeout ~blueGreenDeploymentIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let switchoverTimeout =
        field_map json__ "SwitchoverTimeout" SwitchoverTimeout.of_json in
      let blueGreenDeploymentIdentifier =
        field_map_exn json__ "BlueGreenDeploymentIdentifier"
          BlueGreenDeploymentIdentifier.of_json in
      make ?switchoverTimeout ~blueGreenDeploymentIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Switches over a blue/green deployment. Before you switch over, production traffic is routed to the databases in the blue environment. After you switch over, production traffic is routed to the databases in the green environment. For more information, see Using Amazon RDS Blue/Green Deployments for database updates in the Amazon RDS User Guide and Using Amazon RDS Blue/Green Deployments for database updates in the Amazon Aurora User Guide."]
module StopDBInstanceResult =
  struct
    type stopDBInstanceResult = {
      dBInstance: DBInstance.t option }
    and responseMetaData = unit
    and t =
      {
      stopDBInstanceResult: stopDBInstanceResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `DBSnapshotAlreadyExistsFault of DBSnapshotAlreadyExistsFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `SnapshotQuotaExceededFault of SnapshotQuotaExceededFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StopDBInstanceResult"
    let make ?dBInstance =
      fun () ->
        { stopDBInstanceResult = { dBInstance }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "DBSnapshotAlreadyExistsFault" ->
          `DBSnapshotAlreadyExistsFault
            (DBSnapshotAlreadyExistsFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "SnapshotQuotaExceededFault" ->
          `SnapshotQuotaExceededFault
            (SnapshotQuotaExceededFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "DBSnapshotAlreadyExistsFault" ->
          `DBSnapshotAlreadyExistsFault
            (DBSnapshotAlreadyExistsFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "SnapshotQuotaExceededFault" ->
          `SnapshotQuotaExceededFault (SnapshotQuotaExceededFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `DBSnapshotAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBSnapshotAlreadyExistsFault"));
            ("details", (DBSnapshotAlreadyExistsFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `SnapshotQuotaExceededFault e ->
          `Assoc
            [("error", (`String "SnapshotQuotaExceededFault"));
            ("details", (SnapshotQuotaExceededFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.stopDBInstanceResult in
      structure_to_wrapped_value
        [("DBInstance", (Option.map x.dBInstance ~f:DBInstance.to_value))]
        ~wrapper:"StopDBInstanceResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "StopDBInstanceResult" in
      let dBInstance =
        (Option.map ~f:DBInstance.of_xml) (Xml.child xml_arg0 "DBInstance") in
      make ?dBInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstance = field_map json__ "DBInstance" DBInstance.of_json in
      make ?dBInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an Amazon RDS DB instance temporarily. When you stop a DB instance, Amazon RDS retains the DB instance's metadata, including its endpoint, DB parameter group, and option group membership. Amazon RDS also retains the transaction logs so you can do a point-in-time restore if necessary. The instance restarts automatically after 7 days. For more information, see Stopping an Amazon RDS DB Instance Temporarily in the Amazon RDS User Guide. This command doesn't apply to RDS Custom, Aurora MySQL, and Aurora PostgreSQL. For Aurora clusters, use StopDBCluster instead."]
module StopDBInstanceMessage =
  struct
    type nonrec t =
      {
      dBInstanceIdentifier: String_.t
        [@ocaml.doc "The user-supplied instance identifier."];
      dBSnapshotIdentifier: String_.t option
        [@ocaml.doc
          "The user-supplied instance identifier of the DB Snapshot created immediately before the DB instance is stopped."]}
    let context_ = "StopDBInstanceMessage"
    let make ?dBSnapshotIdentifier =
      fun ~dBInstanceIdentifier ->
        fun () -> { dBSnapshotIdentifier; dBInstanceIdentifier }
    let to_value x =
      structure_to_value
        [("DBInstanceIdentifier",
           (Some (String_.to_value x.dBInstanceIdentifier)));
        ("DBSnapshotIdentifier",
          (Option.map x.dBSnapshotIdentifier ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSnapshotIdentifier") in
      let dBInstanceIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBInstanceIdentifier") in
      make ?dBSnapshotIdentifier ~dBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBSnapshotIdentifier =
        field_map json__ "DBSnapshotIdentifier" String_.of_json in
      let dBInstanceIdentifier =
        field_map_exn json__ "DBInstanceIdentifier" String_.of_json in
      make ?dBSnapshotIdentifier ~dBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an Amazon RDS DB instance temporarily. When you stop a DB instance, Amazon RDS retains the DB instance's metadata, including its endpoint, DB parameter group, and option group membership. Amazon RDS also retains the transaction logs so you can do a point-in-time restore if necessary. The instance restarts automatically after 7 days. For more information, see Stopping an Amazon RDS DB Instance Temporarily in the Amazon RDS User Guide. This command doesn't apply to RDS Custom, Aurora MySQL, and Aurora PostgreSQL. For Aurora clusters, use StopDBCluster instead."]
module StopDBInstanceAutomatedBackupsReplicationResult =
  struct
    type stopDBInstanceAutomatedBackupsReplicationResult =
      {
      dBInstanceAutomatedBackup: DBInstanceAutomatedBackup.t option }
    and responseMetaData = unit
    and t =
      {
      stopDBInstanceAutomatedBackupsReplicationResult:
        stopDBInstanceAutomatedBackupsReplicationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StopDBInstanceAutomatedBackupsReplicationResult"
    let make ?dBInstanceAutomatedBackup =
      fun () ->
        {
          stopDBInstanceAutomatedBackupsReplicationResult =
            { dBInstanceAutomatedBackup };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.stopDBInstanceAutomatedBackupsReplicationResult in
      structure_to_wrapped_value
        [("DBInstanceAutomatedBackup",
           (Option.map x.dBInstanceAutomatedBackup
              ~f:DBInstanceAutomatedBackup.to_value))]
        ~wrapper:"StopDBInstanceAutomatedBackupsReplicationResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "StopDBInstanceAutomatedBackupsReplicationResult" in
      let dBInstanceAutomatedBackup =
        (Option.map ~f:DBInstanceAutomatedBackup.of_xml)
          (Xml.child xml_arg0 "DBInstanceAutomatedBackup") in
      make ?dBInstanceAutomatedBackup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstanceAutomatedBackup =
        field_map json__ "DBInstanceAutomatedBackup"
          DBInstanceAutomatedBackup.of_json in
      make ?dBInstanceAutomatedBackup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops automated backup replication for a DB instance. This command doesn't apply to RDS Custom, Aurora MySQL, and Aurora PostgreSQL. For more information, see Replicating Automated Backups to Another Amazon Web Services Region in the Amazon RDS User Guide."]
module StopDBInstanceAutomatedBackupsReplicationMessage =
  struct
    type nonrec t =
      {
      sourceDBInstanceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the source DB instance for which to stop replicating automate backups, for example, arn:aws:rds:us-west-2:123456789012:db:mydatabase."]}
    let context_ = "StopDBInstanceAutomatedBackupsReplicationMessage"
    let make ~sourceDBInstanceArn = fun () -> { sourceDBInstanceArn }
    let to_value x =
      structure_to_value
        [("SourceDBInstanceArn",
           (Some (String_.to_value x.sourceDBInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceDBInstanceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceDBInstanceArn") in
      make ~sourceDBInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceDBInstanceArn =
        field_map_exn json__ "SourceDBInstanceArn" String_.of_json in
      make ~sourceDBInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops automated backup replication for a DB instance. This command doesn't apply to RDS Custom, Aurora MySQL, and Aurora PostgreSQL. For more information, see Replicating Automated Backups to Another Amazon Web Services Region in the Amazon RDS User Guide."]
module StopDBClusterResult =
  struct
    type stopDBClusterResult = {
      dBCluster: DBCluster.t option }
    and responseMetaData = unit
    and t =
      {
      stopDBClusterResult: stopDBClusterResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `InvalidDBShardGroupStateFault of InvalidDBShardGroupStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StopDBClusterResult"
    let make ?dBCluster =
      fun () ->
        { stopDBClusterResult = { dBCluster }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "InvalidDBShardGroupStateFault" ->
          `InvalidDBShardGroupStateFault
            (InvalidDBShardGroupStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "InvalidDBShardGroupStateFault" ->
          `InvalidDBShardGroupStateFault
            (InvalidDBShardGroupStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `InvalidDBShardGroupStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBShardGroupStateFault"));
            ("details", (InvalidDBShardGroupStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.stopDBClusterResult in
      structure_to_wrapped_value
        [("DBCluster", (Option.map x.dBCluster ~f:DBCluster.to_value))]
        ~wrapper:"StopDBClusterResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "StopDBClusterResult" in
      let dBCluster =
        (Option.map ~f:DBCluster.of_xml) (Xml.child xml_arg0 "DBCluster") in
      make ?dBCluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBCluster = field_map json__ "DBCluster" DBCluster.of_json in
      make ?dBCluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an Amazon Aurora DB cluster. When you stop a DB cluster, Aurora retains the DB cluster's metadata, including its endpoints and DB parameter groups. Aurora also retains the transaction logs so you can do a point-in-time restore if necessary. For more information, see Stopping and Starting an Aurora Cluster in the Amazon Aurora User Guide. This operation only applies to Aurora DB clusters."]
module StopDBClusterMessage =
  struct
    type nonrec t =
      {
      dBClusterIdentifier: String_.t
        [@ocaml.doc
          "The DB cluster identifier of the Amazon Aurora DB cluster to be stopped. This parameter is stored as a lowercase string."]}
    let context_ = "StopDBClusterMessage"
    let make ~dBClusterIdentifier = fun () -> { dBClusterIdentifier }
    let to_value x =
      structure_to_value
        [("DBClusterIdentifier",
           (Some (String_.to_value x.dBClusterIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBClusterIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBClusterIdentifier") in
      make ~dBClusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBClusterIdentifier =
        field_map_exn json__ "DBClusterIdentifier" String_.of_json in
      make ~dBClusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an Amazon Aurora DB cluster. When you stop a DB cluster, Aurora retains the DB cluster's metadata, including its endpoints and DB parameter groups. Aurora also retains the transaction logs so you can do a point-in-time restore if necessary. For more information, see Stopping and Starting an Aurora Cluster in the Amazon Aurora User Guide. This operation only applies to Aurora DB clusters."]
module StopActivityStreamResponse =
  struct
    type stopActivityStreamResult =
      {
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier used for encrypting messages in the database activity stream. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      kinesisStreamName: String_.t option
        [@ocaml.doc
          "The name of the Amazon Kinesis data stream used for the database activity stream."];
      status: ActivityStreamStatus.t option
        [@ocaml.doc "The status of the database activity stream."]}
    and responseMetaData = unit
    and t =
      {
      stopActivityStreamResult: stopActivityStreamResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `ResourceNotFoundFault of ResourceNotFoundFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StopActivityStreamResponse"
    let make ?kmsKeyId =
      fun ?kinesisStreamName ->
        fun ?status ->
          fun () ->
            {
              stopActivityStreamResult =
                { kmsKeyId; kinesisStreamName; status };
              responseMetaData = ()
            }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "ResourceNotFoundFault" ->
          `ResourceNotFoundFault (ResourceNotFoundFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "ResourceNotFoundFault" ->
          `ResourceNotFoundFault (ResourceNotFoundFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `ResourceNotFoundFault e ->
          `Assoc
            [("error", (`String "ResourceNotFoundFault"));
            ("details", (ResourceNotFoundFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.stopActivityStreamResult in
      structure_to_wrapped_value
        [("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("KinesisStreamName",
          (Option.map x.kinesisStreamName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:ActivityStreamStatus.to_value))]
        ~wrapper:"StopActivityStreamResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "StopActivityStreamResult" in
      let status =
        (Option.map ~f:ActivityStreamStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let kinesisStreamName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "KinesisStreamName") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      make ?status ?kinesisStreamName ?kmsKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" ActivityStreamStatus.of_json in
      let kinesisStreamName =
        field_map json__ "KinesisStreamName" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      make ?status ?kinesisStreamName ?kmsKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops a database activity stream that was started using the Amazon Web Services console, the start-activity-stream CLI command, or the StartActivityStream operation. For more information, see Monitoring Amazon Aurora with Database Activity Streams in the Amazon Aurora User Guide or Monitoring Amazon RDS with Database Activity Streams in the Amazon RDS User Guide."]
module StopActivityStreamRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the DB cluster for the database activity stream. For example, arn:aws:rds:us-east-1:12345667890:cluster:das-cluster."];
      applyImmediately: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether or not the database activity stream is to stop as soon as possible, regardless of the maintenance window for the database."]}
    let context_ = "StopActivityStreamRequest"
    let make ?applyImmediately =
      fun ~resourceArn -> fun () -> { applyImmediately; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("ApplyImmediately",
          (Option.map x.applyImmediately ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applyImmediately =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "ApplyImmediately") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?applyImmediately ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applyImmediately =
        field_map json__ "ApplyImmediately" BooleanOptional.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ?applyImmediately ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops a database activity stream that was started using the Amazon Web Services console, the start-activity-stream CLI command, or the StartActivityStream operation. For more information, see Monitoring Amazon Aurora with Database Activity Streams in the Amazon Aurora User Guide or Monitoring Amazon RDS with Database Activity Streams in the Amazon RDS User Guide."]
module StartExportTaskMessage =
  struct
    type nonrec t =
      {
      exportTaskIdentifier: String_.t
        [@ocaml.doc
          "A unique identifier for the export task. This ID isn't an identifier for the Amazon S3 bucket where the data is to be exported."];
      sourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the snapshot or cluster to export to Amazon S3."];
      s3BucketName: String_.t
        [@ocaml.doc
          "The name of the Amazon S3 bucket to export the snapshot or cluster data to."];
      iamRoleArn: String_.t
        [@ocaml.doc
          "The name of the IAM role to use for writing to the Amazon S3 bucket when exporting a snapshot or cluster. In the IAM policy attached to your IAM role, include the following required actions to allow the transfer of files from Amazon RDS or Amazon Aurora to an S3 bucket: s3:PutObject* s3:GetObject* s3:ListBucket s3:DeleteObject* s3:GetBucketLocation In the policy, include the resources to identify the S3 bucket and objects in the bucket. The following list of resources shows the Amazon Resource Name (ARN) format for accessing S3: arn:aws:s3:::your-s3-bucket arn:aws:s3:::your-s3-bucket/*"];
      kmsKeyId: String_.t
        [@ocaml.doc
          "The ID of the Amazon Web Services KMS key to use to encrypt the data exported to Amazon S3. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. The caller of this operation must be authorized to run the following operations. These can be set in the Amazon Web Services KMS key policy: kms:CreateGrant kms:DescribeKey"];
      s3Prefix: String_.t option
        [@ocaml.doc
          "The Amazon S3 bucket prefix to use as the file name and path of the exported data."];
      exportOnly: StringList.t option
        [@ocaml.doc
          "The data to be exported from the snapshot or cluster. If this parameter isn't provided, all of the data is exported. Valid Values: database - Export all the data from a specified database. database.table table-name - Export a table of the snapshot or cluster. This format is valid only for RDS for MySQL, RDS for MariaDB, and Aurora MySQL. database.schema schema-name - Export a database schema of the snapshot or cluster. This format is valid only for RDS for PostgreSQL and Aurora PostgreSQL. database.schema.table table-name - Export a table of the database schema. This format is valid only for RDS for PostgreSQL and Aurora PostgreSQL."]}
    let context_ = "StartExportTaskMessage"
    let make ?s3Prefix =
      fun ?exportOnly ->
        fun ~exportTaskIdentifier ->
          fun ~sourceArn ->
            fun ~s3BucketName ->
              fun ~iamRoleArn ->
                fun ~kmsKeyId ->
                  fun () ->
                    {
                      s3Prefix;
                      exportOnly;
                      exportTaskIdentifier;
                      sourceArn;
                      s3BucketName;
                      iamRoleArn;
                      kmsKeyId
                    }
    let to_value x =
      structure_to_value
        [("ExportTaskIdentifier",
           (Some (String_.to_value x.exportTaskIdentifier)));
        ("SourceArn", (Some (String_.to_value x.sourceArn)));
        ("S3BucketName", (Some (String_.to_value x.s3BucketName)));
        ("IamRoleArn", (Some (String_.to_value x.iamRoleArn)));
        ("KmsKeyId", (Some (String_.to_value x.kmsKeyId)));
        ("S3Prefix", (Option.map x.s3Prefix ~f:String_.to_value));
        ("ExportOnly", (Option.map x.exportOnly ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportOnly =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "ExportOnly") in
      let s3Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "S3Prefix") in
      let kmsKeyId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KmsKeyId") in
      let iamRoleArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      let s3BucketName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3BucketName") in
      let sourceArn =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SourceArn") in
      let exportTaskIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExportTaskIdentifier") in
      make ?exportOnly ?s3Prefix ~kmsKeyId ~iamRoleArn ~s3BucketName
        ~sourceArn ~exportTaskIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportOnly = field_map json__ "ExportOnly" StringList.of_json in
      let s3Prefix = field_map json__ "S3Prefix" String_.of_json in
      let kmsKeyId = field_map_exn json__ "KmsKeyId" String_.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" String_.of_json in
      let s3BucketName = field_map_exn json__ "S3BucketName" String_.of_json in
      let sourceArn = field_map_exn json__ "SourceArn" String_.of_json in
      let exportTaskIdentifier =
        field_map_exn json__ "ExportTaskIdentifier" String_.of_json in
      make ?exportOnly ?s3Prefix ~kmsKeyId ~iamRoleArn ~s3BucketName
        ~sourceArn ~exportTaskIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an export of DB snapshot or DB cluster data to Amazon S3. The provided IAM role must have access to the S3 bucket. You can't export snapshot data from RDS Custom DB instances. For more information, see Supported Regions and DB engines for exporting snapshots to S3 in Amazon RDS. For more information on exporting DB snapshot data, see Exporting DB snapshot data to Amazon S3 in the Amazon RDS User Guide or Exporting DB cluster snapshot data to Amazon S3 in the Amazon Aurora User Guide. For more information on exporting DB cluster data, see Exporting DB cluster data to Amazon S3 in the Amazon Aurora User Guide."]
module StartDBInstanceResult =
  struct
    type startDBInstanceResult = {
      dBInstance: DBInstance.t option }
    and responseMetaData = unit
    and t =
      {
      startDBInstanceResult: startDBInstanceResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationNotFoundFault of AuthorizationNotFoundFault.t 
      | `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `DBSubnetGroupDoesNotCoverEnoughAZs of
          DBSubnetGroupDoesNotCoverEnoughAZs.t 
      | `DBSubnetGroupNotFoundFault of DBSubnetGroupNotFoundFault.t 
      | `InsufficientDBInstanceCapacityFault of
          InsufficientDBInstanceCapacityFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `InvalidSubnet of InvalidSubnet.t 
      | `InvalidVPCNetworkStateFault of InvalidVPCNetworkStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `VpcEncryptionControlViolationException of
          VpcEncryptionControlViolationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StartDBInstanceResult"
    let make ?dBInstance =
      fun () ->
        { startDBInstanceResult = { dBInstance }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault
            (AuthorizationNotFoundFault.of_json json)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_json json)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault
            (DBSubnetGroupNotFoundFault.of_json json)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_json json)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault (AuthorizationNotFoundFault.of_xml xml)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_xml xml)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault (DBSubnetGroupNotFoundFault.of_xml xml)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_xml xml)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationNotFoundFault e ->
          `Assoc
            [("error", (`String "AuthorizationNotFoundFault"));
            ("details", (AuthorizationNotFoundFault.to_json e))]
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `DBSubnetGroupDoesNotCoverEnoughAZs e ->
          `Assoc
            [("error", (`String "DBSubnetGroupDoesNotCoverEnoughAZs"));
            ("details", (DBSubnetGroupDoesNotCoverEnoughAZs.to_json e))]
      | `DBSubnetGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSubnetGroupNotFoundFault"));
            ("details", (DBSubnetGroupNotFoundFault.to_json e))]
      | `InsufficientDBInstanceCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientDBInstanceCapacityFault"));
            ("details", (InsufficientDBInstanceCapacityFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `InvalidSubnet e ->
          `Assoc
            [("error", (`String "InvalidSubnet"));
            ("details", (InvalidSubnet.to_json e))]
      | `InvalidVPCNetworkStateFault e ->
          `Assoc
            [("error", (`String "InvalidVPCNetworkStateFault"));
            ("details", (InvalidVPCNetworkStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `VpcEncryptionControlViolationException e ->
          `Assoc
            [("error", (`String "VpcEncryptionControlViolationException"));
            ("details", (VpcEncryptionControlViolationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.startDBInstanceResult in
      structure_to_wrapped_value
        [("DBInstance", (Option.map x.dBInstance ~f:DBInstance.to_value))]
        ~wrapper:"StartDBInstanceResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "StartDBInstanceResult" in
      let dBInstance =
        (Option.map ~f:DBInstance.of_xml) (Xml.child xml_arg0 "DBInstance") in
      make ?dBInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstance = field_map json__ "DBInstance" DBInstance.of_json in
      make ?dBInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an Amazon RDS DB instance that was stopped using the Amazon Web Services console, the stop-db-instance CLI command, or the StopDBInstance operation. For more information, see Starting an Amazon RDS DB instance That Was Previously Stopped in the Amazon RDS User Guide. This command doesn't apply to RDS Custom, Aurora MySQL, and Aurora PostgreSQL. For Aurora DB clusters, use StartDBCluster instead."]
module StartDBInstanceMessage =
  struct
    type nonrec t =
      {
      dBInstanceIdentifier: String_.t
        [@ocaml.doc "The user-supplied instance identifier."]}
    let context_ = "StartDBInstanceMessage"
    let make ~dBInstanceIdentifier = fun () -> { dBInstanceIdentifier }
    let to_value x =
      structure_to_value
        [("DBInstanceIdentifier",
           (Some (String_.to_value x.dBInstanceIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBInstanceIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBInstanceIdentifier") in
      make ~dBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstanceIdentifier =
        field_map_exn json__ "DBInstanceIdentifier" String_.of_json in
      make ~dBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an Amazon RDS DB instance that was stopped using the Amazon Web Services console, the stop-db-instance CLI command, or the StopDBInstance operation. For more information, see Starting an Amazon RDS DB instance That Was Previously Stopped in the Amazon RDS User Guide. This command doesn't apply to RDS Custom, Aurora MySQL, and Aurora PostgreSQL. For Aurora DB clusters, use StartDBCluster instead."]
module StartDBInstanceAutomatedBackupsReplicationResult =
  struct
    type startDBInstanceAutomatedBackupsReplicationResult =
      {
      dBInstanceAutomatedBackup: DBInstanceAutomatedBackup.t option }
    and responseMetaData = unit
    and t =
      {
      startDBInstanceAutomatedBackupsReplicationResult:
        startDBInstanceAutomatedBackupsReplicationResult ;
      responseMetaData: responseMetaData }
    type error =
      [
        `DBInstanceAutomatedBackupQuotaExceededFault of
          DBInstanceAutomatedBackupQuotaExceededFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `InvalidDBInstanceAutomatedBackupStateFault of
          InvalidDBInstanceAutomatedBackupStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `StorageTypeNotSupportedFault of StorageTypeNotSupportedFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StartDBInstanceAutomatedBackupsReplicationResult"
    let make ?dBInstanceAutomatedBackup =
      fun () ->
        {
          startDBInstanceAutomatedBackupsReplicationResult =
            { dBInstanceAutomatedBackup };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "DBInstanceAutomatedBackupQuotaExceededFault" ->
          `DBInstanceAutomatedBackupQuotaExceededFault
            (DBInstanceAutomatedBackupQuotaExceededFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "InvalidDBInstanceAutomatedBackupStateFault" ->
          `InvalidDBInstanceAutomatedBackupStateFault
            (InvalidDBInstanceAutomatedBackupStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBInstanceAutomatedBackupQuotaExceededFault" ->
          `DBInstanceAutomatedBackupQuotaExceededFault
            (DBInstanceAutomatedBackupQuotaExceededFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "InvalidDBInstanceAutomatedBackupStateFault" ->
          `InvalidDBInstanceAutomatedBackupStateFault
            (InvalidDBInstanceAutomatedBackupStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBInstanceAutomatedBackupQuotaExceededFault e ->
          `Assoc
            [("error",
               (`String "DBInstanceAutomatedBackupQuotaExceededFault"));
            ("details",
              (DBInstanceAutomatedBackupQuotaExceededFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `InvalidDBInstanceAutomatedBackupStateFault e ->
          `Assoc
            [("error",
               (`String "InvalidDBInstanceAutomatedBackupStateFault"));
            ("details",
              (InvalidDBInstanceAutomatedBackupStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `StorageTypeNotSupportedFault e ->
          `Assoc
            [("error", (`String "StorageTypeNotSupportedFault"));
            ("details", (StorageTypeNotSupportedFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.startDBInstanceAutomatedBackupsReplicationResult in
      structure_to_wrapped_value
        [("DBInstanceAutomatedBackup",
           (Option.map x.dBInstanceAutomatedBackup
              ~f:DBInstanceAutomatedBackup.to_value))]
        ~wrapper:"StartDBInstanceAutomatedBackupsReplicationResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "StartDBInstanceAutomatedBackupsReplicationResult" in
      let dBInstanceAutomatedBackup =
        (Option.map ~f:DBInstanceAutomatedBackup.of_xml)
          (Xml.child xml_arg0 "DBInstanceAutomatedBackup") in
      make ?dBInstanceAutomatedBackup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstanceAutomatedBackup =
        field_map json__ "DBInstanceAutomatedBackup"
          DBInstanceAutomatedBackup.of_json in
      make ?dBInstanceAutomatedBackup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables replication of automated backups to a different Amazon Web Services Region. This command doesn't apply to RDS Custom. For more information, see Replicating Automated Backups to Another Amazon Web Services Region in the Amazon RDS User Guide."]
module StartDBInstanceAutomatedBackupsReplicationMessage =
  struct
    type nonrec t =
      {
      sourceDBInstanceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the source DB instance for the replicated automated backups, for example, arn:aws:rds:us-west-2:123456789012:db:mydatabase."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The retention period for the replicated automated backups."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encryption of the replicated automated backups. The KMS key ID is the Amazon Resource Name (ARN) for the KMS encryption key in the destination Amazon Web Services Region, for example, arn:aws:kms:us-east-1:123456789012:key/AKIAIOSFODNN7EXAMPLE."];
      preSignedUrl: SensitiveString.t option
        [@ocaml.doc
          "In an Amazon Web Services GovCloud (US) Region, an URL that contains a Signature Version 4 signed request for the StartDBInstanceAutomatedBackupsReplication operation to call in the Amazon Web Services Region of the source DB instance. The presigned URL must be a valid request for the StartDBInstanceAutomatedBackupsReplication API operation that can run in the Amazon Web Services Region that contains the source DB instance. This setting applies only to Amazon Web Services GovCloud (US) Regions. It's ignored in other Amazon Web Services Regions. To learn how to generate a Signature Version 4 signed request, see Authenticating Requests: Using Query Parameters (Amazon Web Services Signature Version 4) and Signature Version 4 Signing Process. If you are using an Amazon Web Services SDK tool or the CLI, you can specify SourceRegion (or --source-region for the CLI) instead of specifying PreSignedUrl manually. Specifying SourceRegion autogenerates a presigned URL that is a valid request for the operation that can run in the source Amazon Web Services Region."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of tags to associate with the replicated automated backups."]}
    let context_ = "StartDBInstanceAutomatedBackupsReplicationMessage"
    let make ?backupRetentionPeriod =
      fun ?kmsKeyId ->
        fun ?preSignedUrl ->
          fun ?tags ->
            fun ~sourceDBInstanceArn ->
              fun () ->
                {
                  backupRetentionPeriod;
                  kmsKeyId;
                  preSignedUrl;
                  tags;
                  sourceDBInstanceArn
                }
    let to_value x =
      structure_to_value
        [("SourceDBInstanceArn",
           (Some (String_.to_value x.sourceDBInstanceArn)));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("PreSignedUrl",
          (Option.map x.preSignedUrl ~f:SensitiveString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let preSignedUrl =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "PreSignedUrl") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let sourceDBInstanceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceDBInstanceArn") in
      make ?tags ?preSignedUrl ?kmsKeyId ?backupRetentionPeriod
        ~sourceDBInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let preSignedUrl =
        field_map json__ "PreSignedUrl" SensitiveString.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let sourceDBInstanceArn =
        field_map_exn json__ "SourceDBInstanceArn" String_.of_json in
      make ?tags ?preSignedUrl ?kmsKeyId ?backupRetentionPeriod
        ~sourceDBInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables replication of automated backups to a different Amazon Web Services Region. This command doesn't apply to RDS Custom. For more information, see Replicating Automated Backups to Another Amazon Web Services Region in the Amazon RDS User Guide."]
module StartDBClusterResult =
  struct
    type startDBClusterResult = {
      dBCluster: DBCluster.t option }
    and responseMetaData = unit
    and t =
      {
      startDBClusterResult: startDBClusterResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `InvalidDBShardGroupStateFault of InvalidDBShardGroupStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `VpcEncryptionControlViolationException of
          VpcEncryptionControlViolationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StartDBClusterResult"
    let make ?dBCluster =
      fun () ->
        { startDBClusterResult = { dBCluster }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "InvalidDBShardGroupStateFault" ->
          `InvalidDBShardGroupStateFault
            (InvalidDBShardGroupStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "InvalidDBShardGroupStateFault" ->
          `InvalidDBShardGroupStateFault
            (InvalidDBShardGroupStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `InvalidDBShardGroupStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBShardGroupStateFault"));
            ("details", (InvalidDBShardGroupStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `VpcEncryptionControlViolationException e ->
          `Assoc
            [("error", (`String "VpcEncryptionControlViolationException"));
            ("details", (VpcEncryptionControlViolationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.startDBClusterResult in
      structure_to_wrapped_value
        [("DBCluster", (Option.map x.dBCluster ~f:DBCluster.to_value))]
        ~wrapper:"StartDBClusterResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "StartDBClusterResult" in
      let dBCluster =
        (Option.map ~f:DBCluster.of_xml) (Xml.child xml_arg0 "DBCluster") in
      make ?dBCluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBCluster = field_map json__ "DBCluster" DBCluster.of_json in
      make ?dBCluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an Amazon Aurora DB cluster that was stopped using the Amazon Web Services console, the stop-db-cluster CLI command, or the StopDBCluster operation. For more information, see Stopping and Starting an Aurora Cluster in the Amazon Aurora User Guide. This operation only applies to Aurora DB clusters."]
module StartDBClusterMessage =
  struct
    type nonrec t =
      {
      dBClusterIdentifier: String_.t
        [@ocaml.doc
          "The DB cluster identifier of the Amazon Aurora DB cluster to be started. This parameter is stored as a lowercase string."]}
    let context_ = "StartDBClusterMessage"
    let make ~dBClusterIdentifier = fun () -> { dBClusterIdentifier }
    let to_value x =
      structure_to_value
        [("DBClusterIdentifier",
           (Some (String_.to_value x.dBClusterIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dBClusterIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBClusterIdentifier") in
      make ~dBClusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBClusterIdentifier =
        field_map_exn json__ "DBClusterIdentifier" String_.of_json in
      make ~dBClusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an Amazon Aurora DB cluster that was stopped using the Amazon Web Services console, the stop-db-cluster CLI command, or the StopDBCluster operation. For more information, see Stopping and Starting an Aurora Cluster in the Amazon Aurora User Guide. This operation only applies to Aurora DB clusters."]
module StartActivityStreamResponse =
  struct
    type startActivityStreamResult =
      {
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encryption of messages in the database activity stream."];
      kinesisStreamName: String_.t option
        [@ocaml.doc
          "The name of the Amazon Kinesis data stream to be used for the database activity stream."];
      status: ActivityStreamStatus.t option
        [@ocaml.doc "The status of the database activity stream."];
      mode: ActivityStreamMode.t option
        [@ocaml.doc "The mode of the database activity stream."];
      engineNativeAuditFieldsIncluded: BooleanOptional.t option
        [@ocaml.doc
          "Indicates whether engine-native audit fields are included in the database activity stream."];
      applyImmediately: Boolean.t option
        [@ocaml.doc
          "Indicates whether or not the database activity stream will start as soon as possible, regardless of the maintenance window for the database."]}
    and responseMetaData = unit
    and t =
      {
      startActivityStreamResult: startActivityStreamResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `ResourceNotFoundFault of ResourceNotFoundFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "StartActivityStreamResponse"
    let make ?kmsKeyId =
      fun ?kinesisStreamName ->
        fun ?status ->
          fun ?mode ->
            fun ?engineNativeAuditFieldsIncluded ->
              fun ?applyImmediately ->
                fun () ->
                  {
                    startActivityStreamResult =
                      {
                        kmsKeyId;
                        kinesisStreamName;
                        status;
                        mode;
                        engineNativeAuditFieldsIncluded;
                        applyImmediately
                      };
                    responseMetaData = ()
                  }
    let error_of_json name json =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "ResourceNotFoundFault" ->
          `ResourceNotFoundFault (ResourceNotFoundFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "ResourceNotFoundFault" ->
          `ResourceNotFoundFault (ResourceNotFoundFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `ResourceNotFoundFault e ->
          `Assoc
            [("error", (`String "ResourceNotFoundFault"));
            ("details", (ResourceNotFoundFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.startActivityStreamResult in
      structure_to_wrapped_value
        [("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("KinesisStreamName",
          (Option.map x.kinesisStreamName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:ActivityStreamStatus.to_value));
        ("Mode", (Option.map x.mode ~f:ActivityStreamMode.to_value));
        ("EngineNativeAuditFieldsIncluded",
          (Option.map x.engineNativeAuditFieldsIncluded
             ~f:BooleanOptional.to_value));
        ("ApplyImmediately",
          (Option.map x.applyImmediately ~f:Boolean.to_value))]
        ~wrapper:"StartActivityStreamResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "StartActivityStreamResult" in
      let applyImmediately =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ApplyImmediately") in
      let engineNativeAuditFieldsIncluded =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EngineNativeAuditFieldsIncluded") in
      let mode =
        (Option.map ~f:ActivityStreamMode.of_xml) (Xml.child xml_arg0 "Mode") in
      let status =
        (Option.map ~f:ActivityStreamStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let kinesisStreamName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "KinesisStreamName") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      make ?applyImmediately ?engineNativeAuditFieldsIncluded ?mode ?status
        ?kinesisStreamName ?kmsKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applyImmediately =
        field_map json__ "ApplyImmediately" Boolean.of_json in
      let engineNativeAuditFieldsIncluded =
        field_map json__ "EngineNativeAuditFieldsIncluded"
          BooleanOptional.of_json in
      let mode = field_map json__ "Mode" ActivityStreamMode.of_json in
      let status = field_map json__ "Status" ActivityStreamStatus.of_json in
      let kinesisStreamName =
        field_map json__ "KinesisStreamName" String_.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      make ?applyImmediately ?engineNativeAuditFieldsIncluded ?mode ?status
        ?kinesisStreamName ?kmsKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a database activity stream to monitor activity on the database. For more information, see Monitoring Amazon Aurora with Database Activity Streams in the Amazon Aurora User Guide or Monitoring Amazon RDS with Database Activity Streams in the Amazon RDS User Guide."]
module StartActivityStreamRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the DB cluster, for example, arn:aws:rds:us-east-1:12345667890:cluster:das-cluster."];
      mode: ActivityStreamMode.t
        [@ocaml.doc
          "Specifies the mode of the database activity stream. Database events such as a change or access generate an activity stream event. The database session can handle these events either synchronously or asynchronously."];
      kmsKeyId: String_.t
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encrypting messages in the database activity stream. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key."];
      applyImmediately: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether or not the database activity stream is to start as soon as possible, regardless of the maintenance window for the database."];
      engineNativeAuditFieldsIncluded: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the database activity stream includes engine-native audit fields. This option applies to an Oracle or Microsoft SQL Server DB instance. By default, no engine-native audit fields are included."]}
    let context_ = "StartActivityStreamRequest"
    let make ?applyImmediately =
      fun ?engineNativeAuditFieldsIncluded ->
        fun ~resourceArn ->
          fun ~mode ->
            fun ~kmsKeyId ->
              fun () ->
                {
                  applyImmediately;
                  engineNativeAuditFieldsIncluded;
                  resourceArn;
                  mode;
                  kmsKeyId
                }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("Mode", (Some (ActivityStreamMode.to_value x.mode)));
        ("KmsKeyId", (Some (String_.to_value x.kmsKeyId)));
        ("ApplyImmediately",
          (Option.map x.applyImmediately ~f:BooleanOptional.to_value));
        ("EngineNativeAuditFieldsIncluded",
          (Option.map x.engineNativeAuditFieldsIncluded
             ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engineNativeAuditFieldsIncluded =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EngineNativeAuditFieldsIncluded") in
      let applyImmediately =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "ApplyImmediately") in
      let kmsKeyId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KmsKeyId") in
      let mode =
        ActivityStreamMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Mode") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?engineNativeAuditFieldsIncluded ?applyImmediately ~kmsKeyId ~mode
        ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engineNativeAuditFieldsIncluded =
        field_map json__ "EngineNativeAuditFieldsIncluded"
          BooleanOptional.of_json in
      let applyImmediately =
        field_map json__ "ApplyImmediately" BooleanOptional.of_json in
      let kmsKeyId = field_map_exn json__ "KmsKeyId" String_.of_json in
      let mode = field_map_exn json__ "Mode" ActivityStreamMode.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ?engineNativeAuditFieldsIncluded ?applyImmediately ~kmsKeyId ~mode
        ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a database activity stream to monitor activity on the database. For more information, see Monitoring Amazon Aurora with Database Activity Streams in the Amazon Aurora User Guide or Monitoring Amazon RDS with Database Activity Streams in the Amazon RDS User Guide."]
module SourceRegionMessage =
  struct
    type describeSourceRegionsResult =
      {
      marker: String_.t option
        [@ocaml.doc
          "An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by MaxRecords."];
      sourceRegions: SourceRegionList.t option
        [@ocaml.doc
          "A list of SourceRegion instances that contains each source Amazon Web Services Region that the current Amazon Web Services Region can get a read replica or a DB snapshot from."]}
    and responseMetaData = unit
    and t =
      {
      describeSourceRegionsResult: describeSourceRegionsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "SourceRegionMessage"
    let make ?marker =
      fun ?sourceRegions ->
        fun () ->
          {
            describeSourceRegionsResult = { marker; sourceRegions };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeSourceRegionsResult in
      structure_to_wrapped_value
        [("Marker", (Option.map x.marker ~f:String_.to_value));
        ("SourceRegions",
          (Option.map x.sourceRegions ~f:SourceRegionList.to_value))]
        ~wrapper:"DescribeSourceRegionsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "DescribeSourceRegionsResult" in
      let sourceRegions =
        (Option.map ~f:SourceRegionList.of_xml)
          (Xml.child xml_arg0 "SourceRegions") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?sourceRegions ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceRegions =
        field_map json__ "SourceRegions" SourceRegionList.of_json in
      let marker = field_map json__ "Marker" String_.of_json in
      make ?sourceRegions ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the result of a successful invocation of the DescribeSourceRegions action."]
module ServerlessV2PlatformVersionsMessage =
  struct
    type describeServerlessV2PlatformVersionsResult =
      {
      marker: String_.t option
        [@ocaml.doc
          "An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by MaxRecords."];
      serverlessV2PlatformVersions: ServerlessV2PlatformVersionList.t option
        [@ocaml.doc "A list of ServerlessV2PlatformVersionInfo elements."]}
    and responseMetaData = unit
    and t =
      {
      describeServerlessV2PlatformVersionsResult:
        describeServerlessV2PlatformVersionsResult ;
      responseMetaData: responseMetaData }
    type error = [ `Unknown_operation_error of (string * string option) ]
    let context_ = "ServerlessV2PlatformVersionsMessage"
    let make ?marker =
      fun ?serverlessV2PlatformVersions ->
        fun () ->
          {
            describeServerlessV2PlatformVersionsResult =
              { marker; serverlessV2PlatformVersions };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.describeServerlessV2PlatformVersionsResult in
      structure_to_wrapped_value
        [("Marker", (Option.map x.marker ~f:String_.to_value));
        ("ServerlessV2PlatformVersions",
          (Option.map x.serverlessV2PlatformVersions
             ~f:ServerlessV2PlatformVersionList.to_value))]
        ~wrapper:"DescribeServerlessV2PlatformVersionsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "DescribeServerlessV2PlatformVersionsResult" in
      let serverlessV2PlatformVersions =
        (Option.map ~f:ServerlessV2PlatformVersionList.of_xml)
          (Xml.child xml_arg0 "ServerlessV2PlatformVersions") in
      let marker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?serverlessV2PlatformVersions ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverlessV2PlatformVersions =
        field_map json__ "ServerlessV2PlatformVersions"
          ServerlessV2PlatformVersionList.of_json in
      let marker = field_map json__ "Marker" String_.of_json in
      make ?serverlessV2PlatformVersions ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the result of a successful invocation of the DescribeServerlessV2PlatformVersions action."]
module RevokeDBSecurityGroupIngressResult =
  struct
    type revokeDBSecurityGroupIngressResult =
      {
      dBSecurityGroup: DBSecurityGroup.t option }
    and responseMetaData = unit
    and t =
      {
      revokeDBSecurityGroupIngressResult: revokeDBSecurityGroupIngressResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationNotFoundFault of AuthorizationNotFoundFault.t 
      | `DBSecurityGroupNotFoundFault of DBSecurityGroupNotFoundFault.t 
      | `InvalidDBSecurityGroupStateFault of
          InvalidDBSecurityGroupStateFault.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RevokeDBSecurityGroupIngressResult"
    let make ?dBSecurityGroup =
      fun () ->
        {
          revokeDBSecurityGroupIngressResult = { dBSecurityGroup };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault
            (AuthorizationNotFoundFault.of_json json)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_json json)
      | "InvalidDBSecurityGroupStateFault" ->
          `InvalidDBSecurityGroupStateFault
            (InvalidDBSecurityGroupStateFault.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault (AuthorizationNotFoundFault.of_xml xml)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_xml xml)
      | "InvalidDBSecurityGroupStateFault" ->
          `InvalidDBSecurityGroupStateFault
            (InvalidDBSecurityGroupStateFault.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationNotFoundFault e ->
          `Assoc
            [("error", (`String "AuthorizationNotFoundFault"));
            ("details", (AuthorizationNotFoundFault.to_json e))]
      | `DBSecurityGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSecurityGroupNotFoundFault"));
            ("details", (DBSecurityGroupNotFoundFault.to_json e))]
      | `InvalidDBSecurityGroupStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBSecurityGroupStateFault"));
            ("details", (InvalidDBSecurityGroupStateFault.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.revokeDBSecurityGroupIngressResult in
      structure_to_wrapped_value
        [("DBSecurityGroup",
           (Option.map x.dBSecurityGroup ~f:DBSecurityGroup.to_value))]
        ~wrapper:"RevokeDBSecurityGroupIngressResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "RevokeDBSecurityGroupIngressResult" in
      let dBSecurityGroup =
        (Option.map ~f:DBSecurityGroup.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroup") in
      make ?dBSecurityGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBSecurityGroup =
        field_map json__ "DBSecurityGroup" DBSecurityGroup.of_json in
      make ?dBSecurityGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Revokes ingress from a DBSecurityGroup for previously authorized IP ranges or EC2 or VPC security groups. Required parameters for this API are one of CIDRIP, EC2SecurityGroupId for VPC, or (EC2SecurityGroupOwnerId and either EC2SecurityGroupName or EC2SecurityGroupId). EC2-Classic was retired on August 15, 2022. If you haven't migrated from EC2-Classic to a VPC, we recommend that you migrate as soon as possible. For more information, see Migrate from EC2-Classic to a VPC in the Amazon EC2 User Guide, the blog EC2-Classic Networking is Retiring \226\128\147 Here\226\128\153s How to Prepare, and Moving a DB instance not in a VPC into a VPC in the Amazon RDS User Guide."]
module RevokeDBSecurityGroupIngressMessage =
  struct
    type nonrec t =
      {
      dBSecurityGroupName: String_.t
        [@ocaml.doc
          "The name of the DB security group to revoke ingress from."];
      cIDRIP: String_.t option
        [@ocaml.doc
          "The IP range to revoke access from. Must be a valid CIDR range. If CIDRIP is specified, EC2SecurityGroupName, EC2SecurityGroupId and EC2SecurityGroupOwnerId can't be provided."];
      eC2SecurityGroupName: String_.t option
        [@ocaml.doc
          "The name of the EC2 security group to revoke access from. For VPC DB security groups, EC2SecurityGroupId must be provided. Otherwise, EC2SecurityGroupOwnerId and either EC2SecurityGroupName or EC2SecurityGroupId must be provided."];
      eC2SecurityGroupId: String_.t option
        [@ocaml.doc
          "The id of the EC2 security group to revoke access from. For VPC DB security groups, EC2SecurityGroupId must be provided. Otherwise, EC2SecurityGroupOwnerId and either EC2SecurityGroupName or EC2SecurityGroupId must be provided."];
      eC2SecurityGroupOwnerId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account number of the owner of the EC2 security group specified in the EC2SecurityGroupName parameter. The Amazon Web Services access key ID isn't an acceptable value. For VPC DB security groups, EC2SecurityGroupId must be provided. Otherwise, EC2SecurityGroupOwnerId and either EC2SecurityGroupName or EC2SecurityGroupId must be provided."]}
    let context_ = "RevokeDBSecurityGroupIngressMessage"
    let make ?cIDRIP =
      fun ?eC2SecurityGroupName ->
        fun ?eC2SecurityGroupId ->
          fun ?eC2SecurityGroupOwnerId ->
            fun ~dBSecurityGroupName ->
              fun () ->
                {
                  cIDRIP;
                  eC2SecurityGroupName;
                  eC2SecurityGroupId;
                  eC2SecurityGroupOwnerId;
                  dBSecurityGroupName
                }
    let to_value x =
      structure_to_value
        [("DBSecurityGroupName",
           (Some (String_.to_value x.dBSecurityGroupName)));
        ("CIDRIP", (Option.map x.cIDRIP ~f:String_.to_value));
        ("EC2SecurityGroupName",
          (Option.map x.eC2SecurityGroupName ~f:String_.to_value));
        ("EC2SecurityGroupId",
          (Option.map x.eC2SecurityGroupId ~f:String_.to_value));
        ("EC2SecurityGroupOwnerId",
          (Option.map x.eC2SecurityGroupOwnerId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eC2SecurityGroupOwnerId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroupOwnerId") in
      let eC2SecurityGroupId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroupId") in
      let eC2SecurityGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2SecurityGroupName") in
      let cIDRIP =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CIDRIP") in
      let dBSecurityGroupName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBSecurityGroupName") in
      make ?eC2SecurityGroupOwnerId ?eC2SecurityGroupId ?eC2SecurityGroupName
        ?cIDRIP ~dBSecurityGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eC2SecurityGroupOwnerId =
        field_map json__ "EC2SecurityGroupOwnerId" String_.of_json in
      let eC2SecurityGroupId =
        field_map json__ "EC2SecurityGroupId" String_.of_json in
      let eC2SecurityGroupName =
        field_map json__ "EC2SecurityGroupName" String_.of_json in
      let cIDRIP = field_map json__ "CIDRIP" String_.of_json in
      let dBSecurityGroupName =
        field_map_exn json__ "DBSecurityGroupName" String_.of_json in
      make ?eC2SecurityGroupOwnerId ?eC2SecurityGroupId ?eC2SecurityGroupName
        ?cIDRIP ~dBSecurityGroupName ()
    let to_json v = composed_to_json to_value v
  end
module RestoreDBInstanceToPointInTimeResult =
  struct
    type restoreDBInstanceToPointInTimeResult =
      {
      dBInstance: DBInstance.t option }
    and responseMetaData = unit
    and t =
      {
      restoreDBInstanceToPointInTimeResult:
        restoreDBInstanceToPointInTimeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationNotFoundFault of AuthorizationNotFoundFault.t 
      | `BackupPolicyNotFoundFault of BackupPolicyNotFoundFault.t 
      | `CertificateNotFoundFault of CertificateNotFoundFault.t 
      | `DBInstanceAlreadyExistsFault of DBInstanceAlreadyExistsFault.t 
      | `DBInstanceAutomatedBackupNotFoundFault of
          DBInstanceAutomatedBackupNotFoundFault.t 
      | `DBInstanceNotFoundFault of DBInstanceNotFoundFault.t 
      | `DBParameterGroupNotFoundFault of DBParameterGroupNotFoundFault.t 
      | `DBSecurityGroupNotFoundFault of DBSecurityGroupNotFoundFault.t 
      | `DBSubnetGroupDoesNotCoverEnoughAZs of
          DBSubnetGroupDoesNotCoverEnoughAZs.t 
      | `DBSubnetGroupNotFoundFault of DBSubnetGroupNotFoundFault.t 
      | `DomainNotFoundFault of DomainNotFoundFault.t 
      | `InstanceQuotaExceededFault of InstanceQuotaExceededFault.t 
      | `InsufficientDBInstanceCapacityFault of
          InsufficientDBInstanceCapacityFault.t 
      | `InvalidDBInstanceStateFault of InvalidDBInstanceStateFault.t 
      | `InvalidRestoreFault of InvalidRestoreFault.t 
      | `InvalidSubnet of InvalidSubnet.t 
      | `InvalidVPCNetworkStateFault of InvalidVPCNetworkStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `NetworkTypeNotSupported of NetworkTypeNotSupported.t 
      | `OptionGroupNotFoundFault of OptionGroupNotFoundFault.t 
      | `PointInTimeRestoreNotEnabledFault of
          PointInTimeRestoreNotEnabledFault.t 
      | `ProvisionedIopsNotAvailableInAZFault of
          ProvisionedIopsNotAvailableInAZFault.t 
      | `StorageQuotaExceededFault of StorageQuotaExceededFault.t 
      | `StorageTypeNotSupportedFault of StorageTypeNotSupportedFault.t 
      | `TenantDatabaseQuotaExceededFault of
          TenantDatabaseQuotaExceededFault.t 
      | `VpcEncryptionControlViolationException of
          VpcEncryptionControlViolationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RestoreDBInstanceToPointInTimeResult"
    let make ?dBInstance =
      fun () ->
        {
          restoreDBInstanceToPointInTimeResult = { dBInstance };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault
            (AuthorizationNotFoundFault.of_json json)
      | "BackupPolicyNotFoundFault" ->
          `BackupPolicyNotFoundFault (BackupPolicyNotFoundFault.of_json json)
      | "CertificateNotFoundFault" ->
          `CertificateNotFoundFault (CertificateNotFoundFault.of_json json)
      | "DBInstanceAlreadyExistsFault" ->
          `DBInstanceAlreadyExistsFault
            (DBInstanceAlreadyExistsFault.of_json json)
      | "DBInstanceAutomatedBackupNotFoundFault" ->
          `DBInstanceAutomatedBackupNotFoundFault
            (DBInstanceAutomatedBackupNotFoundFault.of_json json)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_json json)
      | "DBParameterGroupNotFoundFault" ->
          `DBParameterGroupNotFoundFault
            (DBParameterGroupNotFoundFault.of_json json)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_json json)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_json json)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault
            (DBSubnetGroupNotFoundFault.of_json json)
      | "DomainNotFoundFault" ->
          `DomainNotFoundFault (DomainNotFoundFault.of_json json)
      | "InstanceQuotaExceededFault" ->
          `InstanceQuotaExceededFault
            (InstanceQuotaExceededFault.of_json json)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_json json)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_json json)
      | "InvalidRestoreFault" ->
          `InvalidRestoreFault (InvalidRestoreFault.of_json json)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_json json)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_json json)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_json json)
      | "PointInTimeRestoreNotEnabledFault" ->
          `PointInTimeRestoreNotEnabledFault
            (PointInTimeRestoreNotEnabledFault.of_json json)
      | "ProvisionedIopsNotAvailableInAZFault" ->
          `ProvisionedIopsNotAvailableInAZFault
            (ProvisionedIopsNotAvailableInAZFault.of_json json)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_json json)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_json json)
      | "TenantDatabaseQuotaExceededFault" ->
          `TenantDatabaseQuotaExceededFault
            (TenantDatabaseQuotaExceededFault.of_json json)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault (AuthorizationNotFoundFault.of_xml xml)
      | "BackupPolicyNotFoundFault" ->
          `BackupPolicyNotFoundFault (BackupPolicyNotFoundFault.of_xml xml)
      | "CertificateNotFoundFault" ->
          `CertificateNotFoundFault (CertificateNotFoundFault.of_xml xml)
      | "DBInstanceAlreadyExistsFault" ->
          `DBInstanceAlreadyExistsFault
            (DBInstanceAlreadyExistsFault.of_xml xml)
      | "DBInstanceAutomatedBackupNotFoundFault" ->
          `DBInstanceAutomatedBackupNotFoundFault
            (DBInstanceAutomatedBackupNotFoundFault.of_xml xml)
      | "DBInstanceNotFoundFault" ->
          `DBInstanceNotFoundFault (DBInstanceNotFoundFault.of_xml xml)
      | "DBParameterGroupNotFoundFault" ->
          `DBParameterGroupNotFoundFault
            (DBParameterGroupNotFoundFault.of_xml xml)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_xml xml)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_xml xml)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault (DBSubnetGroupNotFoundFault.of_xml xml)
      | "DomainNotFoundFault" ->
          `DomainNotFoundFault (DomainNotFoundFault.of_xml xml)
      | "InstanceQuotaExceededFault" ->
          `InstanceQuotaExceededFault (InstanceQuotaExceededFault.of_xml xml)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_xml xml)
      | "InvalidDBInstanceStateFault" ->
          `InvalidDBInstanceStateFault
            (InvalidDBInstanceStateFault.of_xml xml)
      | "InvalidRestoreFault" ->
          `InvalidRestoreFault (InvalidRestoreFault.of_xml xml)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_xml xml)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_xml xml)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_xml xml)
      | "PointInTimeRestoreNotEnabledFault" ->
          `PointInTimeRestoreNotEnabledFault
            (PointInTimeRestoreNotEnabledFault.of_xml xml)
      | "ProvisionedIopsNotAvailableInAZFault" ->
          `ProvisionedIopsNotAvailableInAZFault
            (ProvisionedIopsNotAvailableInAZFault.of_xml xml)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_xml xml)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_xml xml)
      | "TenantDatabaseQuotaExceededFault" ->
          `TenantDatabaseQuotaExceededFault
            (TenantDatabaseQuotaExceededFault.of_xml xml)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationNotFoundFault e ->
          `Assoc
            [("error", (`String "AuthorizationNotFoundFault"));
            ("details", (AuthorizationNotFoundFault.to_json e))]
      | `BackupPolicyNotFoundFault e ->
          `Assoc
            [("error", (`String "BackupPolicyNotFoundFault"));
            ("details", (BackupPolicyNotFoundFault.to_json e))]
      | `CertificateNotFoundFault e ->
          `Assoc
            [("error", (`String "CertificateNotFoundFault"));
            ("details", (CertificateNotFoundFault.to_json e))]
      | `DBInstanceAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBInstanceAlreadyExistsFault"));
            ("details", (DBInstanceAlreadyExistsFault.to_json e))]
      | `DBInstanceAutomatedBackupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceAutomatedBackupNotFoundFault"));
            ("details", (DBInstanceAutomatedBackupNotFoundFault.to_json e))]
      | `DBInstanceNotFoundFault e ->
          `Assoc
            [("error", (`String "DBInstanceNotFoundFault"));
            ("details", (DBInstanceNotFoundFault.to_json e))]
      | `DBParameterGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBParameterGroupNotFoundFault"));
            ("details", (DBParameterGroupNotFoundFault.to_json e))]
      | `DBSecurityGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSecurityGroupNotFoundFault"));
            ("details", (DBSecurityGroupNotFoundFault.to_json e))]
      | `DBSubnetGroupDoesNotCoverEnoughAZs e ->
          `Assoc
            [("error", (`String "DBSubnetGroupDoesNotCoverEnoughAZs"));
            ("details", (DBSubnetGroupDoesNotCoverEnoughAZs.to_json e))]
      | `DBSubnetGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSubnetGroupNotFoundFault"));
            ("details", (DBSubnetGroupNotFoundFault.to_json e))]
      | `DomainNotFoundFault e ->
          `Assoc
            [("error", (`String "DomainNotFoundFault"));
            ("details", (DomainNotFoundFault.to_json e))]
      | `InstanceQuotaExceededFault e ->
          `Assoc
            [("error", (`String "InstanceQuotaExceededFault"));
            ("details", (InstanceQuotaExceededFault.to_json e))]
      | `InsufficientDBInstanceCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientDBInstanceCapacityFault"));
            ("details", (InsufficientDBInstanceCapacityFault.to_json e))]
      | `InvalidDBInstanceStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBInstanceStateFault"));
            ("details", (InvalidDBInstanceStateFault.to_json e))]
      | `InvalidRestoreFault e ->
          `Assoc
            [("error", (`String "InvalidRestoreFault"));
            ("details", (InvalidRestoreFault.to_json e))]
      | `InvalidSubnet e ->
          `Assoc
            [("error", (`String "InvalidSubnet"));
            ("details", (InvalidSubnet.to_json e))]
      | `InvalidVPCNetworkStateFault e ->
          `Assoc
            [("error", (`String "InvalidVPCNetworkStateFault"));
            ("details", (InvalidVPCNetworkStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `NetworkTypeNotSupported e ->
          `Assoc
            [("error", (`String "NetworkTypeNotSupported"));
            ("details", (NetworkTypeNotSupported.to_json e))]
      | `OptionGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "OptionGroupNotFoundFault"));
            ("details", (OptionGroupNotFoundFault.to_json e))]
      | `PointInTimeRestoreNotEnabledFault e ->
          `Assoc
            [("error", (`String "PointInTimeRestoreNotEnabledFault"));
            ("details", (PointInTimeRestoreNotEnabledFault.to_json e))]
      | `ProvisionedIopsNotAvailableInAZFault e ->
          `Assoc
            [("error", (`String "ProvisionedIopsNotAvailableInAZFault"));
            ("details", (ProvisionedIopsNotAvailableInAZFault.to_json e))]
      | `StorageQuotaExceededFault e ->
          `Assoc
            [("error", (`String "StorageQuotaExceededFault"));
            ("details", (StorageQuotaExceededFault.to_json e))]
      | `StorageTypeNotSupportedFault e ->
          `Assoc
            [("error", (`String "StorageTypeNotSupportedFault"));
            ("details", (StorageTypeNotSupportedFault.to_json e))]
      | `TenantDatabaseQuotaExceededFault e ->
          `Assoc
            [("error", (`String "TenantDatabaseQuotaExceededFault"));
            ("details", (TenantDatabaseQuotaExceededFault.to_json e))]
      | `VpcEncryptionControlViolationException e ->
          `Assoc
            [("error", (`String "VpcEncryptionControlViolationException"));
            ("details", (VpcEncryptionControlViolationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.restoreDBInstanceToPointInTimeResult in
      structure_to_wrapped_value
        [("DBInstance", (Option.map x.dBInstance ~f:DBInstance.to_value))]
        ~wrapper:"RestoreDBInstanceToPointInTimeResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "RestoreDBInstanceToPointInTimeResult" in
      let dBInstance =
        (Option.map ~f:DBInstance.of_xml) (Xml.child xml_arg0 "DBInstance") in
      make ?dBInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstance = field_map json__ "DBInstance" DBInstance.of_json in
      make ?dBInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Restores a DB instance to an arbitrary point in time. You can restore to any point in time before the time identified by the LatestRestorableTime property. You can restore to a point up to the number of days specified by the BackupRetentionPeriod property. The target database is created with most of the original configuration, but in a system-selected Availability Zone, with the default security group, the default subnet group, and the default DB parameter group. By default, the new DB instance is created as a single-AZ deployment except when the instance is a SQL Server instance that has an option group that is associated with mirroring; in this case, the instance becomes a mirrored deployment and not a single-AZ deployment. This operation doesn't apply to Aurora MySQL and Aurora PostgreSQL. For Aurora, use RestoreDBClusterToPointInTime."]
module RestoreDBInstanceToPointInTimeMessage =
  struct
    type nonrec t =
      {
      sourceDBInstanceIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the source DB instance from which to restore. Constraints: Must match the identifier of an existing DB instance."];
      targetDBInstanceIdentifier: String_.t
        [@ocaml.doc
          "The name of the new DB instance to create. Constraints: Must contain from 1 to 63 letters, numbers, or hyphens. First character must be a letter. Can't end with a hyphen or contain two consecutive hyphens."];
      restoreTime: TStamp.t option
        [@ocaml.doc
          "The date and time to restore from. Constraints: Must be a time in Universal Coordinated Time (UTC) format. Must be before the latest restorable time for the DB instance. Can't be specified if the UseLatestRestorableTime parameter is enabled. Example: 2009-09-07T23:45:00Z"];
      useLatestRestorableTime: Boolean.t option
        [@ocaml.doc
          "Specifies whether the DB instance is restored from the latest backup time. By default, the DB instance isn't restored from the latest backup time. Constraints: Can't be specified if the RestoreTime parameter is provided."];
      dBInstanceClass: String_.t option
        [@ocaml.doc
          "The compute and memory capacity of the Amazon RDS DB instance, for example db.m4.large. Not all DB instance classes are available in all Amazon Web Services Regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see DB Instance Class in the Amazon RDS User Guide. Default: The same DB instance class as the original DB instance."];
      port: IntegerOptional.t option
        [@ocaml.doc
          "The port number on which the database accepts connections. Default: The same port as the original DB instance. Constraints: The value must be 1150-65535."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone (AZ) where the DB instance will be created. Default: A random, system-chosen Availability Zone. Constraints: You can't specify the AvailabilityZone parameter if the DB instance is a Multi-AZ deployment. Example: us-east-1a"];
      dBSubnetGroupName: String_.t option
        [@ocaml.doc
          "The DB subnet group name to use for the new instance. Constraints: If supplied, must match the name of an existing DB subnet group. Example: mydbsubnetgroup"];
      multiAZ: BooleanOptional.t option
        [@ocaml.doc
          "Secifies whether the DB instance is a Multi-AZ deployment. This setting doesn't apply to RDS Custom. Constraints: You can't specify the AvailabilityZone parameter if the DB instance is a Multi-AZ deployment."];
      publiclyAccessible: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance is publicly accessible. When the DB cluster is publicly accessible, its Domain Name System (DNS) endpoint resolves to the private IP address from within the DB cluster's virtual private cloud (VPC). It resolves to the public IP address from outside of the DB cluster's VPC. Access to the DB cluster is ultimately controlled by the security group it uses. That public access isn't permitted if the security group assigned to the DB cluster doesn't permit it. When the DB instance isn't publicly accessible, it is an internal DB instance with a DNS name that resolves to a private IP address. For more information, see CreateDBInstance."];
      autoMinorVersionUpgrade: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether minor version upgrades are applied automatically to the DB instance during the maintenance window. This setting doesn't apply to RDS Custom. For more information about automatic minor version upgrades, see Automatically upgrading the minor engine version."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model information for the restored DB instance. License models for RDS for Db2 require additional configuration. The bring your own license (BYOL) model requires a custom parameter group and an Amazon Web Services License Manager self-managed license. The Db2 license through Amazon Web Services Marketplace model requires an Amazon Web Services Marketplace subscription. For more information, see Amazon RDS for Db2 licensing options in the Amazon RDS User Guide. This setting doesn't apply to Amazon Aurora or RDS Custom DB instances. Valid Values: RDS for Db2 - bring-your-own-license | marketplace-license RDS for MariaDB - general-public-license RDS for Microsoft SQL Server - license-included RDS for MySQL - general-public-license RDS for Oracle - bring-your-own-license | license-included RDS for PostgreSQL - postgresql-license Default: Same as the source."];
      dBName: String_.t option
        [@ocaml.doc
          "The database name for the restored DB instance. This parameter doesn't apply to the following DB instances: RDS Custom RDS for Db2 RDS for MariaDB RDS for MySQL"];
      engine: String_.t option
        [@ocaml.doc
          "The database engine to use for the new instance. This setting doesn't apply to RDS Custom. Valid Values: db2-ae db2-se mariadb mysql oracle-ee oracle-ee-cdb oracle-se2 oracle-se2-cdb postgres sqlserver-ee sqlserver-se sqlserver-ex sqlserver-web Default: The same as source Constraints: Must be compatible with the engine of the source."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The amount of Provisioned IOPS (input/output operations per second) to initially allocate for the DB instance. This setting doesn't apply to SQL Server. Constraints: Must be an integer greater than 1000."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "The storage throughput value for the DB instance. This setting doesn't apply to RDS Custom or Amazon Aurora."];
      optionGroupName: String_.t option
        [@ocaml.doc
          "The name of the option group to use for the restored DB instance. Permanent options, such as the TDE option for Oracle Advanced Security TDE, can't be removed from an option group, and that option group can't be removed from a DB instance after it is associated with a DB instance This setting doesn't apply to RDS Custom."];
      copyTagsToSnapshot: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to copy all tags from the restored DB instance to snapshots of the DB instance. By default, tags are not copied."];
      tags: TagList.t option ;
      storageType: String_.t option
        [@ocaml.doc
          "The storage type to associate with the DB instance. Valid Values: gp2 | gp3 | io1 | io2 | standard Default: io1, if the Iops parameter is specified. Otherwise, gp3. Constraints: If you specify io1, io2, or gp3, you must also include a value for the Iops parameter."];
      tdeCredentialArn: String_.t option
        [@ocaml.doc
          "The ARN from the key store with which to associate the instance for TDE encryption. This setting doesn't apply to RDS Custom."];
      tdeCredentialPassword: SensitiveString.t option
        [@ocaml.doc
          "The password for the given ARN from the key store in order to access the device. This setting doesn't apply to RDS Custom."];
      vpcSecurityGroupIds: VpcSecurityGroupIdList.t option
        [@ocaml.doc
          "A list of EC2 VPC security groups to associate with this DB instance. Default: The default EC2 VPC security group for the DB subnet group's VPC."];
      domain: String_.t option
        [@ocaml.doc
          "The Active Directory directory ID to restore the DB instance in. Create the domain before running this command. Currently, you can create only the MySQL, Microsoft SQL Server, Oracle, and PostgreSQL DB instances in an Active Directory Domain. This setting doesn't apply to RDS Custom. For more information, see Kerberos Authentication in the Amazon RDS User Guide."];
      domainIAMRoleName: String_.t option
        [@ocaml.doc
          "The name of the IAM role to use when making API calls to the Directory Service. This setting doesn't apply to RDS Custom DB instances."];
      domainFqdn: String_.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of an Active Directory domain. Constraints: Can't be longer than 64 characters. Example: mymanagedADtest.mymanagedAD.mydomain"];
      domainOu: String_.t option
        [@ocaml.doc
          "The Active Directory organizational unit for your DB instance to join. Constraints: Must be in the distinguished name format. Can't be longer than 64 characters. Example: OU=mymanagedADtestOU,DC=mymanagedADtest,DC=mymanagedAD,DC=mydomain"];
      domainAuthSecretArn: String_.t option
        [@ocaml.doc
          "The ARN for the Secrets Manager secret with the credentials for the user joining the domain. Constraints: Can't be longer than 64 characters. Example: arn:aws:secretsmanager:region:account-number:secret:myselfmanagedADtestsecret-123456"];
      domainDnsIps: StringList.t option
        [@ocaml.doc
          "The IPv4 DNS IP addresses of your primary and secondary Active Directory domain controllers. Constraints: Two IP addresses must be provided. If there isn't a secondary domain controller, use the IP address of the primary domain controller for both entries in the list. Example: 123.124.125.126,234.235.236.237"];
      enableIAMDatabaseAuthentication: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts. By default, mapping isn't enabled. This setting doesn't apply to RDS Custom. For more information about IAM database authentication, see IAM Database Authentication for MySQL and PostgreSQL in the Amazon RDS User Guide."];
      enableCloudwatchLogsExports: LogTypeList.t option
        [@ocaml.doc
          "The list of logs that the restored DB instance is to export to CloudWatch Logs. The values in the list depend on the DB engine being used. For more information, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon RDS User Guide. This setting doesn't apply to RDS Custom."];
      processorFeatures: ProcessorFeatureList.t option
        [@ocaml.doc
          "The number of CPU cores and the number of threads per core for the DB instance class of the DB instance. This setting doesn't apply to RDS Custom."];
      useDefaultProcessorFeatures: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance class of the DB instance uses its default processor features. This setting doesn't apply to RDS Custom."];
      dBParameterGroupName: String_.t option
        [@ocaml.doc
          "The name of the DB parameter group to associate with this DB instance. If you do not specify a value for DBParameterGroupName, then the default DBParameterGroup for the specified DB engine is used. This setting doesn't apply to RDS Custom. Constraints: If supplied, must match the name of an existing DB parameter group. Must be 1 to 255 letters, numbers, or hyphens. First character must be a letter. Can't end with a hyphen or contain two consecutive hyphens."];
      deletionProtection: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance has deletion protection enabled. The database can't be deleted when deletion protection is enabled. By default, deletion protection isn't enabled. For more information, see Deleting a DB Instance."];
      sourceDbiResourceId: String_.t option
        [@ocaml.doc
          "The resource ID of the source DB instance from which to restore."];
      maxAllocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The upper limit in gibibytes (GiB) to which Amazon RDS can automatically scale the storage of the DB instance. For more information about this setting, including limitations that apply to it, see Managing capacity automatically with Amazon RDS storage autoscaling in the Amazon RDS User Guide. This setting doesn't apply to RDS Custom."];
      enableCustomerOwnedIp: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable a customer-owned IP address (CoIP) for an RDS on Outposts DB instance. A CoIP provides local or external connectivity to resources in your Outpost subnets through your on-premises network. For some use cases, a CoIP can provide lower latency for connections to the DB instance from outside of its virtual private cloud (VPC) on your local network. This setting doesn't apply to RDS Custom. For more information about RDS on Outposts, see Working with Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide. For more information about CoIPs, see Customer-owned IP addresses in the Amazon Web Services Outposts User Guide."];
      networkType: String_.t option
        [@ocaml.doc
          "The network type of the DB instance. The network type is determined by the DBSubnetGroup specified for the DB instance. A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon RDS User Guide. Valid Values: IPV4 DUAL"];
      sourceDBInstanceAutomatedBackupsArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the replicated automated backups from which to restore, for example, arn:aws:rds:us-east-1:123456789012:auto-backup:ab-L2IJCEXJP7XQ7HOJ4SIEXAMPLE. This setting doesn't apply to RDS Custom."];
      backupTarget: String_.t option
        [@ocaml.doc
          "The location for storing automated backups and manual snapshots for the restored DB instance. Valid Values: local (Dedicated Local Zone) outposts (Amazon Web Services Outposts) region (Amazon Web Services Region) Default: region For more information, see Working with Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide."];
      customIamInstanceProfile: String_.t option
        [@ocaml.doc
          "The instance profile associated with the underlying Amazon EC2 instance of an RDS Custom DB instance. The instance profile must meet the following requirements: The profile must exist in your account. The profile must have an IAM role that Amazon EC2 has permissions to assume. The instance profile name and the associated IAM role name must start with the prefix AWSRDSCustom. For the list of permissions required for the IAM role, see Configure IAM and your VPC in the Amazon RDS User Guide. This setting is required for RDS Custom."];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The amount of storage (in gibibytes) to allocate initially for the DB instance. Follow the allocation rules specified in CreateDBInstance. This setting isn't valid for RDS for SQL Server. Be sure to allocate enough storage for your new DB instance so that the restore operation can succeed. You can also allocate additional storage for future growth."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Enabling and disabling backups can result in a brief I/O suspension that lasts from a few seconds to a few minutes, depending on the size and class of your DB instance. This setting doesn't apply to Amazon Aurora DB instances. The retention period for automated backups is managed by the DB cluster. For more information, see ModifyDBCluster. Default: Uses existing setting Constraints: Must be a value from 0 to 35. Can't be set to 0 if the DB instance is a source to read replicas. Can't be set to 0 for an RDS Custom for Oracle DB instance."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod parameter. Changing this parameter doesn't result in an outage and the change is asynchronously applied as soon as possible. The default is a 30-minute window selected at random from an 8-hour block of time for each Amazon Web Services Region. For more information, see Backup window in the Amazon RDS User Guide. This setting doesn't apply to Amazon Aurora DB instances. The daily time range for creating automated backups is managed by the DB cluster. For more information, see ModifyDBCluster. Constraints: Must be in the format hh24:mi-hh24:mi. Must be in Universal Coordinated Time (UTC). Must not conflict with the preferred maintenance window. Must be at least 30 minutes."];
      dedicatedLogVolume: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable a dedicated log volume (DLV) for the DB instance."];
      cACertificateIdentifier: String_.t option
        [@ocaml.doc
          "The CA certificate identifier to use for the DB instance's server certificate. This setting doesn't apply to RDS Custom DB instances. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."];
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The life cycle type for this DB instance. By default, this value is set to open-source-rds-extended-support, which enrolls your DB instance into Amazon RDS Extended Support. At the end of standard support, you can avoid charges for Extended Support by setting the value to open-source-rds-extended-support-disabled. In this case, RDS automatically upgrades your restored DB instance to a higher engine version, if the major engine version is past its end of standard support date. You can use this setting to enroll your DB instance into Amazon RDS Extended Support. With RDS Extended Support, you can run the selected major engine version on your DB instance past the end of standard support for that engine version. For more information, see Amazon RDS Extended Support with Amazon RDS in the Amazon RDS User Guide. This setting applies only to RDS for MySQL and RDS for PostgreSQL. For Amazon Aurora DB instances, the life cycle type is managed by the DB cluster. Valid Values: open-source-rds-extended-support | open-source-rds-extended-support-disabled Default: open-source-rds-extended-support"];
      additionalStorageVolumes: AdditionalStorageVolumesList.t option
        [@ocaml.doc
          "A list of additional storage volumes to restore to the DB instance. You can restore up to three additional storage volumes using the names rdsdbdata2, rdsdbdata3, and rdsdbdata4. Additional storage volumes are supported for RDS for Oracle and RDS for SQL Server DB instances only."];
      tagSpecifications: TagSpecificationList.t option
        [@ocaml.doc
          "Tags to assign to resources associated with the DB instance. Valid Values: auto-backup - The DB instance's automated backup."];
      manageMasterUserPassword: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to manage the master user password with Amazon Web Services Secrets Manager in the restored DB instance. For more information, see Password management with Amazon Web Services Secrets Manager in the Amazon RDS User Guide. Constraints: Applies to RDS for Oracle only."];
      masterUserSecretKmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier to encrypt a secret that is automatically generated and managed in Amazon Web Services Secrets Manager. This setting is valid only if the master user password is managed by RDS in Amazon Web Services Secrets Manager for the DB instance. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. To use a KMS key in a different Amazon Web Services account, specify the key ARN or alias ARN. If you don't specify MasterUserSecretKmsKeyId, then the aws/secretsmanager KMS key is used to encrypt the secret. If the secret is in a different Amazon Web Services account, then you can't use the aws/secretsmanager KMS key to encrypt the secret, and you must use a customer managed KMS key. There is a default KMS key for your Amazon Web Services account. Your Amazon Web Services account has a different default KMS key for each Amazon Web Services Region."]}
    let context_ = "RestoreDBInstanceToPointInTimeMessage"
    let make ?sourceDBInstanceIdentifier =
      fun ?restoreTime ->
        fun ?useLatestRestorableTime ->
          fun ?dBInstanceClass ->
            fun ?port ->
              fun ?availabilityZone ->
                fun ?dBSubnetGroupName ->
                  fun ?multiAZ ->
                    fun ?publiclyAccessible ->
                      fun ?autoMinorVersionUpgrade ->
                        fun ?licenseModel ->
                          fun ?dBName ->
                            fun ?engine ->
                              fun ?iops ->
                                fun ?storageThroughput ->
                                  fun ?optionGroupName ->
                                    fun ?copyTagsToSnapshot ->
                                      fun ?tags ->
                                        fun ?storageType ->
                                          fun ?tdeCredentialArn ->
                                            fun ?tdeCredentialPassword ->
                                              fun ?vpcSecurityGroupIds ->
                                                fun ?domain ->
                                                  fun ?domainIAMRoleName ->
                                                    fun ?domainFqdn ->
                                                      fun ?domainOu ->
                                                        fun
                                                          ?domainAuthSecretArn
                                                          ->
                                                          fun ?domainDnsIps
                                                            ->
                                                            fun
                                                              ?enableIAMDatabaseAuthentication
                                                              ->
                                                              fun
                                                                ?enableCloudwatchLogsExports
                                                                ->
                                                                fun
                                                                  ?processorFeatures
                                                                  ->
                                                                  fun
                                                                    ?useDefaultProcessorFeatures
                                                                    ->
                                                                    fun
                                                                    ?dBParameterGroupName
                                                                    ->
                                                                    fun
                                                                    ?deletionProtection
                                                                    ->
                                                                    fun
                                                                    ?sourceDbiResourceId
                                                                    ->
                                                                    fun
                                                                    ?maxAllocatedStorage
                                                                    ->
                                                                    fun
                                                                    ?enableCustomerOwnedIp
                                                                    ->
                                                                    fun
                                                                    ?networkType
                                                                    ->
                                                                    fun
                                                                    ?sourceDBInstanceAutomatedBackupsArn
                                                                    ->
                                                                    fun
                                                                    ?backupTarget
                                                                    ->
                                                                    fun
                                                                    ?customIamInstanceProfile
                                                                    ->
                                                                    fun
                                                                    ?allocatedStorage
                                                                    ->
                                                                    fun
                                                                    ?backupRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?preferredBackupWindow
                                                                    ->
                                                                    fun
                                                                    ?dedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?cACertificateIdentifier
                                                                    ->
                                                                    fun
                                                                    ?engineLifecycleSupport
                                                                    ->
                                                                    fun
                                                                    ?additionalStorageVolumes
                                                                    ->
                                                                    fun
                                                                    ?tagSpecifications
                                                                    ->
                                                                    fun
                                                                    ?manageMasterUserPassword
                                                                    ->
                                                                    fun
                                                                    ?masterUserSecretKmsKeyId
                                                                    ->
                                                                    fun
                                                                    ~targetDBInstanceIdentifier
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    sourceDBInstanceIdentifier;
                                                                    restoreTime;
                                                                    useLatestRestorableTime;
                                                                    dBInstanceClass;
                                                                    port;
                                                                    availabilityZone;
                                                                    dBSubnetGroupName;
                                                                    multiAZ;
                                                                    publiclyAccessible;
                                                                    autoMinorVersionUpgrade;
                                                                    licenseModel;
                                                                    dBName;
                                                                    engine;
                                                                    iops;
                                                                    storageThroughput;
                                                                    optionGroupName;
                                                                    copyTagsToSnapshot;
                                                                    tags;
                                                                    storageType;
                                                                    tdeCredentialArn;
                                                                    tdeCredentialPassword;
                                                                    vpcSecurityGroupIds;
                                                                    domain;
                                                                    domainIAMRoleName;
                                                                    domainFqdn;
                                                                    domainOu;
                                                                    domainAuthSecretArn;
                                                                    domainDnsIps;
                                                                    enableIAMDatabaseAuthentication;
                                                                    enableCloudwatchLogsExports;
                                                                    processorFeatures;
                                                                    useDefaultProcessorFeatures;
                                                                    dBParameterGroupName;
                                                                    deletionProtection;
                                                                    sourceDbiResourceId;
                                                                    maxAllocatedStorage;
                                                                    enableCustomerOwnedIp;
                                                                    networkType;
                                                                    sourceDBInstanceAutomatedBackupsArn;
                                                                    backupTarget;
                                                                    customIamInstanceProfile;
                                                                    allocatedStorage;
                                                                    backupRetentionPeriod;
                                                                    preferredBackupWindow;
                                                                    dedicatedLogVolume;
                                                                    cACertificateIdentifier;
                                                                    engineLifecycleSupport;
                                                                    additionalStorageVolumes;
                                                                    tagSpecifications;
                                                                    manageMasterUserPassword;
                                                                    masterUserSecretKmsKeyId;
                                                                    targetDBInstanceIdentifier
                                                                    }
    let to_value x =
      structure_to_value
        [("SourceDBInstanceIdentifier",
           (Option.map x.sourceDBInstanceIdentifier ~f:String_.to_value));
        ("TargetDBInstanceIdentifier",
          (Some (String_.to_value x.targetDBInstanceIdentifier)));
        ("RestoreTime", (Option.map x.restoreTime ~f:TStamp.to_value));
        ("UseLatestRestorableTime",
          (Option.map x.useLatestRestorableTime ~f:Boolean.to_value));
        ("DBInstanceClass",
          (Option.map x.dBInstanceClass ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("DBSubnetGroupName",
          (Option.map x.dBSubnetGroupName ~f:String_.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:BooleanOptional.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:BooleanOptional.to_value));
        ("AutoMinorVersionUpgrade",
          (Option.map x.autoMinorVersionUpgrade ~f:BooleanOptional.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("DBName", (Option.map x.dBName ~f:String_.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("OptionGroupName",
          (Option.map x.optionGroupName ~f:String_.to_value));
        ("CopyTagsToSnapshot",
          (Option.map x.copyTagsToSnapshot ~f:BooleanOptional.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("TdeCredentialArn",
          (Option.map x.tdeCredentialArn ~f:String_.to_value));
        ("TdeCredentialPassword",
          (Option.map x.tdeCredentialPassword ~f:SensitiveString.to_value));
        ("VpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds
             ~f:VpcSecurityGroupIdList.to_value));
        ("Domain", (Option.map x.domain ~f:String_.to_value));
        ("DomainIAMRoleName",
          (Option.map x.domainIAMRoleName ~f:String_.to_value));
        ("DomainFqdn", (Option.map x.domainFqdn ~f:String_.to_value));
        ("DomainOu", (Option.map x.domainOu ~f:String_.to_value));
        ("DomainAuthSecretArn",
          (Option.map x.domainAuthSecretArn ~f:String_.to_value));
        ("DomainDnsIps", (Option.map x.domainDnsIps ~f:StringList.to_value));
        ("EnableIAMDatabaseAuthentication",
          (Option.map x.enableIAMDatabaseAuthentication
             ~f:BooleanOptional.to_value));
        ("EnableCloudwatchLogsExports",
          (Option.map x.enableCloudwatchLogsExports ~f:LogTypeList.to_value));
        ("ProcessorFeatures",
          (Option.map x.processorFeatures ~f:ProcessorFeatureList.to_value));
        ("UseDefaultProcessorFeatures",
          (Option.map x.useDefaultProcessorFeatures
             ~f:BooleanOptional.to_value));
        ("DBParameterGroupName",
          (Option.map x.dBParameterGroupName ~f:String_.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:BooleanOptional.to_value));
        ("SourceDbiResourceId",
          (Option.map x.sourceDbiResourceId ~f:String_.to_value));
        ("MaxAllocatedStorage",
          (Option.map x.maxAllocatedStorage ~f:IntegerOptional.to_value));
        ("EnableCustomerOwnedIp",
          (Option.map x.enableCustomerOwnedIp ~f:BooleanOptional.to_value));
        ("NetworkType", (Option.map x.networkType ~f:String_.to_value));
        ("SourceDBInstanceAutomatedBackupsArn",
          (Option.map x.sourceDBInstanceAutomatedBackupsArn
             ~f:String_.to_value));
        ("BackupTarget", (Option.map x.backupTarget ~f:String_.to_value));
        ("CustomIamInstanceProfile",
          (Option.map x.customIamInstanceProfile ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:BooleanOptional.to_value));
        ("CACertificateIdentifier",
          (Option.map x.cACertificateIdentifier ~f:String_.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesList.to_value));
        ("TagSpecifications",
          (Option.map x.tagSpecifications ~f:TagSpecificationList.to_value));
        ("ManageMasterUserPassword",
          (Option.map x.manageMasterUserPassword ~f:BooleanOptional.to_value));
        ("MasterUserSecretKmsKeyId",
          (Option.map x.masterUserSecretKmsKeyId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let masterUserSecretKmsKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MasterUserSecretKmsKeyId") in
      let manageMasterUserPassword =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "ManageMasterUserPassword") in
      let tagSpecifications =
        (Option.map ~f:TagSpecificationList.of_xml)
          (Xml.child xml_arg0 "TagSpecifications") in
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let cACertificateIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CACertificateIdentifier") in
      let dedicatedLogVolume =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let customIamInstanceProfile =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CustomIamInstanceProfile") in
      let backupTarget =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BackupTarget") in
      let sourceDBInstanceAutomatedBackupsArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDBInstanceAutomatedBackupsArn") in
      let networkType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let enableCustomerOwnedIp =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableCustomerOwnedIp") in
      let maxAllocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxAllocatedStorage") in
      let sourceDbiResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDbiResourceId") in
      let deletionProtection =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let dBParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupName") in
      let useDefaultProcessorFeatures =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "UseDefaultProcessorFeatures") in
      let processorFeatures =
        (Option.map ~f:ProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ProcessorFeatures") in
      let enableCloudwatchLogsExports =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnableCloudwatchLogsExports") in
      let enableIAMDatabaseAuthentication =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableIAMDatabaseAuthentication") in
      let domainDnsIps =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "DomainDnsIps") in
      let domainAuthSecretArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DomainAuthSecretArn") in
      let domainOu =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DomainOu") in
      let domainFqdn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DomainFqdn") in
      let domainIAMRoleName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DomainIAMRoleName") in
      let domain =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Domain") in
      let vpcSecurityGroupIds =
        (Option.map ~f:VpcSecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupIds") in
      let tdeCredentialPassword =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "TdeCredentialPassword") in
      let tdeCredentialArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TdeCredentialArn") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let copyTagsToSnapshot =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CopyTagsToSnapshot") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let dBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBName") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let autoMinorVersionUpgrade =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "AutoMinorVersionUpgrade") in
      let publiclyAccessible =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let multiAZ =
        (Option.map ~f:BooleanOptional.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let dBSubnetGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupName") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      let useLatestRestorableTime =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "UseLatestRestorableTime") in
      let restoreTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "RestoreTime") in
      let targetDBInstanceIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TargetDBInstanceIdentifier") in
      let sourceDBInstanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDBInstanceIdentifier") in
      make ?masterUserSecretKmsKeyId ?manageMasterUserPassword
        ?tagSpecifications ?additionalStorageVolumes ?engineLifecycleSupport
        ?cACertificateIdentifier ?dedicatedLogVolume ?preferredBackupWindow
        ?backupRetentionPeriod ?allocatedStorage ?customIamInstanceProfile
        ?backupTarget ?sourceDBInstanceAutomatedBackupsArn ?networkType
        ?enableCustomerOwnedIp ?maxAllocatedStorage ?sourceDbiResourceId
        ?deletionProtection ?dBParameterGroupName
        ?useDefaultProcessorFeatures ?processorFeatures
        ?enableCloudwatchLogsExports ?enableIAMDatabaseAuthentication
        ?domainDnsIps ?domainAuthSecretArn ?domainOu ?domainFqdn
        ?domainIAMRoleName ?domain ?vpcSecurityGroupIds
        ?tdeCredentialPassword ?tdeCredentialArn ?storageType ?tags
        ?copyTagsToSnapshot ?optionGroupName ?storageThroughput ?iops ?engine
        ?dBName ?licenseModel ?autoMinorVersionUpgrade ?publiclyAccessible
        ?multiAZ ?dBSubnetGroupName ?availabilityZone ?port ?dBInstanceClass
        ?useLatestRestorableTime ?restoreTime ~targetDBInstanceIdentifier
        ?sourceDBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let masterUserSecretKmsKeyId =
        field_map json__ "MasterUserSecretKmsKeyId" String_.of_json in
      let manageMasterUserPassword =
        field_map json__ "ManageMasterUserPassword" BooleanOptional.of_json in
      let tagSpecifications =
        field_map json__ "TagSpecifications" TagSpecificationList.of_json in
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesList.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let cACertificateIdentifier =
        field_map json__ "CACertificateIdentifier" String_.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" BooleanOptional.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let customIamInstanceProfile =
        field_map json__ "CustomIamInstanceProfile" String_.of_json in
      let backupTarget = field_map json__ "BackupTarget" String_.of_json in
      let sourceDBInstanceAutomatedBackupsArn =
        field_map json__ "SourceDBInstanceAutomatedBackupsArn"
          String_.of_json in
      let networkType = field_map json__ "NetworkType" String_.of_json in
      let enableCustomerOwnedIp =
        field_map json__ "EnableCustomerOwnedIp" BooleanOptional.of_json in
      let maxAllocatedStorage =
        field_map json__ "MaxAllocatedStorage" IntegerOptional.of_json in
      let sourceDbiResourceId =
        field_map json__ "SourceDbiResourceId" String_.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" BooleanOptional.of_json in
      let dBParameterGroupName =
        field_map json__ "DBParameterGroupName" String_.of_json in
      let useDefaultProcessorFeatures =
        field_map json__ "UseDefaultProcessorFeatures"
          BooleanOptional.of_json in
      let processorFeatures =
        field_map json__ "ProcessorFeatures" ProcessorFeatureList.of_json in
      let enableCloudwatchLogsExports =
        field_map json__ "EnableCloudwatchLogsExports" LogTypeList.of_json in
      let enableIAMDatabaseAuthentication =
        field_map json__ "EnableIAMDatabaseAuthentication"
          BooleanOptional.of_json in
      let domainDnsIps = field_map json__ "DomainDnsIps" StringList.of_json in
      let domainAuthSecretArn =
        field_map json__ "DomainAuthSecretArn" String_.of_json in
      let domainOu = field_map json__ "DomainOu" String_.of_json in
      let domainFqdn = field_map json__ "DomainFqdn" String_.of_json in
      let domainIAMRoleName =
        field_map json__ "DomainIAMRoleName" String_.of_json in
      let domain = field_map json__ "Domain" String_.of_json in
      let vpcSecurityGroupIds =
        field_map json__ "VpcSecurityGroupIds" VpcSecurityGroupIdList.of_json in
      let tdeCredentialPassword =
        field_map json__ "TdeCredentialPassword" SensitiveString.of_json in
      let tdeCredentialArn =
        field_map json__ "TdeCredentialArn" String_.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let copyTagsToSnapshot =
        field_map json__ "CopyTagsToSnapshot" BooleanOptional.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let dBName = field_map json__ "DBName" String_.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let autoMinorVersionUpgrade =
        field_map json__ "AutoMinorVersionUpgrade" BooleanOptional.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" BooleanOptional.of_json in
      let multiAZ = field_map json__ "MultiAZ" BooleanOptional.of_json in
      let dBSubnetGroupName =
        field_map json__ "DBSubnetGroupName" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      let useLatestRestorableTime =
        field_map json__ "UseLatestRestorableTime" Boolean.of_json in
      let restoreTime = field_map json__ "RestoreTime" TStamp.of_json in
      let targetDBInstanceIdentifier =
        field_map_exn json__ "TargetDBInstanceIdentifier" String_.of_json in
      let sourceDBInstanceIdentifier =
        field_map json__ "SourceDBInstanceIdentifier" String_.of_json in
      make ?masterUserSecretKmsKeyId ?manageMasterUserPassword
        ?tagSpecifications ?additionalStorageVolumes ?engineLifecycleSupport
        ?cACertificateIdentifier ?dedicatedLogVolume ?preferredBackupWindow
        ?backupRetentionPeriod ?allocatedStorage ?customIamInstanceProfile
        ?backupTarget ?sourceDBInstanceAutomatedBackupsArn ?networkType
        ?enableCustomerOwnedIp ?maxAllocatedStorage ?sourceDbiResourceId
        ?deletionProtection ?dBParameterGroupName
        ?useDefaultProcessorFeatures ?processorFeatures
        ?enableCloudwatchLogsExports ?enableIAMDatabaseAuthentication
        ?domainDnsIps ?domainAuthSecretArn ?domainOu ?domainFqdn
        ?domainIAMRoleName ?domain ?vpcSecurityGroupIds
        ?tdeCredentialPassword ?tdeCredentialArn ?storageType ?tags
        ?copyTagsToSnapshot ?optionGroupName ?storageThroughput ?iops ?engine
        ?dBName ?licenseModel ?autoMinorVersionUpgrade ?publiclyAccessible
        ?multiAZ ?dBSubnetGroupName ?availabilityZone ?port ?dBInstanceClass
        ?useLatestRestorableTime ?restoreTime ~targetDBInstanceIdentifier
        ?sourceDBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end
module RestoreDBInstanceFromS3Result =
  struct
    type restoreDBInstanceFromS3Result = {
      dBInstance: DBInstance.t option }
    and responseMetaData = unit
    and t =
      {
      restoreDBInstanceFromS3Result: restoreDBInstanceFromS3Result ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationNotFoundFault of AuthorizationNotFoundFault.t 
      | `BackupPolicyNotFoundFault of BackupPolicyNotFoundFault.t 
      | `CertificateNotFoundFault of CertificateNotFoundFault.t 
      | `DBInstanceAlreadyExistsFault of DBInstanceAlreadyExistsFault.t 
      | `DBParameterGroupNotFoundFault of DBParameterGroupNotFoundFault.t 
      | `DBSecurityGroupNotFoundFault of DBSecurityGroupNotFoundFault.t 
      | `DBSubnetGroupDoesNotCoverEnoughAZs of
          DBSubnetGroupDoesNotCoverEnoughAZs.t 
      | `DBSubnetGroupNotFoundFault of DBSubnetGroupNotFoundFault.t 
      | `InstanceQuotaExceededFault of InstanceQuotaExceededFault.t 
      | `InsufficientDBInstanceCapacityFault of
          InsufficientDBInstanceCapacityFault.t 
      | `InvalidS3BucketFault of InvalidS3BucketFault.t 
      | `InvalidSubnet of InvalidSubnet.t 
      | `InvalidVPCNetworkStateFault of InvalidVPCNetworkStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `NetworkTypeNotSupported of NetworkTypeNotSupported.t 
      | `OptionGroupNotFoundFault of OptionGroupNotFoundFault.t 
      | `ProvisionedIopsNotAvailableInAZFault of
          ProvisionedIopsNotAvailableInAZFault.t 
      | `StorageQuotaExceededFault of StorageQuotaExceededFault.t 
      | `StorageTypeNotSupportedFault of StorageTypeNotSupportedFault.t 
      | `VpcEncryptionControlViolationException of
          VpcEncryptionControlViolationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RestoreDBInstanceFromS3Result"
    let make ?dBInstance =
      fun () ->
        {
          restoreDBInstanceFromS3Result = { dBInstance };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault
            (AuthorizationNotFoundFault.of_json json)
      | "BackupPolicyNotFoundFault" ->
          `BackupPolicyNotFoundFault (BackupPolicyNotFoundFault.of_json json)
      | "CertificateNotFoundFault" ->
          `CertificateNotFoundFault (CertificateNotFoundFault.of_json json)
      | "DBInstanceAlreadyExistsFault" ->
          `DBInstanceAlreadyExistsFault
            (DBInstanceAlreadyExistsFault.of_json json)
      | "DBParameterGroupNotFoundFault" ->
          `DBParameterGroupNotFoundFault
            (DBParameterGroupNotFoundFault.of_json json)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_json json)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_json json)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault
            (DBSubnetGroupNotFoundFault.of_json json)
      | "InstanceQuotaExceededFault" ->
          `InstanceQuotaExceededFault
            (InstanceQuotaExceededFault.of_json json)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_json json)
      | "InvalidS3BucketFault" ->
          `InvalidS3BucketFault (InvalidS3BucketFault.of_json json)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_json json)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_json json)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_json json)
      | "ProvisionedIopsNotAvailableInAZFault" ->
          `ProvisionedIopsNotAvailableInAZFault
            (ProvisionedIopsNotAvailableInAZFault.of_json json)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_json json)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_json json)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault (AuthorizationNotFoundFault.of_xml xml)
      | "BackupPolicyNotFoundFault" ->
          `BackupPolicyNotFoundFault (BackupPolicyNotFoundFault.of_xml xml)
      | "CertificateNotFoundFault" ->
          `CertificateNotFoundFault (CertificateNotFoundFault.of_xml xml)
      | "DBInstanceAlreadyExistsFault" ->
          `DBInstanceAlreadyExistsFault
            (DBInstanceAlreadyExistsFault.of_xml xml)
      | "DBParameterGroupNotFoundFault" ->
          `DBParameterGroupNotFoundFault
            (DBParameterGroupNotFoundFault.of_xml xml)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_xml xml)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_xml xml)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault (DBSubnetGroupNotFoundFault.of_xml xml)
      | "InstanceQuotaExceededFault" ->
          `InstanceQuotaExceededFault (InstanceQuotaExceededFault.of_xml xml)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_xml xml)
      | "InvalidS3BucketFault" ->
          `InvalidS3BucketFault (InvalidS3BucketFault.of_xml xml)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_xml xml)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_xml xml)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_xml xml)
      | "ProvisionedIopsNotAvailableInAZFault" ->
          `ProvisionedIopsNotAvailableInAZFault
            (ProvisionedIopsNotAvailableInAZFault.of_xml xml)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_xml xml)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_xml xml)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationNotFoundFault e ->
          `Assoc
            [("error", (`String "AuthorizationNotFoundFault"));
            ("details", (AuthorizationNotFoundFault.to_json e))]
      | `BackupPolicyNotFoundFault e ->
          `Assoc
            [("error", (`String "BackupPolicyNotFoundFault"));
            ("details", (BackupPolicyNotFoundFault.to_json e))]
      | `CertificateNotFoundFault e ->
          `Assoc
            [("error", (`String "CertificateNotFoundFault"));
            ("details", (CertificateNotFoundFault.to_json e))]
      | `DBInstanceAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBInstanceAlreadyExistsFault"));
            ("details", (DBInstanceAlreadyExistsFault.to_json e))]
      | `DBParameterGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBParameterGroupNotFoundFault"));
            ("details", (DBParameterGroupNotFoundFault.to_json e))]
      | `DBSecurityGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSecurityGroupNotFoundFault"));
            ("details", (DBSecurityGroupNotFoundFault.to_json e))]
      | `DBSubnetGroupDoesNotCoverEnoughAZs e ->
          `Assoc
            [("error", (`String "DBSubnetGroupDoesNotCoverEnoughAZs"));
            ("details", (DBSubnetGroupDoesNotCoverEnoughAZs.to_json e))]
      | `DBSubnetGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSubnetGroupNotFoundFault"));
            ("details", (DBSubnetGroupNotFoundFault.to_json e))]
      | `InstanceQuotaExceededFault e ->
          `Assoc
            [("error", (`String "InstanceQuotaExceededFault"));
            ("details", (InstanceQuotaExceededFault.to_json e))]
      | `InsufficientDBInstanceCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientDBInstanceCapacityFault"));
            ("details", (InsufficientDBInstanceCapacityFault.to_json e))]
      | `InvalidS3BucketFault e ->
          `Assoc
            [("error", (`String "InvalidS3BucketFault"));
            ("details", (InvalidS3BucketFault.to_json e))]
      | `InvalidSubnet e ->
          `Assoc
            [("error", (`String "InvalidSubnet"));
            ("details", (InvalidSubnet.to_json e))]
      | `InvalidVPCNetworkStateFault e ->
          `Assoc
            [("error", (`String "InvalidVPCNetworkStateFault"));
            ("details", (InvalidVPCNetworkStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `NetworkTypeNotSupported e ->
          `Assoc
            [("error", (`String "NetworkTypeNotSupported"));
            ("details", (NetworkTypeNotSupported.to_json e))]
      | `OptionGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "OptionGroupNotFoundFault"));
            ("details", (OptionGroupNotFoundFault.to_json e))]
      | `ProvisionedIopsNotAvailableInAZFault e ->
          `Assoc
            [("error", (`String "ProvisionedIopsNotAvailableInAZFault"));
            ("details", (ProvisionedIopsNotAvailableInAZFault.to_json e))]
      | `StorageQuotaExceededFault e ->
          `Assoc
            [("error", (`String "StorageQuotaExceededFault"));
            ("details", (StorageQuotaExceededFault.to_json e))]
      | `StorageTypeNotSupportedFault e ->
          `Assoc
            [("error", (`String "StorageTypeNotSupportedFault"));
            ("details", (StorageTypeNotSupportedFault.to_json e))]
      | `VpcEncryptionControlViolationException e ->
          `Assoc
            [("error", (`String "VpcEncryptionControlViolationException"));
            ("details", (VpcEncryptionControlViolationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.restoreDBInstanceFromS3Result in
      structure_to_wrapped_value
        [("DBInstance", (Option.map x.dBInstance ~f:DBInstance.to_value))]
        ~wrapper:"RestoreDBInstanceFromS3Result" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "RestoreDBInstanceFromS3Result" in
      let dBInstance =
        (Option.map ~f:DBInstance.of_xml) (Xml.child xml_arg0 "DBInstance") in
      make ?dBInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstance = field_map json__ "DBInstance" DBInstance.of_json in
      make ?dBInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Relational Database Service (Amazon RDS) supports importing MySQL databases by using backup files. You can create a backup of your on-premises database, store it on Amazon Simple Storage Service (Amazon S3), and then restore the backup file onto a new Amazon RDS DB instance running MySQL. For more information, see Restoring a backup into an Amazon RDS for MySQL DB instance in the Amazon RDS User Guide. This operation doesn't apply to RDS Custom."]
module RestoreDBInstanceFromS3Message =
  struct
    type nonrec t =
      {
      dBName: String_.t option
        [@ocaml.doc
          "The name of the database to create when the DB instance is created. Follow the naming rules specified in CreateDBInstance."];
      dBInstanceIdentifier: String_.t
        [@ocaml.doc
          "The DB instance identifier. This parameter is stored as a lowercase string. Constraints: Must contain from 1 to 63 letters, numbers, or hyphens. First character must be a letter. Can't end with a hyphen or contain two consecutive hyphens. Example: mydbinstance"];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The amount of storage (in gibibytes) to allocate initially for the DB instance. Follow the allocation rules specified in CreateDBInstance. This setting isn't valid for RDS for SQL Server. Be sure to allocate enough storage for your new DB instance so that the restore operation can succeed. You can also allocate additional storage for future growth."];
      dBInstanceClass: String_.t
        [@ocaml.doc
          "The compute and memory capacity of the DB instance, for example db.m4.large. Not all DB instance classes are available in all Amazon Web Services Regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see DB Instance Class in the Amazon RDS User Guide. Importing from Amazon S3 isn't supported on the db.t2.micro DB instance class."];
      engine: String_.t
        [@ocaml.doc
          "The name of the database engine to be used for this instance. Valid Values: mysql"];
      masterUsername: String_.t option
        [@ocaml.doc
          "The name for the master user. Constraints: Must be 1 to 16 letters or numbers. First character must be a letter. Can't be a reserved word for the chosen database engine."];
      masterUserPassword: SensitiveString.t option
        [@ocaml.doc
          "The password for the master user. Constraints: Can't be specified if ManageMasterUserPassword is turned on. Can include any printable ASCII character except \"/\", \"\"\", or \"\\@\". For RDS for Oracle, can't include the \"&\" (ampersand) or the \"'\" (single quotes) character. Length Constraints: RDS for Db2 - Must contain from 8 to 128 characters. RDS for MariaDB - Must contain from 8 to 41 characters. RDS for Microsoft SQL Server - Must contain from 8 to 128 characters. RDS for MySQL - Must contain from 8 to 41 characters. RDS for Oracle - Must contain from 8 to 30 characters. RDS for PostgreSQL - Must contain from 8 to 128 characters."];
      dBSecurityGroups: DBSecurityGroupNameList.t option
        [@ocaml.doc
          "A list of DB security groups to associate with this DB instance. Default: The default DB security group for the database engine."];
      vpcSecurityGroupIds: VpcSecurityGroupIdList.t option
        [@ocaml.doc
          "A list of VPC security groups to associate with this DB instance."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone that the DB instance is created in. For information about Amazon Web Services Regions and Availability Zones, see Regions and Availability Zones in the Amazon RDS User Guide. Default: A random, system-chosen Availability Zone in the endpoint's Amazon Web Services Region. Example: us-east-1d Constraint: The AvailabilityZone parameter can't be specified if the DB instance is a Multi-AZ deployment. The specified Availability Zone must be in the same Amazon Web Services Region as the current endpoint."];
      dBSubnetGroupName: String_.t option
        [@ocaml.doc
          "A DB subnet group to associate with this DB instance. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: mydbsubnetgroup"];
      preferredMaintenanceWindow: String_.t option
        [@ocaml.doc
          "The time range each week during which system maintenance can occur, in Universal Coordinated Time (UTC). For more information, see Amazon RDS Maintenance Window in the Amazon RDS User Guide. Constraints: Must be in the format ddd:hh24:mi-ddd:hh24:mi. Valid Days: Mon, Tue, Wed, Thu, Fri, Sat, Sun. Must be in Universal Coordinated Time (UTC). Must not conflict with the preferred backup window. Must be at least 30 minutes."];
      dBParameterGroupName: String_.t option
        [@ocaml.doc
          "The name of the DB parameter group to associate with this DB instance. If you do not specify a value for DBParameterGroupName, then the default DBParameterGroup for the specified DB engine is used."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automated backups are retained. Setting this parameter to a positive number enables backups. For more information, see CreateDBInstance."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The time range each day during which automated backups are created if automated backups are enabled. For more information, see Backup window in the Amazon RDS User Guide. Constraints: Must be in the format hh24:mi-hh24:mi. Must be in Universal Coordinated Time (UTC). Must not conflict with the preferred maintenance window. Must be at least 30 minutes."];
      port: IntegerOptional.t option
        [@ocaml.doc
          "The port number on which the database accepts connections. Type: Integer Valid Values: 1150-65535 Default: 3306"];
      multiAZ: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance is a Multi-AZ deployment. If the DB instance is a Multi-AZ deployment, you can't set the AvailabilityZone parameter."];
      engineVersion: String_.t option
        [@ocaml.doc
          "The version number of the database engine to use. Choose the latest minor version of your database engine. For information about engine versions, see CreateDBInstance, or call DescribeDBEngineVersions."];
      autoMinorVersionUpgrade: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to automatically apply minor engine upgrades to the DB instance during the maintenance window. By default, minor engine upgrades are not applied automatically. For more information about automatic minor version upgrades, see Automatically upgrading the minor engine version."];
      licenseModel: String_.t option
        [@ocaml.doc
          "The license model for this DB instance. Use general-public-license."];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The amount of Provisioned IOPS (input/output operations per second) to allocate initially for the DB instance. For information about valid IOPS values, see Amazon RDS Provisioned IOPS storage in the Amazon RDS User Guide."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "Specifies the storage throughput value for the DB instance. This setting doesn't apply to RDS Custom or Amazon Aurora."];
      optionGroupName: String_.t option
        [@ocaml.doc
          "The name of the option group to associate with this DB instance. If this argument is omitted, the default option group for the specified engine is used."];
      publiclyAccessible: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance is publicly accessible. When the DB instance is publicly accessible, its Domain Name System (DNS) endpoint resolves to the private IP address from within the DB instance's virtual private cloud (VPC). It resolves to the public IP address from outside of the DB instance's VPC. Access to the DB instance is ultimately controlled by the security group it uses. That public access is not permitted if the security group assigned to the DB instance doesn't permit it. When the DB instance isn't publicly accessible, it is an internal DB instance with a DNS name that resolves to a private IP address. For more information, see CreateDBInstance."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of tags to associate with this DB instance. For more information, see Tagging Amazon RDS Resources in the Amazon RDS User Guide."];
      storageType: String_.t option
        [@ocaml.doc
          "Specifies the storage type to be associated with the DB instance. Valid Values: gp2 | gp3 | io1 | io2 | standard If you specify io1, io2, or gp3, you must also include a value for the Iops parameter. Default: io1 if the Iops parameter is specified; otherwise gp2"];
      storageEncrypted: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the new DB instance is encrypted or not."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for an encrypted DB instance. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. To use a KMS key in a different Amazon Web Services account, specify the key ARN or alias ARN. If the StorageEncrypted parameter is enabled, and you do not specify a value for the KmsKeyId parameter, then Amazon RDS will use your default KMS key. There is a default KMS key for your Amazon Web Services account. Your Amazon Web Services account has a different default KMS key for each Amazon Web Services Region."];
      copyTagsToSnapshot: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to copy all tags from the DB instance to snapshots of the DB instance. By default, tags are not copied."];
      monitoringInterval: IntegerOptional.t option
        [@ocaml.doc
          "The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance. To disable collecting Enhanced Monitoring metrics, specify 0. If MonitoringRoleArn is specified, then you must also set MonitoringInterval to a value other than 0. Valid Values: 0, 1, 5, 10, 15, 30, 60 Default: 0"];
      monitoringRoleArn: String_.t option
        [@ocaml.doc
          "The ARN for the IAM role that permits RDS to send enhanced monitoring metrics to Amazon CloudWatch Logs. For example, arn:aws:iam:123456789012:role/emaccess. For information on creating a monitoring role, see Setting Up and Enabling Enhanced Monitoring in the Amazon RDS User Guide. If MonitoringInterval is set to a value other than 0, then you must supply a MonitoringRoleArn value."];
      enableIAMDatabaseAuthentication: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts. By default, mapping isn't enabled. For more information about IAM database authentication, see IAM Database Authentication for MySQL and PostgreSQL in the Amazon RDS User Guide."];
      sourceEngine: String_.t
        [@ocaml.doc
          "The name of the engine of your source database. Valid Values: mysql"];
      sourceEngineVersion: String_.t
        [@ocaml.doc
          "The version of the database that the backup files were created from. MySQL versions 5.6 and 5.7 are supported. Example: 5.6.40"];
      s3BucketName: String_.t
        [@ocaml.doc
          "The name of your Amazon S3 bucket that contains your database backup file."];
      s3Prefix: String_.t option
        [@ocaml.doc "The prefix of your Amazon S3 bucket."];
      s3IngestionRoleArn: String_.t
        [@ocaml.doc
          "An Amazon Web Services Identity and Access Management (IAM) role with a trust policy and a permissions policy that allows Amazon RDS to access your Amazon S3 bucket. For information about this role, see Creating an IAM role manually in the Amazon RDS User Guide."];
      databaseInsightsMode: DatabaseInsightsMode.t option
        [@ocaml.doc
          "Specifies the mode of Database Insights to enable for the DB instance. Aurora DB instances inherit this value from the DB cluster, so you can't change this value."];
      enablePerformanceInsights: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable Performance Insights for the DB instance. For more information, see Using Amazon Performance Insights in the Amazon RDS User Guide."];
      performanceInsightsKMSKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encryption of Performance Insights data. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. If you do not specify a value for PerformanceInsightsKMSKeyId, then Amazon RDS uses your default KMS key. There is a default KMS key for your Amazon Web Services account. Your Amazon Web Services account has a different default KMS key for each Amazon Web Services Region."];
      performanceInsightsRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days to retain Performance Insights data. The default is 7 days. The following values are valid: 7 month * 31, where month is a number of months from 1-23 731 For example, the following values are valid: 93 (3 months * 31) 341 (11 months * 31) 589 (19 months * 31) 731 If you specify a retention period such as 94, which isn't a valid value, RDS issues an error."];
      enableCloudwatchLogsExports: LogTypeList.t option
        [@ocaml.doc
          "The list of logs that the restored DB instance is to export to CloudWatch Logs. The values in the list depend on the DB engine being used. For more information, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon RDS User Guide."];
      processorFeatures: ProcessorFeatureList.t option
        [@ocaml.doc
          "The number of CPU cores and the number of threads per core for the DB instance class of the DB instance."];
      useDefaultProcessorFeatures: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance class of the DB instance uses its default processor features."];
      deletionProtection: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable deletion protection for the DB instance. The database can't be deleted when deletion protection is enabled. By default, deletion protection isn't enabled. For more information, see Deleting a DB Instance."];
      maxAllocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The upper limit in gibibytes (GiB) to which Amazon RDS can automatically scale the storage of the DB instance. For more information about this setting, including limitations that apply to it, see Managing capacity automatically with Amazon RDS storage autoscaling in the Amazon RDS User Guide."];
      networkType: String_.t option
        [@ocaml.doc
          "The network type of the DB instance. Valid Values: IPV4 DUAL The network type is determined by the DBSubnetGroup specified for the DB instance. A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon RDS User Guide."];
      manageMasterUserPassword: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to manage the master user password with Amazon Web Services Secrets Manager. For more information, see Password management with Amazon Web Services Secrets Manager in the Amazon RDS User Guide. Constraints: Can't manage the master user password with Amazon Web Services Secrets Manager if MasterUserPassword is specified."];
      masterUserSecretKmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier to encrypt a secret that is automatically generated and managed in Amazon Web Services Secrets Manager. This setting is valid only if the master user password is managed by RDS in Amazon Web Services Secrets Manager for the DB instance. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. To use a KMS key in a different Amazon Web Services account, specify the key ARN or alias ARN. If you don't specify MasterUserSecretKmsKeyId, then the aws/secretsmanager KMS key is used to encrypt the secret. If the secret is in a different Amazon Web Services account, then you can't use the aws/secretsmanager KMS key to encrypt the secret, and you must use a customer managed KMS key. There is a default KMS key for your Amazon Web Services account. Your Amazon Web Services account has a different default KMS key for each Amazon Web Services Region."];
      dedicatedLogVolume: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable a dedicated log volume (DLV) for the DB instance."];
      cACertificateIdentifier: String_.t option
        [@ocaml.doc
          "The CA certificate identifier to use for the DB instance's server certificate. This setting doesn't apply to RDS Custom DB instances. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."];
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The life cycle type for this DB instance. By default, this value is set to open-source-rds-extended-support, which enrolls your DB instance into Amazon RDS Extended Support. At the end of standard support, you can avoid charges for Extended Support by setting the value to open-source-rds-extended-support-disabled. In this case, RDS automatically upgrades your restored DB instance to a higher engine version, if the major engine version is past its end of standard support date. You can use this setting to enroll your DB instance into Amazon RDS Extended Support. With RDS Extended Support, you can run the selected major engine version on your DB instance past the end of standard support for that engine version. For more information, see Amazon RDS Extended Support Amazon RDS in the Amazon RDS User Guide. This setting applies only to RDS for MySQL and RDS for PostgreSQL. For Amazon Aurora DB instances, the life cycle type is managed by the DB cluster. Valid Values: open-source-rds-extended-support | open-source-rds-extended-support-disabled Default: open-source-rds-extended-support"];
      additionalStorageVolumes: AdditionalStorageVolumesList.t option
        [@ocaml.doc
          "A list of additional storage volumes to modify or delete for the DB instance. You can modify or delete up to three additional storage volumes using the names rdsdbdata2, rdsdbdata3, and rdsdbdata4. Additional storage volumes are supported for RDS for Oracle and RDS for SQL Server DB instances only."];
      tagSpecifications: TagSpecificationList.t option
        [@ocaml.doc
          "Tags to assign to resources associated with the DB instance. Valid Values: auto-backup - The DB instance's automated backup."]}
    let context_ = "RestoreDBInstanceFromS3Message"
    let make ?dBName =
      fun ?allocatedStorage ->
        fun ?masterUsername ->
          fun ?masterUserPassword ->
            fun ?dBSecurityGroups ->
              fun ?vpcSecurityGroupIds ->
                fun ?availabilityZone ->
                  fun ?dBSubnetGroupName ->
                    fun ?preferredMaintenanceWindow ->
                      fun ?dBParameterGroupName ->
                        fun ?backupRetentionPeriod ->
                          fun ?preferredBackupWindow ->
                            fun ?port ->
                              fun ?multiAZ ->
                                fun ?engineVersion ->
                                  fun ?autoMinorVersionUpgrade ->
                                    fun ?licenseModel ->
                                      fun ?iops ->
                                        fun ?storageThroughput ->
                                          fun ?optionGroupName ->
                                            fun ?publiclyAccessible ->
                                              fun ?tags ->
                                                fun ?storageType ->
                                                  fun ?storageEncrypted ->
                                                    fun ?kmsKeyId ->
                                                      fun ?copyTagsToSnapshot
                                                        ->
                                                        fun
                                                          ?monitoringInterval
                                                          ->
                                                          fun
                                                            ?monitoringRoleArn
                                                            ->
                                                            fun
                                                              ?enableIAMDatabaseAuthentication
                                                              ->
                                                              fun ?s3Prefix
                                                                ->
                                                                fun
                                                                  ?databaseInsightsMode
                                                                  ->
                                                                  fun
                                                                    ?enablePerformanceInsights
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsKMSKeyId
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?enableCloudwatchLogsExports
                                                                    ->
                                                                    fun
                                                                    ?processorFeatures
                                                                    ->
                                                                    fun
                                                                    ?useDefaultProcessorFeatures
                                                                    ->
                                                                    fun
                                                                    ?deletionProtection
                                                                    ->
                                                                    fun
                                                                    ?maxAllocatedStorage
                                                                    ->
                                                                    fun
                                                                    ?networkType
                                                                    ->
                                                                    fun
                                                                    ?manageMasterUserPassword
                                                                    ->
                                                                    fun
                                                                    ?masterUserSecretKmsKeyId
                                                                    ->
                                                                    fun
                                                                    ?dedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?cACertificateIdentifier
                                                                    ->
                                                                    fun
                                                                    ?engineLifecycleSupport
                                                                    ->
                                                                    fun
                                                                    ?additionalStorageVolumes
                                                                    ->
                                                                    fun
                                                                    ?tagSpecifications
                                                                    ->
                                                                    fun
                                                                    ~dBInstanceIdentifier
                                                                    ->
                                                                    fun
                                                                    ~dBInstanceClass
                                                                    ->
                                                                    fun
                                                                    ~engine
                                                                    ->
                                                                    fun
                                                                    ~sourceEngine
                                                                    ->
                                                                    fun
                                                                    ~sourceEngineVersion
                                                                    ->
                                                                    fun
                                                                    ~s3BucketName
                                                                    ->
                                                                    fun
                                                                    ~s3IngestionRoleArn
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    dBName;
                                                                    allocatedStorage;
                                                                    masterUsername;
                                                                    masterUserPassword;
                                                                    dBSecurityGroups;
                                                                    vpcSecurityGroupIds;
                                                                    availabilityZone;
                                                                    dBSubnetGroupName;
                                                                    preferredMaintenanceWindow;
                                                                    dBParameterGroupName;
                                                                    backupRetentionPeriod;
                                                                    preferredBackupWindow;
                                                                    port;
                                                                    multiAZ;
                                                                    engineVersion;
                                                                    autoMinorVersionUpgrade;
                                                                    licenseModel;
                                                                    iops;
                                                                    storageThroughput;
                                                                    optionGroupName;
                                                                    publiclyAccessible;
                                                                    tags;
                                                                    storageType;
                                                                    storageEncrypted;
                                                                    kmsKeyId;
                                                                    copyTagsToSnapshot;
                                                                    monitoringInterval;
                                                                    monitoringRoleArn;
                                                                    enableIAMDatabaseAuthentication;
                                                                    s3Prefix;
                                                                    databaseInsightsMode;
                                                                    enablePerformanceInsights;
                                                                    performanceInsightsKMSKeyId;
                                                                    performanceInsightsRetentionPeriod;
                                                                    enableCloudwatchLogsExports;
                                                                    processorFeatures;
                                                                    useDefaultProcessorFeatures;
                                                                    deletionProtection;
                                                                    maxAllocatedStorage;
                                                                    networkType;
                                                                    manageMasterUserPassword;
                                                                    masterUserSecretKmsKeyId;
                                                                    dedicatedLogVolume;
                                                                    cACertificateIdentifier;
                                                                    engineLifecycleSupport;
                                                                    additionalStorageVolumes;
                                                                    tagSpecifications;
                                                                    dBInstanceIdentifier;
                                                                    dBInstanceClass;
                                                                    engine;
                                                                    sourceEngine;
                                                                    sourceEngineVersion;
                                                                    s3BucketName;
                                                                    s3IngestionRoleArn
                                                                    }
    let to_value x =
      structure_to_value
        [("DBName", (Option.map x.dBName ~f:String_.to_value));
        ("DBInstanceIdentifier",
          (Some (String_.to_value x.dBInstanceIdentifier)));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("DBInstanceClass", (Some (String_.to_value x.dBInstanceClass)));
        ("Engine", (Some (String_.to_value x.engine)));
        ("MasterUsername", (Option.map x.masterUsername ~f:String_.to_value));
        ("MasterUserPassword",
          (Option.map x.masterUserPassword ~f:SensitiveString.to_value));
        ("DBSecurityGroups",
          (Option.map x.dBSecurityGroups ~f:DBSecurityGroupNameList.to_value));
        ("VpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds
             ~f:VpcSecurityGroupIdList.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("DBSubnetGroupName",
          (Option.map x.dBSubnetGroupName ~f:String_.to_value));
        ("PreferredMaintenanceWindow",
          (Option.map x.preferredMaintenanceWindow ~f:String_.to_value));
        ("DBParameterGroupName",
          (Option.map x.dBParameterGroupName ~f:String_.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:BooleanOptional.to_value));
        ("EngineVersion", (Option.map x.engineVersion ~f:String_.to_value));
        ("AutoMinorVersionUpgrade",
          (Option.map x.autoMinorVersionUpgrade ~f:BooleanOptional.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("OptionGroupName",
          (Option.map x.optionGroupName ~f:String_.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:BooleanOptional.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("StorageEncrypted",
          (Option.map x.storageEncrypted ~f:BooleanOptional.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("CopyTagsToSnapshot",
          (Option.map x.copyTagsToSnapshot ~f:BooleanOptional.to_value));
        ("MonitoringInterval",
          (Option.map x.monitoringInterval ~f:IntegerOptional.to_value));
        ("MonitoringRoleArn",
          (Option.map x.monitoringRoleArn ~f:String_.to_value));
        ("EnableIAMDatabaseAuthentication",
          (Option.map x.enableIAMDatabaseAuthentication
             ~f:BooleanOptional.to_value));
        ("SourceEngine", (Some (String_.to_value x.sourceEngine)));
        ("SourceEngineVersion",
          (Some (String_.to_value x.sourceEngineVersion)));
        ("S3BucketName", (Some (String_.to_value x.s3BucketName)));
        ("S3Prefix", (Option.map x.s3Prefix ~f:String_.to_value));
        ("S3IngestionRoleArn",
          (Some (String_.to_value x.s3IngestionRoleArn)));
        ("DatabaseInsightsMode",
          (Option.map x.databaseInsightsMode ~f:DatabaseInsightsMode.to_value));
        ("EnablePerformanceInsights",
          (Option.map x.enablePerformanceInsights ~f:BooleanOptional.to_value));
        ("PerformanceInsightsKMSKeyId",
          (Option.map x.performanceInsightsKMSKeyId ~f:String_.to_value));
        ("PerformanceInsightsRetentionPeriod",
          (Option.map x.performanceInsightsRetentionPeriod
             ~f:IntegerOptional.to_value));
        ("EnableCloudwatchLogsExports",
          (Option.map x.enableCloudwatchLogsExports ~f:LogTypeList.to_value));
        ("ProcessorFeatures",
          (Option.map x.processorFeatures ~f:ProcessorFeatureList.to_value));
        ("UseDefaultProcessorFeatures",
          (Option.map x.useDefaultProcessorFeatures
             ~f:BooleanOptional.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:BooleanOptional.to_value));
        ("MaxAllocatedStorage",
          (Option.map x.maxAllocatedStorage ~f:IntegerOptional.to_value));
        ("NetworkType", (Option.map x.networkType ~f:String_.to_value));
        ("ManageMasterUserPassword",
          (Option.map x.manageMasterUserPassword ~f:BooleanOptional.to_value));
        ("MasterUserSecretKmsKeyId",
          (Option.map x.masterUserSecretKmsKeyId ~f:String_.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:BooleanOptional.to_value));
        ("CACertificateIdentifier",
          (Option.map x.cACertificateIdentifier ~f:String_.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesList.to_value));
        ("TagSpecifications",
          (Option.map x.tagSpecifications ~f:TagSpecificationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagSpecifications =
        (Option.map ~f:TagSpecificationList.of_xml)
          (Xml.child xml_arg0 "TagSpecifications") in
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let cACertificateIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CACertificateIdentifier") in
      let dedicatedLogVolume =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let masterUserSecretKmsKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MasterUserSecretKmsKeyId") in
      let manageMasterUserPassword =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "ManageMasterUserPassword") in
      let networkType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let maxAllocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MaxAllocatedStorage") in
      let deletionProtection =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let useDefaultProcessorFeatures =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "UseDefaultProcessorFeatures") in
      let processorFeatures =
        (Option.map ~f:ProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ProcessorFeatures") in
      let enableCloudwatchLogsExports =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnableCloudwatchLogsExports") in
      let performanceInsightsRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsRetentionPeriod") in
      let performanceInsightsKMSKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsKMSKeyId") in
      let enablePerformanceInsights =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnablePerformanceInsights") in
      let databaseInsightsMode =
        (Option.map ~f:DatabaseInsightsMode.of_xml)
          (Xml.child xml_arg0 "DatabaseInsightsMode") in
      let s3IngestionRoleArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3IngestionRoleArn") in
      let s3Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "S3Prefix") in
      let s3BucketName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3BucketName") in
      let sourceEngineVersion =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceEngineVersion") in
      let sourceEngine =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceEngine") in
      let enableIAMDatabaseAuthentication =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableIAMDatabaseAuthentication") in
      let monitoringRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonitoringRoleArn") in
      let monitoringInterval =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MonitoringInterval") in
      let copyTagsToSnapshot =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CopyTagsToSnapshot") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let storageEncrypted =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "StorageEncrypted") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let publiclyAccessible =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let autoMinorVersionUpgrade =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "AutoMinorVersionUpgrade") in
      let engineVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineVersion") in
      let multiAZ =
        (Option.map ~f:BooleanOptional.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let dBParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupName") in
      let preferredMaintenanceWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredMaintenanceWindow") in
      let dBSubnetGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupName") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let vpcSecurityGroupIds =
        (Option.map ~f:VpcSecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupIds") in
      let dBSecurityGroups =
        (Option.map ~f:DBSecurityGroupNameList.of_xml)
          (Xml.child xml_arg0 "DBSecurityGroups") in
      let masterUserPassword =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "MasterUserPassword") in
      let masterUsername =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MasterUsername") in
      let engine =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Engine") in
      let dBInstanceClass =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBInstanceClass") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let dBInstanceIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBInstanceIdentifier") in
      let dBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBName") in
      make ?tagSpecifications ?additionalStorageVolumes
        ?engineLifecycleSupport ?cACertificateIdentifier ?dedicatedLogVolume
        ?masterUserSecretKmsKeyId ?manageMasterUserPassword ?networkType
        ?maxAllocatedStorage ?deletionProtection ?useDefaultProcessorFeatures
        ?processorFeatures ?enableCloudwatchLogsExports
        ?performanceInsightsRetentionPeriod ?performanceInsightsKMSKeyId
        ?enablePerformanceInsights ?databaseInsightsMode ~s3IngestionRoleArn
        ?s3Prefix ~s3BucketName ~sourceEngineVersion ~sourceEngine
        ?enableIAMDatabaseAuthentication ?monitoringRoleArn
        ?monitoringInterval ?copyTagsToSnapshot ?kmsKeyId ?storageEncrypted
        ?storageType ?tags ?publiclyAccessible ?optionGroupName
        ?storageThroughput ?iops ?licenseModel ?autoMinorVersionUpgrade
        ?engineVersion ?multiAZ ?port ?preferredBackupWindow
        ?backupRetentionPeriod ?dBParameterGroupName
        ?preferredMaintenanceWindow ?dBSubnetGroupName ?availabilityZone
        ?vpcSecurityGroupIds ?dBSecurityGroups ?masterUserPassword
        ?masterUsername ~engine ~dBInstanceClass ?allocatedStorage
        ~dBInstanceIdentifier ?dBName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagSpecifications =
        field_map json__ "TagSpecifications" TagSpecificationList.of_json in
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesList.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let cACertificateIdentifier =
        field_map json__ "CACertificateIdentifier" String_.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" BooleanOptional.of_json in
      let masterUserSecretKmsKeyId =
        field_map json__ "MasterUserSecretKmsKeyId" String_.of_json in
      let manageMasterUserPassword =
        field_map json__ "ManageMasterUserPassword" BooleanOptional.of_json in
      let networkType = field_map json__ "NetworkType" String_.of_json in
      let maxAllocatedStorage =
        field_map json__ "MaxAllocatedStorage" IntegerOptional.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" BooleanOptional.of_json in
      let useDefaultProcessorFeatures =
        field_map json__ "UseDefaultProcessorFeatures"
          BooleanOptional.of_json in
      let processorFeatures =
        field_map json__ "ProcessorFeatures" ProcessorFeatureList.of_json in
      let enableCloudwatchLogsExports =
        field_map json__ "EnableCloudwatchLogsExports" LogTypeList.of_json in
      let performanceInsightsRetentionPeriod =
        field_map json__ "PerformanceInsightsRetentionPeriod"
          IntegerOptional.of_json in
      let performanceInsightsKMSKeyId =
        field_map json__ "PerformanceInsightsKMSKeyId" String_.of_json in
      let enablePerformanceInsights =
        field_map json__ "EnablePerformanceInsights" BooleanOptional.of_json in
      let databaseInsightsMode =
        field_map json__ "DatabaseInsightsMode" DatabaseInsightsMode.of_json in
      let s3IngestionRoleArn =
        field_map_exn json__ "S3IngestionRoleArn" String_.of_json in
      let s3Prefix = field_map json__ "S3Prefix" String_.of_json in
      let s3BucketName = field_map_exn json__ "S3BucketName" String_.of_json in
      let sourceEngineVersion =
        field_map_exn json__ "SourceEngineVersion" String_.of_json in
      let sourceEngine = field_map_exn json__ "SourceEngine" String_.of_json in
      let enableIAMDatabaseAuthentication =
        field_map json__ "EnableIAMDatabaseAuthentication"
          BooleanOptional.of_json in
      let monitoringRoleArn =
        field_map json__ "MonitoringRoleArn" String_.of_json in
      let monitoringInterval =
        field_map json__ "MonitoringInterval" IntegerOptional.of_json in
      let copyTagsToSnapshot =
        field_map json__ "CopyTagsToSnapshot" BooleanOptional.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let storageEncrypted =
        field_map json__ "StorageEncrypted" BooleanOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" BooleanOptional.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let autoMinorVersionUpgrade =
        field_map json__ "AutoMinorVersionUpgrade" BooleanOptional.of_json in
      let engineVersion = field_map json__ "EngineVersion" String_.of_json in
      let multiAZ = field_map json__ "MultiAZ" BooleanOptional.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let dBParameterGroupName =
        field_map json__ "DBParameterGroupName" String_.of_json in
      let preferredMaintenanceWindow =
        field_map json__ "PreferredMaintenanceWindow" String_.of_json in
      let dBSubnetGroupName =
        field_map json__ "DBSubnetGroupName" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let vpcSecurityGroupIds =
        field_map json__ "VpcSecurityGroupIds" VpcSecurityGroupIdList.of_json in
      let dBSecurityGroups =
        field_map json__ "DBSecurityGroups" DBSecurityGroupNameList.of_json in
      let masterUserPassword =
        field_map json__ "MasterUserPassword" SensitiveString.of_json in
      let masterUsername = field_map json__ "MasterUsername" String_.of_json in
      let engine = field_map_exn json__ "Engine" String_.of_json in
      let dBInstanceClass =
        field_map_exn json__ "DBInstanceClass" String_.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let dBInstanceIdentifier =
        field_map_exn json__ "DBInstanceIdentifier" String_.of_json in
      let dBName = field_map json__ "DBName" String_.of_json in
      make ?tagSpecifications ?additionalStorageVolumes
        ?engineLifecycleSupport ?cACertificateIdentifier ?dedicatedLogVolume
        ?masterUserSecretKmsKeyId ?manageMasterUserPassword ?networkType
        ?maxAllocatedStorage ?deletionProtection ?useDefaultProcessorFeatures
        ?processorFeatures ?enableCloudwatchLogsExports
        ?performanceInsightsRetentionPeriod ?performanceInsightsKMSKeyId
        ?enablePerformanceInsights ?databaseInsightsMode ~s3IngestionRoleArn
        ?s3Prefix ~s3BucketName ~sourceEngineVersion ~sourceEngine
        ?enableIAMDatabaseAuthentication ?monitoringRoleArn
        ?monitoringInterval ?copyTagsToSnapshot ?kmsKeyId ?storageEncrypted
        ?storageType ?tags ?publiclyAccessible ?optionGroupName
        ?storageThroughput ?iops ?licenseModel ?autoMinorVersionUpgrade
        ?engineVersion ?multiAZ ?port ?preferredBackupWindow
        ?backupRetentionPeriod ?dBParameterGroupName
        ?preferredMaintenanceWindow ?dBSubnetGroupName ?availabilityZone
        ?vpcSecurityGroupIds ?dBSecurityGroups ?masterUserPassword
        ?masterUsername ~engine ~dBInstanceClass ?allocatedStorage
        ~dBInstanceIdentifier ?dBName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Relational Database Service (Amazon RDS) supports importing MySQL databases by using backup files. You can create a backup of your on-premises database, store it on Amazon Simple Storage Service (Amazon S3), and then restore the backup file onto a new Amazon RDS DB instance running MySQL. For more information, see Restoring a backup into an Amazon RDS for MySQL DB instance in the Amazon RDS User Guide. This operation doesn't apply to RDS Custom."]
module RestoreDBInstanceFromDBSnapshotResult =
  struct
    type restoreDBInstanceFromDBSnapshotResult =
      {
      dBInstance: DBInstance.t option }
    and responseMetaData = unit
    and t =
      {
      restoreDBInstanceFromDBSnapshotResult:
        restoreDBInstanceFromDBSnapshotResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationNotFoundFault of AuthorizationNotFoundFault.t 
      | `BackupPolicyNotFoundFault of BackupPolicyNotFoundFault.t 
      | `CertificateNotFoundFault of CertificateNotFoundFault.t 
      | `DBClusterSnapshotNotFoundFault of DBClusterSnapshotNotFoundFault.t 
      | `DBInstanceAlreadyExistsFault of DBInstanceAlreadyExistsFault.t 
      | `DBParameterGroupNotFoundFault of DBParameterGroupNotFoundFault.t 
      | `DBSecurityGroupNotFoundFault of DBSecurityGroupNotFoundFault.t 
      | `DBSnapshotNotFoundFault of DBSnapshotNotFoundFault.t 
      | `DBSubnetGroupDoesNotCoverEnoughAZs of
          DBSubnetGroupDoesNotCoverEnoughAZs.t 
      | `DBSubnetGroupNotFoundFault of DBSubnetGroupNotFoundFault.t 
      | `DomainNotFoundFault of DomainNotFoundFault.t 
      | `InstanceQuotaExceededFault of InstanceQuotaExceededFault.t 
      | `InsufficientDBInstanceCapacityFault of
          InsufficientDBInstanceCapacityFault.t 
      | `InvalidDBSnapshotStateFault of InvalidDBSnapshotStateFault.t 
      | `InvalidRestoreFault of InvalidRestoreFault.t 
      | `InvalidSubnet of InvalidSubnet.t 
      | `InvalidVPCNetworkStateFault of InvalidVPCNetworkStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `NetworkTypeNotSupported of NetworkTypeNotSupported.t 
      | `OptionGroupNotFoundFault of OptionGroupNotFoundFault.t 
      | `ProvisionedIopsNotAvailableInAZFault of
          ProvisionedIopsNotAvailableInAZFault.t 
      | `StorageQuotaExceededFault of StorageQuotaExceededFault.t 
      | `StorageTypeNotSupportedFault of StorageTypeNotSupportedFault.t 
      | `TenantDatabaseQuotaExceededFault of
          TenantDatabaseQuotaExceededFault.t 
      | `VpcEncryptionControlViolationException of
          VpcEncryptionControlViolationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RestoreDBInstanceFromDBSnapshotResult"
    let make ?dBInstance =
      fun () ->
        {
          restoreDBInstanceFromDBSnapshotResult = { dBInstance };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault
            (AuthorizationNotFoundFault.of_json json)
      | "BackupPolicyNotFoundFault" ->
          `BackupPolicyNotFoundFault (BackupPolicyNotFoundFault.of_json json)
      | "CertificateNotFoundFault" ->
          `CertificateNotFoundFault (CertificateNotFoundFault.of_json json)
      | "DBClusterSnapshotNotFoundFault" ->
          `DBClusterSnapshotNotFoundFault
            (DBClusterSnapshotNotFoundFault.of_json json)
      | "DBInstanceAlreadyExistsFault" ->
          `DBInstanceAlreadyExistsFault
            (DBInstanceAlreadyExistsFault.of_json json)
      | "DBParameterGroupNotFoundFault" ->
          `DBParameterGroupNotFoundFault
            (DBParameterGroupNotFoundFault.of_json json)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_json json)
      | "DBSnapshotNotFoundFault" ->
          `DBSnapshotNotFoundFault (DBSnapshotNotFoundFault.of_json json)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_json json)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault
            (DBSubnetGroupNotFoundFault.of_json json)
      | "DomainNotFoundFault" ->
          `DomainNotFoundFault (DomainNotFoundFault.of_json json)
      | "InstanceQuotaExceededFault" ->
          `InstanceQuotaExceededFault
            (InstanceQuotaExceededFault.of_json json)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_json json)
      | "InvalidDBSnapshotStateFault" ->
          `InvalidDBSnapshotStateFault
            (InvalidDBSnapshotStateFault.of_json json)
      | "InvalidRestoreFault" ->
          `InvalidRestoreFault (InvalidRestoreFault.of_json json)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_json json)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_json json)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_json json)
      | "ProvisionedIopsNotAvailableInAZFault" ->
          `ProvisionedIopsNotAvailableInAZFault
            (ProvisionedIopsNotAvailableInAZFault.of_json json)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_json json)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_json json)
      | "TenantDatabaseQuotaExceededFault" ->
          `TenantDatabaseQuotaExceededFault
            (TenantDatabaseQuotaExceededFault.of_json json)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationNotFoundFault" ->
          `AuthorizationNotFoundFault (AuthorizationNotFoundFault.of_xml xml)
      | "BackupPolicyNotFoundFault" ->
          `BackupPolicyNotFoundFault (BackupPolicyNotFoundFault.of_xml xml)
      | "CertificateNotFoundFault" ->
          `CertificateNotFoundFault (CertificateNotFoundFault.of_xml xml)
      | "DBClusterSnapshotNotFoundFault" ->
          `DBClusterSnapshotNotFoundFault
            (DBClusterSnapshotNotFoundFault.of_xml xml)
      | "DBInstanceAlreadyExistsFault" ->
          `DBInstanceAlreadyExistsFault
            (DBInstanceAlreadyExistsFault.of_xml xml)
      | "DBParameterGroupNotFoundFault" ->
          `DBParameterGroupNotFoundFault
            (DBParameterGroupNotFoundFault.of_xml xml)
      | "DBSecurityGroupNotFoundFault" ->
          `DBSecurityGroupNotFoundFault
            (DBSecurityGroupNotFoundFault.of_xml xml)
      | "DBSnapshotNotFoundFault" ->
          `DBSnapshotNotFoundFault (DBSnapshotNotFoundFault.of_xml xml)
      | "DBSubnetGroupDoesNotCoverEnoughAZs" ->
          `DBSubnetGroupDoesNotCoverEnoughAZs
            (DBSubnetGroupDoesNotCoverEnoughAZs.of_xml xml)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault (DBSubnetGroupNotFoundFault.of_xml xml)
      | "DomainNotFoundFault" ->
          `DomainNotFoundFault (DomainNotFoundFault.of_xml xml)
      | "InstanceQuotaExceededFault" ->
          `InstanceQuotaExceededFault (InstanceQuotaExceededFault.of_xml xml)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_xml xml)
      | "InvalidDBSnapshotStateFault" ->
          `InvalidDBSnapshotStateFault
            (InvalidDBSnapshotStateFault.of_xml xml)
      | "InvalidRestoreFault" ->
          `InvalidRestoreFault (InvalidRestoreFault.of_xml xml)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_xml xml)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_xml xml)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_xml xml)
      | "ProvisionedIopsNotAvailableInAZFault" ->
          `ProvisionedIopsNotAvailableInAZFault
            (ProvisionedIopsNotAvailableInAZFault.of_xml xml)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_xml xml)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_xml xml)
      | "TenantDatabaseQuotaExceededFault" ->
          `TenantDatabaseQuotaExceededFault
            (TenantDatabaseQuotaExceededFault.of_xml xml)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationNotFoundFault e ->
          `Assoc
            [("error", (`String "AuthorizationNotFoundFault"));
            ("details", (AuthorizationNotFoundFault.to_json e))]
      | `BackupPolicyNotFoundFault e ->
          `Assoc
            [("error", (`String "BackupPolicyNotFoundFault"));
            ("details", (BackupPolicyNotFoundFault.to_json e))]
      | `CertificateNotFoundFault e ->
          `Assoc
            [("error", (`String "CertificateNotFoundFault"));
            ("details", (CertificateNotFoundFault.to_json e))]
      | `DBClusterSnapshotNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterSnapshotNotFoundFault"));
            ("details", (DBClusterSnapshotNotFoundFault.to_json e))]
      | `DBInstanceAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBInstanceAlreadyExistsFault"));
            ("details", (DBInstanceAlreadyExistsFault.to_json e))]
      | `DBParameterGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBParameterGroupNotFoundFault"));
            ("details", (DBParameterGroupNotFoundFault.to_json e))]
      | `DBSecurityGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSecurityGroupNotFoundFault"));
            ("details", (DBSecurityGroupNotFoundFault.to_json e))]
      | `DBSnapshotNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSnapshotNotFoundFault"));
            ("details", (DBSnapshotNotFoundFault.to_json e))]
      | `DBSubnetGroupDoesNotCoverEnoughAZs e ->
          `Assoc
            [("error", (`String "DBSubnetGroupDoesNotCoverEnoughAZs"));
            ("details", (DBSubnetGroupDoesNotCoverEnoughAZs.to_json e))]
      | `DBSubnetGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSubnetGroupNotFoundFault"));
            ("details", (DBSubnetGroupNotFoundFault.to_json e))]
      | `DomainNotFoundFault e ->
          `Assoc
            [("error", (`String "DomainNotFoundFault"));
            ("details", (DomainNotFoundFault.to_json e))]
      | `InstanceQuotaExceededFault e ->
          `Assoc
            [("error", (`String "InstanceQuotaExceededFault"));
            ("details", (InstanceQuotaExceededFault.to_json e))]
      | `InsufficientDBInstanceCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientDBInstanceCapacityFault"));
            ("details", (InsufficientDBInstanceCapacityFault.to_json e))]
      | `InvalidDBSnapshotStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBSnapshotStateFault"));
            ("details", (InvalidDBSnapshotStateFault.to_json e))]
      | `InvalidRestoreFault e ->
          `Assoc
            [("error", (`String "InvalidRestoreFault"));
            ("details", (InvalidRestoreFault.to_json e))]
      | `InvalidSubnet e ->
          `Assoc
            [("error", (`String "InvalidSubnet"));
            ("details", (InvalidSubnet.to_json e))]
      | `InvalidVPCNetworkStateFault e ->
          `Assoc
            [("error", (`String "InvalidVPCNetworkStateFault"));
            ("details", (InvalidVPCNetworkStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `NetworkTypeNotSupported e ->
          `Assoc
            [("error", (`String "NetworkTypeNotSupported"));
            ("details", (NetworkTypeNotSupported.to_json e))]
      | `OptionGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "OptionGroupNotFoundFault"));
            ("details", (OptionGroupNotFoundFault.to_json e))]
      | `ProvisionedIopsNotAvailableInAZFault e ->
          `Assoc
            [("error", (`String "ProvisionedIopsNotAvailableInAZFault"));
            ("details", (ProvisionedIopsNotAvailableInAZFault.to_json e))]
      | `StorageQuotaExceededFault e ->
          `Assoc
            [("error", (`String "StorageQuotaExceededFault"));
            ("details", (StorageQuotaExceededFault.to_json e))]
      | `StorageTypeNotSupportedFault e ->
          `Assoc
            [("error", (`String "StorageTypeNotSupportedFault"));
            ("details", (StorageTypeNotSupportedFault.to_json e))]
      | `TenantDatabaseQuotaExceededFault e ->
          `Assoc
            [("error", (`String "TenantDatabaseQuotaExceededFault"));
            ("details", (TenantDatabaseQuotaExceededFault.to_json e))]
      | `VpcEncryptionControlViolationException e ->
          `Assoc
            [("error", (`String "VpcEncryptionControlViolationException"));
            ("details", (VpcEncryptionControlViolationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.restoreDBInstanceFromDBSnapshotResult in
      structure_to_wrapped_value
        [("DBInstance", (Option.map x.dBInstance ~f:DBInstance.to_value))]
        ~wrapper:"RestoreDBInstanceFromDBSnapshotResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "RestoreDBInstanceFromDBSnapshotResult" in
      let dBInstance =
        (Option.map ~f:DBInstance.of_xml) (Xml.child xml_arg0 "DBInstance") in
      make ?dBInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBInstance = field_map json__ "DBInstance" DBInstance.of_json in
      make ?dBInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new DB instance from a DB snapshot. The target database is created from the source database restore point with most of the source's original configuration, including the default security group and DB parameter group. By default, the new DB instance is created as a Single-AZ deployment, except when the instance is a SQL Server instance that has an option group associated with mirroring. In this case, the instance becomes a Multi-AZ deployment, not a Single-AZ deployment. If you want to replace your original DB instance with the new, restored DB instance, then rename your original DB instance before you call the RestoreDBInstanceFromDBSnapshot operation. RDS doesn't allow two DB instances with the same name. After you have renamed your original DB instance with a different identifier, then you can pass the original name of the DB instance as the DBInstanceIdentifier in the call to the RestoreDBInstanceFromDBSnapshot operation. The result is that you replace the original DB instance with the DB instance created from the snapshot. If you are restoring from a shared manual DB snapshot, the DBSnapshotIdentifier must be the ARN of the shared DB snapshot. To restore from a DB snapshot with an unsupported engine version, you must first upgrade the engine version of the snapshot. For more information about upgrading a RDS for MySQL DB snapshot engine version, see Upgrading a MySQL DB snapshot engine version. For more information about upgrading a RDS for PostgreSQL DB snapshot engine version, Upgrading a PostgreSQL DB snapshot engine version. This command doesn't apply to Aurora MySQL and Aurora PostgreSQL. For Aurora, use RestoreDBClusterFromSnapshot."]
module RestoreDBInstanceFromDBSnapshotMessage =
  struct
    type nonrec t =
      {
      dBInstanceIdentifier: String_.t
        [@ocaml.doc
          "The name of the DB instance to create from the DB snapshot. This parameter isn't case-sensitive. Constraints: Must contain from 1 to 63 numbers, letters, or hyphens. First character must be a letter. Can't end with a hyphen or contain two consecutive hyphens. Example: my-snapshot-id"];
      dBSnapshotIdentifier: String_.t option
        [@ocaml.doc
          "The identifier for the DB snapshot to restore from. Constraints: Must match the identifier of an existing DB snapshot. Can't be specified when DBClusterSnapshotIdentifier is specified. Must be specified when DBClusterSnapshotIdentifier isn't specified. If you are restoring from a shared manual DB snapshot, the DBSnapshotIdentifier must be the ARN of the shared DB snapshot."];
      dBInstanceClass: String_.t option
        [@ocaml.doc
          "The compute and memory capacity of the Amazon RDS DB instance, for example db.m4.large. Not all DB instance classes are available in all Amazon Web Services Regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see DB Instance Class in the Amazon RDS User Guide. Default: The same DBInstanceClass as the original DB instance."];
      port: IntegerOptional.t option
        [@ocaml.doc
          "The port number on which the database accepts connections. Default: The same port as the original DB instance Constraints: Value must be 1150-65535"];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone (AZ) where the DB instance will be created. Default: A random, system-chosen Availability Zone. Constraint: You can't specify the AvailabilityZone parameter if the DB instance is a Multi-AZ deployment. Example: us-east-1a"];
      dBSubnetGroupName: String_.t option
        [@ocaml.doc
          "The name of the DB subnet group to use for the new instance. Constraints: If supplied, must match the name of an existing DB subnet group. Example: mydbsubnetgroup"];
      multiAZ: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance is a Multi-AZ deployment. This setting doesn't apply to RDS Custom. Constraint: You can't specify the AvailabilityZone parameter if the DB instance is a Multi-AZ deployment."];
      publiclyAccessible: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance is publicly accessible. When the DB instance is publicly accessible, its Domain Name System (DNS) endpoint resolves to the private IP address from within the DB instance's virtual private cloud (VPC). It resolves to the public IP address from outside of the DB instance's VPC. Access to the DB instance is ultimately controlled by the security group it uses. That public access is not permitted if the security group assigned to the DB instance doesn't permit it. When the DB instance isn't publicly accessible, it is an internal DB instance with a DNS name that resolves to a private IP address. For more information, see CreateDBInstance."];
      autoMinorVersionUpgrade: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to automatically apply minor version upgrades to the DB instance during the maintenance window. If you restore an RDS Custom DB instance, you must disable this parameter. For more information about automatic minor version upgrades, see Automatically upgrading the minor engine version."];
      licenseModel: String_.t option
        [@ocaml.doc
          "License model information for the restored DB instance. License models for RDS for Db2 require additional configuration. The bring your own license (BYOL) model requires a custom parameter group and an Amazon Web Services License Manager self-managed license. The Db2 license through Amazon Web Services Marketplace model requires an Amazon Web Services Marketplace subscription. For more information, see Amazon RDS for Db2 licensing options in the Amazon RDS User Guide. This setting doesn't apply to Amazon Aurora or RDS Custom DB instances. Valid Values: RDS for Db2 - bring-your-own-license | marketplace-license RDS for MariaDB - general-public-license RDS for Microsoft SQL Server - license-included RDS for MySQL - general-public-license RDS for Oracle - bring-your-own-license | license-included RDS for PostgreSQL - postgresql-license Default: Same as the source."];
      dBName: String_.t option
        [@ocaml.doc
          "The name of the database for the restored DB instance. This parameter only applies to RDS for Oracle and RDS for SQL Server DB instances. It doesn't apply to the other engines or to RDS Custom DB instances."];
      engine: String_.t option
        [@ocaml.doc
          "The database engine to use for the new instance. This setting doesn't apply to RDS Custom. Default: The same as source Constraint: Must be compatible with the engine of the source. For example, you can restore a MariaDB 10.1 DB instance from a MySQL 5.6 snapshot. Valid Values: db2-ae db2-se mariadb mysql oracle-ee oracle-ee-cdb oracle-se2 oracle-se2-cdb postgres sqlserver-ee sqlserver-se sqlserver-ex sqlserver-web"];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "Specifies the amount of provisioned IOPS for the DB instance, expressed in I/O operations per second. If this parameter isn't specified, the IOPS value is taken from the backup. If this parameter is set to 0, the new instance is converted to a non-PIOPS instance. The conversion takes additional time, though your DB instance is available for connections before the conversion starts. The provisioned IOPS value must follow the requirements for your database engine. For more information, see Amazon RDS Provisioned IOPS storage in the Amazon RDS User Guide. Constraints: Must be an integer greater than 1000."];
      storageThroughput: IntegerOptional.t option
        [@ocaml.doc
          "Specifies the storage throughput value for the DB instance. This setting doesn't apply to RDS Custom or Amazon Aurora."];
      optionGroupName: String_.t option
        [@ocaml.doc
          "The name of the option group to be used for the restored DB instance. Permanent options, such as the TDE option for Oracle Advanced Security TDE, can't be removed from an option group, and that option group can't be removed from a DB instance after it is associated with a DB instance. This setting doesn't apply to RDS Custom."];
      tags: TagList.t option ;
      storageType: String_.t option
        [@ocaml.doc
          "Specifies the storage type to be associated with the DB instance. Valid Values: gp2 | gp3 | io1 | io2 | standard If you specify io1, io2, or gp3, you must also include a value for the Iops parameter. Default: io1 if the Iops parameter is specified, otherwise gp3"];
      tdeCredentialArn: String_.t option
        [@ocaml.doc
          "The ARN from the key store with which to associate the instance for TDE encryption. This setting doesn't apply to RDS Custom."];
      tdeCredentialPassword: SensitiveString.t option
        [@ocaml.doc
          "The password for the given ARN from the key store in order to access the device. This setting doesn't apply to RDS Custom."];
      vpcSecurityGroupIds: VpcSecurityGroupIdList.t option
        [@ocaml.doc
          "A list of EC2 VPC security groups to associate with this DB instance. Default: The default EC2 VPC security group for the DB subnet group's VPC."];
      domain: String_.t option
        [@ocaml.doc
          "The Active Directory directory ID to restore the DB instance in. The domain/ must be created prior to this operation. Currently, you can create only Db2, MySQL, Microsoft SQL Server, Oracle, and PostgreSQL DB instances in an Active Directory Domain. For more information, see Kerberos Authentication in the Amazon RDS User Guide. This setting doesn't apply to RDS Custom."];
      domainFqdn: String_.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of an Active Directory domain. Constraints: Can't be longer than 64 characters. Example: mymanagedADtest.mymanagedAD.mydomain"];
      domainOu: String_.t option
        [@ocaml.doc
          "The Active Directory organizational unit for your DB instance to join. Constraints: Must be in the distinguished name format. Can't be longer than 64 characters. Example: OU=mymanagedADtestOU,DC=mymanagedADtest,DC=mymanagedAD,DC=mydomain"];
      domainAuthSecretArn: String_.t option
        [@ocaml.doc
          "The ARN for the Secrets Manager secret with the credentials for the user joining the domain. Constraints: Can't be longer than 64 characters. Example: arn:aws:secretsmanager:region:account-number:secret:myselfmanagedADtestsecret-123456"];
      domainDnsIps: StringList.t option
        [@ocaml.doc
          "The IPv4 DNS IP addresses of your primary and secondary Active Directory domain controllers. Constraints: Two IP addresses must be provided. If there isn't a secondary domain controller, use the IP address of the primary domain controller for both entries in the list. Example: 123.124.125.126,234.235.236.237"];
      copyTagsToSnapshot: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to copy all tags from the restored DB instance to snapshots of the DB instance. In most cases, tags aren't copied by default. However, when you restore a DB instance from a DB snapshot, RDS checks whether you specify new tags. If yes, the new tags are added to the restored DB instance. If there are no new tags, RDS looks for the tags from the source DB instance for the DB snapshot, and then adds those tags to the restored DB instance. For more information, see Copying tags to DB instance snapshots in the Amazon RDS User Guide."];
      domainIAMRoleName: String_.t option
        [@ocaml.doc
          "The name of the IAM role to use when making API calls to the Directory Service. This setting doesn't apply to RDS Custom DB instances."];
      enableIAMDatabaseAuthentication: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts. By default, mapping is disabled. For more information about IAM database authentication, see IAM Database Authentication for MySQL and PostgreSQL in the Amazon RDS User Guide. This setting doesn't apply to RDS Custom."];
      enableCloudwatchLogsExports: LogTypeList.t option
        [@ocaml.doc
          "The list of logs for the restored DB instance to export to CloudWatch Logs. The values in the list depend on the DB engine. For more information, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon RDS User Guide. This setting doesn't apply to RDS Custom."];
      processorFeatures: ProcessorFeatureList.t option
        [@ocaml.doc
          "The number of CPU cores and the number of threads per core for the DB instance class of the DB instance. This setting doesn't apply to RDS Custom."];
      useDefaultProcessorFeatures: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB instance class of the DB instance uses its default processor features. This setting doesn't apply to RDS Custom."];
      dBParameterGroupName: String_.t option
        [@ocaml.doc
          "The name of the DB parameter group to associate with this DB instance. If you don't specify a value for DBParameterGroupName, then RDS uses the default DBParameterGroup for the specified DB engine. This setting doesn't apply to RDS Custom. Constraints: If supplied, must match the name of an existing DB parameter group. Must be 1 to 255 letters, numbers, or hyphens. First character must be a letter. Can't end with a hyphen or contain two consecutive hyphens."];
      deletionProtection: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable deletion protection for the DB instance. The database can't be deleted when deletion protection is enabled. By default, deletion protection isn't enabled. For more information, see Deleting a DB Instance."];
      enableCustomerOwnedIp: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable a customer-owned IP address (CoIP) for an RDS on Outposts DB instance. A CoIP provides local or external connectivity to resources in your Outpost subnets through your on-premises network. For some use cases, a CoIP can provide lower latency for connections to the DB instance from outside of its virtual private cloud (VPC) on your local network. This setting doesn't apply to RDS Custom. For more information about RDS on Outposts, see Working with Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide. For more information about CoIPs, see Customer-owned IP addresses in the Amazon Web Services Outposts User Guide."];
      networkType: String_.t option
        [@ocaml.doc
          "The network type of the DB instance. Valid Values: IPV4 DUAL The network type is determined by the DBSubnetGroup specified for the DB instance. A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon RDS User Guide."];
      backupTarget: String_.t option
        [@ocaml.doc
          "Specifies where automated backups and manual snapshots are stored for the restored DB instance. Possible values are local (Dedicated Local Zone), outposts (Amazon Web Services Outposts), and region (Amazon Web Services Region). The default is region. For more information, see Working with Amazon RDS on Amazon Web Services Outposts in the Amazon RDS User Guide."];
      customIamInstanceProfile: String_.t option
        [@ocaml.doc
          "The instance profile associated with the underlying Amazon EC2 instance of an RDS Custom DB instance. The instance profile must meet the following requirements: The profile must exist in your account. The profile must have an IAM role that Amazon EC2 has permissions to assume. The instance profile name and the associated IAM role name must start with the prefix AWSRDSCustom. For the list of permissions required for the IAM role, see Configure IAM and your VPC in the Amazon RDS User Guide. This setting is required for RDS Custom."];
      allocatedStorage: IntegerOptional.t option
        [@ocaml.doc
          "The amount of storage (in gibibytes) to allocate initially for the DB instance. Follow the allocation rules specified in CreateDBInstance. This setting isn't valid for RDS for SQL Server. Be sure to allocate enough storage for your new DB instance so that the restore operation can succeed. You can also allocate additional storage for future growth."];
      dBClusterSnapshotIdentifier: String_.t option
        [@ocaml.doc
          "The identifier for the Multi-AZ DB cluster snapshot to restore from. For more information on Multi-AZ DB clusters, see Multi-AZ DB cluster deployments in the Amazon RDS User Guide. Constraints: Must match the identifier of an existing Multi-AZ DB cluster snapshot. Can't be specified when DBSnapshotIdentifier is specified. Must be specified when DBSnapshotIdentifier isn't specified. If you are restoring from a shared manual Multi-AZ DB cluster snapshot, the DBClusterSnapshotIdentifier must be the ARN of the shared snapshot. Can't be the identifier of an Aurora DB cluster snapshot."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Enabling and disabling backups can result in a brief I/O suspension that lasts from a few seconds to a few minutes, depending on the size and class of your DB instance. This setting doesn't apply to Amazon Aurora DB instances. The retention period for automated backups is managed by the DB cluster. For more information, see ModifyDBCluster. Default: Uses existing setting Constraints: Must be a value from 0 to 35. Can't be set to 0 if the DB instance is a source to read replicas. Can't be set to 0 for an RDS Custom for Oracle DB instance."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, as determined by the BackupRetentionPeriod parameter. Changing this parameter doesn't result in an outage and the change is asynchronously applied as soon as possible. The default is a 30-minute window selected at random from an 8-hour block of time for each Amazon Web Services Region. For more information, see Backup window in the Amazon RDS User Guide. This setting doesn't apply to Amazon Aurora DB instances. The daily time range for creating automated backups is managed by the DB cluster. For more information, see ModifyDBCluster. Constraints: Must be in the format hh24:mi-hh24:mi. Must be in Universal Coordinated Time (UTC). Must not conflict with the preferred maintenance window. Must be at least 30 minutes."];
      dedicatedLogVolume: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable a dedicated log volume (DLV) for the DB instance."];
      cACertificateIdentifier: String_.t option
        [@ocaml.doc
          "The CA certificate identifier to use for the DB instance's server certificate. This setting doesn't apply to RDS Custom DB instances. For more information, see Using SSL/TLS to encrypt a connection to a DB instance in the Amazon RDS User Guide and Using SSL/TLS to encrypt a connection to a DB cluster in the Amazon Aurora User Guide."];
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The life cycle type for this DB instance. By default, this value is set to open-source-rds-extended-support, which enrolls your DB instance into Amazon RDS Extended Support. At the end of standard support, you can avoid charges for Extended Support by setting the value to open-source-rds-extended-support-disabled. In this case, RDS automatically upgrades your restored DB instance to a higher engine version, if the major engine version is past its end of standard support date. You can use this setting to enroll your DB instance into Amazon RDS Extended Support. With RDS Extended Support, you can run the selected major engine version on your DB instance past the end of standard support for that engine version. For more information, see Amazon RDS Extended Support with Amazon RDS in the Amazon RDS User Guide. This setting applies only to RDS for MySQL and RDS for PostgreSQL. For Amazon Aurora DB instances, the life cycle type is managed by the DB cluster. Valid Values: open-source-rds-extended-support | open-source-rds-extended-support-disabled Default: open-source-rds-extended-support"];
      additionalStorageVolumes: AdditionalStorageVolumesList.t option
        [@ocaml.doc
          "A list of additional storage volumes to create for the DB instance. You can create up to three additional storage volumes using the names rdsdbdata2, rdsdbdata3, and rdsdbdata4. Additional storage volumes are supported for RDS for Oracle and RDS for SQL Server DB instances only."];
      tagSpecifications: TagSpecificationList.t option
        [@ocaml.doc
          "Tags to assign to resources associated with the DB instance. Valid Values: auto-backup - The DB instance's automated backup."];
      manageMasterUserPassword: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to manage the master user password with Amazon Web Services Secrets Manager in the restored DB instance. For more information, see Password management with Amazon Web Services Secrets Manager in the Amazon RDS User Guide. Constraints: Applies to RDS for Oracle only."];
      masterUserSecretKmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier to encrypt a secret that is automatically generated and managed in Amazon Web Services Secrets Manager. This setting is valid only if the master user password is managed by RDS in Amazon Web Services Secrets Manager for the DB instance. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. To use a KMS key in a different Amazon Web Services account, specify the key ARN or alias ARN. If you don't specify MasterUserSecretKmsKeyId, then the aws/secretsmanager KMS key is used to encrypt the secret. If the secret is in a different Amazon Web Services account, then you can't use the aws/secretsmanager KMS key to encrypt the secret, and you must use a customer managed KMS key. There is a default KMS key for your Amazon Web Services account. Your Amazon Web Services account has a different default KMS key for each Amazon Web Services Region."]}
    let context_ = "RestoreDBInstanceFromDBSnapshotMessage"
    let make ?dBSnapshotIdentifier =
      fun ?dBInstanceClass ->
        fun ?port ->
          fun ?availabilityZone ->
            fun ?dBSubnetGroupName ->
              fun ?multiAZ ->
                fun ?publiclyAccessible ->
                  fun ?autoMinorVersionUpgrade ->
                    fun ?licenseModel ->
                      fun ?dBName ->
                        fun ?engine ->
                          fun ?iops ->
                            fun ?storageThroughput ->
                              fun ?optionGroupName ->
                                fun ?tags ->
                                  fun ?storageType ->
                                    fun ?tdeCredentialArn ->
                                      fun ?tdeCredentialPassword ->
                                        fun ?vpcSecurityGroupIds ->
                                          fun ?domain ->
                                            fun ?domainFqdn ->
                                              fun ?domainOu ->
                                                fun ?domainAuthSecretArn ->
                                                  fun ?domainDnsIps ->
                                                    fun ?copyTagsToSnapshot
                                                      ->
                                                      fun ?domainIAMRoleName
                                                        ->
                                                        fun
                                                          ?enableIAMDatabaseAuthentication
                                                          ->
                                                          fun
                                                            ?enableCloudwatchLogsExports
                                                            ->
                                                            fun
                                                              ?processorFeatures
                                                              ->
                                                              fun
                                                                ?useDefaultProcessorFeatures
                                                                ->
                                                                fun
                                                                  ?dBParameterGroupName
                                                                  ->
                                                                  fun
                                                                    ?deletionProtection
                                                                    ->
                                                                    fun
                                                                    ?enableCustomerOwnedIp
                                                                    ->
                                                                    fun
                                                                    ?networkType
                                                                    ->
                                                                    fun
                                                                    ?backupTarget
                                                                    ->
                                                                    fun
                                                                    ?customIamInstanceProfile
                                                                    ->
                                                                    fun
                                                                    ?allocatedStorage
                                                                    ->
                                                                    fun
                                                                    ?dBClusterSnapshotIdentifier
                                                                    ->
                                                                    fun
                                                                    ?backupRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?preferredBackupWindow
                                                                    ->
                                                                    fun
                                                                    ?dedicatedLogVolume
                                                                    ->
                                                                    fun
                                                                    ?cACertificateIdentifier
                                                                    ->
                                                                    fun
                                                                    ?engineLifecycleSupport
                                                                    ->
                                                                    fun
                                                                    ?additionalStorageVolumes
                                                                    ->
                                                                    fun
                                                                    ?tagSpecifications
                                                                    ->
                                                                    fun
                                                                    ?manageMasterUserPassword
                                                                    ->
                                                                    fun
                                                                    ?masterUserSecretKmsKeyId
                                                                    ->
                                                                    fun
                                                                    ~dBInstanceIdentifier
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    dBSnapshotIdentifier;
                                                                    dBInstanceClass;
                                                                    port;
                                                                    availabilityZone;
                                                                    dBSubnetGroupName;
                                                                    multiAZ;
                                                                    publiclyAccessible;
                                                                    autoMinorVersionUpgrade;
                                                                    licenseModel;
                                                                    dBName;
                                                                    engine;
                                                                    iops;
                                                                    storageThroughput;
                                                                    optionGroupName;
                                                                    tags;
                                                                    storageType;
                                                                    tdeCredentialArn;
                                                                    tdeCredentialPassword;
                                                                    vpcSecurityGroupIds;
                                                                    domain;
                                                                    domainFqdn;
                                                                    domainOu;
                                                                    domainAuthSecretArn;
                                                                    domainDnsIps;
                                                                    copyTagsToSnapshot;
                                                                    domainIAMRoleName;
                                                                    enableIAMDatabaseAuthentication;
                                                                    enableCloudwatchLogsExports;
                                                                    processorFeatures;
                                                                    useDefaultProcessorFeatures;
                                                                    dBParameterGroupName;
                                                                    deletionProtection;
                                                                    enableCustomerOwnedIp;
                                                                    networkType;
                                                                    backupTarget;
                                                                    customIamInstanceProfile;
                                                                    allocatedStorage;
                                                                    dBClusterSnapshotIdentifier;
                                                                    backupRetentionPeriod;
                                                                    preferredBackupWindow;
                                                                    dedicatedLogVolume;
                                                                    cACertificateIdentifier;
                                                                    engineLifecycleSupport;
                                                                    additionalStorageVolumes;
                                                                    tagSpecifications;
                                                                    manageMasterUserPassword;
                                                                    masterUserSecretKmsKeyId;
                                                                    dBInstanceIdentifier
                                                                    }
    let to_value x =
      structure_to_value
        [("DBInstanceIdentifier",
           (Some (String_.to_value x.dBInstanceIdentifier)));
        ("DBSnapshotIdentifier",
          (Option.map x.dBSnapshotIdentifier ~f:String_.to_value));
        ("DBInstanceClass",
          (Option.map x.dBInstanceClass ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("DBSubnetGroupName",
          (Option.map x.dBSubnetGroupName ~f:String_.to_value));
        ("MultiAZ", (Option.map x.multiAZ ~f:BooleanOptional.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:BooleanOptional.to_value));
        ("AutoMinorVersionUpgrade",
          (Option.map x.autoMinorVersionUpgrade ~f:BooleanOptional.to_value));
        ("LicenseModel", (Option.map x.licenseModel ~f:String_.to_value));
        ("DBName", (Option.map x.dBName ~f:String_.to_value));
        ("Engine", (Option.map x.engine ~f:String_.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("StorageThroughput",
          (Option.map x.storageThroughput ~f:IntegerOptional.to_value));
        ("OptionGroupName",
          (Option.map x.optionGroupName ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("TdeCredentialArn",
          (Option.map x.tdeCredentialArn ~f:String_.to_value));
        ("TdeCredentialPassword",
          (Option.map x.tdeCredentialPassword ~f:SensitiveString.to_value));
        ("VpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds
             ~f:VpcSecurityGroupIdList.to_value));
        ("Domain", (Option.map x.domain ~f:String_.to_value));
        ("DomainFqdn", (Option.map x.domainFqdn ~f:String_.to_value));
        ("DomainOu", (Option.map x.domainOu ~f:String_.to_value));
        ("DomainAuthSecretArn",
          (Option.map x.domainAuthSecretArn ~f:String_.to_value));
        ("DomainDnsIps", (Option.map x.domainDnsIps ~f:StringList.to_value));
        ("CopyTagsToSnapshot",
          (Option.map x.copyTagsToSnapshot ~f:BooleanOptional.to_value));
        ("DomainIAMRoleName",
          (Option.map x.domainIAMRoleName ~f:String_.to_value));
        ("EnableIAMDatabaseAuthentication",
          (Option.map x.enableIAMDatabaseAuthentication
             ~f:BooleanOptional.to_value));
        ("EnableCloudwatchLogsExports",
          (Option.map x.enableCloudwatchLogsExports ~f:LogTypeList.to_value));
        ("ProcessorFeatures",
          (Option.map x.processorFeatures ~f:ProcessorFeatureList.to_value));
        ("UseDefaultProcessorFeatures",
          (Option.map x.useDefaultProcessorFeatures
             ~f:BooleanOptional.to_value));
        ("DBParameterGroupName",
          (Option.map x.dBParameterGroupName ~f:String_.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:BooleanOptional.to_value));
        ("EnableCustomerOwnedIp",
          (Option.map x.enableCustomerOwnedIp ~f:BooleanOptional.to_value));
        ("NetworkType", (Option.map x.networkType ~f:String_.to_value));
        ("BackupTarget", (Option.map x.backupTarget ~f:String_.to_value));
        ("CustomIamInstanceProfile",
          (Option.map x.customIamInstanceProfile ~f:String_.to_value));
        ("AllocatedStorage",
          (Option.map x.allocatedStorage ~f:IntegerOptional.to_value));
        ("DBClusterSnapshotIdentifier",
          (Option.map x.dBClusterSnapshotIdentifier ~f:String_.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("DedicatedLogVolume",
          (Option.map x.dedicatedLogVolume ~f:BooleanOptional.to_value));
        ("CACertificateIdentifier",
          (Option.map x.cACertificateIdentifier ~f:String_.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("AdditionalStorageVolumes",
          (Option.map x.additionalStorageVolumes
             ~f:AdditionalStorageVolumesList.to_value));
        ("TagSpecifications",
          (Option.map x.tagSpecifications ~f:TagSpecificationList.to_value));
        ("ManageMasterUserPassword",
          (Option.map x.manageMasterUserPassword ~f:BooleanOptional.to_value));
        ("MasterUserSecretKmsKeyId",
          (Option.map x.masterUserSecretKmsKeyId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let masterUserSecretKmsKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MasterUserSecretKmsKeyId") in
      let manageMasterUserPassword =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "ManageMasterUserPassword") in
      let tagSpecifications =
        (Option.map ~f:TagSpecificationList.of_xml)
          (Xml.child xml_arg0 "TagSpecifications") in
      let additionalStorageVolumes =
        (Option.map ~f:AdditionalStorageVolumesList.of_xml)
          (Xml.child xml_arg0 "AdditionalStorageVolumes") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let cACertificateIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CACertificateIdentifier") in
      let dedicatedLogVolume =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DedicatedLogVolume") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let dBClusterSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterSnapshotIdentifier") in
      let allocatedStorage =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "AllocatedStorage") in
      let customIamInstanceProfile =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CustomIamInstanceProfile") in
      let backupTarget =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BackupTarget") in
      let networkType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let enableCustomerOwnedIp =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableCustomerOwnedIp") in
      let deletionProtection =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let dBParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBParameterGroupName") in
      let useDefaultProcessorFeatures =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "UseDefaultProcessorFeatures") in
      let processorFeatures =
        (Option.map ~f:ProcessorFeatureList.of_xml)
          (Xml.child xml_arg0 "ProcessorFeatures") in
      let enableCloudwatchLogsExports =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnableCloudwatchLogsExports") in
      let enableIAMDatabaseAuthentication =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableIAMDatabaseAuthentication") in
      let domainIAMRoleName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DomainIAMRoleName") in
      let copyTagsToSnapshot =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CopyTagsToSnapshot") in
      let domainDnsIps =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "DomainDnsIps") in
      let domainAuthSecretArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DomainAuthSecretArn") in
      let domainOu =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DomainOu") in
      let domainFqdn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DomainFqdn") in
      let domain =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Domain") in
      let vpcSecurityGroupIds =
        (Option.map ~f:VpcSecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupIds") in
      let tdeCredentialPassword =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "TdeCredentialPassword") in
      let tdeCredentialArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TdeCredentialArn") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      let storageThroughput =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "StorageThroughput") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let engine =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Engine") in
      let dBName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBName") in
      let licenseModel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseModel") in
      let autoMinorVersionUpgrade =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "AutoMinorVersionUpgrade") in
      let publiclyAccessible =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let multiAZ =
        (Option.map ~f:BooleanOptional.of_xml) (Xml.child xml_arg0 "MultiAZ") in
      let dBSubnetGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupName") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let dBInstanceClass =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DBInstanceClass") in
      let dBSnapshotIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSnapshotIdentifier") in
      let dBInstanceIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBInstanceIdentifier") in
      make ?masterUserSecretKmsKeyId ?manageMasterUserPassword
        ?tagSpecifications ?additionalStorageVolumes ?engineLifecycleSupport
        ?cACertificateIdentifier ?dedicatedLogVolume ?preferredBackupWindow
        ?backupRetentionPeriod ?dBClusterSnapshotIdentifier ?allocatedStorage
        ?customIamInstanceProfile ?backupTarget ?networkType
        ?enableCustomerOwnedIp ?deletionProtection ?dBParameterGroupName
        ?useDefaultProcessorFeatures ?processorFeatures
        ?enableCloudwatchLogsExports ?enableIAMDatabaseAuthentication
        ?domainIAMRoleName ?copyTagsToSnapshot ?domainDnsIps
        ?domainAuthSecretArn ?domainOu ?domainFqdn ?domain
        ?vpcSecurityGroupIds ?tdeCredentialPassword ?tdeCredentialArn
        ?storageType ?tags ?optionGroupName ?storageThroughput ?iops ?engine
        ?dBName ?licenseModel ?autoMinorVersionUpgrade ?publiclyAccessible
        ?multiAZ ?dBSubnetGroupName ?availabilityZone ?port ?dBInstanceClass
        ?dBSnapshotIdentifier ~dBInstanceIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let masterUserSecretKmsKeyId =
        field_map json__ "MasterUserSecretKmsKeyId" String_.of_json in
      let manageMasterUserPassword =
        field_map json__ "ManageMasterUserPassword" BooleanOptional.of_json in
      let tagSpecifications =
        field_map json__ "TagSpecifications" TagSpecificationList.of_json in
      let additionalStorageVolumes =
        field_map json__ "AdditionalStorageVolumes"
          AdditionalStorageVolumesList.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let cACertificateIdentifier =
        field_map json__ "CACertificateIdentifier" String_.of_json in
      let dedicatedLogVolume =
        field_map json__ "DedicatedLogVolume" BooleanOptional.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let dBClusterSnapshotIdentifier =
        field_map json__ "DBClusterSnapshotIdentifier" String_.of_json in
      let allocatedStorage =
        field_map json__ "AllocatedStorage" IntegerOptional.of_json in
      let customIamInstanceProfile =
        field_map json__ "CustomIamInstanceProfile" String_.of_json in
      let backupTarget = field_map json__ "BackupTarget" String_.of_json in
      let networkType = field_map json__ "NetworkType" String_.of_json in
      let enableCustomerOwnedIp =
        field_map json__ "EnableCustomerOwnedIp" BooleanOptional.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" BooleanOptional.of_json in
      let dBParameterGroupName =
        field_map json__ "DBParameterGroupName" String_.of_json in
      let useDefaultProcessorFeatures =
        field_map json__ "UseDefaultProcessorFeatures"
          BooleanOptional.of_json in
      let processorFeatures =
        field_map json__ "ProcessorFeatures" ProcessorFeatureList.of_json in
      let enableCloudwatchLogsExports =
        field_map json__ "EnableCloudwatchLogsExports" LogTypeList.of_json in
      let enableIAMDatabaseAuthentication =
        field_map json__ "EnableIAMDatabaseAuthentication"
          BooleanOptional.of_json in
      let domainIAMRoleName =
        field_map json__ "DomainIAMRoleName" String_.of_json in
      let copyTagsToSnapshot =
        field_map json__ "CopyTagsToSnapshot" BooleanOptional.of_json in
      let domainDnsIps = field_map json__ "DomainDnsIps" StringList.of_json in
      let domainAuthSecretArn =
        field_map json__ "DomainAuthSecretArn" String_.of_json in
      let domainOu = field_map json__ "DomainOu" String_.of_json in
      let domainFqdn = field_map json__ "DomainFqdn" String_.of_json in
      let domain = field_map json__ "Domain" String_.of_json in
      let vpcSecurityGroupIds =
        field_map json__ "VpcSecurityGroupIds" VpcSecurityGroupIdList.of_json in
      let tdeCredentialPassword =
        field_map json__ "TdeCredentialPassword" SensitiveString.of_json in
      let tdeCredentialArn =
        field_map json__ "TdeCredentialArn" String_.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      let storageThroughput =
        field_map json__ "StorageThroughput" IntegerOptional.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let engine = field_map json__ "Engine" String_.of_json in
      let dBName = field_map json__ "DBName" String_.of_json in
      let licenseModel = field_map json__ "LicenseModel" String_.of_json in
      let autoMinorVersionUpgrade =
        field_map json__ "AutoMinorVersionUpgrade" BooleanOptional.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" BooleanOptional.of_json in
      let multiAZ = field_map json__ "MultiAZ" BooleanOptional.of_json in
      let dBSubnetGroupName =
        field_map json__ "DBSubnetGroupName" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let dBInstanceClass =
        field_map json__ "DBInstanceClass" String_.of_json in
      let dBSnapshotIdentifier =
        field_map json__ "DBSnapshotIdentifier" String_.of_json in
      let dBInstanceIdentifier =
        field_map_exn json__ "DBInstanceIdentifier" String_.of_json in
      make ?masterUserSecretKmsKeyId ?manageMasterUserPassword
        ?tagSpecifications ?additionalStorageVolumes ?engineLifecycleSupport
        ?cACertificateIdentifier ?dedicatedLogVolume ?preferredBackupWindow
        ?backupRetentionPeriod ?dBClusterSnapshotIdentifier ?allocatedStorage
        ?customIamInstanceProfile ?backupTarget ?networkType
        ?enableCustomerOwnedIp ?deletionProtection ?dBParameterGroupName
        ?useDefaultProcessorFeatures ?processorFeatures
        ?enableCloudwatchLogsExports ?enableIAMDatabaseAuthentication
        ?domainIAMRoleName ?copyTagsToSnapshot ?domainDnsIps
        ?domainAuthSecretArn ?domainOu ?domainFqdn ?domain
        ?vpcSecurityGroupIds ?tdeCredentialPassword ?tdeCredentialArn
        ?storageType ?tags ?optionGroupName ?storageThroughput ?iops ?engine
        ?dBName ?licenseModel ?autoMinorVersionUpgrade ?publiclyAccessible
        ?multiAZ ?dBSubnetGroupName ?availabilityZone ?port ?dBInstanceClass
        ?dBSnapshotIdentifier ~dBInstanceIdentifier ()
    let to_json v = composed_to_json to_value v
  end
module RestoreDBClusterToPointInTimeResult =
  struct
    type restoreDBClusterToPointInTimeResult =
      {
      dBCluster: DBCluster.t option }
    and responseMetaData = unit
    and t =
      {
      restoreDBClusterToPointInTimeResult:
        restoreDBClusterToPointInTimeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `DBClusterAlreadyExistsFault of DBClusterAlreadyExistsFault.t 
      | `DBClusterAutomatedBackupNotFoundFault of
          DBClusterAutomatedBackupNotFoundFault.t 
      | `DBClusterNotFoundFault of DBClusterNotFoundFault.t 
      | `DBClusterParameterGroupNotFoundFault of
          DBClusterParameterGroupNotFoundFault.t 
      | `DBClusterQuotaExceededFault of DBClusterQuotaExceededFault.t 
      | `DBClusterSnapshotNotFoundFault of DBClusterSnapshotNotFoundFault.t 
      | `DBSubnetGroupNotFoundFault of DBSubnetGroupNotFoundFault.t 
      | `DomainNotFoundFault of DomainNotFoundFault.t 
      | `InsufficientDBClusterCapacityFault of
          InsufficientDBClusterCapacityFault.t 
      | `InsufficientDBInstanceCapacityFault of
          InsufficientDBInstanceCapacityFault.t 
      | `InsufficientStorageClusterCapacityFault of
          InsufficientStorageClusterCapacityFault.t 
      | `InvalidDBClusterSnapshotStateFault of
          InvalidDBClusterSnapshotStateFault.t 
      | `InvalidDBClusterStateFault of InvalidDBClusterStateFault.t 
      | `InvalidDBSnapshotStateFault of InvalidDBSnapshotStateFault.t 
      | `InvalidRestoreFault of InvalidRestoreFault.t 
      | `InvalidSubnet of InvalidSubnet.t 
      | `InvalidVPCNetworkStateFault of InvalidVPCNetworkStateFault.t 
      | `KMSKeyNotAccessibleFault of KMSKeyNotAccessibleFault.t 
      | `NetworkTypeNotSupported of NetworkTypeNotSupported.t 
      | `OptionGroupNotFoundFault of OptionGroupNotFoundFault.t 
      | `StorageQuotaExceededFault of StorageQuotaExceededFault.t 
      | `StorageTypeNotSupportedFault of StorageTypeNotSupportedFault.t 
      | `VpcEncryptionControlViolationException of
          VpcEncryptionControlViolationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "RestoreDBClusterToPointInTimeResult"
    let make ?dBCluster =
      fun () ->
        {
          restoreDBClusterToPointInTimeResult = { dBCluster };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "DBClusterAlreadyExistsFault" ->
          `DBClusterAlreadyExistsFault
            (DBClusterAlreadyExistsFault.of_json json)
      | "DBClusterAutomatedBackupNotFoundFault" ->
          `DBClusterAutomatedBackupNotFoundFault
            (DBClusterAutomatedBackupNotFoundFault.of_json json)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_json json)
      | "DBClusterParameterGroupNotFoundFault" ->
          `DBClusterParameterGroupNotFoundFault
            (DBClusterParameterGroupNotFoundFault.of_json json)
      | "DBClusterQuotaExceededFault" ->
          `DBClusterQuotaExceededFault
            (DBClusterQuotaExceededFault.of_json json)
      | "DBClusterSnapshotNotFoundFault" ->
          `DBClusterSnapshotNotFoundFault
            (DBClusterSnapshotNotFoundFault.of_json json)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault
            (DBSubnetGroupNotFoundFault.of_json json)
      | "DomainNotFoundFault" ->
          `DomainNotFoundFault (DomainNotFoundFault.of_json json)
      | "InsufficientDBClusterCapacityFault" ->
          `InsufficientDBClusterCapacityFault
            (InsufficientDBClusterCapacityFault.of_json json)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_json json)
      | "InsufficientStorageClusterCapacityFault" ->
          `InsufficientStorageClusterCapacityFault
            (InsufficientStorageClusterCapacityFault.of_json json)
      | "InvalidDBClusterSnapshotStateFault" ->
          `InvalidDBClusterSnapshotStateFault
            (InvalidDBClusterSnapshotStateFault.of_json json)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault
            (InvalidDBClusterStateFault.of_json json)
      | "InvalidDBSnapshotStateFault" ->
          `InvalidDBSnapshotStateFault
            (InvalidDBSnapshotStateFault.of_json json)
      | "InvalidRestoreFault" ->
          `InvalidRestoreFault (InvalidRestoreFault.of_json json)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_json json)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_json json)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_json json)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_json json)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_json json)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_json json)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_json json)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DBClusterAlreadyExistsFault" ->
          `DBClusterAlreadyExistsFault
            (DBClusterAlreadyExistsFault.of_xml xml)
      | "DBClusterAutomatedBackupNotFoundFault" ->
          `DBClusterAutomatedBackupNotFoundFault
            (DBClusterAutomatedBackupNotFoundFault.of_xml xml)
      | "DBClusterNotFoundFault" ->
          `DBClusterNotFoundFault (DBClusterNotFoundFault.of_xml xml)
      | "DBClusterParameterGroupNotFoundFault" ->
          `DBClusterParameterGroupNotFoundFault
            (DBClusterParameterGroupNotFoundFault.of_xml xml)
      | "DBClusterQuotaExceededFault" ->
          `DBClusterQuotaExceededFault
            (DBClusterQuotaExceededFault.of_xml xml)
      | "DBClusterSnapshotNotFoundFault" ->
          `DBClusterSnapshotNotFoundFault
            (DBClusterSnapshotNotFoundFault.of_xml xml)
      | "DBSubnetGroupNotFoundFault" ->
          `DBSubnetGroupNotFoundFault (DBSubnetGroupNotFoundFault.of_xml xml)
      | "DomainNotFoundFault" ->
          `DomainNotFoundFault (DomainNotFoundFault.of_xml xml)
      | "InsufficientDBClusterCapacityFault" ->
          `InsufficientDBClusterCapacityFault
            (InsufficientDBClusterCapacityFault.of_xml xml)
      | "InsufficientDBInstanceCapacityFault" ->
          `InsufficientDBInstanceCapacityFault
            (InsufficientDBInstanceCapacityFault.of_xml xml)
      | "InsufficientStorageClusterCapacityFault" ->
          `InsufficientStorageClusterCapacityFault
            (InsufficientStorageClusterCapacityFault.of_xml xml)
      | "InvalidDBClusterSnapshotStateFault" ->
          `InvalidDBClusterSnapshotStateFault
            (InvalidDBClusterSnapshotStateFault.of_xml xml)
      | "InvalidDBClusterStateFault" ->
          `InvalidDBClusterStateFault (InvalidDBClusterStateFault.of_xml xml)
      | "InvalidDBSnapshotStateFault" ->
          `InvalidDBSnapshotStateFault
            (InvalidDBSnapshotStateFault.of_xml xml)
      | "InvalidRestoreFault" ->
          `InvalidRestoreFault (InvalidRestoreFault.of_xml xml)
      | "InvalidSubnet" -> `InvalidSubnet (InvalidSubnet.of_xml xml)
      | "InvalidVPCNetworkStateFault" ->
          `InvalidVPCNetworkStateFault
            (InvalidVPCNetworkStateFault.of_xml xml)
      | "KMSKeyNotAccessibleFault" ->
          `KMSKeyNotAccessibleFault (KMSKeyNotAccessibleFault.of_xml xml)
      | "NetworkTypeNotSupported" ->
          `NetworkTypeNotSupported (NetworkTypeNotSupported.of_xml xml)
      | "OptionGroupNotFoundFault" ->
          `OptionGroupNotFoundFault (OptionGroupNotFoundFault.of_xml xml)
      | "StorageQuotaExceededFault" ->
          `StorageQuotaExceededFault (StorageQuotaExceededFault.of_xml xml)
      | "StorageTypeNotSupportedFault" ->
          `StorageTypeNotSupportedFault
            (StorageTypeNotSupportedFault.of_xml xml)
      | "VpcEncryptionControlViolationException" ->
          `VpcEncryptionControlViolationException
            (VpcEncryptionControlViolationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DBClusterAlreadyExistsFault e ->
          `Assoc
            [("error", (`String "DBClusterAlreadyExistsFault"));
            ("details", (DBClusterAlreadyExistsFault.to_json e))]
      | `DBClusterAutomatedBackupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterAutomatedBackupNotFoundFault"));
            ("details", (DBClusterAutomatedBackupNotFoundFault.to_json e))]
      | `DBClusterNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterNotFoundFault"));
            ("details", (DBClusterNotFoundFault.to_json e))]
      | `DBClusterParameterGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterParameterGroupNotFoundFault"));
            ("details", (DBClusterParameterGroupNotFoundFault.to_json e))]
      | `DBClusterQuotaExceededFault e ->
          `Assoc
            [("error", (`String "DBClusterQuotaExceededFault"));
            ("details", (DBClusterQuotaExceededFault.to_json e))]
      | `DBClusterSnapshotNotFoundFault e ->
          `Assoc
            [("error", (`String "DBClusterSnapshotNotFoundFault"));
            ("details", (DBClusterSnapshotNotFoundFault.to_json e))]
      | `DBSubnetGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "DBSubnetGroupNotFoundFault"));
            ("details", (DBSubnetGroupNotFoundFault.to_json e))]
      | `DomainNotFoundFault e ->
          `Assoc
            [("error", (`String "DomainNotFoundFault"));
            ("details", (DomainNotFoundFault.to_json e))]
      | `InsufficientDBClusterCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientDBClusterCapacityFault"));
            ("details", (InsufficientDBClusterCapacityFault.to_json e))]
      | `InsufficientDBInstanceCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientDBInstanceCapacityFault"));
            ("details", (InsufficientDBInstanceCapacityFault.to_json e))]
      | `InsufficientStorageClusterCapacityFault e ->
          `Assoc
            [("error", (`String "InsufficientStorageClusterCapacityFault"));
            ("details", (InsufficientStorageClusterCapacityFault.to_json e))]
      | `InvalidDBClusterSnapshotStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterSnapshotStateFault"));
            ("details", (InvalidDBClusterSnapshotStateFault.to_json e))]
      | `InvalidDBClusterStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBClusterStateFault"));
            ("details", (InvalidDBClusterStateFault.to_json e))]
      | `InvalidDBSnapshotStateFault e ->
          `Assoc
            [("error", (`String "InvalidDBSnapshotStateFault"));
            ("details", (InvalidDBSnapshotStateFault.to_json e))]
      | `InvalidRestoreFault e ->
          `Assoc
            [("error", (`String "InvalidRestoreFault"));
            ("details", (InvalidRestoreFault.to_json e))]
      | `InvalidSubnet e ->
          `Assoc
            [("error", (`String "InvalidSubnet"));
            ("details", (InvalidSubnet.to_json e))]
      | `InvalidVPCNetworkStateFault e ->
          `Assoc
            [("error", (`String "InvalidVPCNetworkStateFault"));
            ("details", (InvalidVPCNetworkStateFault.to_json e))]
      | `KMSKeyNotAccessibleFault e ->
          `Assoc
            [("error", (`String "KMSKeyNotAccessibleFault"));
            ("details", (KMSKeyNotAccessibleFault.to_json e))]
      | `NetworkTypeNotSupported e ->
          `Assoc
            [("error", (`String "NetworkTypeNotSupported"));
            ("details", (NetworkTypeNotSupported.to_json e))]
      | `OptionGroupNotFoundFault e ->
          `Assoc
            [("error", (`String "OptionGroupNotFoundFault"));
            ("details", (OptionGroupNotFoundFault.to_json e))]
      | `StorageQuotaExceededFault e ->
          `Assoc
            [("error", (`String "StorageQuotaExceededFault"));
            ("details", (StorageQuotaExceededFault.to_json e))]
      | `StorageTypeNotSupportedFault e ->
          `Assoc
            [("error", (`String "StorageTypeNotSupportedFault"));
            ("details", (StorageTypeNotSupportedFault.to_json e))]
      | `VpcEncryptionControlViolationException e ->
          `Assoc
            [("error", (`String "VpcEncryptionControlViolationException"));
            ("details", (VpcEncryptionControlViolationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.restoreDBClusterToPointInTimeResult in
      structure_to_wrapped_value
        [("DBCluster", (Option.map x.dBCluster ~f:DBCluster.to_value))]
        ~wrapper:"RestoreDBClusterToPointInTimeResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "RestoreDBClusterToPointInTimeResult" in
      let dBCluster =
        (Option.map ~f:DBCluster.of_xml) (Xml.child xml_arg0 "DBCluster") in
      make ?dBCluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dBCluster = field_map json__ "DBCluster" DBCluster.of_json in
      make ?dBCluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Restores a DB cluster to an arbitrary point in time. Users can restore to any point in time before LatestRestorableTime for up to BackupRetentionPeriod days. The target DB cluster is created from the source DB cluster with the same configuration as the original DB cluster, except that the new DB cluster is created with the default DB security group. Unless the RestoreType is set to copy-on-write, the restore may occur in a different Availability Zone (AZ) from the original DB cluster. The AZ where RDS restores the DB cluster depends on the AZs in the specified subnet group. You can use the EnableVPCNetworking and EnableInternetAccessGateway parameters together to restore an Aurora PostgreSQL cluster without VPC networking and with internet-based connectivity. These two parameters must always be specified together. Set EnableVPCNetworking to false to disable the VPC network interface (ENI) for the cluster. EnableInternetAccessGateway enables internet-based connectivity through an internet access gateway. IAM database authentication is required and must be enabled using EnableIAMDatabaseAuthentication. Once the cluster is restored, you need to modify the DB cluster to update MasterUserAuthenticationType to iam-db-auth. For Aurora, this operation only restores the DB cluster, not the DB instances for that DB cluster. You must invoke the CreateDBInstance operation to create DB instances for the restored DB cluster, specifying the identifier of the restored DB cluster in DBClusterIdentifier. You can create DB instances only after the RestoreDBClusterToPointInTime operation has completed and the DB cluster is available. For more information on Amazon Aurora DB clusters, see What is Amazon Aurora? in the Amazon Aurora User Guide. For more information on Multi-AZ DB clusters, see Multi-AZ DB cluster deployments in the Amazon RDS User Guide."]
module RestoreDBClusterToPointInTimeMessage =
  struct
    type nonrec t =
      {
      dBClusterIdentifier: String_.t
        [@ocaml.doc
          "The name of the new DB cluster to be created. Constraints: Must contain from 1 to 63 letters, numbers, or hyphens First character must be a letter Can't end with a hyphen or contain two consecutive hyphens Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      restoreType: String_.t option
        [@ocaml.doc
          "The type of restore to be performed. You can specify one of the following values: full-copy - The new DB cluster is restored as a full copy of the source DB cluster. copy-on-write - The new DB cluster is restored as a clone of the source DB cluster. If you don't specify a RestoreType value, then the new DB cluster is restored as a full copy of the source DB cluster. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      sourceDBClusterIdentifier: String_.t option
        [@ocaml.doc
          "The identifier of the source DB cluster from which to restore. Constraints: Must match the identifier of an existing DBCluster. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      restoreToTime: TStamp.t option
        [@ocaml.doc
          "The date and time to restore the DB cluster to. Valid Values: Value must be a time in Universal Coordinated Time (UTC) format Constraints: Must be before the latest restorable time for the DB instance Must be specified if UseLatestRestorableTime parameter isn't provided Can't be specified if the UseLatestRestorableTime parameter is enabled Can't be specified if the RestoreType parameter is copy-on-write Example: 2015-03-07T23:45:00Z Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      useLatestRestorableTime: Boolean.t option
        [@ocaml.doc
          "Specifies whether to restore the DB cluster to the latest restorable backup time. By default, the DB cluster isn't restored to the latest restorable backup time. Constraints: Can't be specified if RestoreToTime parameter is provided. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      port: IntegerOptional.t option
        [@ocaml.doc
          "The port number on which the new DB cluster accepts connections. Constraints: A value from 1150-65535. Default: The default port for the engine. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      dBSubnetGroupName: String_.t option
        [@ocaml.doc
          "The DB subnet group name to use for the new DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: mydbsubnetgroup Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      optionGroupName: String_.t option
        [@ocaml.doc
          "The name of the option group for the new DB cluster. DB clusters are associated with a default option group that can't be modified."];
      vpcSecurityGroupIds: VpcSecurityGroupIdList.t option
        [@ocaml.doc
          "A list of VPC security groups that the new DB cluster belongs to. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      tags: TagList.t option ;
      kmsKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier to use when restoring an encrypted DB cluster from an encrypted DB cluster. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. To use a KMS key in a different Amazon Web Services account, specify the key ARN or alias ARN. You can restore to a new DB cluster and encrypt the new DB cluster with a KMS key that is different from the KMS key used to encrypt the source DB cluster. The new DB cluster is encrypted with the KMS key identified by the KmsKeyId parameter. If you don't specify a value for the KmsKeyId parameter, then the following occurs: If the DB cluster is encrypted, then the restored DB cluster is encrypted using the KMS key that was used to encrypt the source DB cluster. If the DB cluster isn't encrypted, then the restored DB cluster isn't encrypted. If DBClusterIdentifier refers to a DB cluster that isn't encrypted, then the restore request is rejected. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      enableIAMDatabaseAuthentication: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable mapping of Amazon Web Services Identity and Access Management (IAM) accounts to database accounts. By default, mapping isn't enabled. For more information, see IAM Database Authentication in the Amazon Aurora User Guide or IAM database authentication for MariaDB, MySQL, and PostgreSQL in the Amazon RDS User Guide. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      backtrackWindow: LongOptional.t option
        [@ocaml.doc
          "The target backtrack window, in seconds. To disable backtracking, set this value to 0. Default: 0 Constraints: If specified, this value must be set to a number from 0 to 259,200 (72 hours). Valid for: Aurora MySQL DB clusters only"];
      enableCloudwatchLogsExports: LogTypeList.t option
        [@ocaml.doc
          "The list of logs that the restored DB cluster is to export to CloudWatch Logs. The values in the list depend on the DB engine being used. RDS for MySQL Possible values are error, general, slowquery, and iam-db-auth-error. RDS for PostgreSQL Possible values are postgresql, upgrade, and iam-db-auth-error. Aurora MySQL Possible values are audit, error, general, instance, slowquery, and iam-db-auth-error. Aurora PostgreSQL Possible value are instance, postgresql, and iam-db-auth-error. For more information about exporting CloudWatch Logs for Amazon RDS, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon RDS User Guide. For more information about exporting CloudWatch Logs for Amazon Aurora, see Publishing Database Logs to Amazon CloudWatch Logs in the Amazon Aurora User Guide. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      dBClusterParameterGroupName: String_.t option
        [@ocaml.doc
          "The name of the custom DB cluster parameter group to associate with this DB cluster. If the DBClusterParameterGroupName parameter is omitted, the default DB cluster parameter group for the specified engine is used. Constraints: If supplied, must match the name of an existing DB cluster parameter group. Must be 1 to 255 letters, numbers, or hyphens. First character must be a letter. Can't end with a hyphen or contain two consecutive hyphens. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      deletionProtection: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable deletion protection for the DB cluster. The database can't be deleted when deletion protection is enabled. By default, deletion protection isn't enabled. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      copyTagsToSnapshot: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to copy all tags from the restored DB cluster to snapshots of the restored DB cluster. The default is not to copy them. Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      domain: String_.t option
        [@ocaml.doc
          "The Active Directory directory ID to restore the DB cluster in. The domain must be created prior to this operation. For Amazon Aurora DB clusters, Amazon RDS can use Kerberos Authentication to authenticate users that connect to the DB cluster. For more information, see Kerberos Authentication in the Amazon Aurora User Guide. Valid for: Aurora DB clusters only"];
      domainIAMRoleName: String_.t option
        [@ocaml.doc
          "The name of the IAM role to be used when making API calls to the Directory Service. Valid for: Aurora DB clusters only"];
      dBClusterInstanceClass: String_.t option
        [@ocaml.doc
          "The compute and memory capacity of the each DB instance in the Multi-AZ DB cluster, for example db.m6gd.xlarge. Not all DB instance classes are available in all Amazon Web Services Regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see DB instance class in the Amazon RDS User Guide. Valid for: Multi-AZ DB clusters only"];
      storageType: String_.t option
        [@ocaml.doc
          "Specifies the storage type to be associated with the DB cluster. When specified for a Multi-AZ DB cluster, a value for the Iops parameter is required. Valid Values: aurora, aurora-iopt1 (Aurora DB clusters); io1 (Multi-AZ DB clusters) Default: aurora (Aurora DB clusters); io1 (Multi-AZ DB clusters) Valid for: Aurora DB clusters and Multi-AZ DB clusters"];
      publiclyAccessible: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether the DB cluster is publicly accessible. When the DB cluster is publicly accessible, its Domain Name System (DNS) endpoint resolves to the private IP address from within the DB cluster's virtual private cloud (VPC). It resolves to the public IP address from outside of the DB cluster's VPC. Access to the DB cluster is ultimately controlled by the security group it uses. That public access is not permitted if the security group assigned to the DB cluster doesn't permit it. When the DB cluster isn't publicly accessible, it is an internal DB cluster with a DNS name that resolves to a private IP address. Default: The default behavior varies depending on whether DBSubnetGroupName is specified. If DBSubnetGroupName isn't specified, and PubliclyAccessible isn't specified, the following applies: If the default VPC in the target Region doesn\226\128\153t have an internet gateway attached to it, the DB cluster is private. If the default VPC in the target Region has an internet gateway attached to it, the DB cluster is public. If DBSubnetGroupName is specified, and PubliclyAccessible isn't specified, the following applies: If the subnets are part of a VPC that doesn\226\128\153t have an internet gateway attached to it, the DB cluster is private. If the subnets are part of a VPC that has an internet gateway attached to it, the DB cluster is public. Valid for: Multi-AZ DB clusters only"];
      iops: IntegerOptional.t option
        [@ocaml.doc
          "The amount of Provisioned IOPS (input/output operations per second) to be initially allocated for each DB instance in the Multi-AZ DB cluster. For information about valid IOPS values, see Amazon RDS Provisioned IOPS storage in the Amazon RDS User Guide. Constraints: Must be a multiple between .5 and 50 of the storage amount for the DB instance. Valid for: Multi-AZ DB clusters only"];
      networkType: String_.t option
        [@ocaml.doc
          "The network type of the DB cluster. Valid Values: IPV4 DUAL The network type is determined by the DBSubnetGroup specified for the DB cluster. A DBSubnetGroup can support only the IPv4 protocol or the IPv4 and the IPv6 protocols (DUAL). For more information, see Working with a DB instance in a VPC in the Amazon Aurora User Guide. Valid for: Aurora DB clusters only"];
      sourceDbClusterResourceId: String_.t option
        [@ocaml.doc
          "The resource ID of the source DB cluster from which to restore."];
      serverlessV2ScalingConfiguration:
        ServerlessV2ScalingConfiguration.t option ;
      scalingConfiguration: ScalingConfiguration.t option
        [@ocaml.doc
          "For DB clusters in serverless DB engine mode, the scaling properties of the DB cluster. Valid for: Aurora DB clusters only"];
      engineMode: String_.t option
        [@ocaml.doc
          "The engine mode of the new cluster. Specify provisioned or serverless, depending on the type of the cluster you are creating. You can create an Aurora Serverless v1 clone from a provisioned cluster, or a provisioned clone from an Aurora Serverless v1 cluster. To create a clone that is an Aurora Serverless v1 cluster, the original cluster must be an Aurora Serverless v1 cluster or an encrypted provisioned cluster. To create a full copy that is an Aurora Serverless v1 cluster, specify the engine mode serverless. Valid for: Aurora DB clusters only"];
      rdsCustomClusterConfiguration: RdsCustomClusterConfiguration.t option
        [@ocaml.doc "Reserved for future use."];
      monitoringInterval: IntegerOptional.t option
        [@ocaml.doc
          "The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB cluster. To turn off collecting Enhanced Monitoring metrics, specify 0. If MonitoringRoleArn is specified, also set MonitoringInterval to a value other than 0. Valid Values: 0 | 1 | 5 | 10 | 15 | 30 | 60 Default: 0"];
      monitoringRoleArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the IAM role that permits RDS to send Enhanced Monitoring metrics to Amazon CloudWatch Logs. An example is arn:aws:iam:123456789012:role/emaccess. If MonitoringInterval is set to a value other than 0, supply a MonitoringRoleArn value."];
      enablePerformanceInsights: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to turn on Performance Insights for the DB cluster."];
      performanceInsightsKMSKeyId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services KMS key identifier for encryption of Performance Insights data. The Amazon Web Services KMS key identifier is the key ARN, key ID, alias ARN, or alias name for the KMS key. If you don't specify a value for PerformanceInsightsKMSKeyId, then Amazon RDS uses your default KMS key. There is a default KMS key for your Amazon Web Services account. Your Amazon Web Services account has a different default KMS key for each Amazon Web Services Region."];
      performanceInsightsRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days to retain Performance Insights data. Valid Values: 7 month * 31, where month is a number of months from 1-23. Examples: 93 (3 months * 31), 341 (11 months * 31), 589 (19 months * 31) 731 Default: 7 days If you specify a retention period that isn't valid, such as 94, Amazon RDS issues an error."];
      backupRetentionPeriod: IntegerOptional.t option
        [@ocaml.doc
          "The number of days for which automated backups are retained. Specify a minimum value of 1. Valid for Cluster Type: Aurora DB clusters and Multi-AZ DB clusters Default: Uses existing setting Constraints: Must be a value from 1 to 35."];
      preferredBackupWindow: String_.t option
        [@ocaml.doc
          "The daily time range during which automated backups are created if automated backups are enabled, using the BackupRetentionPeriod parameter. The default is a 30-minute window selected at random from an 8-hour block of time for each Amazon Web Services Region. To view the time blocks available, see Backup window in the Amazon Aurora User Guide. Valid for Cluster Type: Aurora DB clusters and Multi-AZ DB clusters Constraints: Must be in the format hh24:mi-hh24:mi. Must be in Universal Coordinated Time (UTC). Must not conflict with the preferred maintenance window. Must be at least 30 minutes."];
      engineLifecycleSupport: String_.t option
        [@ocaml.doc
          "The life cycle type for this DB cluster. By default, this value is set to open-source-rds-extended-support, which enrolls your DB cluster into Amazon RDS Extended Support. At the end of standard support, you can avoid charges for Extended Support by setting the value to open-source-rds-extended-support-disabled. In this case, RDS automatically upgrades your restored DB cluster to a higher engine version, if the major engine version is past its end of standard support date. You can use this setting to enroll your DB cluster into Amazon RDS Extended Support. With RDS Extended Support, you can run the selected major engine version on your DB cluster past the end of standard support for that engine version. For more information, see the following sections: Amazon Aurora - Amazon RDS Extended Support with Amazon Aurora in the Amazon Aurora User Guide Amazon RDS - Amazon RDS Extended Support with Amazon RDS in the Amazon RDS User Guide Valid for Cluster Type: Aurora DB clusters and Multi-AZ DB clusters Valid Values: open-source-rds-extended-support | open-source-rds-extended-support-disabled Default: open-source-rds-extended-support"];
      tagSpecifications: TagSpecificationList.t option
        [@ocaml.doc
          "Tags to assign to resources associated with the DB cluster. Valid Values: cluster-auto-backup - The DB cluster's automated backup."];
      enableVPCNetworking: BooleanOptional.t option
        [@ocaml.doc
          "Specifies whether to enable VPC networking for the restored DB cluster. Set this parameter to false to create a cluster without the VPC network interface (ENI). This parameter must be used together with EnableInternetAccessGateway. When both parameters are specified, IAM database authentication is required. You must also specify EnableIAMDatabaseAuthentication. Valid for Cluster Type: Aurora PostgreSQL clusters"];
      enableInternetAccessGateway: BooleanOptional.t option
        [@ocaml.doc
          "Specifies that the restored DB cluster should use internet-based connectivity through an internet access gateway. This allows clients to connect to the cluster over the internet without requiring a VPC. This parameter must be used together with EnableVPCNetworking set to false. When both parameters are specified, IAM database authentication is required. You must also specify EnableIAMDatabaseAuthentication. Valid for Cluster Type: Aurora PostgreSQL clusters"]}
    let context_ = "RestoreDBClusterToPointInTimeMessage"
    let make ?restoreType =
      fun ?sourceDBClusterIdentifier ->
        fun ?restoreToTime ->
          fun ?useLatestRestorableTime ->
            fun ?port ->
              fun ?dBSubnetGroupName ->
                fun ?optionGroupName ->
                  fun ?vpcSecurityGroupIds ->
                    fun ?tags ->
                      fun ?kmsKeyId ->
                        fun ?enableIAMDatabaseAuthentication ->
                          fun ?backtrackWindow ->
                            fun ?enableCloudwatchLogsExports ->
                              fun ?dBClusterParameterGroupName ->
                                fun ?deletionProtection ->
                                  fun ?copyTagsToSnapshot ->
                                    fun ?domain ->
                                      fun ?domainIAMRoleName ->
                                        fun ?dBClusterInstanceClass ->
                                          fun ?storageType ->
                                            fun ?publiclyAccessible ->
                                              fun ?iops ->
                                                fun ?networkType ->
                                                  fun
                                                    ?sourceDbClusterResourceId
                                                    ->
                                                    fun
                                                      ?serverlessV2ScalingConfiguration
                                                      ->
                                                      fun
                                                        ?scalingConfiguration
                                                        ->
                                                        fun ?engineMode ->
                                                          fun
                                                            ?rdsCustomClusterConfiguration
                                                            ->
                                                            fun
                                                              ?monitoringInterval
                                                              ->
                                                              fun
                                                                ?monitoringRoleArn
                                                                ->
                                                                fun
                                                                  ?enablePerformanceInsights
                                                                  ->
                                                                  fun
                                                                    ?performanceInsightsKMSKeyId
                                                                    ->
                                                                    fun
                                                                    ?performanceInsightsRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?backupRetentionPeriod
                                                                    ->
                                                                    fun
                                                                    ?preferredBackupWindow
                                                                    ->
                                                                    fun
                                                                    ?engineLifecycleSupport
                                                                    ->
                                                                    fun
                                                                    ?tagSpecifications
                                                                    ->
                                                                    fun
                                                                    ?enableVPCNetworking
                                                                    ->
                                                                    fun
                                                                    ?enableInternetAccessGateway
                                                                    ->
                                                                    fun
                                                                    ~dBClusterIdentifier
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    restoreType;
                                                                    sourceDBClusterIdentifier;
                                                                    restoreToTime;
                                                                    useLatestRestorableTime;
                                                                    port;
                                                                    dBSubnetGroupName;
                                                                    optionGroupName;
                                                                    vpcSecurityGroupIds;
                                                                    tags;
                                                                    kmsKeyId;
                                                                    enableIAMDatabaseAuthentication;
                                                                    backtrackWindow;
                                                                    enableCloudwatchLogsExports;
                                                                    dBClusterParameterGroupName;
                                                                    deletionProtection;
                                                                    copyTagsToSnapshot;
                                                                    domain;
                                                                    domainIAMRoleName;
                                                                    dBClusterInstanceClass;
                                                                    storageType;
                                                                    publiclyAccessible;
                                                                    iops;
                                                                    networkType;
                                                                    sourceDbClusterResourceId;
                                                                    serverlessV2ScalingConfiguration;
                                                                    scalingConfiguration;
                                                                    engineMode;
                                                                    rdsCustomClusterConfiguration;
                                                                    monitoringInterval;
                                                                    monitoringRoleArn;
                                                                    enablePerformanceInsights;
                                                                    performanceInsightsKMSKeyId;
                                                                    performanceInsightsRetentionPeriod;
                                                                    backupRetentionPeriod;
                                                                    preferredBackupWindow;
                                                                    engineLifecycleSupport;
                                                                    tagSpecifications;
                                                                    enableVPCNetworking;
                                                                    enableInternetAccessGateway;
                                                                    dBClusterIdentifier
                                                                    }
    let to_value x =
      structure_to_value
        [("DBClusterIdentifier",
           (Some (String_.to_value x.dBClusterIdentifier)));
        ("RestoreType", (Option.map x.restoreType ~f:String_.to_value));
        ("SourceDBClusterIdentifier",
          (Option.map x.sourceDBClusterIdentifier ~f:String_.to_value));
        ("RestoreToTime", (Option.map x.restoreToTime ~f:TStamp.to_value));
        ("UseLatestRestorableTime",
          (Option.map x.useLatestRestorableTime ~f:Boolean.to_value));
        ("Port", (Option.map x.port ~f:IntegerOptional.to_value));
        ("DBSubnetGroupName",
          (Option.map x.dBSubnetGroupName ~f:String_.to_value));
        ("OptionGroupName",
          (Option.map x.optionGroupName ~f:String_.to_value));
        ("VpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds
             ~f:VpcSecurityGroupIdList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("EnableIAMDatabaseAuthentication",
          (Option.map x.enableIAMDatabaseAuthentication
             ~f:BooleanOptional.to_value));
        ("BacktrackWindow",
          (Option.map x.backtrackWindow ~f:LongOptional.to_value));
        ("EnableCloudwatchLogsExports",
          (Option.map x.enableCloudwatchLogsExports ~f:LogTypeList.to_value));
        ("DBClusterParameterGroupName",
          (Option.map x.dBClusterParameterGroupName ~f:String_.to_value));
        ("DeletionProtection",
          (Option.map x.deletionProtection ~f:BooleanOptional.to_value));
        ("CopyTagsToSnapshot",
          (Option.map x.copyTagsToSnapshot ~f:BooleanOptional.to_value));
        ("Domain", (Option.map x.domain ~f:String_.to_value));
        ("DomainIAMRoleName",
          (Option.map x.domainIAMRoleName ~f:String_.to_value));
        ("DBClusterInstanceClass",
          (Option.map x.dBClusterInstanceClass ~f:String_.to_value));
        ("StorageType", (Option.map x.storageType ~f:String_.to_value));
        ("PubliclyAccessible",
          (Option.map x.publiclyAccessible ~f:BooleanOptional.to_value));
        ("Iops", (Option.map x.iops ~f:IntegerOptional.to_value));
        ("NetworkType", (Option.map x.networkType ~f:String_.to_value));
        ("SourceDbClusterResourceId",
          (Option.map x.sourceDbClusterResourceId ~f:String_.to_value));
        ("ServerlessV2ScalingConfiguration",
          (Option.map x.serverlessV2ScalingConfiguration
             ~f:ServerlessV2ScalingConfiguration.to_value));
        ("ScalingConfiguration",
          (Option.map x.scalingConfiguration ~f:ScalingConfiguration.to_value));
        ("EngineMode", (Option.map x.engineMode ~f:String_.to_value));
        ("RdsCustomClusterConfiguration",
          (Option.map x.rdsCustomClusterConfiguration
             ~f:RdsCustomClusterConfiguration.to_value));
        ("MonitoringInterval",
          (Option.map x.monitoringInterval ~f:IntegerOptional.to_value));
        ("MonitoringRoleArn",
          (Option.map x.monitoringRoleArn ~f:String_.to_value));
        ("EnablePerformanceInsights",
          (Option.map x.enablePerformanceInsights ~f:BooleanOptional.to_value));
        ("PerformanceInsightsKMSKeyId",
          (Option.map x.performanceInsightsKMSKeyId ~f:String_.to_value));
        ("PerformanceInsightsRetentionPeriod",
          (Option.map x.performanceInsightsRetentionPeriod
             ~f:IntegerOptional.to_value));
        ("BackupRetentionPeriod",
          (Option.map x.backupRetentionPeriod ~f:IntegerOptional.to_value));
        ("PreferredBackupWindow",
          (Option.map x.preferredBackupWindow ~f:String_.to_value));
        ("EngineLifecycleSupport",
          (Option.map x.engineLifecycleSupport ~f:String_.to_value));
        ("TagSpecifications",
          (Option.map x.tagSpecifications ~f:TagSpecificationList.to_value));
        ("EnableVPCNetworking",
          (Option.map x.enableVPCNetworking ~f:BooleanOptional.to_value));
        ("EnableInternetAccessGateway",
          (Option.map x.enableInternetAccessGateway
             ~f:BooleanOptional.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableInternetAccessGateway =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableInternetAccessGateway") in
      let enableVPCNetworking =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableVPCNetworking") in
      let tagSpecifications =
        (Option.map ~f:TagSpecificationList.of_xml)
          (Xml.child xml_arg0 "TagSpecifications") in
      let engineLifecycleSupport =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EngineLifecycleSupport") in
      let preferredBackupWindow =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PreferredBackupWindow") in
      let backupRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "BackupRetentionPeriod") in
      let performanceInsightsRetentionPeriod =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsRetentionPeriod") in
      let performanceInsightsKMSKeyId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PerformanceInsightsKMSKeyId") in
      let enablePerformanceInsights =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnablePerformanceInsights") in
      let monitoringRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonitoringRoleArn") in
      let monitoringInterval =
        (Option.map ~f:IntegerOptional.of_xml)
          (Xml.child xml_arg0 "MonitoringInterval") in
      let rdsCustomClusterConfiguration =
        (Option.map ~f:RdsCustomClusterConfiguration.of_xml)
          (Xml.child xml_arg0 "RdsCustomClusterConfiguration") in
      let engineMode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EngineMode") in
      let scalingConfiguration =
        (Option.map ~f:ScalingConfiguration.of_xml)
          (Xml.child xml_arg0 "ScalingConfiguration") in
      let serverlessV2ScalingConfiguration =
        (Option.map ~f:ServerlessV2ScalingConfiguration.of_xml)
          (Xml.child xml_arg0 "ServerlessV2ScalingConfiguration") in
      let sourceDbClusterResourceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDbClusterResourceId") in
      let networkType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let iops =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Iops") in
      let publiclyAccessible =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "PubliclyAccessible") in
      let storageType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StorageType") in
      let dBClusterInstanceClass =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterInstanceClass") in
      let domainIAMRoleName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DomainIAMRoleName") in
      let domain =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Domain") in
      let copyTagsToSnapshot =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "CopyTagsToSnapshot") in
      let deletionProtection =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "DeletionProtection") in
      let dBClusterParameterGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBClusterParameterGroupName") in
      let enableCloudwatchLogsExports =
        (Option.map ~f:LogTypeList.of_xml)
          (Xml.child xml_arg0 "EnableCloudwatchLogsExports") in
      let backtrackWindow =
        (Option.map ~f:LongOptional.of_xml)
          (Xml.child xml_arg0 "BacktrackWindow") in
      let enableIAMDatabaseAuthentication =
        (Option.map ~f:BooleanOptional.of_xml)
          (Xml.child xml_arg0 "EnableIAMDatabaseAuthentication") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let vpcSecurityGroupIds =
        (Option.map ~f:VpcSecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "VpcSecurityGroupIds") in
      let optionGroupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptionGroupName") in
      let dBSubnetGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DBSubnetGroupName") in
      let port =
        (Option.map ~f:IntegerOptional.of_xml) (Xml.child xml_arg0 "Port") in
      let useLatestRestorableTime =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "UseLatestRestorableTime") in
      let restoreToTime =
        (Option.map ~f:TStamp.of_xml) (Xml.child xml_arg0 "RestoreToTime") in
      let sourceDBClusterIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SourceDBClusterIdentifier") in
      let restoreType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RestoreType") in
      let dBClusterIdentifier =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DBClusterIdentifier") in
      make ?enableInternetAccessGateway ?enableVPCNetworking
        ?tagSpecifications ?engineLifecycleSupport ?preferredBackupWindow
        ?backupRetentionPeriod ?performanceInsightsRetentionPeriod
        ?performanceInsightsKMSKeyId ?enablePerformanceInsights
        ?monitoringRoleArn ?monitoringInterval ?rdsCustomClusterConfiguration
        ?engineMode ?scalingConfiguration ?serverlessV2ScalingConfiguration
        ?sourceDbClusterResourceId ?networkType ?iops ?publiclyAccessible
        ?storageType ?dBClusterInstanceClass ?domainIAMRoleName ?domain
        ?copyTagsToSnapshot ?deletionProtection ?dBClusterParameterGroupName
        ?enableCloudwatchLogsExports ?backtrackWindow
        ?enableIAMDatabaseAuthentication ?kmsKeyId ?tags ?vpcSecurityGroupIds
        ?optionGroupName ?dBSubnetGroupName ?port ?useLatestRestorableTime
        ?restoreToTime ?sourceDBClusterIdentifier ?restoreType
        ~dBClusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableInternetAccessGateway =
        field_map json__ "EnableInternetAccessGateway"
          BooleanOptional.of_json in
      let enableVPCNetworking =
        field_map json__ "EnableVPCNetworking" BooleanOptional.of_json in
      let tagSpecifications =
        field_map json__ "TagSpecifications" TagSpecificationList.of_json in
      let engineLifecycleSupport =
        field_map json__ "EngineLifecycleSupport" String_.of_json in
      let preferredBackupWindow =
        field_map json__ "PreferredBackupWindow" String_.of_json in
      let backupRetentionPeriod =
        field_map json__ "BackupRetentionPeriod" IntegerOptional.of_json in
      let performanceInsightsRetentionPeriod =
        field_map json__ "PerformanceInsightsRetentionPeriod"
          IntegerOptional.of_json in
      let performanceInsightsKMSKeyId =
        field_map json__ "PerformanceInsightsKMSKeyId" String_.of_json in
      let enablePerformanceInsights =
        field_map json__ "EnablePerformanceInsights" BooleanOptional.of_json in
      let monitoringRoleArn =
        field_map json__ "MonitoringRoleArn" String_.of_json in
      let monitoringInterval =
        field_map json__ "MonitoringInterval" IntegerOptional.of_json in
      let rdsCustomClusterConfiguration =
        field_map json__ "RdsCustomClusterConfiguration"
          RdsCustomClusterConfiguration.of_json in
      let engineMode = field_map json__ "EngineMode" String_.of_json in
      let scalingConfiguration =
        field_map json__ "ScalingConfiguration" ScalingConfiguration.of_json in
      let serverlessV2ScalingConfiguration =
        field_map json__ "ServerlessV2ScalingConfiguration"
          ServerlessV2ScalingConfiguration.of_json in
      let sourceDbClusterResourceId =
        field_map json__ "SourceDbClusterResourceId" String_.of_json in
      let networkType = field_map json__ "NetworkType" String_.of_json in
      let iops = field_map json__ "Iops" IntegerOptional.of_json in
      let publiclyAccessible =
        field_map json__ "PubliclyAccessible" BooleanOptional.of_json in
      let storageType = field_map json__ "StorageType" String_.of_json in
      let dBClusterInstanceClass =
        field_map json__ "DBClusterInstanceClass" String_.of_json in
      let domainIAMRoleName =
        field_map json__ "DomainIAMRoleName" String_.of_json in
      let domain = field_map json__ "Domain" String_.of_json in
      let copyTagsToSnapshot =
        field_map json__ "CopyTagsToSnapshot" BooleanOptional.of_json in
      let deletionProtection =
        field_map json__ "DeletionProtection" BooleanOptional.of_json in
      let dBClusterParameterGroupName =
        field_map json__ "DBClusterParameterGroupName" String_.of_json in
      let enableCloudwatchLogsExports =
        field_map json__ "EnableCloudwatchLogsExports" LogTypeList.of_json in
      let backtrackWindow =
        field_map json__ "BacktrackWindow" LongOptional.of_json in
      let enableIAMDatabaseAuthentication =
        field_map json__ "EnableIAMDatabaseAuthentication"
          BooleanOptional.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let vpcSecurityGroupIds =
        field_map json__ "VpcSecurityGroupIds" VpcSecurityGroupIdList.of_json in
      let optionGroupName =
        field_map json__ "OptionGroupName" String_.of_json in
      let dBSubnetGroupName =
        field_map json__ "DBSubnetGroupName" String_.of_json in
      let port = field_map json__ "Port" IntegerOptional.of_json in
      let useLatestRestorableTime =
        field_map json__ "UseLatestRestorableTime" Boolean.of_json in
      let restoreToTime = field_map json__ "RestoreToTime" TStamp.of_json in
      let sourceDBClusterIdentifier =
        field_map json__ "SourceDBClusterIdentifier" String_.of_json in
      let restoreType = field_map json__ "RestoreType" String_.of_json in
      let dBClusterIdentifier =
        field_map_exn json__ "DBClusterIdentifier" String_.of_json in
      make ?enableInternetAccessGateway ?enableVPCNetworking
        ?tagSpecifications ?engineLifecycleSupport ?preferredBackupWindow
        ?backupRetentionPeriod ?performanceInsightsRetentionPeriod
        ?performanceInsightsKMSKeyId ?enablePerformanceInsights
        ?monitoringRoleArn ?monitoringInterval ?rdsCustomClusterConfiguration
        ?engineMode ?scalingConfiguration ?serverlessV2ScalingConfiguration
        ?sourceDbClusterResourceId ?networkType ?iops ?publiclyAccessible
        ?storageType ?dBClusterInstanceClass ?domainIAMRoleName ?domain
        ?copyTagsToSnapshot ?deletionProtection ?dBClusterParameterGroupName
        ?enableCloudwatchLogsExports ?backtrackWindow
        ?enableIAMDatabaseAuthentication ?kmsKeyId ?tags ?vpcSecurityGroupIds
        ?optionGroupName ?dBSubnetGroupName ?port ?useLatestRestorableTime
        ?restoreToTime ?sourceDBClusterIdentifier ?restoreType
        ~dBClusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end