Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.compute_optimizer_automation
let apiVersion = "2025-09-22"
let endpointPrefix = "aco-automation"
let serviceFullName = "Compute Optimizer Automation"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "ComputeOptimizerAutomationService"
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 Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module 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 StringCriteriaValue =
  struct
    type nonrec t = string
    let context_ = "StringCriteriaValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\w\\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:"StringCriteriaValue" j
    let to_json = simple_to_json to_value
  end
module EbsVolumeConfiguration =
  struct
    type nonrec t =
      {
      type_: String_.t option
        [@ocaml.doc
          "The EBS volume type, such as gp2, gp3, io1, io2, st1, or sc1."];
      sizeInGib: Integer.t option
        [@ocaml.doc "The size of the EBS volume in gibibytes (GiB)."];
      iops: Integer.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS) provisioned for the volume."];
      throughput: Integer.t option
        [@ocaml.doc
          "The throughput in MiB/s provisioned for the volume (applicable to gp3, io1, and io2bx volumes)."]}
    let make ?type_ =
      fun ?sizeInGib ->
        fun ?iops ->
          fun ?throughput -> fun () -> { type_; sizeInGib; iops; throughput }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("sizeInGib", (Option.map x.sizeInGib ~f:Integer.to_value));
        ("iops", (Option.map x.iops ~f:Integer.to_value));
        ("throughput", (Option.map x.throughput ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let throughput =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "throughput") in
      let iops = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "iops") in
      let sizeInGib =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sizeInGib") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?throughput ?iops ?sizeInGib ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let throughput = field_map json__ "throughput" Integer.of_json in
      let iops = field_map json__ "iops" Integer.of_json in
      let sizeInGib = field_map json__ "sizeInGib" Integer.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      make ?throughput ?iops ?sizeInGib ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration details for an Amazon EBS volume."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\w\\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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\w\\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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module SavingsEstimationMode =
  struct
    type nonrec t =
      | BeforeDiscount 
      | AfterDiscount 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BeforeDiscount -> "BeforeDiscount"
      | AfterDiscount -> "AfterDiscount"
      | Non_static_id s -> s
    let of_string =
      function
      | "BeforeDiscount" -> BeforeDiscount
      | "AfterDiscount" -> AfterDiscount
      | 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 SavingsEstimationMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SavingsEstimationMode" j)
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module SummaryDimensionKey =
  struct
    type nonrec t =
      | EventStatus 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | EventStatus -> "EventStatus" | Non_static_id s -> s
    let of_string =
      function | "EventStatus" -> EventStatus | 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 SummaryDimensionKey" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SummaryDimensionKey" j)
    let to_json = simple_to_json to_value
  end
module ComparisonOperator =
  struct
    type nonrec t =
      | StringEquals 
      | StringNotEquals 
      | StringEqualsIgnoreCase 
      | StringNotEqualsIgnoreCase 
      | StringLike 
      | StringNotLike 
      | NumericEquals 
      | NumericNotEquals 
      | NumericLessThan 
      | NumericLessThanEquals 
      | NumericGreaterThan 
      | NumericGreaterThanEquals 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | StringEquals -> "StringEquals"
      | StringNotEquals -> "StringNotEquals"
      | StringEqualsIgnoreCase -> "StringEqualsIgnoreCase"
      | StringNotEqualsIgnoreCase -> "StringNotEqualsIgnoreCase"
      | StringLike -> "StringLike"
      | StringNotLike -> "StringNotLike"
      | NumericEquals -> "NumericEquals"
      | NumericNotEquals -> "NumericNotEquals"
      | NumericLessThan -> "NumericLessThan"
      | NumericLessThanEquals -> "NumericLessThanEquals"
      | NumericGreaterThan -> "NumericGreaterThan"
      | NumericGreaterThanEquals -> "NumericGreaterThanEquals"
      | Non_static_id s -> s
    let of_string =
      function
      | "StringEquals" -> StringEquals
      | "StringNotEquals" -> StringNotEquals
      | "StringEqualsIgnoreCase" -> StringEqualsIgnoreCase
      | "StringNotEqualsIgnoreCase" -> StringNotEqualsIgnoreCase
      | "StringLike" -> StringLike
      | "StringNotLike" -> StringNotLike
      | "NumericEquals" -> NumericEquals
      | "NumericNotEquals" -> NumericNotEquals
      | "NumericLessThan" -> NumericLessThan
      | "NumericLessThanEquals" -> NumericLessThanEquals
      | "NumericGreaterThan" -> NumericGreaterThan
      | "NumericGreaterThanEquals" -> NumericGreaterThanEquals
      | 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 ComparisonOperator" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ComparisonOperator" j)
    let to_json = simple_to_json to_value
  end
module DoubleList =
  struct
    type nonrec t = Double.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:Double.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:Double.of_xml)
    let of_json j = list_of_json ~kind:"DoubleList" ~of_json:Double.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntegerList =
  struct
    type nonrec t = Integer.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Integer.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Integer.of_xml)
    let of_json j =
      list_of_json ~kind:"IntegerList" ~of_json:Integer.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringCriteriaValues =
  struct
    type nonrec t = StringCriteriaValue.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:StringCriteriaValue.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:StringCriteriaValue.of_xml)
    let of_json j =
      list_of_json ~kind:"StringCriteriaValues"
        ~of_json:StringCriteriaValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module EbsVolume =
  struct
    type nonrec t =
      {
      configuration: EbsVolumeConfiguration.t option
        [@ocaml.doc
          "The configuration details of the EBS volume, including type, size, IOPS, and throughput."]}
    let make ?configuration = fun () -> { configuration }
    let to_value x =
      structure_to_value
        [("configuration",
           (Option.map x.configuration ~f:EbsVolumeConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:EbsVolumeConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      make ?configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration" EbsVolumeConfiguration.of_json in
      make ?configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an Amazon EBS volume with its configuration and snapshot usage information."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc "The tag key, which can be up to 128 characters long."];
      value: TagValue.t
        [@ocaml.doc "The tag value, which can be up to 256 characters long."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair used to categorize and organize Amazon Web Services resources and automation rules."]
module FilterValue =
  struct
    type nonrec t = string
    let context_ = "FilterValue"
    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\\-_\\.\\*\\?\\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:"FilterValue" j
    let to_json = simple_to_json to_value
  end
module EstimatedMonthlySavings =
  struct
    type nonrec t =
      {
      currency: String_.t option
        [@ocaml.doc "The currency of the estimated savings."];
      beforeDiscountSavings: Double.t option
        [@ocaml.doc
          "The estimated monthly savings before applying any discounts."];
      afterDiscountSavings: Double.t option
        [@ocaml.doc
          "The estimated monthly savings after applying any discounts."];
      savingsEstimationMode: SavingsEstimationMode.t option
        [@ocaml.doc
          "The mode used to calculate savings, either BeforeDiscount or AfterDiscount."]}
    let make ?currency =
      fun ?beforeDiscountSavings ->
        fun ?afterDiscountSavings ->
          fun ?savingsEstimationMode ->
            fun () ->
              {
                currency;
                beforeDiscountSavings;
                afterDiscountSavings;
                savingsEstimationMode
              }
    let to_value x =
      structure_to_value
        [("currency", (Option.map x.currency ~f:String_.to_value));
        ("beforeDiscountSavings",
          (Option.map x.beforeDiscountSavings ~f:Double.to_value));
        ("afterDiscountSavings",
          (Option.map x.afterDiscountSavings ~f:Double.to_value));
        ("savingsEstimationMode",
          (Option.map x.savingsEstimationMode
             ~f:SavingsEstimationMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let savingsEstimationMode =
        (Option.map ~f:SavingsEstimationMode.of_xml)
          (Xml.child xml_arg0 "savingsEstimationMode") in
      let afterDiscountSavings =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "afterDiscountSavings") in
      let beforeDiscountSavings =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "beforeDiscountSavings") in
      let currency =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "currency") in
      make ?savingsEstimationMode ?afterDiscountSavings
        ?beforeDiscountSavings ?currency ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let savingsEstimationMode =
        field_map json__ "savingsEstimationMode"
          SavingsEstimationMode.of_json in
      let afterDiscountSavings =
        field_map json__ "afterDiscountSavings" Double.of_json in
      let beforeDiscountSavings =
        field_map json__ "beforeDiscountSavings" Double.of_json in
      let currency = field_map json__ "currency" String_.of_json in
      make ?savingsEstimationMode ?afterDiscountSavings
        ?beforeDiscountSavings ?currency ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about estimated monthly cost savings."]
module OrganizationConfigurationAccountIds =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"OrganizationConfigurationAccountIds"
        ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleApplyOrder =
  struct
    type nonrec t =
      | BeforeAccountRules 
      | AfterAccountRules 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BeforeAccountRules -> "BeforeAccountRules"
      | AfterAccountRules -> "AfterAccountRules"
      | Non_static_id s -> s
    let of_string =
      function
      | "BeforeAccountRules" -> BeforeAccountRules
      | "AfterAccountRules" -> AfterAccountRules
      | 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 RuleApplyOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleApplyOrder" j)
    let to_json = simple_to_json to_value
  end
module RecommendedActionType =
  struct
    type nonrec t =
      | SnapshotAndDeleteUnattachedEbsVolume 
      | UpgradeEbsVolumeType 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SnapshotAndDeleteUnattachedEbsVolume ->
          "SnapshotAndDeleteUnattachedEbsVolume"
      | UpgradeEbsVolumeType -> "UpgradeEbsVolumeType"
      | Non_static_id s -> s
    let of_string =
      function
      | "SnapshotAndDeleteUnattachedEbsVolume" ->
          SnapshotAndDeleteUnattachedEbsVolume
      | "UpgradeEbsVolumeType" -> UpgradeEbsVolumeType
      | 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 RecommendedActionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RecommendedActionType" j)
    let to_json = simple_to_json to_value
  end
module ScheduleExecutionWindowInMinutesInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1440) >>=
             (fun () -> check_int_min i ~min:60));
        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 ScheduleExecutionWindowInMinutesInteger"
           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 SummaryDimension =
  struct
    type nonrec t =
      {
      key: SummaryDimensionKey.t option
        [@ocaml.doc "The dimension key used for categorizing summary data."];
      value: String_.t option
        [@ocaml.doc
          "The specific value for this dimension key used in the summary grouping."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:SummaryDimensionKey.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:SummaryDimensionKey.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" SummaryDimensionKey.of_json in
      make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair used to categorize and group summary data for analysis and reporting."]
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DoubleCriteriaCondition =
  struct
    type nonrec t =
      {
      comparison: ComparisonOperator.t option
        [@ocaml.doc
          "The comparison operator to use, such as equals, greater than, less than, etc."];
      values: DoubleList.t option
        [@ocaml.doc
          "The list of double values to compare against using the specified comparison operator."]}
    let make ?comparison = fun ?values -> fun () -> { comparison; values }
    let to_value x =
      structure_to_value
        [("comparison",
           (Option.map x.comparison ~f:ComparisonOperator.to_value));
        ("values", (Option.map x.values ~f:DoubleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:DoubleList.of_xml) (Xml.child xml_arg0 "values") in
      let comparison =
        (Option.map ~f:ComparisonOperator.of_xml)
          (Xml.child xml_arg0 "comparison") in
      make ?values ?comparison ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" DoubleList.of_json in
      let comparison =
        field_map json__ "comparison" ComparisonOperator.of_json in
      make ?values ?comparison ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a condition for filtering based on double/floating-point numeric values with comparison operators."]
module IntegerCriteriaCondition =
  struct
    type nonrec t =
      {
      comparison: ComparisonOperator.t option
        [@ocaml.doc
          "The comparison operator to use, such as equals, greater than, less than, etc."];
      values: IntegerList.t option
        [@ocaml.doc
          "The list of integer values to compare against using the specified comparison operator."]}
    let make ?comparison = fun ?values -> fun () -> { comparison; values }
    let to_value x =
      structure_to_value
        [("comparison",
           (Option.map x.comparison ~f:ComparisonOperator.to_value));
        ("values", (Option.map x.values ~f:IntegerList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:IntegerList.of_xml) (Xml.child xml_arg0 "values") in
      let comparison =
        (Option.map ~f:ComparisonOperator.of_xml)
          (Xml.child xml_arg0 "comparison") in
      make ?values ?comparison ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" IntegerList.of_json in
      let comparison =
        field_map json__ "comparison" ComparisonOperator.of_json in
      make ?values ?comparison ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a condition for filtering based on integer values with comparison operators."]
module ResourceTagsCriteriaCondition =
  struct
    type nonrec t =
      {
      comparison: ComparisonOperator.t option
        [@ocaml.doc
          "The comparison operator used to evaluate the tag criteria, such as equals, not equals, or contains."];
      key: StringCriteriaValue.t option
        [@ocaml.doc
          "The tag key to use for comparison when filtering resources."];
      values: StringCriteriaValues.t option
        [@ocaml.doc
          "List of tag values to compare against when filtering resources."]}
    let make ?comparison =
      fun ?key -> fun ?values -> fun () -> { comparison; key; values }
    let to_value x =
      structure_to_value
        [("comparison",
           (Option.map x.comparison ~f:ComparisonOperator.to_value));
        ("key", (Option.map x.key ~f:StringCriteriaValue.to_value));
        ("values", (Option.map x.values ~f:StringCriteriaValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:StringCriteriaValues.of_xml)
          (Xml.child xml_arg0 "values") in
      let key =
        (Option.map ~f:StringCriteriaValue.of_xml) (Xml.child xml_arg0 "key") in
      let comparison =
        (Option.map ~f:ComparisonOperator.of_xml)
          (Xml.child xml_arg0 "comparison") in
      make ?values ?key ?comparison ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" StringCriteriaValues.of_json in
      let key = field_map json__ "key" StringCriteriaValue.of_json in
      let comparison =
        field_map json__ "comparison" ComparisonOperator.of_json in
      make ?values ?key ?comparison ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Criteria condition for filtering resources based on their tags, including comparison operators and values."]
module StringCriteriaCondition =
  struct
    type nonrec t =
      {
      comparison: ComparisonOperator.t option
        [@ocaml.doc
          "The comparison operator used to evaluate the string criteria, such as equals, not equals, or contains."];
      values: StringCriteriaValues.t option
        [@ocaml.doc
          "List of string values to compare against when applying the criteria condition."]}
    let make ?comparison = fun ?values -> fun () -> { comparison; values }
    let to_value x =
      structure_to_value
        [("comparison",
           (Option.map x.comparison ~f:ComparisonOperator.to_value));
        ("values", (Option.map x.values ~f:StringCriteriaValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:StringCriteriaValues.of_xml)
          (Xml.child xml_arg0 "values") in
      let comparison =
        (Option.map ~f:ComparisonOperator.of_xml)
          (Xml.child xml_arg0 "comparison") in
      make ?values ?comparison ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" StringCriteriaValues.of_json in
      let comparison =
        field_map json__ "comparison" ComparisonOperator.of_json in
      make ?values ?comparison ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Criteria condition for filtering based on string values, including comparison operators and target values."]
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 RecommendedActionId =
  struct
    type nonrec t = string
    let context_ = "RecommendedActionId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9A-Za-z]{16}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RecommendedActionId" j
    let to_json = simple_to_json to_value
  end
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[a-z0-9-]*:[a-z0-9-]+:[a-z0-9-]*:[0-9]{0,12}:[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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module ResourceDetails =
  struct
    type nonrec t =
      {
      ebsVolume: EbsVolume.t option
        [@ocaml.doc
          "Detailed configuration information specific to EBS volumes, including volume type, size, IOPS, and throughput settings."]}
    let make ?ebsVolume = fun () -> { ebsVolume }
    let to_value x =
      structure_to_value
        [("ebsVolume", (Option.map x.ebsVolume ~f:EbsVolume.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ebsVolume =
        (Option.map ~f:EbsVolume.of_xml) (Xml.child xml_arg0 "ebsVolume") in
      make ?ebsVolume ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ebsVolume = field_map json__ "ebsVolume" EbsVolume.of_json in
      make ?ebsVolume ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed configuration information for a specific Amazon Web Services resource, with type-specific details."]
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t =
      | EbsVolume 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | EbsVolume -> "EbsVolume" | Non_static_id s -> s
    let of_string =
      function | "EbsVolume" -> EbsVolume | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.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: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 FilterValues =
  struct
    type nonrec t = FilterValue.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:FilterValue.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:FilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterValues" ~of_json:FilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendedActionFilterName =
  struct
    type nonrec t =
      | ResourceType 
      | RecommendedActionType 
      | ResourceId 
      | LookBackPeriodInDays 
      | CurrentResourceDetailsEbsVolumeType 
      | ResourceTagsKey 
      | ResourceTagsValue 
      | AccountId 
      | RestartNeeded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ResourceType -> "ResourceType"
      | RecommendedActionType -> "RecommendedActionType"
      | ResourceId -> "ResourceId"
      | LookBackPeriodInDays -> "LookBackPeriodInDays"
      | CurrentResourceDetailsEbsVolumeType ->
          "CurrentResourceDetailsEbsVolumeType"
      | ResourceTagsKey -> "ResourceTagsKey"
      | ResourceTagsValue -> "ResourceTagsValue"
      | AccountId -> "AccountId"
      | RestartNeeded -> "RestartNeeded"
      | Non_static_id s -> s
    let of_string =
      function
      | "ResourceType" -> ResourceType
      | "RecommendedActionType" -> RecommendedActionType
      | "ResourceId" -> ResourceId
      | "LookBackPeriodInDays" -> LookBackPeriodInDays
      | "CurrentResourceDetailsEbsVolumeType" ->
          CurrentResourceDetailsEbsVolumeType
      | "ResourceTagsKey" -> ResourceTagsKey
      | "ResourceTagsValue" -> ResourceTagsValue
      | "AccountId" -> AccountId
      | "RestartNeeded" -> RestartNeeded
      | 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 RecommendedActionFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RecommendedActionFilterName" j)
    let to_json = simple_to_json to_value
  end
module RecommendedActionTotal =
  struct
    type nonrec t =
      {
      recommendedActionCount: Integer.t option
        [@ocaml.doc "The total number of recommended actions in this group."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option }
    let make ?recommendedActionCount =
      fun ?estimatedMonthlySavings ->
        fun () -> { recommendedActionCount; estimatedMonthlySavings }
    let to_value x =
      structure_to_value
        [("recommendedActionCount",
           (Option.map x.recommendedActionCount ~f:Integer.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let recommendedActionCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "recommendedActionCount") in
      make ?estimatedMonthlySavings ?recommendedActionCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let recommendedActionCount =
        field_map json__ "recommendedActionCount" Integer.of_json in
      make ?estimatedMonthlySavings ?recommendedActionCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Aggregate totals for a group of recommended actions, including count and estimated monthly savings."]
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 OrganizationConfiguration =
  struct
    type nonrec t =
      {
      ruleApplyOrder: RuleApplyOrder.t option
        [@ocaml.doc
          "Specifies when organization rules should be applied relative to account rules."];
      accountIds: OrganizationConfigurationAccountIds.t option
        [@ocaml.doc
          "List of specific Amazon Web Services account IDs where the organization rule should be applied."]}
    let make ?ruleApplyOrder =
      fun ?accountIds -> fun () -> { ruleApplyOrder; accountIds }
    let to_value x =
      structure_to_value
        [("ruleApplyOrder",
           (Option.map x.ruleApplyOrder ~f:RuleApplyOrder.to_value));
        ("accountIds",
          (Option.map x.accountIds
             ~f:OrganizationConfigurationAccountIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        (Option.map ~f:OrganizationConfigurationAccountIds.of_xml)
          (Xml.child xml_arg0 "accountIds") in
      let ruleApplyOrder =
        (Option.map ~f:RuleApplyOrder.of_xml)
          (Xml.child xml_arg0 "ruleApplyOrder") in
      make ?accountIds ?ruleApplyOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map json__ "accountIds"
          OrganizationConfigurationAccountIds.of_json in
      let ruleApplyOrder =
        field_map json__ "ruleApplyOrder" RuleApplyOrder.of_json in
      make ?accountIds ?ruleApplyOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration settings for organization-wide automation rules."]
module RecommendedActionTypeList =
  struct
    type nonrec t = RecommendedActionType.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:RecommendedActionType.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:RecommendedActionType.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendedActionTypeList"
        ~of_json:RecommendedActionType.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleArn =
  struct
    type nonrec t = string
    let context_ = "RuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:compute-optimizer::[0-9]{12}:automation-rule/[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:"RuleArn" j
    let to_json = simple_to_json to_value
  end
module RuleId =
  struct
    type nonrec t = string
    let context_ = "RuleId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9A-Za-z]{16}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleId" j
    let to_json = simple_to_json to_value
  end
module RuleName =
  struct
    type nonrec t = string
    let context_ = "RuleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (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:"RuleName" j
    let to_json = simple_to_json to_value
  end
module RuleStatus =
  struct
    type nonrec t =
      | Active 
      | Inactive 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Inactive -> "Inactive"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Inactive" -> Inactive
      | 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 RuleStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleStatus" j)
    let to_json = simple_to_json to_value
  end
module RuleType =
  struct
    type nonrec t =
      | OrganizationRule 
      | AccountRule 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OrganizationRule -> "OrganizationRule"
      | AccountRule -> "AccountRule"
      | Non_static_id s -> s
    let of_string =
      function
      | "OrganizationRule" -> OrganizationRule
      | "AccountRule" -> AccountRule
      | 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 RuleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleType" j)
    let to_json = simple_to_json to_value
  end
module Schedule =
  struct
    type nonrec t =
      {
      scheduleExpression: String_.t option
        [@ocaml.doc
          "The expression that defines when the schedule runs. cron expression is supported. A cron expression consists of six fields separated by white spaces: (minutes hours day_of_month month day_of_week year) You can schedule rules to run at most once per day. Your cron expression must use specific values (not wildcards) for the minutes and hours fields. For example: (30 12 * * *) runs daily at 12:30 PM UTC."];
      scheduleExpressionTimezone: String_.t option
        [@ocaml.doc
          "The timezone to use when interpreting the schedule expression."];
      executionWindowInMinutes:
        ScheduleExecutionWindowInMinutesInteger.t option
        [@ocaml.doc
          "The time window in minutes during which the automation rule can start implementing recommended actions."]}
    let make ?scheduleExpression =
      fun ?scheduleExpressionTimezone ->
        fun ?executionWindowInMinutes ->
          fun () ->
            {
              scheduleExpression;
              scheduleExpressionTimezone;
              executionWindowInMinutes
            }
    let to_value x =
      structure_to_value
        [("scheduleExpression",
           (Option.map x.scheduleExpression ~f:String_.to_value));
        ("scheduleExpressionTimezone",
          (Option.map x.scheduleExpressionTimezone ~f:String_.to_value));
        ("executionWindowInMinutes",
          (Option.map x.executionWindowInMinutes
             ~f:ScheduleExecutionWindowInMinutesInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionWindowInMinutes =
        (Option.map ~f:ScheduleExecutionWindowInMinutesInteger.of_xml)
          (Xml.child xml_arg0 "executionWindowInMinutes") in
      let scheduleExpressionTimezone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "scheduleExpressionTimezone") in
      let scheduleExpression =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "scheduleExpression") in
      make ?executionWindowInMinutes ?scheduleExpressionTimezone
        ?scheduleExpression ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionWindowInMinutes =
        field_map json__ "executionWindowInMinutes"
          ScheduleExecutionWindowInMinutesInteger.of_json in
      let scheduleExpressionTimezone =
        field_map json__ "scheduleExpressionTimezone" String_.of_json in
      let scheduleExpression =
        field_map json__ "scheduleExpression" String_.of_json in
      make ?executionWindowInMinutes ?scheduleExpressionTimezone
        ?scheduleExpression ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for scheduling when automation rules should execute, including timing and execution windows."]
module AutomationRuleFilterName =
  struct
    type nonrec t =
      | Name 
      | RecommendedActionType 
      | Status 
      | RuleType 
      | OrganizationConfigurationRuleApplyOrder 
      | AccountId 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Name -> "Name"
      | RecommendedActionType -> "RecommendedActionType"
      | Status -> "Status"
      | RuleType -> "RuleType"
      | OrganizationConfigurationRuleApplyOrder ->
          "OrganizationConfigurationRuleApplyOrder"
      | AccountId -> "AccountId"
      | Non_static_id s -> s
    let of_string =
      function
      | "Name" -> Name
      | "RecommendedActionType" -> RecommendedActionType
      | "Status" -> Status
      | "RuleType" -> RuleType
      | "OrganizationConfigurationRuleApplyOrder" ->
          OrganizationConfigurationRuleApplyOrder
      | "AccountId" -> AccountId
      | 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 AutomationRuleFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AutomationRuleFilterName" j)
    let to_json = simple_to_json to_value
  end
module RulePreviewTotal =
  struct
    type nonrec t =
      {
      recommendedActionCount: Integer.t option
        [@ocaml.doc
          "The total number of recommended actions matching the rule preview configuration."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option }
    let make ?recommendedActionCount =
      fun ?estimatedMonthlySavings ->
        fun () -> { recommendedActionCount; estimatedMonthlySavings }
    let to_value x =
      structure_to_value
        [("recommendedActionCount",
           (Option.map x.recommendedActionCount ~f:Integer.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let recommendedActionCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "recommendedActionCount") in
      make ?estimatedMonthlySavings ?recommendedActionCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let recommendedActionCount =
        field_map json__ "recommendedActionCount" Integer.of_json in
      make ?estimatedMonthlySavings ?recommendedActionCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Aggregate totals for automation rule preview results, including count and estimated savings."]
module EventId =
  struct
    type nonrec t = string
    let context_ = "EventId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9A-Za-z]{16}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EventId" j
    let to_json = simple_to_json to_value
  end
module EventStatus =
  struct
    type nonrec t =
      | Ready 
      | InProgress 
      | Complete 
      | Failed 
      | Cancelled 
      | RollbackReady 
      | RollbackInProgress 
      | RollbackComplete 
      | RollbackFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ready -> "Ready"
      | InProgress -> "InProgress"
      | Complete -> "Complete"
      | Failed -> "Failed"
      | Cancelled -> "Cancelled"
      | RollbackReady -> "RollbackReady"
      | RollbackInProgress -> "RollbackInProgress"
      | RollbackComplete -> "RollbackComplete"
      | RollbackFailed -> "RollbackFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Ready" -> Ready
      | "InProgress" -> InProgress
      | "Complete" -> Complete
      | "Failed" -> Failed
      | "Cancelled" -> Cancelled
      | "RollbackReady" -> RollbackReady
      | "RollbackInProgress" -> RollbackInProgress
      | "RollbackComplete" -> RollbackComplete
      | "RollbackFailed" -> RollbackFailed
      | 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 EventStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventStatus" j)
    let to_json = simple_to_json to_value
  end
module EventType =
  struct
    type nonrec t =
      | SnapshotAndDeleteUnattachedEbsVolume 
      | UpgradeEbsVolumeType 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SnapshotAndDeleteUnattachedEbsVolume ->
          "SnapshotAndDeleteUnattachedEbsVolume"
      | UpgradeEbsVolumeType -> "UpgradeEbsVolumeType"
      | Non_static_id s -> s
    let of_string =
      function
      | "SnapshotAndDeleteUnattachedEbsVolume" ->
          SnapshotAndDeleteUnattachedEbsVolume
      | "UpgradeEbsVolumeType" -> UpgradeEbsVolumeType
      | 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 EventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventType" j)
    let to_json = simple_to_json to_value
  end
module AutomationEventFilterName =
  struct
    type nonrec t =
      | AccountId 
      | ResourceType 
      | EventType 
      | EventStatus 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AccountId -> "AccountId"
      | ResourceType -> "ResourceType"
      | EventType -> "EventType"
      | EventStatus -> "EventStatus"
      | Non_static_id s -> s
    let of_string =
      function
      | "AccountId" -> AccountId
      | "ResourceType" -> ResourceType
      | "EventType" -> EventType
      | "EventStatus" -> EventStatus
      | 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 AutomationEventFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AutomationEventFilterName" j)
    let to_json = simple_to_json to_value
  end
module SummaryDimensions =
  struct
    type nonrec t = SummaryDimension.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:SummaryDimension.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:SummaryDimension.of_xml)
    let of_json j =
      list_of_json ~kind:"SummaryDimensions"
        ~of_json:SummaryDimension.of_json j
    let to_json v = composed_to_json to_value v
  end
module SummaryTotals =
  struct
    type nonrec t =
      {
      automationEventCount: Integer.t option
        [@ocaml.doc
          "The total number of automation events in this summary group."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option }
    let make ?automationEventCount =
      fun ?estimatedMonthlySavings ->
        fun () -> { automationEventCount; estimatedMonthlySavings }
    let to_value x =
      structure_to_value
        [("automationEventCount",
           (Option.map x.automationEventCount ~f:Integer.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let automationEventCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "automationEventCount") in
      make ?estimatedMonthlySavings ?automationEventCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let automationEventCount =
        field_map json__ "automationEventCount" Integer.of_json in
      make ?estimatedMonthlySavings ?automationEventCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Aggregate totals for automation events, including counts and estimated savings."]
module TimePeriod =
  struct
    type nonrec t =
      {
      startTimeInclusive: Timestamp.t option
        [@ocaml.doc
          "The start time of the period, inclusive. Events at or after this time are included."];
      endTimeExclusive: Timestamp.t option
        [@ocaml.doc
          "The end time of the period, exclusive. Events before this time are included."]}
    let make ?startTimeInclusive =
      fun ?endTimeExclusive ->
        fun () -> { startTimeInclusive; endTimeExclusive }
    let to_value x =
      structure_to_value
        [("startTimeInclusive",
           (Option.map x.startTimeInclusive ~f:Timestamp.to_value));
        ("endTimeExclusive",
          (Option.map x.endTimeExclusive ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTimeExclusive =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "endTimeExclusive") in
      let startTimeInclusive =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "startTimeInclusive") in
      make ?endTimeExclusive ?startTimeInclusive ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTimeExclusive =
        field_map json__ "endTimeExclusive" Timestamp.of_json in
      let startTimeInclusive =
        field_map json__ "startTimeInclusive" Timestamp.of_json in
      make ?endTimeExclusive ?startTimeInclusive ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a time range with inclusive start time and exclusive end time for filtering and analysis."]
module StepId =
  struct
    type nonrec t = string
    let context_ = "StepId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9A-Za-z]{16}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StepId" j
    let to_json = simple_to_json to_value
  end
module StepStatus =
  struct
    type nonrec t =
      | Ready 
      | InProgress 
      | Complete 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ready -> "Ready"
      | InProgress -> "InProgress"
      | Complete -> "Complete"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Ready" -> Ready
      | "InProgress" -> InProgress
      | "Complete" -> Complete
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StepStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StepStatus" j)
    let to_json = simple_to_json to_value
  end
module StepType =
  struct
    type nonrec t =
      | CreateEbsSnapshot 
      | DeleteEbsVolume 
      | ModifyEbsVolume 
      | CreateEbsVolume 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CreateEbsSnapshot -> "CreateEbsSnapshot"
      | DeleteEbsVolume -> "DeleteEbsVolume"
      | ModifyEbsVolume -> "ModifyEbsVolume"
      | CreateEbsVolume -> "CreateEbsVolume"
      | Non_static_id s -> s
    let of_string =
      function
      | "CreateEbsSnapshot" -> CreateEbsSnapshot
      | "DeleteEbsVolume" -> DeleteEbsVolume
      | "ModifyEbsVolume" -> ModifyEbsVolume
      | "CreateEbsVolume" -> CreateEbsVolume
      | 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 StepType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StepType" j)
    let to_json = simple_to_json to_value
  end
module EnrollmentStatus =
  struct
    type nonrec t =
      | Active 
      | Inactive 
      | Pending 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Inactive -> "Inactive"
      | Pending -> "Pending"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Inactive" -> Inactive
      | "Pending" -> Pending
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EnrollmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EnrollmentStatus" j)
    let to_json = simple_to_json to_value
  end
module OrganizationRuleMode =
  struct
    type nonrec t =
      | AnyAllowed 
      | NoneAllowed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AnyAllowed -> "AnyAllowed"
      | NoneAllowed -> "NoneAllowed"
      | Non_static_id s -> s
    let of_string =
      function
      | "AnyAllowed" -> AnyAllowed
      | "NoneAllowed" -> NoneAllowed
      | 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 OrganizationRuleMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrganizationRuleMode" j)
    let to_json = simple_to_json to_value
  end
module DoubleCriteriaConditionList =
  struct
    type nonrec t = DoubleCriteriaCondition.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:DoubleCriteriaCondition.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:DoubleCriteriaCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"DoubleCriteriaConditionList"
        ~of_json:DoubleCriteriaCondition.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntegerCriteriaConditionList =
  struct
    type nonrec t = IntegerCriteriaCondition.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:IntegerCriteriaCondition.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:IntegerCriteriaCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"IntegerCriteriaConditionList"
        ~of_json:IntegerCriteriaCondition.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceTagsCriteriaConditionList =
  struct
    type nonrec t = ResourceTagsCriteriaCondition.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:ResourceTagsCriteriaCondition.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:ResourceTagsCriteriaCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagsCriteriaConditionList"
        ~of_json:ResourceTagsCriteriaCondition.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringCriteriaConditionList =
  struct
    type nonrec t = StringCriteriaCondition.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:StringCriteriaCondition.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:StringCriteriaCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"StringCriteriaConditionList"
        ~of_json:StringCriteriaCondition.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendedAction =
  struct
    type nonrec t =
      {
      recommendedActionId: RecommendedActionId.t option
        [@ocaml.doc "The unique identifier of the recommended action."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that the recommendation applies to."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the resource that the recommendation applies to."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the resource."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the resource is located."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource being evaluated."];
      lookBackPeriodInDays: Integer.t option
        [@ocaml.doc
          "The number of days of historical data used to generate the recommendation."];
      recommendedActionType: RecommendedActionType.t option
        [@ocaml.doc "The type of action being recommended."];
      currentResourceSummary: String_.t option
        [@ocaml.doc "A summary of the resource's current configuration."];
      currentResourceDetails: ResourceDetails.t option ;
      recommendedResourceSummary: String_.t option
        [@ocaml.doc "A summary of the resource's recommended configuration."];
      recommendedResourceDetails: ResourceDetails.t option ;
      restartNeeded: Boolean.t option
        [@ocaml.doc
          "Indicates whether implementing the recommended action requires a resource restart."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option ;
      resourceTags: TagList.t option
        [@ocaml.doc "The tags associated with the resource."]}
    let make ?recommendedActionId =
      fun ?resourceArn ->
        fun ?resourceId ->
          fun ?accountId ->
            fun ?region ->
              fun ?resourceType ->
                fun ?lookBackPeriodInDays ->
                  fun ?recommendedActionType ->
                    fun ?currentResourceSummary ->
                      fun ?currentResourceDetails ->
                        fun ?recommendedResourceSummary ->
                          fun ?recommendedResourceDetails ->
                            fun ?restartNeeded ->
                              fun ?estimatedMonthlySavings ->
                                fun ?resourceTags ->
                                  fun () ->
                                    {
                                      recommendedActionId;
                                      resourceArn;
                                      resourceId;
                                      accountId;
                                      region;
                                      resourceType;
                                      lookBackPeriodInDays;
                                      recommendedActionType;
                                      currentResourceSummary;
                                      currentResourceDetails;
                                      recommendedResourceSummary;
                                      recommendedResourceDetails;
                                      restartNeeded;
                                      estimatedMonthlySavings;
                                      resourceTags
                                    }
    let to_value x =
      structure_to_value
        [("recommendedActionId",
           (Option.map x.recommendedActionId ~f:RecommendedActionId.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("region", (Option.map x.region ~f:String_.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("lookBackPeriodInDays",
          (Option.map x.lookBackPeriodInDays ~f:Integer.to_value));
        ("recommendedActionType",
          (Option.map x.recommendedActionType
             ~f:RecommendedActionType.to_value));
        ("currentResourceSummary",
          (Option.map x.currentResourceSummary ~f:String_.to_value));
        ("currentResourceDetails",
          (Option.map x.currentResourceDetails ~f:ResourceDetails.to_value));
        ("recommendedResourceSummary",
          (Option.map x.recommendedResourceSummary ~f:String_.to_value));
        ("recommendedResourceDetails",
          (Option.map x.recommendedResourceDetails
             ~f:ResourceDetails.to_value));
        ("restartNeeded", (Option.map x.restartNeeded ~f:Boolean.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value));
        ("resourceTags", (Option.map x.resourceTags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "resourceTags") in
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let restartNeeded =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "restartNeeded") in
      let recommendedResourceDetails =
        (Option.map ~f:ResourceDetails.of_xml)
          (Xml.child xml_arg0 "recommendedResourceDetails") in
      let recommendedResourceSummary =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "recommendedResourceSummary") in
      let currentResourceDetails =
        (Option.map ~f:ResourceDetails.of_xml)
          (Xml.child xml_arg0 "currentResourceDetails") in
      let currentResourceSummary =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "currentResourceSummary") in
      let recommendedActionType =
        (Option.map ~f:RecommendedActionType.of_xml)
          (Xml.child xml_arg0 "recommendedActionType") in
      let lookBackPeriodInDays =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "lookBackPeriodInDays") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let recommendedActionId =
        (Option.map ~f:RecommendedActionId.of_xml)
          (Xml.child xml_arg0 "recommendedActionId") in
      make ?resourceTags ?estimatedMonthlySavings ?restartNeeded
        ?recommendedResourceDetails ?recommendedResourceSummary
        ?currentResourceDetails ?currentResourceSummary
        ?recommendedActionType ?lookBackPeriodInDays ?resourceType ?region
        ?accountId ?resourceId ?resourceArn ?recommendedActionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags = field_map json__ "resourceTags" TagList.of_json in
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let restartNeeded = field_map json__ "restartNeeded" Boolean.of_json in
      let recommendedResourceDetails =
        field_map json__ "recommendedResourceDetails" ResourceDetails.of_json in
      let recommendedResourceSummary =
        field_map json__ "recommendedResourceSummary" String_.of_json in
      let currentResourceDetails =
        field_map json__ "currentResourceDetails" ResourceDetails.of_json in
      let currentResourceSummary =
        field_map json__ "currentResourceSummary" String_.of_json in
      let recommendedActionType =
        field_map json__ "recommendedActionType"
          RecommendedActionType.of_json in
      let lookBackPeriodInDays =
        field_map json__ "lookBackPeriodInDays" Integer.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let region = field_map json__ "region" String_.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let recommendedActionId =
        field_map json__ "recommendedActionId" RecommendedActionId.of_json in
      make ?resourceTags ?estimatedMonthlySavings ?restartNeeded
        ?recommendedResourceDetails ?recommendedResourceSummary
        ?currentResourceDetails ?currentResourceSummary
        ?recommendedActionType ?lookBackPeriodInDays ?resourceType ?region
        ?accountId ?resourceId ?resourceArn ?recommendedActionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a recommended action that can be applied to optimize an Amazon Web Services resource."]
module RecommendedActionFilter =
  struct
    type nonrec t =
      {
      name: RecommendedActionFilterName.t
        [@ocaml.doc "The name of the filter field to apply."];
      values: FilterValues.t
        [@ocaml.doc
          "List of filter values to match against the specified filter name. Used to narrow down recommended actions based on specific criteria."]}
    let context_ = "RecommendedActionFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("name", (Some (RecommendedActionFilterName.to_value x.name)));
        ("values", (Some (FilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let name =
        RecommendedActionFilterName.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" FilterValues.of_json in
      let name =
        field_map_exn json__ "name" RecommendedActionFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter used to narrow down recommended action results based on specific criteria."]
module RecommendedActionSummary =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "The grouping key used to categorize the recommended actions in this summary."];
      total: RecommendedActionTotal.t option
        [@ocaml.doc
          "Aggregate totals for the recommended actions in this group, including count and estimated savings."]}
    let make ?key = fun ?total -> fun () -> { key; total }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("total", (Option.map x.total ~f:RecommendedActionTotal.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let total =
        (Option.map ~f:RecommendedActionTotal.of_xml)
          (Xml.child xml_arg0 "total") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?total ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let total = field_map json__ "total" RecommendedActionTotal.of_json in
      let key = field_map json__ "key" String_.of_json in make ?total ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about recommended actions, grouped by specific criteria with totals and counts."]
module AutomationRule =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the automation rule."];
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the automation rule."];
      name: RuleName.t option [@ocaml.doc "The name of the automation rule."];
      description: String_.t option
        [@ocaml.doc "A description of the automation rule."];
      ruleType: RuleType.t option
        [@ocaml.doc
          "The type of automation rule (OrganizationRule or AccountRule)."];
      ruleRevision: Long.t option
        [@ocaml.doc "The revision number of the automation rule."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The 12-digit Amazon Web Services account ID that owns this automation rule."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc "Configuration settings for organization-wide rules."];
      priority: String_.t option
        [@ocaml.doc
          "A string representation of a decimal number between 0 and 1 (having up to 30 digits after the decimal point) that determines the priority of the rule. When multiple rules match the same recommended action, Compute Optimizer assigns the action to the rule with the lowest priority value (highest priority), even if that rule is scheduled to run later than other matching rules."];
      recommendedActionTypes: RecommendedActionTypeList.t option
        [@ocaml.doc
          "List of recommended action types that this rule can execute."];
      schedule: Schedule.t option
        [@ocaml.doc
          "The schedule configuration for when the automation rule should execute."];
      status: RuleStatus.t option
        [@ocaml.doc
          "The current status of the automation rule (Active or Inactive)."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation rule was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the automation rule was last updated."]}
    let make ?ruleArn =
      fun ?ruleId ->
        fun ?name ->
          fun ?description ->
            fun ?ruleType ->
              fun ?ruleRevision ->
                fun ?accountId ->
                  fun ?organizationConfiguration ->
                    fun ?priority ->
                      fun ?recommendedActionTypes ->
                        fun ?schedule ->
                          fun ?status ->
                            fun ?createdTimestamp ->
                              fun ?lastUpdatedTimestamp ->
                                fun () ->
                                  {
                                    ruleArn;
                                    ruleId;
                                    name;
                                    description;
                                    ruleType;
                                    ruleRevision;
                                    accountId;
                                    organizationConfiguration;
                                    priority;
                                    recommendedActionTypes;
                                    schedule;
                                    status;
                                    createdTimestamp;
                                    lastUpdatedTimestamp
                                  }
    let to_value x =
      structure_to_value
        [("ruleArn", (Option.map x.ruleArn ~f:RuleArn.to_value));
        ("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("ruleType", (Option.map x.ruleType ~f:RuleType.to_value));
        ("ruleRevision", (Option.map x.ruleRevision ~f:Long.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("organizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("priority", (Option.map x.priority ~f:String_.to_value));
        ("recommendedActionTypes",
          (Option.map x.recommendedActionTypes
             ~f:RecommendedActionTypeList.to_value));
        ("schedule", (Option.map x.schedule ~f:Schedule.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("createdTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("lastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "createdTimestamp") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let schedule =
        (Option.map ~f:Schedule.of_xml) (Xml.child xml_arg0 "schedule") in
      let recommendedActionTypes =
        (Option.map ~f:RecommendedActionTypeList.of_xml)
          (Xml.child xml_arg0 "recommendedActionTypes") in
      let priority =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "priority") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "organizationConfiguration") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let ruleRevision =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "ruleRevision") in
      let ruleType =
        (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "ruleType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      let ruleArn =
        (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "ruleArn") in
      make ?lastUpdatedTimestamp ?createdTimestamp ?status ?schedule
        ?recommendedActionTypes ?priority ?organizationConfiguration
        ?accountId ?ruleRevision ?ruleType ?description ?name ?ruleId
        ?ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "lastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "createdTimestamp" Timestamp.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let schedule = field_map json__ "schedule" Schedule.of_json in
      let recommendedActionTypes =
        field_map json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let priority = field_map json__ "priority" String_.of_json in
      let organizationConfiguration =
        field_map json__ "organizationConfiguration"
          OrganizationConfiguration.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let ruleRevision = field_map json__ "ruleRevision" Long.of_json in
      let ruleType = field_map json__ "ruleType" RuleType.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      let ruleArn = field_map json__ "ruleArn" RuleArn.of_json in
      make ?lastUpdatedTimestamp ?createdTimestamp ?status ?schedule
        ?recommendedActionTypes ?priority ?organizationConfiguration
        ?accountId ?ruleRevision ?ruleType ?description ?name ?ruleId
        ?ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a complete automation rule configuration including criteria, schedule, and execution settings."]
module Filter =
  struct
    type nonrec t =
      {
      name: AutomationRuleFilterName.t
        [@ocaml.doc "The name of the filter field to apply."];
      values: FilterValues.t
        [@ocaml.doc
          "The list of values to filter by for the specified filter field."]}
    let context_ = "Filter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("name", (Some (AutomationRuleFilterName.to_value x.name)));
        ("values", (Some (FilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let name =
        AutomationRuleFilterName.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" FilterValues.of_json in
      let name = field_map_exn json__ "name" AutomationRuleFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter used to narrow down results based on specific criteria."]
module PreviewResultSummary =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc "The key identifier for this preview result summary."];
      total: RulePreviewTotal.t option }
    let make ?key = fun ?total -> fun () -> { key; total }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("total", (Option.map x.total ~f:RulePreviewTotal.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let total =
        (Option.map ~f:RulePreviewTotal.of_xml) (Xml.child xml_arg0 "total") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?total ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let total = field_map json__ "total" RulePreviewTotal.of_json in
      let key = field_map json__ "key" String_.of_json in make ?total ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a summary of preview results for an automation rule."]
module PreviewResult =
  struct
    type nonrec t =
      {
      recommendedActionId: RecommendedActionId.t option
        [@ocaml.doc "The ID of the recommended action being previewed."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource affected by the recommended action."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the resource affected by the recommended action."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the resource."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the resource is located."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource being evaluated."];
      lookBackPeriodInDays: Integer.t option
        [@ocaml.doc
          "The number of days of historical data used to analyze the resource."];
      recommendedActionType: RecommendedActionType.t option
        [@ocaml.doc "The type of recommended action being previewed."];
      currentResourceSummary: String_.t option
        [@ocaml.doc "A summary of the resource's current configuration."];
      currentResourceDetails: ResourceDetails.t option ;
      recommendedResourceSummary: String_.t option
        [@ocaml.doc "A summary of the resource's recommended configuration."];
      recommendedResourceDetails: ResourceDetails.t option ;
      restartNeeded: Boolean.t option
        [@ocaml.doc
          "Indicates whether implementing the recommended action requires a resource restart."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option ;
      resourceTags: TagList.t option
        [@ocaml.doc "The tags associated with the resource."]}
    let make ?recommendedActionId =
      fun ?resourceArn ->
        fun ?resourceId ->
          fun ?accountId ->
            fun ?region ->
              fun ?resourceType ->
                fun ?lookBackPeriodInDays ->
                  fun ?recommendedActionType ->
                    fun ?currentResourceSummary ->
                      fun ?currentResourceDetails ->
                        fun ?recommendedResourceSummary ->
                          fun ?recommendedResourceDetails ->
                            fun ?restartNeeded ->
                              fun ?estimatedMonthlySavings ->
                                fun ?resourceTags ->
                                  fun () ->
                                    {
                                      recommendedActionId;
                                      resourceArn;
                                      resourceId;
                                      accountId;
                                      region;
                                      resourceType;
                                      lookBackPeriodInDays;
                                      recommendedActionType;
                                      currentResourceSummary;
                                      currentResourceDetails;
                                      recommendedResourceSummary;
                                      recommendedResourceDetails;
                                      restartNeeded;
                                      estimatedMonthlySavings;
                                      resourceTags
                                    }
    let to_value x =
      structure_to_value
        [("recommendedActionId",
           (Option.map x.recommendedActionId ~f:RecommendedActionId.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("region", (Option.map x.region ~f:String_.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("lookBackPeriodInDays",
          (Option.map x.lookBackPeriodInDays ~f:Integer.to_value));
        ("recommendedActionType",
          (Option.map x.recommendedActionType
             ~f:RecommendedActionType.to_value));
        ("currentResourceSummary",
          (Option.map x.currentResourceSummary ~f:String_.to_value));
        ("currentResourceDetails",
          (Option.map x.currentResourceDetails ~f:ResourceDetails.to_value));
        ("recommendedResourceSummary",
          (Option.map x.recommendedResourceSummary ~f:String_.to_value));
        ("recommendedResourceDetails",
          (Option.map x.recommendedResourceDetails
             ~f:ResourceDetails.to_value));
        ("restartNeeded", (Option.map x.restartNeeded ~f:Boolean.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value));
        ("resourceTags", (Option.map x.resourceTags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "resourceTags") in
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let restartNeeded =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "restartNeeded") in
      let recommendedResourceDetails =
        (Option.map ~f:ResourceDetails.of_xml)
          (Xml.child xml_arg0 "recommendedResourceDetails") in
      let recommendedResourceSummary =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "recommendedResourceSummary") in
      let currentResourceDetails =
        (Option.map ~f:ResourceDetails.of_xml)
          (Xml.child xml_arg0 "currentResourceDetails") in
      let currentResourceSummary =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "currentResourceSummary") in
      let recommendedActionType =
        (Option.map ~f:RecommendedActionType.of_xml)
          (Xml.child xml_arg0 "recommendedActionType") in
      let lookBackPeriodInDays =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "lookBackPeriodInDays") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let recommendedActionId =
        (Option.map ~f:RecommendedActionId.of_xml)
          (Xml.child xml_arg0 "recommendedActionId") in
      make ?resourceTags ?estimatedMonthlySavings ?restartNeeded
        ?recommendedResourceDetails ?recommendedResourceSummary
        ?currentResourceDetails ?currentResourceSummary
        ?recommendedActionType ?lookBackPeriodInDays ?resourceType ?region
        ?accountId ?resourceId ?resourceArn ?recommendedActionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags = field_map json__ "resourceTags" TagList.of_json in
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let restartNeeded = field_map json__ "restartNeeded" Boolean.of_json in
      let recommendedResourceDetails =
        field_map json__ "recommendedResourceDetails" ResourceDetails.of_json in
      let recommendedResourceSummary =
        field_map json__ "recommendedResourceSummary" String_.of_json in
      let currentResourceDetails =
        field_map json__ "currentResourceDetails" ResourceDetails.of_json in
      let currentResourceSummary =
        field_map json__ "currentResourceSummary" String_.of_json in
      let recommendedActionType =
        field_map json__ "recommendedActionType"
          RecommendedActionType.of_json in
      let lookBackPeriodInDays =
        field_map json__ "lookBackPeriodInDays" Integer.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let region = field_map json__ "region" String_.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let recommendedActionId =
        field_map json__ "recommendedActionId" RecommendedActionId.of_json in
      make ?resourceTags ?estimatedMonthlySavings ?restartNeeded
        ?recommendedResourceDetails ?recommendedResourceSummary
        ?currentResourceDetails ?currentResourceSummary
        ?recommendedActionType ?lookBackPeriodInDays ?resourceType ?region
        ?accountId ?resourceId ?resourceArn ?recommendedActionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of previewing an automation rule against available recommendations."]
module AutomationEvent =
  struct
    type nonrec t =
      {
      eventId: EventId.t option
        [@ocaml.doc "The unique identifier for the automation event."];
      eventDescription: String_.t option
        [@ocaml.doc "A description of the automation event."];
      eventType: EventType.t option
        [@ocaml.doc "The type of automation event."];
      eventStatus: EventStatus.t option
        [@ocaml.doc "The current status of the automation event."];
      eventStatusReason: String_.t option
        [@ocaml.doc "The reason for the current event status."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource affected by the automation event."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the resource affected by the automation event."];
      recommendedActionId: RecommendedActionId.t option
        [@ocaml.doc
          "The ID of the recommended action associated with this automation event."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the automation event."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the automation event occurred."];
      ruleId: RuleId.t option
        [@ocaml.doc
          "The ID of the automation rule that triggered this event."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource affected by the automation event."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation event was created."];
      completedTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation event completed."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option
        [@ocaml.doc
          "The estimated monthly cost savings associated with this automation event."]}
    let make ?eventId =
      fun ?eventDescription ->
        fun ?eventType ->
          fun ?eventStatus ->
            fun ?eventStatusReason ->
              fun ?resourceArn ->
                fun ?resourceId ->
                  fun ?recommendedActionId ->
                    fun ?accountId ->
                      fun ?region ->
                        fun ?ruleId ->
                          fun ?resourceType ->
                            fun ?createdTimestamp ->
                              fun ?completedTimestamp ->
                                fun ?estimatedMonthlySavings ->
                                  fun () ->
                                    {
                                      eventId;
                                      eventDescription;
                                      eventType;
                                      eventStatus;
                                      eventStatusReason;
                                      resourceArn;
                                      resourceId;
                                      recommendedActionId;
                                      accountId;
                                      region;
                                      ruleId;
                                      resourceType;
                                      createdTimestamp;
                                      completedTimestamp;
                                      estimatedMonthlySavings
                                    }
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:EventId.to_value));
        ("eventDescription",
          (Option.map x.eventDescription ~f:String_.to_value));
        ("eventType", (Option.map x.eventType ~f:EventType.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("eventStatusReason",
          (Option.map x.eventStatusReason ~f:String_.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("recommendedActionId",
          (Option.map x.recommendedActionId ~f:RecommendedActionId.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("region", (Option.map x.region ~f:String_.to_value));
        ("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("createdTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("completedTimestamp",
          (Option.map x.completedTimestamp ~f:Timestamp.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let completedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "completedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "createdTimestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let recommendedActionId =
        (Option.map ~f:RecommendedActionId.of_xml)
          (Xml.child xml_arg0 "recommendedActionId") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let eventStatusReason =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "eventStatusReason") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let eventType =
        (Option.map ~f:EventType.of_xml) (Xml.child xml_arg0 "eventType") in
      let eventDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "eventDescription") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?estimatedMonthlySavings ?completedTimestamp ?createdTimestamp
        ?resourceType ?ruleId ?region ?accountId ?recommendedActionId
        ?resourceId ?resourceArn ?eventStatusReason ?eventStatus ?eventType
        ?eventDescription ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let completedTimestamp =
        field_map json__ "completedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "createdTimestamp" Timestamp.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      let region = field_map json__ "region" String_.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let recommendedActionId =
        field_map json__ "recommendedActionId" RecommendedActionId.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let eventStatusReason =
        field_map json__ "eventStatusReason" String_.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let eventType = field_map json__ "eventType" EventType.of_json in
      let eventDescription =
        field_map json__ "eventDescription" String_.of_json in
      let eventId = field_map json__ "eventId" EventId.of_json in
      make ?estimatedMonthlySavings ?completedTimestamp ?createdTimestamp
        ?resourceType ?ruleId ?region ?accountId ?recommendedActionId
        ?resourceId ?resourceArn ?eventStatusReason ?eventStatus ?eventType
        ?eventDescription ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an automation event."]
module AutomationEventFilter =
  struct
    type nonrec t =
      {
      name: AutomationEventFilterName.t
        [@ocaml.doc "The name of the filter to apply."];
      values: FilterValues.t
        [@ocaml.doc "The values to use for the specified filter."]}
    let context_ = "AutomationEventFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("name", (Some (AutomationEventFilterName.to_value x.name)));
        ("values", (Some (FilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let name =
        AutomationEventFilterName.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" FilterValues.of_json in
      let name =
        field_map_exn json__ "name" AutomationEventFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter to apply when listing automation events."]
module AutomationEventSummary =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc "The key identifier for this summary grouping."];
      dimensions: SummaryDimensions.t option
        [@ocaml.doc
          "The dimensions used to group this summary, such as event status."];
      timePeriod: TimePeriod.t option
        [@ocaml.doc
          "The time period covered by this summary, with inclusive start time and exclusive end time."];
      total: SummaryTotals.t option
        [@ocaml.doc
          "The aggregated totals for this summary, including event count and estimated savings."]}
    let make ?key =
      fun ?dimensions ->
        fun ?timePeriod ->
          fun ?total -> fun () -> { key; dimensions; timePeriod; total }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("dimensions",
          (Option.map x.dimensions ~f:SummaryDimensions.to_value));
        ("timePeriod", (Option.map x.timePeriod ~f:TimePeriod.to_value));
        ("total", (Option.map x.total ~f:SummaryTotals.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let total =
        (Option.map ~f:SummaryTotals.of_xml) (Xml.child xml_arg0 "total") in
      let timePeriod =
        (Option.map ~f:TimePeriod.of_xml) (Xml.child xml_arg0 "timePeriod") in
      let dimensions =
        (Option.map ~f:SummaryDimensions.of_xml)
          (Xml.child xml_arg0 "dimensions") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?total ?timePeriod ?dimensions ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let total = field_map json__ "total" SummaryTotals.of_json in
      let timePeriod = field_map json__ "timePeriod" TimePeriod.of_json in
      let dimensions =
        field_map json__ "dimensions" SummaryDimensions.of_json in
      let key = field_map json__ "key" String_.of_json in
      make ?total ?timePeriod ?dimensions ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of automation events grouped by specified dimensions."]
module AutomationEventStep =
  struct
    type nonrec t =
      {
      eventId: EventId.t option
        [@ocaml.doc "The ID of the automation event this step belongs to."];
      stepId: StepId.t option
        [@ocaml.doc "The unique identifier for this step."];
      stepType: StepType.t option [@ocaml.doc "The type of step."];
      stepStatus: StepStatus.t option
        [@ocaml.doc "The current status of the step."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The unique identifier of the resource being acted upon in this step."];
      startTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when this automation event step started execution."];
      completedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when this automation event step completed execution."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option }
    let make ?eventId =
      fun ?stepId ->
        fun ?stepType ->
          fun ?stepStatus ->
            fun ?resourceId ->
              fun ?startTimestamp ->
                fun ?completedTimestamp ->
                  fun ?estimatedMonthlySavings ->
                    fun () ->
                      {
                        eventId;
                        stepId;
                        stepType;
                        stepStatus;
                        resourceId;
                        startTimestamp;
                        completedTimestamp;
                        estimatedMonthlySavings
                      }
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:EventId.to_value));
        ("stepId", (Option.map x.stepId ~f:StepId.to_value));
        ("stepType", (Option.map x.stepType ~f:StepType.to_value));
        ("stepStatus", (Option.map x.stepStatus ~f:StepStatus.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("startTimestamp",
          (Option.map x.startTimestamp ~f:Timestamp.to_value));
        ("completedTimestamp",
          (Option.map x.completedTimestamp ~f:Timestamp.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let completedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "completedTimestamp") in
      let startTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "startTimestamp") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let stepStatus =
        (Option.map ~f:StepStatus.of_xml) (Xml.child xml_arg0 "stepStatus") in
      let stepType =
        (Option.map ~f:StepType.of_xml) (Xml.child xml_arg0 "stepType") in
      let stepId =
        (Option.map ~f:StepId.of_xml) (Xml.child xml_arg0 "stepId") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?estimatedMonthlySavings ?completedTimestamp ?startTimestamp
        ?resourceId ?stepStatus ?stepType ?stepId ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let completedTimestamp =
        field_map json__ "completedTimestamp" Timestamp.of_json in
      let startTimestamp =
        field_map json__ "startTimestamp" Timestamp.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let stepStatus = field_map json__ "stepStatus" StepStatus.of_json in
      let stepType = field_map json__ "stepType" StepType.of_json in
      let stepId = field_map json__ "stepId" StepId.of_json in
      let eventId = field_map json__ "eventId" EventId.of_json in
      make ?estimatedMonthlySavings ?completedTimestamp ?startTimestamp
        ?resourceId ?stepStatus ?stepType ?stepId ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a step in an automation event."]
module AccountInfo =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "The ID of the Amazon Web Services account."];
      status: EnrollmentStatus.t option
        [@ocaml.doc
          "The enrollment status of the account: Active, Inactive, Pending, or Failed."];
      organizationRuleMode: OrganizationRuleMode.t option
        [@ocaml.doc
          "Specifies whether the management account can create Automation rules that implement optimization actions for this account."];
      statusReason: String_.t option
        [@ocaml.doc
          "The reason for the current Automation enrollment status."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the account's Automation enrollment status was last updated."]}
    let make ?accountId =
      fun ?status ->
        fun ?organizationRuleMode ->
          fun ?statusReason ->
            fun ?lastUpdatedTimestamp ->
              fun () ->
                {
                  accountId;
                  status;
                  organizationRuleMode;
                  statusReason;
                  lastUpdatedTimestamp
                }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("status", (Option.map x.status ~f:EnrollmentStatus.to_value));
        ("organizationRuleMode",
          (Option.map x.organizationRuleMode ~f:OrganizationRuleMode.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("lastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTimestamp") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let organizationRuleMode =
        (Option.map ~f:OrganizationRuleMode.of_xml)
          (Xml.child xml_arg0 "organizationRuleMode") in
      let status =
        (Option.map ~f:EnrollmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?lastUpdatedTimestamp ?statusReason ?organizationRuleMode ?status
        ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "lastUpdatedTimestamp" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let organizationRuleMode =
        field_map json__ "organizationRuleMode" OrganizationRuleMode.of_json in
      let status = field_map json__ "status" EnrollmentStatus.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?lastUpdatedTimestamp ?statusReason ?organizationRuleMode ?status
        ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an Amazon Web Services account's enrollment and association status with Compute Optimizer Automation."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient permissions to perform this action."]
module ForbiddenException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You are not authorized to perform this action."]
module IdempotencyTokenInUseException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified client token is already in use."]
module IdempotentParameterMismatchException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception thrown when the same client token is used with different parameters, indicating a mismatch in idempotent request parameters."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An internal error occurred while processing the request."]
module InvalidParameterValueException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameter values are not valid."]
module NotManagementAccountException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The operation can only be performed by a management account."]
module OptInRequiredException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The account must be opted in to Compute Optimizer Automation before performing this action."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource was not found."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The service is temporarily unavailable."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_-]{1,64}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module Criteria =
  struct
    type nonrec t =
      {
      region: StringCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for Amazon Web Services regions where resources must be located."];
      resourceArn: StringCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for specific resource ARNs to include or exclude."];
      ebsVolumeType: StringCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for EBS volume types, such as gp2, gp3, io1, io2, st1, or sc1."];
      ebsVolumeSizeInGib: IntegerCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for EBS volume sizes in gibibytes (GiB)."];
      estimatedMonthlySavings: DoubleCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for estimated monthly cost savings from the recommended action."];
      resourceTag: ResourceTagsCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for resource tags, allowing filtering by tag key and value combinations."];
      lookBackPeriodInDays: IntegerCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria for the lookback period in days used to analyze resource utilization."];
      restartNeeded: StringCriteriaConditionList.t option
        [@ocaml.doc
          "Filter criteria indicating whether the recommended action requires a resource restart."]}
    let make ?region =
      fun ?resourceArn ->
        fun ?ebsVolumeType ->
          fun ?ebsVolumeSizeInGib ->
            fun ?estimatedMonthlySavings ->
              fun ?resourceTag ->
                fun ?lookBackPeriodInDays ->
                  fun ?restartNeeded ->
                    fun () ->
                      {
                        region;
                        resourceArn;
                        ebsVolumeType;
                        ebsVolumeSizeInGib;
                        estimatedMonthlySavings;
                        resourceTag;
                        lookBackPeriodInDays;
                        restartNeeded
                      }
    let to_value x =
      structure_to_value
        [("region",
           (Option.map x.region ~f:StringCriteriaConditionList.to_value));
        ("resourceArn",
          (Option.map x.resourceArn ~f:StringCriteriaConditionList.to_value));
        ("ebsVolumeType",
          (Option.map x.ebsVolumeType ~f:StringCriteriaConditionList.to_value));
        ("ebsVolumeSizeInGib",
          (Option.map x.ebsVolumeSizeInGib
             ~f:IntegerCriteriaConditionList.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:DoubleCriteriaConditionList.to_value));
        ("resourceTag",
          (Option.map x.resourceTag
             ~f:ResourceTagsCriteriaConditionList.to_value));
        ("lookBackPeriodInDays",
          (Option.map x.lookBackPeriodInDays
             ~f:IntegerCriteriaConditionList.to_value));
        ("restartNeeded",
          (Option.map x.restartNeeded ~f:StringCriteriaConditionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let restartNeeded =
        (Option.map ~f:StringCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "restartNeeded") in
      let lookBackPeriodInDays =
        (Option.map ~f:IntegerCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "lookBackPeriodInDays") in
      let resourceTag =
        (Option.map ~f:ResourceTagsCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "resourceTag") in
      let estimatedMonthlySavings =
        (Option.map ~f:DoubleCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let ebsVolumeSizeInGib =
        (Option.map ~f:IntegerCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "ebsVolumeSizeInGib") in
      let ebsVolumeType =
        (Option.map ~f:StringCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "ebsVolumeType") in
      let resourceArn =
        (Option.map ~f:StringCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "resourceArn") in
      let region =
        (Option.map ~f:StringCriteriaConditionList.of_xml)
          (Xml.child xml_arg0 "region") in
      make ?restartNeeded ?lookBackPeriodInDays ?resourceTag
        ?estimatedMonthlySavings ?ebsVolumeSizeInGib ?ebsVolumeType
        ?resourceArn ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let restartNeeded =
        field_map json__ "restartNeeded" StringCriteriaConditionList.of_json in
      let lookBackPeriodInDays =
        field_map json__ "lookBackPeriodInDays"
          IntegerCriteriaConditionList.of_json in
      let resourceTag =
        field_map json__ "resourceTag"
          ResourceTagsCriteriaConditionList.of_json in
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          DoubleCriteriaConditionList.of_json in
      let ebsVolumeSizeInGib =
        field_map json__ "ebsVolumeSizeInGib"
          IntegerCriteriaConditionList.of_json in
      let ebsVolumeType =
        field_map json__ "ebsVolumeType" StringCriteriaConditionList.of_json in
      let resourceArn =
        field_map json__ "resourceArn" StringCriteriaConditionList.of_json in
      let region =
        field_map json__ "region" StringCriteriaConditionList.of_json in
      make ?restartNeeded ?lookBackPeriodInDays ?resourceTag
        ?estimatedMonthlySavings ?ebsVolumeSizeInGib ?ebsVolumeType
        ?resourceArn ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set of conditions that specify which recommended action qualify for implementation. When a rule is active and a recommended action matches these criteria, Compute Optimizer implements the action at the scheduled run time. You can specify up to 20 conditions per filter criteria and 20 values per condition."]
module RuleDescription =
  struct
    type nonrec t = string
    let context_ = "RuleDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z0-9_\\-\\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:"RuleDescription" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  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:"TagKeyList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request would exceed service quotas."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[A-Za-z0-9+/=]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module RecommendedActions =
  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:"RecommendedActions"
        ~of_json:RecommendedAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListRecommendedActionsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListRecommendedActionsRequestMaxResultsInteger"
           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 RecommendedActionFilterList =
  struct
    type nonrec t = RecommendedActionFilter.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:RecommendedActionFilter.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:RecommendedActionFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendedActionFilterList"
        ~of_json:RecommendedActionFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendedActionSummaries =
  struct
    type nonrec t = RecommendedActionSummary.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:RecommendedActionSummary.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:RecommendedActionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendedActionSummaries"
        ~of_json:RecommendedActionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListRecommendedActionSummariesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListRecommendedActionSummariesRequestMaxResultsInteger"
           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 AutomationRules =
  struct
    type nonrec t = AutomationRule.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:AutomationRule.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:AutomationRule.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomationRules" ~of_json:AutomationRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterList =
  struct
    type nonrec t = Filter.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Filter.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Filter.of_xml)
    let of_json j = list_of_json ~kind:"FilterList" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAutomationRulesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAutomationRulesRequestMaxResultsInteger"
           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 PreviewResultSummaries =
  struct
    type nonrec t = PreviewResultSummary.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:PreviewResultSummary.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:PreviewResultSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PreviewResultSummaries"
        ~of_json:PreviewResultSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAutomationRulePreviewSummariesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAutomationRulePreviewSummariesRequestMaxResultsInteger"
           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 OrganizationScope =
  struct
    type nonrec t =
      {
      accountIds: OrganizationConfigurationAccountIds.t option
        [@ocaml.doc
          "List of Amazon Web Services account IDs to include in the organization scope."]}
    let make ?accountIds = fun () -> { accountIds }
    let to_value x =
      structure_to_value
        [("accountIds",
           (Option.map x.accountIds
              ~f:OrganizationConfigurationAccountIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        (Option.map ~f:OrganizationConfigurationAccountIds.of_xml)
          (Xml.child xml_arg0 "accountIds") in
      make ?accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map json__ "accountIds"
          OrganizationConfigurationAccountIds.of_json in
      make ?accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the scope for organization-level rules when previewing matching actions."]
module PreviewResults =
  struct
    type nonrec t = PreviewResult.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:PreviewResult.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:PreviewResult.of_xml)
    let of_json j =
      list_of_json ~kind:"PreviewResults" ~of_json:PreviewResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAutomationRulePreviewRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAutomationRulePreviewRequestMaxResultsInteger"
           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 AutomationEvents =
  struct
    type nonrec t = AutomationEvent.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:AutomationEvent.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:AutomationEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomationEvents" ~of_json:AutomationEvent.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module AutomationEventFilterList =
  struct
    type nonrec t = AutomationEventFilter.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:AutomationEventFilter.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:AutomationEventFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomationEventFilterList"
        ~of_json:AutomationEventFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAutomationEventsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAutomationEventsRequestMaxResultsInteger"
           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 AutomationEventSummaryList =
  struct
    type nonrec t = AutomationEventSummary.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:AutomationEventSummary.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:AutomationEventSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomationEventSummaryList"
        ~of_json:AutomationEventSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAutomationEventSummariesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAutomationEventSummariesRequestMaxResultsInteger"
           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 AutomationEventSteps =
  struct
    type nonrec t = AutomationEventStep.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:AutomationEventStep.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:AutomationEventStep.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomationEventSteps"
        ~of_json:AutomationEventStep.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAutomationEventStepsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAutomationEventStepsRequestMaxResultsInteger"
           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 AccountInfoList =
  struct
    type nonrec t = AccountInfo.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:AccountInfo.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:AccountInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountInfoList" ~of_json:AccountInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAccountsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListAccountsRequestMaxResultsInteger"
           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 AccountIdList =
  struct
    type nonrec t = AccountId.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:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountIdList" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  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 UpdateEnrollmentConfigurationResponse =
  struct
    type nonrec t =
      {
      status: EnrollmentStatus.t option
        [@ocaml.doc "The updated enrollment status."];
      statusReason: String_.t option
        [@ocaml.doc "The reason for the updated enrollment status."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the enrollment configuration was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `NotManagementAccountException of NotManagementAccountException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?statusReason ->
        fun ?lastUpdatedTimestamp ->
          fun () -> { status; statusReason; lastUpdatedTimestamp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `NotManagementAccountException e ->
          `Assoc
            [("error", (`String "NotManagementAccountException"));
            ("details", (NotManagementAccountException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:EnrollmentStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("lastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTimestamp") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:EnrollmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?lastUpdatedTimestamp ?statusReason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "lastUpdatedTimestamp" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" EnrollmentStatus.of_json in
      make ?lastUpdatedTimestamp ?statusReason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates your account\226\128\153s Compute Optimizer Automation enrollment configuration."]
module UpdateEnrollmentConfigurationRequest =
  struct
    type nonrec t =
      {
      status: EnrollmentStatus.t
        [@ocaml.doc
          "The desired enrollment status. Active - Enables the Automation feature for your account. Inactive - Disables the Automation feature for your account and stops all of your automation rules. If you opt in again later, all rules will be inactive, and you must enable the rules you want to run. You must wait at least 24 hours after opting out to opt in again. The Pending and Failed options cannot be used to update the enrollment status of an account. They are returned in the response of a request to update the enrollment status of an account. If you are a member account, your account must be disassociated from your organization\226\128\153s management account before you can disable Automation. Contact your administrator to make this change."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Must be 1-64 characters long and contain only alphanumeric characters, underscores, and hyphens."]}
    let context_ = "UpdateEnrollmentConfigurationRequest"
    let make ?clientToken = fun ~status -> fun () -> { clientToken; status }
    let to_value x =
      structure_to_value
        [("status", (Some (EnrollmentStatus.to_value x.status)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let status =
        EnrollmentStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      make ?clientToken ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let status = field_map_exn json__ "status" EnrollmentStatus.of_json in
      make ?clientToken ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates your account\226\128\153s Compute Optimizer Automation enrollment configuration."]
module UpdateAutomationRuleResponse =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t option [@ocaml.doc "The ARN of the updated rule."];
      ruleRevision: Long.t option
        [@ocaml.doc "The new revision number of the updated rule."];
      name: RuleName.t option
        [@ocaml.doc "The updated name of the automation rule."];
      description: String_.t option
        [@ocaml.doc "The updated description of the automation rule."];
      ruleType: RuleType.t option
        [@ocaml.doc "The updated type of automation rule."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc "The updated organization configuration settings."];
      priority: String_.t option
        [@ocaml.doc "The updated priority level of the automation rule."];
      recommendedActionTypes: RecommendedActionTypeList.t option
        [@ocaml.doc "The updated list of recommended action types."];
      criteria: Criteria.t option ;
      schedule: Schedule.t option
        [@ocaml.doc "The updated schedule configuration."];
      status: RuleStatus.t option
        [@ocaml.doc "The updated status of the automation rule."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the automation rule was originally created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the automation rule was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleArn =
      fun ?ruleRevision ->
        fun ?name ->
          fun ?description ->
            fun ?ruleType ->
              fun ?organizationConfiguration ->
                fun ?priority ->
                  fun ?recommendedActionTypes ->
                    fun ?criteria ->
                      fun ?schedule ->
                        fun ?status ->
                          fun ?createdTimestamp ->
                            fun ?lastUpdatedTimestamp ->
                              fun () ->
                                {
                                  ruleArn;
                                  ruleRevision;
                                  name;
                                  description;
                                  ruleType;
                                  organizationConfiguration;
                                  priority;
                                  recommendedActionTypes;
                                  criteria;
                                  schedule;
                                  status;
                                  createdTimestamp;
                                  lastUpdatedTimestamp
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleArn", (Option.map x.ruleArn ~f:RuleArn.to_value));
        ("ruleRevision", (Option.map x.ruleRevision ~f:Long.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("ruleType", (Option.map x.ruleType ~f:RuleType.to_value));
        ("organizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("priority", (Option.map x.priority ~f:String_.to_value));
        ("recommendedActionTypes",
          (Option.map x.recommendedActionTypes
             ~f:RecommendedActionTypeList.to_value));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("schedule", (Option.map x.schedule ~f:Schedule.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("createdTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("lastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "createdTimestamp") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let schedule =
        (Option.map ~f:Schedule.of_xml) (Xml.child xml_arg0 "schedule") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        (Option.map ~f:RecommendedActionTypeList.of_xml)
          (Xml.child xml_arg0 "recommendedActionTypes") in
      let priority =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "priority") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "organizationConfiguration") in
      let ruleType =
        (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "ruleType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let ruleRevision =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "ruleRevision") in
      let ruleArn =
        (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "ruleArn") in
      make ?lastUpdatedTimestamp ?createdTimestamp ?status ?schedule
        ?criteria ?recommendedActionTypes ?priority
        ?organizationConfiguration ?ruleType ?description ?name ?ruleRevision
        ?ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "lastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "createdTimestamp" Timestamp.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let schedule = field_map json__ "schedule" Schedule.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let priority = field_map json__ "priority" String_.of_json in
      let organizationConfiguration =
        field_map json__ "organizationConfiguration"
          OrganizationConfiguration.of_json in
      let ruleType = field_map json__ "ruleType" RuleType.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let ruleRevision = field_map json__ "ruleRevision" Long.of_json in
      let ruleArn = field_map json__ "ruleArn" RuleArn.of_json in
      make ?lastUpdatedTimestamp ?createdTimestamp ?status ?schedule
        ?criteria ?recommendedActionTypes ?priority
        ?organizationConfiguration ?ruleType ?description ?name ?ruleRevision
        ?ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing automation rule."]
module UpdateAutomationRuleRequest =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t [@ocaml.doc "The ARN of the rule to update."];
      ruleRevision: Long.t
        [@ocaml.doc "The revision number of the rule to update."];
      name: RuleName.t option
        [@ocaml.doc
          "The updated name of the automation rule. Must be 1-128 characters long and contain only alphanumeric characters, underscores, and hyphens."];
      description: RuleDescription.t option
        [@ocaml.doc
          "The updated description of the automation rule. Can be up to 1024 characters long and contain alphanumeric characters, underscores, hyphens, spaces, and certain special characters."];
      ruleType: RuleType.t option
        [@ocaml.doc
          "The updated type of automation rule. Can be either OrganizationRule for organization-wide rules or AccountRule for account-specific rules."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc
          "Updated configuration settings for organization-wide rules, including rule application order and target account IDs."];
      priority: String_.t option
        [@ocaml.doc
          "The updated priority level of the automation rule, used to determine execution order when multiple rules apply to the same resource."];
      recommendedActionTypes: RecommendedActionTypeList.t option
        [@ocaml.doc
          "Updated list of recommended action types that this rule can execute, such as SnapshotAndDeleteUnattachedEbsVolume or UpgradeEbsVolumeType."];
      criteria: Criteria.t option ;
      schedule: Schedule.t option
        [@ocaml.doc
          "The updated schedule configuration for when the automation rule should execute, including cron expression, timezone, and execution window."];
      status: RuleStatus.t option
        [@ocaml.doc
          "The updated status of the automation rule. Can be Active or Inactive."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Must be 1-64 characters long and contain only alphanumeric characters, underscores, and hyphens."]}
    let context_ = "UpdateAutomationRuleRequest"
    let make ?name =
      fun ?description ->
        fun ?ruleType ->
          fun ?organizationConfiguration ->
            fun ?priority ->
              fun ?recommendedActionTypes ->
                fun ?criteria ->
                  fun ?schedule ->
                    fun ?status ->
                      fun ?clientToken ->
                        fun ~ruleArn ->
                          fun ~ruleRevision ->
                            fun () ->
                              {
                                name;
                                description;
                                ruleType;
                                organizationConfiguration;
                                priority;
                                recommendedActionTypes;
                                criteria;
                                schedule;
                                status;
                                clientToken;
                                ruleArn;
                                ruleRevision
                              }
    let to_value x =
      structure_to_value
        [("ruleArn", (Some (RuleArn.to_value x.ruleArn)));
        ("ruleRevision", (Some (Long.to_value x.ruleRevision)));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("description",
          (Option.map x.description ~f:RuleDescription.to_value));
        ("ruleType", (Option.map x.ruleType ~f:RuleType.to_value));
        ("organizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("priority", (Option.map x.priority ~f:String_.to_value));
        ("recommendedActionTypes",
          (Option.map x.recommendedActionTypes
             ~f:RecommendedActionTypeList.to_value));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("schedule", (Option.map x.schedule ~f:Schedule.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let schedule =
        (Option.map ~f:Schedule.of_xml) (Xml.child xml_arg0 "schedule") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        (Option.map ~f:RecommendedActionTypeList.of_xml)
          (Xml.child xml_arg0 "recommendedActionTypes") in
      let priority =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "priority") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "organizationConfiguration") in
      let ruleType =
        (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "ruleType") in
      let description =
        (Option.map ~f:RuleDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let ruleRevision =
        Long.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleRevision") in
      let ruleArn =
        RuleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleArn") in
      make ?clientToken ?status ?schedule ?criteria ?recommendedActionTypes
        ?priority ?organizationConfiguration ?ruleType ?description ?name
        ~ruleRevision ~ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let schedule = field_map json__ "schedule" Schedule.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let priority = field_map json__ "priority" String_.of_json in
      let organizationConfiguration =
        field_map json__ "organizationConfiguration"
          OrganizationConfiguration.of_json in
      let ruleType = field_map json__ "ruleType" RuleType.of_json in
      let description =
        field_map json__ "description" RuleDescription.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let ruleRevision = field_map_exn json__ "ruleRevision" Long.of_json in
      let ruleArn = field_map_exn json__ "ruleArn" RuleArn.of_json in
      make ?clientToken ?status ?schedule ?criteria ?recommendedActionTypes
        ?priority ?organizationConfiguration ?ruleType ?description ?name
        ~ruleRevision ~ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing automation rule."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: RuleArn.t [@ocaml.doc "The ARN of the resource to untag."];
      ruleRevision: Long.t
        [@ocaml.doc
          "The revision number of the automation rule to untag. This ensures you're untagging the correct version of the rule."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The keys of the tags to remove from the resource."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Must be 1-64 characters long and contain only alphanumeric characters, underscores, and hyphens."]}
    let context_ = "UntagResourceRequest"
    let make ?clientToken =
      fun ~resourceArn ->
        fun ~ruleRevision ->
          fun ~tagKeys ->
            fun () -> { clientToken; resourceArn; ruleRevision; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (RuleArn.to_value x.resourceArn)));
        ("ruleRevision", (Some (Long.to_value x.ruleRevision)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let ruleRevision =
        Long.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleRevision") in
      let resourceArn =
        RuleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ?clientToken ~tagKeys ~ruleRevision ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let ruleRevision = field_map_exn json__ "ruleRevision" Long.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" RuleArn.of_json in
      make ?clientToken ~tagKeys ~ruleRevision ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds tags to the specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: RuleArn.t [@ocaml.doc "The ARN of the resource to tag."];
      ruleRevision: Long.t
        [@ocaml.doc
          "The revision number of the automation rule to tag. This ensures you're tagging the correct version of the rule."];
      tags: TagList.t [@ocaml.doc "The tags to add to the resource."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Must be 1-64 characters long and contain only alphanumeric characters, underscores, and hyphens."]}
    let context_ = "TagResourceRequest"
    let make ?clientToken =
      fun ~resourceArn ->
        fun ~ruleRevision ->
          fun ~tags ->
            fun () -> { clientToken; resourceArn; ruleRevision; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (RuleArn.to_value x.resourceArn)));
        ("ruleRevision", (Some (Long.to_value x.ruleRevision)));
        ("tags", (Some (TagList.to_value x.tags)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let ruleRevision =
        Long.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleRevision") in
      let resourceArn =
        RuleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ?clientToken ~tags ~ruleRevision ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let ruleRevision = field_map_exn json__ "ruleRevision" Long.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" RuleArn.of_json in
      make ?clientToken ~tags ~ruleRevision ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds tags to the specified resource."]
module StartAutomationEventResponse =
  struct
    type nonrec t =
      {
      recommendedActionId: RecommendedActionId.t option
        [@ocaml.doc "The ID of the recommended action being automated."];
      eventId: EventId.t option
        [@ocaml.doc "The ID of the automation event."];
      eventStatus: EventStatus.t option
        [@ocaml.doc "The current status of the automation event."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?recommendedActionId =
      fun ?eventId ->
        fun ?eventStatus ->
          fun () -> { recommendedActionId; eventId; eventStatus }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("recommendedActionId",
           (Option.map x.recommendedActionId ~f:RecommendedActionId.to_value));
        ("eventId", (Option.map x.eventId ~f:EventId.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "eventId") in
      let recommendedActionId =
        (Option.map ~f:RecommendedActionId.of_xml)
          (Xml.child xml_arg0 "recommendedActionId") in
      make ?eventStatus ?eventId ?recommendedActionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let eventId = field_map json__ "eventId" EventId.of_json in
      let recommendedActionId =
        field_map json__ "recommendedActionId" RecommendedActionId.of_json in
      make ?eventStatus ?eventId ?recommendedActionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a one-time, on-demand automation for the specified recommended action. Management accounts and delegated administrators can only initiate recommended actions for associated member accounts. You can associate a member account using AssociateAccounts."]
module StartAutomationEventRequest =
  struct
    type nonrec t =
      {
      recommendedActionId: RecommendedActionId.t
        [@ocaml.doc "The ID of the recommended action to automate."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Must be 1-64 characters long and contain only alphanumeric characters, underscores, and hyphens."]}
    let context_ = "StartAutomationEventRequest"
    let make ?clientToken =
      fun ~recommendedActionId ->
        fun () -> { clientToken; recommendedActionId }
    let to_value x =
      structure_to_value
        [("recommendedActionId",
           (Some (RecommendedActionId.to_value x.recommendedActionId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let recommendedActionId =
        RecommendedActionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recommendedActionId") in
      make ?clientToken ~recommendedActionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let recommendedActionId =
        field_map_exn json__ "recommendedActionId"
          RecommendedActionId.of_json in
      make ?clientToken ~recommendedActionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a one-time, on-demand automation for the specified recommended action. Management accounts and delegated administrators can only initiate recommended actions for associated member accounts. You can associate a member account using AssociateAccounts."]
module RollbackAutomationEventResponse =
  struct
    type nonrec t =
      {
      eventId: EventId.t option
        [@ocaml.doc "The ID of the automation event being rolled back."];
      eventStatus: EventStatus.t option
        [@ocaml.doc "The current status of the rollback operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventId =
      fun ?eventStatus -> fun () -> { eventId; eventStatus }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:EventId.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?eventStatus ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let eventId = field_map json__ "eventId" EventId.of_json in
      make ?eventStatus ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a rollback for a completed automation event. Management accounts and delegated administrators can only initiate a rollback for events belonging to associated member accounts. You can associate a member account using AssociateAccounts."]
module RollbackAutomationEventRequest =
  struct
    type nonrec t =
      {
      eventId: EventId.t
        [@ocaml.doc "The ID of the automation event to roll back."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Must be 1-64 characters long and contain only alphanumeric characters, underscores, and hyphens."]}
    let context_ = "RollbackAutomationEventRequest"
    let make ?clientToken =
      fun ~eventId -> fun () -> { clientToken; eventId }
    let to_value x =
      structure_to_value
        [("eventId", (Some (EventId.to_value x.eventId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let eventId =
        EventId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ?clientToken ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let eventId = field_map_exn json__ "eventId" EventId.of_json in
      make ?clientToken ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a rollback for a completed automation event. Management accounts and delegated administrators can only initiate a rollback for events belonging to associated member accounts. You can associate a member account using AssociateAccounts."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The list of tags associated with the specified resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f: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
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: RuleArn.t
        [@ocaml.doc "The ARN of the resource to list tags for."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (RuleArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        RuleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" RuleArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags for a specified resource."]
module ListRecommendedActionsResponse =
  struct
    type nonrec t =
      {
      recommendedActions: RecommendedActions.t option
        [@ocaml.doc
          "The list of recommended actions that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?recommendedActions =
      fun ?nextToken -> fun () -> { recommendedActions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("recommendedActions",
           (Option.map x.recommendedActions ~f:RecommendedActions.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let recommendedActions =
        (Option.map ~f:RecommendedActions.of_xml)
          (Xml.child xml_arg0 "recommendedActions") in
      make ?nextToken ?recommendedActions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let recommendedActions =
        field_map json__ "recommendedActions" RecommendedActions.of_json in
      make ?nextToken ?recommendedActions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the recommended actions based that match specified filters. Management accounts and delegated administrators can retrieve recommended actions that include associated member accounts. You can associate a member account using AssociateAccounts."]
module ListRecommendedActionsRequest =
  struct
    type nonrec t =
      {
      filters: RecommendedActionFilterList.t option
        [@ocaml.doc
          "The filters to apply to the list of recommended actions."];
      maxResults: ListRecommendedActionsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of recommended actions to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("filters",
           (Option.map x.filters ~f:RecommendedActionFilterList.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListRecommendedActionsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListRecommendedActionsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let filters =
        (Option.map ~f:RecommendedActionFilterList.of_xml)
          (Xml.child xml_arg0 "filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListRecommendedActionsRequestMaxResultsInteger.of_json in
      let filters =
        field_map json__ "filters" RecommendedActionFilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the recommended actions based that match specified filters. Management accounts and delegated administrators can retrieve recommended actions that include associated member accounts. You can associate a member account using AssociateAccounts."]
module ListRecommendedActionSummariesResponse =
  struct
    type nonrec t =
      {
      recommendedActionSummaries: RecommendedActionSummaries.t option
        [@ocaml.doc
          "The summary of recommended actions that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?recommendedActionSummaries =
      fun ?nextToken -> fun () -> { recommendedActionSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("recommendedActionSummaries",
           (Option.map x.recommendedActionSummaries
              ~f:RecommendedActionSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let recommendedActionSummaries =
        (Option.map ~f:RecommendedActionSummaries.of_xml)
          (Xml.child xml_arg0 "recommendedActionSummaries") in
      make ?nextToken ?recommendedActionSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let recommendedActionSummaries =
        field_map json__ "recommendedActionSummaries"
          RecommendedActionSummaries.of_json in
      make ?nextToken ?recommendedActionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of recommended actions based on specified filters. Management accounts and delegated administrators can retrieve recommended actions that include associated member accounts. You can associate a member account using AssociateAccounts."]
module ListRecommendedActionSummariesRequest =
  struct
    type nonrec t =
      {
      filters: RecommendedActionFilterList.t option
        [@ocaml.doc
          "A list of filters to apply when retrieving recommended action summaries. Filters can be based on resource type, action type, account ID, and other criteria."];
      maxResults:
        ListRecommendedActionSummariesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of recommended action summaries to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("filters",
           (Option.map x.filters ~f:RecommendedActionFilterList.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListRecommendedActionSummariesRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListRecommendedActionSummariesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let filters =
        (Option.map ~f:RecommendedActionFilterList.of_xml)
          (Xml.child xml_arg0 "filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListRecommendedActionSummariesRequestMaxResultsInteger.of_json in
      let filters =
        field_map json__ "filters" RecommendedActionFilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of recommended actions based on specified filters. Management accounts and delegated administrators can retrieve recommended actions that include associated member accounts. You can associate a member account using AssociateAccounts."]
module ListAutomationRulesResponse =
  struct
    type nonrec t =
      {
      automationRules: AutomationRules.t option
        [@ocaml.doc
          "The list of automation rules that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?automationRules =
      fun ?nextToken -> fun () -> { automationRules; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("automationRules",
           (Option.map x.automationRules ~f:AutomationRules.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let automationRules =
        (Option.map ~f:AutomationRules.of_xml)
          (Xml.child xml_arg0 "automationRules") in
      make ?nextToken ?automationRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let automationRules =
        field_map json__ "automationRules" AutomationRules.of_json in
      make ?nextToken ?automationRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the automation rules that match specified filters."]
module ListAutomationRulesRequest =
  struct
    type nonrec t =
      {
      filters: FilterList.t option
        [@ocaml.doc "The filters to apply to the list of automation rules."];
      maxResults: ListAutomationRulesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of automation rules to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("filters", (Option.map x.filters ~f:FilterList.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAutomationRulesRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListAutomationRulesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAutomationRulesRequestMaxResultsInteger.of_json in
      let filters = field_map json__ "filters" FilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the automation rules that match specified filters."]
module ListAutomationRulePreviewSummariesResponse =
  struct
    type nonrec t =
      {
      previewResultSummaries: PreviewResultSummaries.t option
        [@ocaml.doc
          "The list of automation rule preview summaries that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?previewResultSummaries =
      fun ?nextToken -> fun () -> { previewResultSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("previewResultSummaries",
           (Option.map x.previewResultSummaries
              ~f:PreviewResultSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let previewResultSummaries =
        (Option.map ~f:PreviewResultSummaries.of_xml)
          (Xml.child xml_arg0 "previewResultSummaries") in
      make ?nextToken ?previewResultSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let previewResultSummaries =
        field_map json__ "previewResultSummaries"
          PreviewResultSummaries.of_json in
      make ?nextToken ?previewResultSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of the recommended actions that match your rule preview configuration and criteria."]
module ListAutomationRulePreviewSummariesRequest =
  struct
    type nonrec t =
      {
      ruleType: RuleType.t [@ocaml.doc "The type of rule."];
      organizationScope: OrganizationScope.t option
        [@ocaml.doc "The organizational scope for the rule preview."];
      recommendedActionTypes: RecommendedActionTypeList.t
        [@ocaml.doc
          "The types of recommended actions to include in the preview."];
      criteria: Criteria.t option ;
      maxResults:
        ListAutomationRulePreviewSummariesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of automation rule preview summaries to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let context_ = "ListAutomationRulePreviewSummariesRequest"
    let make ?organizationScope =
      fun ?criteria ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~ruleType ->
              fun ~recommendedActionTypes ->
                fun () ->
                  {
                    organizationScope;
                    criteria;
                    maxResults;
                    nextToken;
                    ruleType;
                    recommendedActionTypes
                  }
    let to_value x =
      structure_to_value
        [("ruleType", (Some (RuleType.to_value x.ruleType)));
        ("organizationScope",
          (Option.map x.organizationScope ~f:OrganizationScope.to_value));
        ("recommendedActionTypes",
          (Some (RecommendedActionTypeList.to_value x.recommendedActionTypes)));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAutomationRulePreviewSummariesRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListAutomationRulePreviewSummariesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        RecommendedActionTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recommendedActionTypes") in
      let organizationScope =
        (Option.map ~f:OrganizationScope.of_xml)
          (Xml.child xml_arg0 "organizationScope") in
      let ruleType =
        RuleType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleType") in
      make ?nextToken ?maxResults ?criteria ~recommendedActionTypes
        ?organizationScope ~ruleType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAutomationRulePreviewSummariesRequestMaxResultsInteger.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map_exn json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let organizationScope =
        field_map json__ "organizationScope" OrganizationScope.of_json in
      let ruleType = field_map_exn json__ "ruleType" RuleType.of_json in
      make ?nextToken ?maxResults ?criteria ~recommendedActionTypes
        ?organizationScope ~ruleType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a summary of the recommended actions that match your rule preview configuration and criteria."]
module ListAutomationRulePreviewResponse =
  struct
    type nonrec t =
      {
      previewResults: PreviewResults.t option
        [@ocaml.doc
          "The list of actions that would be taken based on the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?previewResults =
      fun ?nextToken -> fun () -> { previewResults; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("previewResults",
           (Option.map x.previewResults ~f:PreviewResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let previewResults =
        (Option.map ~f:PreviewResults.of_xml)
          (Xml.child xml_arg0 "previewResults") in
      make ?nextToken ?previewResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let previewResults =
        field_map json__ "previewResults" PreviewResults.of_json in
      make ?nextToken ?previewResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a preview of the recommended actions that match your Automation rule's configuration and criteria."]
module ListAutomationRulePreviewRequest =
  struct
    type nonrec t =
      {
      ruleType: RuleType.t
        [@ocaml.doc
          "The type of rule. Only the management account or a delegated administrator can set the ruleType to be OrganizationRule."];
      organizationScope: OrganizationScope.t option
        [@ocaml.doc "The organizational scope for the rule preview."];
      recommendedActionTypes: RecommendedActionTypeList.t
        [@ocaml.doc
          "The types of recommended actions to include in the preview."];
      criteria: Criteria.t option
        [@ocaml.doc
          "A set of conditions that specify which recommended action qualify for implementation. When a rule is active and a recommended action matches these criteria, Compute Optimizer implements the action at the scheduled run time."];
      maxResults: ListAutomationRulePreviewRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of automation rule preview results to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let context_ = "ListAutomationRulePreviewRequest"
    let make ?organizationScope =
      fun ?criteria ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~ruleType ->
              fun ~recommendedActionTypes ->
                fun () ->
                  {
                    organizationScope;
                    criteria;
                    maxResults;
                    nextToken;
                    ruleType;
                    recommendedActionTypes
                  }
    let to_value x =
      structure_to_value
        [("ruleType", (Some (RuleType.to_value x.ruleType)));
        ("organizationScope",
          (Option.map x.organizationScope ~f:OrganizationScope.to_value));
        ("recommendedActionTypes",
          (Some (RecommendedActionTypeList.to_value x.recommendedActionTypes)));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAutomationRulePreviewRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListAutomationRulePreviewRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        RecommendedActionTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recommendedActionTypes") in
      let organizationScope =
        (Option.map ~f:OrganizationScope.of_xml)
          (Xml.child xml_arg0 "organizationScope") in
      let ruleType =
        RuleType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleType") in
      make ?nextToken ?maxResults ?criteria ~recommendedActionTypes
        ?organizationScope ~ruleType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAutomationRulePreviewRequestMaxResultsInteger.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map_exn json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let organizationScope =
        field_map json__ "organizationScope" OrganizationScope.of_json in
      let ruleType = field_map_exn json__ "ruleType" RuleType.of_json in
      make ?nextToken ?maxResults ?criteria ~recommendedActionTypes
        ?organizationScope ~ruleType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a preview of the recommended actions that match your Automation rule's configuration and criteria."]
module ListAutomationEventsResponse =
  struct
    type nonrec t =
      {
      automationEvents: AutomationEvents.t option
        [@ocaml.doc
          "The list of automation events that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?automationEvents =
      fun ?nextToken -> fun () -> { automationEvents; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("automationEvents",
           (Option.map x.automationEvents ~f:AutomationEvents.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let automationEvents =
        (Option.map ~f:AutomationEvents.of_xml)
          (Xml.child xml_arg0 "automationEvents") in
      make ?nextToken ?automationEvents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let automationEvents =
        field_map json__ "automationEvents" AutomationEvents.of_json in
      make ?nextToken ?automationEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists automation events based on specified filters. You can retrieve events that were created within the past year."]
module ListAutomationEventsRequest =
  struct
    type nonrec t =
      {
      filters: AutomationEventFilterList.t option
        [@ocaml.doc "The filters to apply to the list of automation events."];
      startTimeInclusive: Timestamp.t option
        [@ocaml.doc "The start of the time range to query for events."];
      endTimeExclusive: Timestamp.t option
        [@ocaml.doc "The end of the time range to query for events."];
      maxResults: ListAutomationEventsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let make ?filters =
      fun ?startTimeInclusive ->
        fun ?endTimeExclusive ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun () ->
                {
                  filters;
                  startTimeInclusive;
                  endTimeExclusive;
                  maxResults;
                  nextToken
                }
    let to_value x =
      structure_to_value
        [("filters",
           (Option.map x.filters ~f:AutomationEventFilterList.to_value));
        ("startTimeInclusive",
          (Option.map x.startTimeInclusive ~f:Timestamp.to_value));
        ("endTimeExclusive",
          (Option.map x.endTimeExclusive ~f:Timestamp.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAutomationEventsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListAutomationEventsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let endTimeExclusive =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "endTimeExclusive") in
      let startTimeInclusive =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "startTimeInclusive") in
      let filters =
        (Option.map ~f:AutomationEventFilterList.of_xml)
          (Xml.child xml_arg0 "filters") in
      make ?nextToken ?maxResults ?endTimeExclusive ?startTimeInclusive
        ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAutomationEventsRequestMaxResultsInteger.of_json in
      let endTimeExclusive =
        field_map json__ "endTimeExclusive" Timestamp.of_json in
      let startTimeInclusive =
        field_map json__ "startTimeInclusive" Timestamp.of_json in
      let filters =
        field_map json__ "filters" AutomationEventFilterList.of_json in
      make ?nextToken ?maxResults ?endTimeExclusive ?startTimeInclusive
        ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists automation events based on specified filters. You can retrieve events that were created within the past year."]
module ListAutomationEventSummariesResponse =
  struct
    type nonrec t =
      {
      automationEventSummaries: AutomationEventSummaryList.t option
        [@ocaml.doc
          "The list of automation event summaries that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?automationEventSummaries =
      fun ?nextToken -> fun () -> { automationEventSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("automationEventSummaries",
           (Option.map x.automationEventSummaries
              ~f:AutomationEventSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let automationEventSummaries =
        (Option.map ~f:AutomationEventSummaryList.of_xml)
          (Xml.child xml_arg0 "automationEventSummaries") in
      make ?nextToken ?automationEventSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let automationEventSummaries =
        field_map json__ "automationEventSummaries"
          AutomationEventSummaryList.of_json in
      make ?nextToken ?automationEventSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of automation events based on specified filters. Only events created within the past year will be included in the summary."]
module ListAutomationEventSummariesRequest =
  struct
    type nonrec t =
      {
      filters: AutomationEventFilterList.t option
        [@ocaml.doc
          "The filters to apply to the list of automation event summaries."];
      startDateInclusive: String_.t option
        [@ocaml.doc
          "The start date for filtering automation event summaries, inclusive. Events created on or after this date will be included."];
      endDateExclusive: String_.t option
        [@ocaml.doc
          "The end date for filtering automation event summaries, exclusive. Events created before this date will be included."];
      maxResults:
        ListAutomationEventSummariesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of automation event summaries to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let make ?filters =
      fun ?startDateInclusive ->
        fun ?endDateExclusive ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun () ->
                {
                  filters;
                  startDateInclusive;
                  endDateExclusive;
                  maxResults;
                  nextToken
                }
    let to_value x =
      structure_to_value
        [("filters",
           (Option.map x.filters ~f:AutomationEventFilterList.to_value));
        ("startDateInclusive",
          (Option.map x.startDateInclusive ~f:String_.to_value));
        ("endDateExclusive",
          (Option.map x.endDateExclusive ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAutomationEventSummariesRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListAutomationEventSummariesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let endDateExclusive =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "endDateExclusive") in
      let startDateInclusive =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "startDateInclusive") in
      let filters =
        (Option.map ~f:AutomationEventFilterList.of_xml)
          (Xml.child xml_arg0 "filters") in
      make ?nextToken ?maxResults ?endDateExclusive ?startDateInclusive
        ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAutomationEventSummariesRequestMaxResultsInteger.of_json in
      let endDateExclusive =
        field_map json__ "endDateExclusive" String_.of_json in
      let startDateInclusive =
        field_map json__ "startDateInclusive" String_.of_json in
      let filters =
        field_map json__ "filters" AutomationEventFilterList.of_json in
      make ?nextToken ?maxResults ?endDateExclusive ?startDateInclusive
        ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of automation events based on specified filters. Only events created within the past year will be included in the summary."]
module ListAutomationEventStepsResponse =
  struct
    type nonrec t =
      {
      automationEventSteps: AutomationEventSteps.t option
        [@ocaml.doc "The list of steps for the specified automation event."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination. If present, indicates there are more results available and can be used in subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?automationEventSteps =
      fun ?nextToken -> fun () -> { automationEventSteps; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("automationEventSteps",
           (Option.map x.automationEventSteps
              ~f:AutomationEventSteps.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let automationEventSteps =
        (Option.map ~f:AutomationEventSteps.of_xml)
          (Xml.child xml_arg0 "automationEventSteps") in
      make ?nextToken ?automationEventSteps ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let automationEventSteps =
        field_map json__ "automationEventSteps" AutomationEventSteps.of_json in
      make ?nextToken ?automationEventSteps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the steps for a specific automation event. You can only list steps for events created within the past year."]
module ListAutomationEventStepsRequest =
  struct
    type nonrec t =
      {
      eventId: EventId.t [@ocaml.doc "The ID of the automation event."];
      maxResults: ListAutomationEventStepsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of automation event steps to return in a single response. Valid range is 1-1000."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token used for pagination to retrieve the next set of results when the response is truncated."]}
    let context_ = "ListAutomationEventStepsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~eventId -> fun () -> { maxResults; nextToken; eventId }
    let to_value x =
      structure_to_value
        [("eventId", (Some (EventId.to_value x.eventId)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAutomationEventStepsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListAutomationEventStepsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let eventId =
        EventId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ?nextToken ?maxResults ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAutomationEventStepsRequestMaxResultsInteger.of_json in
      let eventId = field_map_exn json__ "eventId" EventId.of_json in
      make ?nextToken ?maxResults ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the steps for a specific automation event. You can only list steps for events created within the past year."]
module ListAccountsResponse =
  struct
    type nonrec t =
      {
      accounts: AccountInfoList.t option
        [@ocaml.doc
          "The list of accounts in your organization enrolled in Compute Optimizer"];
      nextToken: NextToken.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `NotManagementAccountException of NotManagementAccountException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accounts = fun ?nextToken -> fun () -> { accounts; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `NotManagementAccountException e ->
          `Assoc
            [("error", (`String "NotManagementAccountException"));
            ("details", (NotManagementAccountException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("accounts", (Option.map x.accounts ~f:AccountInfoList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let accounts =
        (Option.map ~f:AccountInfoList.of_xml)
          (Xml.child xml_arg0 "accounts") in
      make ?nextToken ?accounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let accounts = field_map json__ "accounts" AccountInfoList.of_json in
      make ?nextToken ?accounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the accounts in your organization that are enrolled in Compute Optimizer and whether they have enabled Automation. Only the management account or a delegated administrator can perform this action."]
module ListAccountsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListAccountsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListAccountsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListAccountsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAccountsRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the accounts in your organization that are enrolled in Compute Optimizer and whether they have enabled Automation. Only the management account or a delegated administrator can perform this action."]
module GetEnrollmentConfigurationResponse =
  struct
    type nonrec t =
      {
      status: EnrollmentStatus.t option
        [@ocaml.doc "The current enrollment status."];
      statusReason: String_.t option
        [@ocaml.doc "The reason for the current enrollment status."];
      organizationRuleMode: OrganizationRuleMode.t option
        [@ocaml.doc
          "Specifies whether the management account can create Automation rules that implement optimization actions for this account."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the last update to the enrollment configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?statusReason ->
        fun ?organizationRuleMode ->
          fun ?lastUpdatedTimestamp ->
            fun () ->
              {
                status;
                statusReason;
                organizationRuleMode;
                lastUpdatedTimestamp
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:EnrollmentStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("organizationRuleMode",
          (Option.map x.organizationRuleMode ~f:OrganizationRuleMode.to_value));
        ("lastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTimestamp") in
      let organizationRuleMode =
        (Option.map ~f:OrganizationRuleMode.of_xml)
          (Xml.child xml_arg0 "organizationRuleMode") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:EnrollmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?lastUpdatedTimestamp ?organizationRuleMode ?statusReason ?status
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "lastUpdatedTimestamp" Timestamp.of_json in
      let organizationRuleMode =
        field_map json__ "organizationRuleMode" OrganizationRuleMode.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" EnrollmentStatus.of_json in
      make ?lastUpdatedTimestamp ?organizationRuleMode ?statusReason ?status
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current enrollment configuration for Compute Optimizer Automation."]
module GetEnrollmentConfigurationRequest =
  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
       "Retrieves the current enrollment configuration for Compute Optimizer Automation."]
module GetAutomationRuleResponse =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the automation rule."];
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the automation rule."];
      name: RuleName.t option [@ocaml.doc "The name of the automation rule."];
      description: String_.t option
        [@ocaml.doc "A description of the automation rule."];
      ruleType: RuleType.t option [@ocaml.doc "The type of automation rule."];
      ruleRevision: Long.t option
        [@ocaml.doc "The revision number of the automation rule."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The 12-digit Amazon Web Services account ID that owns this automation rule."];
      organizationConfiguration: OrganizationConfiguration.t option ;
      priority: String_.t option
        [@ocaml.doc
          "A string representation of a decimal number between 0 and 1 (having up to 30 digits after the decimal point) that determines the priority of the rule."];
      recommendedActionTypes: RecommendedActionTypeList.t option
        [@ocaml.doc
          "List of recommended action types that this rule can execute."];
      criteria: Criteria.t option ;
      schedule: Schedule.t option ;
      status: RuleStatus.t option
        [@ocaml.doc
          "The current status of the automation rule (Active or Inactive)."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the automation rule."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation rule was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the automation rule was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleArn =
      fun ?ruleId ->
        fun ?name ->
          fun ?description ->
            fun ?ruleType ->
              fun ?ruleRevision ->
                fun ?accountId ->
                  fun ?organizationConfiguration ->
                    fun ?priority ->
                      fun ?recommendedActionTypes ->
                        fun ?criteria ->
                          fun ?schedule ->
                            fun ?status ->
                              fun ?tags ->
                                fun ?createdTimestamp ->
                                  fun ?lastUpdatedTimestamp ->
                                    fun () ->
                                      {
                                        ruleArn;
                                        ruleId;
                                        name;
                                        description;
                                        ruleType;
                                        ruleRevision;
                                        accountId;
                                        organizationConfiguration;
                                        priority;
                                        recommendedActionTypes;
                                        criteria;
                                        schedule;
                                        status;
                                        tags;
                                        createdTimestamp;
                                        lastUpdatedTimestamp
                                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleArn", (Option.map x.ruleArn ~f:RuleArn.to_value));
        ("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("ruleType", (Option.map x.ruleType ~f:RuleType.to_value));
        ("ruleRevision", (Option.map x.ruleRevision ~f:Long.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("organizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("priority", (Option.map x.priority ~f:String_.to_value));
        ("recommendedActionTypes",
          (Option.map x.recommendedActionTypes
             ~f:RecommendedActionTypeList.to_value));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("schedule", (Option.map x.schedule ~f:Schedule.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("createdTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("lastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "createdTimestamp") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let schedule =
        (Option.map ~f:Schedule.of_xml) (Xml.child xml_arg0 "schedule") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        (Option.map ~f:RecommendedActionTypeList.of_xml)
          (Xml.child xml_arg0 "recommendedActionTypes") in
      let priority =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "priority") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "organizationConfiguration") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let ruleRevision =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "ruleRevision") in
      let ruleType =
        (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "ruleType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      let ruleArn =
        (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "ruleArn") in
      make ?lastUpdatedTimestamp ?createdTimestamp ?tags ?status ?schedule
        ?criteria ?recommendedActionTypes ?priority
        ?organizationConfiguration ?accountId ?ruleRevision ?ruleType
        ?description ?name ?ruleId ?ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "lastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "createdTimestamp" Timestamp.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let schedule = field_map json__ "schedule" Schedule.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let priority = field_map json__ "priority" String_.of_json in
      let organizationConfiguration =
        field_map json__ "organizationConfiguration"
          OrganizationConfiguration.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let ruleRevision = field_map json__ "ruleRevision" Long.of_json in
      let ruleType = field_map json__ "ruleType" RuleType.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      let ruleArn = field_map json__ "ruleArn" RuleArn.of_json in
      make ?lastUpdatedTimestamp ?createdTimestamp ?tags ?status ?schedule
        ?criteria ?recommendedActionTypes ?priority
        ?organizationConfiguration ?accountId ?ruleRevision ?ruleType
        ?description ?name ?ruleId ?ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a specific automation rule."]
module GetAutomationRuleRequest =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t [@ocaml.doc "The ARN of the rule to retrieve."]}
    let context_ = "GetAutomationRuleRequest"
    let make ~ruleArn = fun () -> { ruleArn }
    let to_value x =
      structure_to_value [("ruleArn", (Some (RuleArn.to_value x.ruleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleArn =
        RuleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleArn") in
      make ~ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleArn = field_map_exn json__ "ruleArn" RuleArn.of_json in
      make ~ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a specific automation rule."]
module GetAutomationEventResponse =
  struct
    type nonrec t =
      {
      eventId: EventId.t option
        [@ocaml.doc "The ID of the automation event to retrieve."];
      eventDescription: String_.t option
        [@ocaml.doc "A description of the automation event."];
      eventType: EventType.t option
        [@ocaml.doc "The type of automation event."];
      eventStatus: EventStatus.t option
        [@ocaml.doc "The current status of the automation event."];
      eventStatusReason: String_.t option
        [@ocaml.doc "The reason for the current event status."];
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource affected by the automation event."];
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The ID of the resource affected by the automation event."];
      recommendedActionId: RecommendedActionId.t option
        [@ocaml.doc
          "The ID of the recommended action associated with this automation event."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the automation event."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the automation event occurred."];
      ruleId: RuleId.t option
        [@ocaml.doc
          "The ID of the automation rule that triggered this event."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource affected by the automation event."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation event was created."];
      completedTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation event completed."];
      estimatedMonthlySavings: EstimatedMonthlySavings.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventId =
      fun ?eventDescription ->
        fun ?eventType ->
          fun ?eventStatus ->
            fun ?eventStatusReason ->
              fun ?resourceArn ->
                fun ?resourceId ->
                  fun ?recommendedActionId ->
                    fun ?accountId ->
                      fun ?region ->
                        fun ?ruleId ->
                          fun ?resourceType ->
                            fun ?createdTimestamp ->
                              fun ?completedTimestamp ->
                                fun ?estimatedMonthlySavings ->
                                  fun () ->
                                    {
                                      eventId;
                                      eventDescription;
                                      eventType;
                                      eventStatus;
                                      eventStatusReason;
                                      resourceArn;
                                      resourceId;
                                      recommendedActionId;
                                      accountId;
                                      region;
                                      ruleId;
                                      resourceType;
                                      createdTimestamp;
                                      completedTimestamp;
                                      estimatedMonthlySavings
                                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:EventId.to_value));
        ("eventDescription",
          (Option.map x.eventDescription ~f:String_.to_value));
        ("eventType", (Option.map x.eventType ~f:EventType.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("eventStatusReason",
          (Option.map x.eventStatusReason ~f:String_.to_value));
        ("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("recommendedActionId",
          (Option.map x.recommendedActionId ~f:RecommendedActionId.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("region", (Option.map x.region ~f:String_.to_value));
        ("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("createdTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("completedTimestamp",
          (Option.map x.completedTimestamp ~f:Timestamp.to_value));
        ("estimatedMonthlySavings",
          (Option.map x.estimatedMonthlySavings
             ~f:EstimatedMonthlySavings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedMonthlySavings =
        (Option.map ~f:EstimatedMonthlySavings.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      let completedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "completedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "createdTimestamp") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let recommendedActionId =
        (Option.map ~f:RecommendedActionId.of_xml)
          (Xml.child xml_arg0 "recommendedActionId") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      let eventStatusReason =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "eventStatusReason") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let eventType =
        (Option.map ~f:EventType.of_xml) (Xml.child xml_arg0 "eventType") in
      let eventDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "eventDescription") in
      let eventId =
        (Option.map ~f:EventId.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?estimatedMonthlySavings ?completedTimestamp ?createdTimestamp
        ?resourceType ?ruleId ?region ?accountId ?recommendedActionId
        ?resourceId ?resourceArn ?eventStatusReason ?eventStatus ?eventType
        ?eventDescription ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings"
          EstimatedMonthlySavings.of_json in
      let completedTimestamp =
        field_map json__ "completedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "createdTimestamp" Timestamp.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      let region = field_map json__ "region" String_.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let recommendedActionId =
        field_map json__ "recommendedActionId" RecommendedActionId.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      let eventStatusReason =
        field_map json__ "eventStatusReason" String_.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let eventType = field_map json__ "eventType" EventType.of_json in
      let eventDescription =
        field_map json__ "eventDescription" String_.of_json in
      let eventId = field_map json__ "eventId" EventId.of_json in
      make ?estimatedMonthlySavings ?completedTimestamp ?createdTimestamp
        ?resourceType ?ruleId ?region ?accountId ?recommendedActionId
        ?resourceId ?resourceArn ?eventStatusReason ?eventStatus ?eventType
        ?eventDescription ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a specific automation event."]
module GetAutomationEventRequest =
  struct
    type nonrec t =
      {
      eventId: EventId.t
        [@ocaml.doc "The ID of the automation event to retrieve."]}
    let context_ = "GetAutomationEventRequest"
    let make ~eventId = fun () -> { eventId }
    let to_value x =
      structure_to_value [("eventId", (Some (EventId.to_value x.eventId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventId =
        EventId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventId = field_map_exn json__ "eventId" EventId.of_json in
      make ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a specific automation event."]
module DisassociateAccountsResponse =
  struct
    type nonrec t =
      {
      accountIds: AccountIdList.t option
        [@ocaml.doc
          "The IDs of the member accounts that were successfully disassociated."];
      errors: StringList.t option
        [@ocaml.doc
          "Any errors that occurred during the disassociation process."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `NotManagementAccountException of NotManagementAccountException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountIds = fun ?errors -> fun () -> { accountIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `NotManagementAccountException e ->
          `Assoc
            [("error", (`String "NotManagementAccountException"));
            ("details", (NotManagementAccountException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("accountIds", (Option.map x.accountIds ~f:AccountIdList.to_value));
        ("errors", (Option.map x.errors ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "errors") in
      let accountIds =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "accountIds") in
      make ?errors ?accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "errors" StringList.of_json in
      let accountIds = field_map json__ "accountIds" AccountIdList.of_json in
      make ?errors ?accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates member accounts from your organization's management account, removing centralized automation capabilities. Once disassociated, organization rules no longer apply to the member account, and the management account (or delegated administrator) cannot create Automation rules for that account. Only the management account or a delegated administrator can perform this action."]
module DisassociateAccountsRequest =
  struct
    type nonrec t =
      {
      accountIds: AccountIdList.t
        [@ocaml.doc "The IDs of the member accounts to disassociate."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique identifier to ensure idempotency of the request."]}
    let context_ = "DisassociateAccountsRequest"
    let make ?clientToken =
      fun ~accountIds -> fun () -> { clientToken; accountIds }
    let to_value x =
      structure_to_value
        [("accountIds", (Some (AccountIdList.to_value x.accountIds)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let accountIds =
        AccountIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountIds") in
      make ?clientToken ~accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let accountIds =
        field_map_exn json__ "accountIds" AccountIdList.of_json in
      make ?clientToken ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates member accounts from your organization's management account, removing centralized automation capabilities. Once disassociated, organization rules no longer apply to the member account, and the management account (or delegated administrator) cannot create Automation rules for that account. Only the management account or a delegated administrator can perform this action."]
module DeleteAutomationRuleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing automation rule."]
module DeleteAutomationRuleRequest =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t [@ocaml.doc "The ARN of the rule to delete."];
      ruleRevision: Long.t
        [@ocaml.doc "The revision number of the rule to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique identifier to ensure idempotency of the request."]}
    let context_ = "DeleteAutomationRuleRequest"
    let make ?clientToken =
      fun ~ruleArn ->
        fun ~ruleRevision -> fun () -> { clientToken; ruleArn; ruleRevision }
    let to_value x =
      structure_to_value
        [("ruleArn", (Some (RuleArn.to_value x.ruleArn)));
        ("ruleRevision", (Some (Long.to_value x.ruleRevision)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let ruleRevision =
        Long.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleRevision") in
      let ruleArn =
        RuleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleArn") in
      make ?clientToken ~ruleRevision ~ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let ruleRevision = field_map_exn json__ "ruleRevision" Long.of_json in
      let ruleArn = field_map_exn json__ "ruleArn" RuleArn.of_json in
      make ?clientToken ~ruleRevision ~ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing automation rule."]
module CreateAutomationRuleResponse =
  struct
    type nonrec t =
      {
      ruleArn: RuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the created rule."];
      ruleId: RuleId.t option
        [@ocaml.doc "The unique identifier of the created rule."];
      name: RuleName.t option
        [@ocaml.doc
          "The name of the automation rule. Must be 1-128 characters long and contain only alphanumeric characters, underscores, and hyphens."];
      description: String_.t option
        [@ocaml.doc
          "A description of the automation rule. Can be up to 1024 characters long and contain alphanumeric characters, underscores, hyphens, spaces, and certain special characters."];
      ruleType: RuleType.t option
        [@ocaml.doc
          "The type of automation rule. Can be either OrganizationRule for organization-wide rules or AccountRule for account-specific rules."];
      ruleRevision: Long.t option
        [@ocaml.doc
          "The revision number of the automation rule. This is incremented each time the rule is updated."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc
          "Configuration settings for organization-wide rules, including rule application order and target account IDs."];
      priority: String_.t option
        [@ocaml.doc
          "The priority level of the automation rule, used to determine execution order when multiple rules apply to the same resource."];
      recommendedActionTypes: RecommendedActionTypeList.t option
        [@ocaml.doc
          "List of recommended action types that this rule can execute, such as SnapshotAndDeleteUnattachedEbsVolume or UpgradeEbsVolumeType."];
      criteria: Criteria.t option ;
      schedule: Schedule.t option
        [@ocaml.doc
          "The schedule configuration for when the automation rule should execute, including cron expression, timezone, and execution window."];
      status: RuleStatus.t option
        [@ocaml.doc
          "The current status of the automation rule. Can be Active or Inactive."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of key-value pairs used to categorize and organize the automation rule. Maximum of 200 tags allowed."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when the automation rule was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleArn =
      fun ?ruleId ->
        fun ?name ->
          fun ?description ->
            fun ?ruleType ->
              fun ?ruleRevision ->
                fun ?organizationConfiguration ->
                  fun ?priority ->
                    fun ?recommendedActionTypes ->
                      fun ?criteria ->
                        fun ?schedule ->
                          fun ?status ->
                            fun ?tags ->
                              fun ?createdTimestamp ->
                                fun () ->
                                  {
                                    ruleArn;
                                    ruleId;
                                    name;
                                    description;
                                    ruleType;
                                    ruleRevision;
                                    organizationConfiguration;
                                    priority;
                                    recommendedActionTypes;
                                    criteria;
                                    schedule;
                                    status;
                                    tags;
                                    createdTimestamp
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleArn", (Option.map x.ruleArn ~f:RuleArn.to_value));
        ("ruleId", (Option.map x.ruleId ~f:RuleId.to_value));
        ("name", (Option.map x.name ~f:RuleName.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("ruleType", (Option.map x.ruleType ~f:RuleType.to_value));
        ("ruleRevision", (Option.map x.ruleRevision ~f:Long.to_value));
        ("organizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("priority", (Option.map x.priority ~f:String_.to_value));
        ("recommendedActionTypes",
          (Option.map x.recommendedActionTypes
             ~f:RecommendedActionTypeList.to_value));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("schedule", (Option.map x.schedule ~f:Schedule.to_value));
        ("status", (Option.map x.status ~f:RuleStatus.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("createdTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "createdTimestamp") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let status =
        (Option.map ~f:RuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      let schedule =
        (Option.map ~f:Schedule.of_xml) (Xml.child xml_arg0 "schedule") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        (Option.map ~f:RecommendedActionTypeList.of_xml)
          (Xml.child xml_arg0 "recommendedActionTypes") in
      let priority =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "priority") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "organizationConfiguration") in
      let ruleRevision =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "ruleRevision") in
      let ruleType =
        (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "ruleType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "name") in
      let ruleId =
        (Option.map ~f:RuleId.of_xml) (Xml.child xml_arg0 "ruleId") in
      let ruleArn =
        (Option.map ~f:RuleArn.of_xml) (Xml.child xml_arg0 "ruleArn") in
      make ?createdTimestamp ?tags ?status ?schedule ?criteria
        ?recommendedActionTypes ?priority ?organizationConfiguration
        ?ruleRevision ?ruleType ?description ?name ?ruleId ?ruleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdTimestamp =
        field_map json__ "createdTimestamp" Timestamp.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let status = field_map json__ "status" RuleStatus.of_json in
      let schedule = field_map json__ "schedule" Schedule.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let priority = field_map json__ "priority" String_.of_json in
      let organizationConfiguration =
        field_map json__ "organizationConfiguration"
          OrganizationConfiguration.of_json in
      let ruleRevision = field_map json__ "ruleRevision" Long.of_json in
      let ruleType = field_map json__ "ruleType" RuleType.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" RuleName.of_json in
      let ruleId = field_map json__ "ruleId" RuleId.of_json in
      let ruleArn = field_map json__ "ruleArn" RuleArn.of_json in
      make ?createdTimestamp ?tags ?status ?schedule ?criteria
        ?recommendedActionTypes ?priority ?organizationConfiguration
        ?ruleRevision ?ruleType ?description ?name ?ruleId ?ruleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new automation rule to apply recommended actions to resources based on specified criteria."]
module CreateAutomationRuleRequest =
  struct
    type nonrec t =
      {
      name: RuleName.t [@ocaml.doc "The name of the automation rule."];
      description: RuleDescription.t option
        [@ocaml.doc "A description of the automation rule."];
      ruleType: RuleType.t
        [@ocaml.doc
          "The type of rule. Only the management account or a delegated administrator can set the ruleType to be OrganizationRule."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc
          "Configuration for organization-level rules. Required for OrganizationRule type."];
      priority: String_.t option
        [@ocaml.doc
          "A string representation of a decimal number between 0 and 1 (having up to 30 digits after the decimal point) that determines the priority of the rule. When multiple rules match the same recommended action, Compute Optimizer assigns the action to the rule with the lowest priority value (highest priority), even if that rule is scheduled to run later than other matching rules."];
      recommendedActionTypes: RecommendedActionTypeList.t
        [@ocaml.doc
          "The types of recommended actions this rule will automate."];
      criteria: Criteria.t option
        [@ocaml.doc
          "A set of conditions that specify which recommended action qualify for implementation. When a rule is active and a recommended action matches these criteria, Compute Optimizer implements the action at the scheduled run time."];
      schedule: Schedule.t
        [@ocaml.doc "The schedule for when the rule should run."];
      status: RuleStatus.t [@ocaml.doc "The status of the rule"];
      tags: TagList.t option
        [@ocaml.doc "The tags to associate with the rule."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique identifier to ensure idempotency of the request."]}
    let context_ = "CreateAutomationRuleRequest"
    let make ?description =
      fun ?organizationConfiguration ->
        fun ?priority ->
          fun ?criteria ->
            fun ?tags ->
              fun ?clientToken ->
                fun ~name ->
                  fun ~ruleType ->
                    fun ~recommendedActionTypes ->
                      fun ~schedule ->
                        fun ~status ->
                          fun () ->
                            {
                              description;
                              organizationConfiguration;
                              priority;
                              criteria;
                              tags;
                              clientToken;
                              name;
                              ruleType;
                              recommendedActionTypes;
                              schedule;
                              status
                            }
    let to_value x =
      structure_to_value
        [("name", (Some (RuleName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:RuleDescription.to_value));
        ("ruleType", (Some (RuleType.to_value x.ruleType)));
        ("organizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("priority", (Option.map x.priority ~f:String_.to_value));
        ("recommendedActionTypes",
          (Some (RecommendedActionTypeList.to_value x.recommendedActionTypes)));
        ("criteria", (Option.map x.criteria ~f:Criteria.to_value));
        ("schedule", (Some (Schedule.to_value x.schedule)));
        ("status", (Some (RuleStatus.to_value x.status)));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let status =
        RuleStatus.of_xml (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let schedule =
        Schedule.of_xml (Xml.child_exn ~context:context_ xml_arg0 "schedule") in
      let criteria =
        (Option.map ~f:Criteria.of_xml) (Xml.child xml_arg0 "criteria") in
      let recommendedActionTypes =
        RecommendedActionTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recommendedActionTypes") in
      let priority =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "priority") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "organizationConfiguration") in
      let ruleType =
        RuleType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleType") in
      let description =
        (Option.map ~f:RuleDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?clientToken ?tags ~status ~schedule ?criteria
        ~recommendedActionTypes ?priority ?organizationConfiguration
        ~ruleType ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let status = field_map_exn json__ "status" RuleStatus.of_json in
      let schedule = field_map_exn json__ "schedule" Schedule.of_json in
      let criteria = field_map json__ "criteria" Criteria.of_json in
      let recommendedActionTypes =
        field_map_exn json__ "recommendedActionTypes"
          RecommendedActionTypeList.of_json in
      let priority = field_map json__ "priority" String_.of_json in
      let organizationConfiguration =
        field_map json__ "organizationConfiguration"
          OrganizationConfiguration.of_json in
      let ruleType = field_map_exn json__ "ruleType" RuleType.of_json in
      let description =
        field_map json__ "description" RuleDescription.of_json in
      let name = field_map_exn json__ "name" RuleName.of_json in
      make ?clientToken ?tags ~status ~schedule ?criteria
        ~recommendedActionTypes ?priority ?organizationConfiguration
        ~ruleType ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new automation rule to apply recommended actions to resources based on specified criteria."]
module AssociateAccountsResponse =
  struct
    type nonrec t =
      {
      accountIds: AccountIdList.t option
        [@ocaml.doc
          "The IDs of the member accounts that were successfully associated."];
      errors: StringList.t option
        [@ocaml.doc
          "Any errors that occurred during the association process."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `IdempotencyTokenInUseException of IdempotencyTokenInUseException.t 
      | `IdempotentParameterMismatchException of
          IdempotentParameterMismatchException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `NotManagementAccountException of NotManagementAccountException.t 
      | `OptInRequiredException of OptInRequiredException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountIds = fun ?errors -> fun () -> { accountIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_json json)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_json json)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "IdempotencyTokenInUseException" ->
          `IdempotencyTokenInUseException
            (IdempotencyTokenInUseException.of_xml xml)
      | "IdempotentParameterMismatchException" ->
          `IdempotentParameterMismatchException
            (IdempotentParameterMismatchException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "NotManagementAccountException" ->
          `NotManagementAccountException
            (NotManagementAccountException.of_xml xml)
      | "OptInRequiredException" ->
          `OptInRequiredException (OptInRequiredException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `IdempotencyTokenInUseException e ->
          `Assoc
            [("error", (`String "IdempotencyTokenInUseException"));
            ("details", (IdempotencyTokenInUseException.to_json e))]
      | `IdempotentParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotentParameterMismatchException"));
            ("details", (IdempotentParameterMismatchException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `NotManagementAccountException e ->
          `Assoc
            [("error", (`String "NotManagementAccountException"));
            ("details", (NotManagementAccountException.to_json e))]
      | `OptInRequiredException e ->
          `Assoc
            [("error", (`String "OptInRequiredException"));
            ("details", (OptInRequiredException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("accountIds", (Option.map x.accountIds ~f:AccountIdList.to_value));
        ("errors", (Option.map x.errors ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "errors") in
      let accountIds =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "accountIds") in
      make ?errors ?accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "errors" StringList.of_json in
      let accountIds = field_map json__ "accountIds" AccountIdList.of_json in
      make ?errors ?accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates one or more member accounts with your organization's management account, enabling centralized implementation of optimization actions across those accounts. Once associated, the management account (or a delegated administrator) can apply recommended actions to the member account. When you associate a member account, its organization rule mode is automatically set to \"Any allowed,\" which permits the management account to create Automation rules that automatically apply actions to that account. If the member account has not previously enabled the Automation feature, the association process automatically enables it. Only the management account or a delegated administrator can perform this action."]
module AssociateAccountsRequest =
  struct
    type nonrec t =
      {
      accountIds: AccountIdList.t
        [@ocaml.doc
          "The IDs of the member accounts to associate. You can specify up to 50 account IDs."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique identifier to ensure idempotency of the request. Valid for 24 hours after creation."]}
    let context_ = "AssociateAccountsRequest"
    let make ?clientToken =
      fun ~accountIds -> fun () -> { clientToken; accountIds }
    let to_value x =
      structure_to_value
        [("accountIds", (Some (AccountIdList.to_value x.accountIds)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let accountIds =
        AccountIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountIds") in
      make ?clientToken ~accountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let accountIds =
        field_map_exn json__ "accountIds" AccountIdList.of_json in
      make ?clientToken ~accountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates one or more member accounts with your organization's management account, enabling centralized implementation of optimization actions across those accounts. Once associated, the management account (or a delegated administrator) can apply recommended actions to the member account. When you associate a member account, its organization rule mode is automatically set to \"Any allowed,\" which permits the management account to create Automation rules that automatically apply actions to that account. If the member account has not previously enabled the Automation feature, the association process automatically enables it. Only the management account or a delegated administrator can perform this action."]