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.application_signals
let apiVersion = "2024-04-15"
let endpointPrefix = "application-signals"
let serviceFullName = "Amazon CloudWatch Application Signals"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module DimensionName =
  struct
    type nonrec t = string
    let context_ = "DimensionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DimensionName" j
    let to_json = simple_to_json to_value
  end
module DimensionValue =
  struct
    type nonrec t = string
    let context_ = "DimensionValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DimensionValue" j
    let to_json = simple_to_json to_value
  end
module Dimension =
  struct
    type nonrec t =
      {
      name: DimensionName.t
        [@ocaml.doc
          "The name of the dimension. Dimension names must contain only ASCII characters, must include at least one non-whitespace character, and cannot start with a colon (:). ASCII control characters are not supported as part of dimension names."];
      value: DimensionValue.t
        [@ocaml.doc
          "The value of the dimension. Dimension values must contain only ASCII characters and must include at least one non-whitespace character. ASCII control characters are not supported as part of dimension values."]}
    let context_ = "Dimension"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (DimensionName.to_value x.name)));
        ("Value", (Some (DimensionValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        DimensionValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        DimensionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" DimensionValue.of_json in
      let name = field_map_exn json__ "Name" DimensionName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A dimension is a name/value pair that is part of the identity of a metric. Because dimensions are part of the unique identifier for a metric, whenever you add a unique name/value pair to one of your metrics, you are creating a new variation of that metric. For example, many Amazon EC2 metrics publish InstanceId as a dimension name, and the actual instance ID as the value for that dimension. You can assign up to 30 dimensions to a metric."]
module Dimensions =
  struct
    type nonrec t = Dimension.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:Dimension.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:Dimension.of_xml)
    let of_json j =
      list_of_json ~kind:"Dimensions" ~of_json:Dimension.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricName =
  struct
    type nonrec t = string
    let context_ = "MetricName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetricName" j
    let to_json = simple_to_json to_value
  end
module Namespace =
  struct
    type nonrec t = string
    let context_ = "Namespace"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:".*[^:].*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Namespace" j
    let to_json = simple_to_json to_value
  end
module Metric =
  struct
    type nonrec t =
      {
      namespace: Namespace.t option
        [@ocaml.doc
          "The namespace of the metric. For more information, see Namespaces."];
      metricName: MetricName.t option
        [@ocaml.doc "The name of the metric to use."];
      dimensions: Dimensions.t option
        [@ocaml.doc
          "An array of one or more dimensions to use to define the metric that you want to use. For more information, see Dimensions."]}
    let make ?namespace =
      fun ?metricName ->
        fun ?dimensions -> fun () -> { namespace; metricName; dimensions }
    let to_value x =
      structure_to_value
        [("Namespace", (Option.map x.namespace ~f:Namespace.to_value));
        ("MetricName", (Option.map x.metricName ~f:MetricName.to_value));
        ("Dimensions", (Option.map x.dimensions ~f:Dimensions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimensions =
        (Option.map ~f:Dimensions.of_xml) (Xml.child xml_arg0 "Dimensions") in
      let metricName =
        (Option.map ~f:MetricName.of_xml) (Xml.child xml_arg0 "MetricName") in
      let namespace =
        (Option.map ~f:Namespace.of_xml) (Xml.child xml_arg0 "Namespace") in
      make ?dimensions ?metricName ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimensions = field_map json__ "Dimensions" Dimensions.of_json in
      let metricName = field_map json__ "MetricName" MetricName.of_json in
      let namespace = field_map json__ "Namespace" Namespace.of_json in
      make ?dimensions ?metricName ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure defines the metric used for a service level indicator, including the metric name, namespace, and dimensions"]
module Period =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Period" 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 StandardUnit =
  struct
    type nonrec t =
      | Microseconds 
      | Milliseconds 
      | Seconds 
      | Bytes 
      | Kilobytes 
      | Megabytes 
      | Gigabytes 
      | Terabytes 
      | Bits 
      | Kilobits 
      | Megabits 
      | Gigabits 
      | Terabits 
      | Percent 
      | Count 
      | Bytes_Second 
      | Kilobytes_Second 
      | Megabytes_Second 
      | Gigabytes_Second 
      | Terabytes_Second 
      | Bits_Second 
      | Kilobits_Second 
      | Megabits_Second 
      | Gigabits_Second 
      | Terabits_Second 
      | Count_Second 
      | None 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Microseconds -> "Microseconds"
      | Milliseconds -> "Milliseconds"
      | Seconds -> "Seconds"
      | Bytes -> "Bytes"
      | Kilobytes -> "Kilobytes"
      | Megabytes -> "Megabytes"
      | Gigabytes -> "Gigabytes"
      | Terabytes -> "Terabytes"
      | Bits -> "Bits"
      | Kilobits -> "Kilobits"
      | Megabits -> "Megabits"
      | Gigabits -> "Gigabits"
      | Terabits -> "Terabits"
      | Percent -> "Percent"
      | Count -> "Count"
      | Bytes_Second -> "Bytes/Second"
      | Kilobytes_Second -> "Kilobytes/Second"
      | Megabytes_Second -> "Megabytes/Second"
      | Gigabytes_Second -> "Gigabytes/Second"
      | Terabytes_Second -> "Terabytes/Second"
      | Bits_Second -> "Bits/Second"
      | Kilobits_Second -> "Kilobits/Second"
      | Megabits_Second -> "Megabits/Second"
      | Gigabits_Second -> "Gigabits/Second"
      | Terabits_Second -> "Terabits/Second"
      | Count_Second -> "Count/Second"
      | None -> "None"
      | Non_static_id s -> s
    let of_string =
      function
      | "Microseconds" -> Microseconds
      | "Milliseconds" -> Milliseconds
      | "Seconds" -> Seconds
      | "Bytes" -> Bytes
      | "Kilobytes" -> Kilobytes
      | "Megabytes" -> Megabytes
      | "Gigabytes" -> Gigabytes
      | "Terabytes" -> Terabytes
      | "Bits" -> Bits
      | "Kilobits" -> Kilobits
      | "Megabits" -> Megabits
      | "Gigabits" -> Gigabits
      | "Terabits" -> Terabits
      | "Percent" -> Percent
      | "Count" -> Count
      | "Bytes/Second" -> Bytes_Second
      | "Kilobytes/Second" -> Kilobytes_Second
      | "Megabytes/Second" -> Megabytes_Second
      | "Gigabytes/Second" -> Gigabytes_Second
      | "Terabytes/Second" -> Terabytes_Second
      | "Bits/Second" -> Bits_Second
      | "Kilobits/Second" -> Kilobits_Second
      | "Megabits/Second" -> Megabits_Second
      | "Gigabits/Second" -> Gigabits_Second
      | "Terabits/Second" -> Terabits_Second
      | "Count/Second" -> Count_Second
      | "None" -> None
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StandardUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StandardUnit" j)
    let to_json = simple_to_json to_value
  end
module Stat =
  struct
    type nonrec t = string
    let context_ = "Stat"
    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:"Stat" j
    let to_json = simple_to_json to_value
  end
module OperationName =
  struct
    type nonrec t = string
    let context_ = "OperationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OperationName" 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_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module MetricExpression =
  struct
    type nonrec t = string
    let context_ = "MetricExpression"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetricExpression" j
    let to_json = simple_to_json to_value
  end
module MetricId =
  struct
    type nonrec t = string
    let context_ = "MetricId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetricId" j
    let to_json = simple_to_json to_value
  end
module MetricLabel =
  struct
    type nonrec t = string
    let context_ = "MetricLabel"
    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:"MetricLabel" j
    let to_json = simple_to_json to_value
  end
module MetricStat =
  struct
    type nonrec t =
      {
      metric: Metric.t
        [@ocaml.doc
          "The metric to use as the service level indicator, including the metric name, namespace, and dimensions."];
      period: Period.t
        [@ocaml.doc
          "The granularity, in seconds, to be used for the metric. For metrics with regular resolution, a period can be as short as one minute (60 seconds) and must be a multiple of 60. For high-resolution metrics that are collected at intervals of less than one minute, the period can be 1, 5, 10, 30, 60, or any multiple of 60. High-resolution metrics are those metrics stored by a PutMetricData call that includes a StorageResolution of 1 second."];
      stat: Stat.t
        [@ocaml.doc
          "The statistic to use for comparison to the threshold. It can be any CloudWatch statistic or extended statistic. For more information about statistics, see CloudWatch statistics definitions."];
      unit: StandardUnit.t option
        [@ocaml.doc
          "If you omit Unit then all data that was collected with any unit is returned, along with the corresponding units that were specified when the data was reported to CloudWatch. If you specify a unit, the operation returns only data that was collected with that unit specified. If you specify a unit that does not match the data collected, the results of the operation are null. CloudWatch does not perform unit conversions."]}
    let context_ = "MetricStat"
    let make ?unit =
      fun ~metric ->
        fun ~period -> fun ~stat -> fun () -> { unit; metric; period; stat }
    let to_value x =
      structure_to_value
        [("Metric", (Some (Metric.to_value x.metric)));
        ("Period", (Some (Period.to_value x.period)));
        ("Stat", (Some (Stat.to_value x.stat)));
        ("Unit", (Option.map x.unit ~f:StandardUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unit =
        (Option.map ~f:StandardUnit.of_xml) (Xml.child xml_arg0 "Unit") in
      let stat =
        Stat.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Stat") in
      let period =
        Period.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Period") in
      let metric =
        Metric.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Metric") in
      make ?unit ~stat ~period ~metric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unit = field_map json__ "Unit" StandardUnit.of_json in
      let stat = field_map_exn json__ "Stat" Stat.of_json in
      let period = field_map_exn json__ "Period" Period.of_json in
      let metric = field_map_exn json__ "Metric" Metric.of_json in
      make ?unit ~stat ~period ~metric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure defines the metric to be used as the service level indicator, along with the statistics, period, and unit."]
module ReturnData =
  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 KeyAttributeName =
  struct
    type nonrec t = string
    let context_ = "KeyAttributeName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z]{1,50}"); 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:"KeyAttributeName" j
    let to_json = simple_to_json to_value
  end
module KeyAttributeValue =
  struct
    type nonrec t = string
    let context_ = "KeyAttributeValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[ -~]*[!-~]+[ -~]*")));
        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:"KeyAttributeValue" j
    let to_json = simple_to_json to_value
  end
module CompositeSliComponent =
  struct
    type nonrec t =
      {
      operationName: OperationName.t option
        [@ocaml.doc
          "The name of the operation to include in the composite SLI."]}
    let make ?operationName = fun () -> { operationName }
    let to_value x =
      structure_to_value
        [("OperationName",
           (Option.map x.operationName ~f:OperationName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      make ?operationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      make ?operationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies a single operation to include in a composite SLI for a service-level SLO. Used as an element of the Components list in CompositeSliConfig."]
module SelectionPattern =
  struct
    type nonrec t = string
    let context_ = "SelectionPattern"
    let make i =
      let open Result in ok_or_failwith (check_pattern i ~pattern:".+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SelectionPattern" j
    let to_json = simple_to_json to_value
  end
module SelectionType =
  struct
    type nonrec t =
      | EXPLICIT 
      | PREFIX 
      | REGEX 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXPLICIT -> "EXPLICIT"
      | PREFIX -> "PREFIX"
      | REGEX -> "REGEX"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXPLICIT" -> EXPLICIT
      | "PREFIX" -> PREFIX
      | "REGEX" -> REGEX
      | 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 SelectionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SelectionType" j)
    let to_json = simple_to_json to_value
  end
module MetricDataQuery =
  struct
    type nonrec t =
      {
      id: MetricId.t
        [@ocaml.doc
          "A short name used to tie this object to the results in the response. This Id must be unique within a MetricDataQueries array. If you are performing math expressions on this set of data, this name represents that data and can serve as a variable in the metric math expression. The valid characters are letters, numbers, and underscore. The first character must be a lowercase letter."];
      metricStat: MetricStat.t option
        [@ocaml.doc
          "A metric to be used directly for the SLO, or to be used in the math expression that will be used for the SLO. Within one MetricDataQuery object, you must specify either Expression or MetricStat but not both."];
      expression: MetricExpression.t option
        [@ocaml.doc
          "This field can contain a metric math expression to be performed on the other metrics that you are retrieving within this MetricDataQueries structure. A math expression can use the Id of the other metrics or queries to refer to those metrics, and can also use the Id of other expressions to use the result of those expressions. For more information about metric math expressions, see Metric Math Syntax and Functions in the Amazon CloudWatch User Guide. Within each MetricDataQuery object, you must specify either Expression or MetricStat but not both."];
      label: MetricLabel.t option
        [@ocaml.doc
          "A human-readable label for this metric or expression. This is especially useful if this is an expression, so that you know what the value represents. If the metric or expression is shown in a CloudWatch dashboard widget, the label is shown. If Label is omitted, CloudWatch generates a default. You can put dynamic expressions into a label, so that it is more descriptive. For more information, see Using Dynamic Labels."];
      returnData: ReturnData.t option
        [@ocaml.doc
          "Use this only if you are using a metric math expression for the SLO. Specify true for ReturnData for only the one expression result to use as the alarm. For all other metrics and expressions in the same CreateServiceLevelObjective operation, specify ReturnData as false."];
      period: Period.t option
        [@ocaml.doc
          "The granularity, in seconds, of the returned data points for this metric. For metrics with regular resolution, a period can be as short as one minute (60 seconds) and must be a multiple of 60. For high-resolution metrics that are collected at intervals of less than one minute, the period can be 1, 5, 10, 30, 60, or any multiple of 60. High-resolution metrics are those metrics stored by a PutMetricData call that includes a StorageResolution of 1 second. If the StartTime parameter specifies a time stamp that is greater than 3 hours ago, you must specify the period as follows or no data points in that time range is returned: Start time between 3 hours and 15 days ago - Use a multiple of 60 seconds (1 minute). Start time between 15 and 63 days ago - Use a multiple of 300 seconds (5 minutes). Start time greater than 63 days ago - Use a multiple of 3600 seconds (1 hour)."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The ID of the account where this metric is located. If you are performing this operation in a monitoring account, use this to specify which source account to retrieve this metric from."]}
    let context_ = "MetricDataQuery"
    let make ?metricStat =
      fun ?expression ->
        fun ?label ->
          fun ?returnData ->
            fun ?period ->
              fun ?accountId ->
                fun ~id ->
                  fun () ->
                    {
                      metricStat;
                      expression;
                      label;
                      returnData;
                      period;
                      accountId;
                      id
                    }
    let to_value x =
      structure_to_value
        [("Id", (Some (MetricId.to_value x.id)));
        ("MetricStat", (Option.map x.metricStat ~f:MetricStat.to_value));
        ("Expression",
          (Option.map x.expression ~f:MetricExpression.to_value));
        ("Label", (Option.map x.label ~f:MetricLabel.to_value));
        ("ReturnData", (Option.map x.returnData ~f:ReturnData.to_value));
        ("Period", (Option.map x.period ~f:Period.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let period =
        (Option.map ~f:Period.of_xml) (Xml.child xml_arg0 "Period") in
      let returnData =
        (Option.map ~f:ReturnData.of_xml) (Xml.child xml_arg0 "ReturnData") in
      let label =
        (Option.map ~f:MetricLabel.of_xml) (Xml.child xml_arg0 "Label") in
      let expression =
        (Option.map ~f:MetricExpression.of_xml)
          (Xml.child xml_arg0 "Expression") in
      let metricStat =
        (Option.map ~f:MetricStat.of_xml) (Xml.child xml_arg0 "MetricStat") in
      let id =
        MetricId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?accountId ?period ?returnData ?label ?expression ?metricStat ~id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let period = field_map json__ "Period" Period.of_json in
      let returnData = field_map json__ "ReturnData" ReturnData.of_json in
      let label = field_map json__ "Label" MetricLabel.of_json in
      let expression = field_map json__ "Expression" MetricExpression.of_json in
      let metricStat = field_map json__ "MetricStat" MetricStat.of_json in
      let id = field_map_exn json__ "Id" MetricId.of_json in
      make ?accountId ?period ?returnData ?label ?expression ?metricStat ~id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this structure to define a metric or metric math expression that you want to use as for a service level objective. Each MetricDataQuery in the MetricDataQueries array specifies either a metric to retrieve, or a metric math expression to be performed on retrieved metrics. A single MetricDataQueries array can include as many as 20 MetricDataQuery structures in the array. The 20 structures can include as many as 10 structures that contain a MetricStat parameter to retrieve a metric, and as many as 10 structures that contain the Expression parameter to perform a math expression. Of those Expression structures, exactly one must have true as the value for ReturnData. The result of this expression used for the SLO. For more information about metric math expressions, see CloudWatchUse metric math. Within each MetricDataQuery object, you must specify either Expression or MetricStat but not both."]
module AttributeFilterValue =
  struct
    type nonrec t = string
    let context_ = "AttributeFilterValue"
    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:"AttributeFilterValue" 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 ConnectionType =
  struct
    type nonrec t =
      | INDIRECT 
      | DIRECT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INDIRECT -> "INDIRECT"
      | DIRECT -> "DIRECT"
      | Non_static_id s -> s
    let of_string =
      function
      | "INDIRECT" -> INDIRECT
      | "DIRECT" -> DIRECT
      | 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 ConnectionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionType" 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 Attributes =
  struct
    type nonrec t = (KeyAttributeName.t * KeyAttributeValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:4) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((KeyAttributeName.of_string chopped),
                              (KeyAttributeValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (KeyAttributeName.to_value x) |>
                    (fun x ->
                       (KeyAttributeValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:KeyAttributeName.of_string
        ~of_json:KeyAttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module CalendarIntervalDuration =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for CalendarIntervalDuration"
           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 DurationUnit =
  struct
    type nonrec t =
      | MINUTE 
      | HOUR 
      | DAY 
      | MONTH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MINUTE -> "MINUTE"
      | HOUR -> "HOUR"
      | DAY -> "DAY"
      | MONTH -> "MONTH"
      | Non_static_id s -> s
    let of_string =
      function
      | "MINUTE" -> MINUTE
      | "HOUR" -> HOUR
      | "DAY" -> DAY
      | "MONTH" -> MONTH
      | 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 DurationUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DurationUnit" j)
    let to_json = simple_to_json to_value
  end
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 RollingIntervalDuration =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for RollingIntervalDuration"
           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 CompositeSliComponents =
  struct
    type nonrec t = CompositeSliComponent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CompositeSliComponent.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:CompositeSliComponent.of_xml)
    let of_json j =
      list_of_json ~kind:"CompositeSliComponents"
        ~of_json:CompositeSliComponent.of_json j
    let to_json v = composed_to_json to_value v
  end
module SelectionConfig =
  struct
    type nonrec t =
      {
      type_: SelectionType.t ;
      pattern: SelectionPattern.t option
        [@ocaml.doc
          "A prefix string or regular expression that specifies which operations to include in a service-level SLO. When SelectionType is PREFIX, this value is a prefix string that matches the beginning of operation names. When SelectionType is REGEX, this value is a regular expression that matches operation names."]}
    let context_ = "SelectionConfig"
    let make ?pattern = fun ~type_ -> fun () -> { pattern; type_ }
    let to_value x =
      structure_to_value
        [("Type", (Some (SelectionType.to_value x.type_)));
        ("Pattern", (Option.map x.pattern ~f:SelectionPattern.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pattern =
        (Option.map ~f:SelectionPattern.of_xml)
          (Xml.child xml_arg0 "Pattern") in
      let type_ =
        SelectionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ?pattern ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pattern = field_map json__ "Pattern" SelectionPattern.of_json in
      let type_ = field_map_exn json__ "Type" SelectionType.of_json in
      make ?pattern ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines how operations are selected for a service-level SLO."]
module MetricDataQueries =
  struct
    type nonrec t = MetricDataQuery.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:MetricDataQuery.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:MetricDataQuery.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricDataQueries" ~of_json:MetricDataQuery.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module GroupingString =
  struct
    type nonrec t = string
    let context_ = "GroupingString"
    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:"[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:"GroupingString" j
    let to_json = simple_to_json to_value
  end
module AwsAccountId =
  struct
    type nonrec t = string
    let context_ = "AwsAccountId"
    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:"AwsAccountId" j
    let to_json = simple_to_json to_value
  end
module MetricType =
  struct
    type nonrec t = string
    let context_ = "MetricType"
    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:"MetricType" j
    let to_json = simple_to_json to_value
  end
module GroupIdentifier =
  struct
    type nonrec t = string
    let context_ = "GroupIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GroupIdentifier" j
    let to_json = simple_to_json to_value
  end
module GroupName =
  struct
    type nonrec t = string
    let context_ = "GroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GroupName" j
    let to_json = simple_to_json to_value
  end
module GroupSource =
  struct
    type nonrec t = string
    let context_ = "GroupSource"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GroupSource" j
    let to_json = simple_to_json to_value
  end
module GroupValue =
  struct
    type nonrec t = string
    let context_ = "GroupValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GroupValue" j
    let to_json = simple_to_json to_value
  end
module AttributeFilterName =
  struct
    type nonrec t = string
    let context_ = "AttributeFilterName"
    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:"AttributeFilterName" j
    let to_json = simple_to_json to_value
  end
module AttributeFilterValues =
  struct
    type nonrec t = AttributeFilterValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:AttributeFilterValue.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:AttributeFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeFilterValues"
        ~of_json:AttributeFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeEventType =
  struct
    type nonrec t =
      | DEPLOYMENT 
      | CONFIGURATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEPLOYMENT -> "DEPLOYMENT"
      | CONFIGURATION -> "CONFIGURATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEPLOYMENT" -> DEPLOYMENT
      | "CONFIGURATION" -> CONFIGURATION
      | 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 ChangeEventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeEventType" j)
    let to_json = simple_to_json to_value
  end
module AuditorResultDescriptionString =
  struct
    type nonrec t = string
    let context_ = "AuditorResultDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10240) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AuditorResultDescriptionString" j
    let to_json = simple_to_json to_value
  end
module DataMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Severity =
  struct
    type nonrec t =
      | CRITICAL 
      | HIGH 
      | MEDIUM 
      | LOW 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CRITICAL -> "CRITICAL"
      | HIGH -> "HIGH"
      | MEDIUM -> "MEDIUM"
      | LOW -> "LOW"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CRITICAL" -> CRITICAL
      | "HIGH" -> HIGH
      | "MEDIUM" -> MEDIUM
      | "LOW" -> LOW
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Severity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Severity" j)
    let to_json = simple_to_json to_value
  end
module Edge =
  struct
    type nonrec t =
      {
      sourceNodeId: String_.t option
        [@ocaml.doc
          "The identifier of the source node in this edge connection."];
      destinationNodeId: String_.t option
        [@ocaml.doc
          "The identifier of the destination node in this edge connection."];
      duration: Double.t option
        [@ocaml.doc
          "The duration or latency associated with this connection, if applicable."];
      connectionType: ConnectionType.t option
        [@ocaml.doc
          "The type of connection between the nodes, indicating the nature of the relationship."]}
    let make ?sourceNodeId =
      fun ?destinationNodeId ->
        fun ?duration ->
          fun ?connectionType ->
            fun () ->
              { sourceNodeId; destinationNodeId; duration; connectionType }
    let to_value x =
      structure_to_value
        [("SourceNodeId", (Option.map x.sourceNodeId ~f:String_.to_value));
        ("DestinationNodeId",
          (Option.map x.destinationNodeId ~f:String_.to_value));
        ("Duration", (Option.map x.duration ~f:Double.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let duration =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Duration") in
      let destinationNodeId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DestinationNodeId") in
      let sourceNodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceNodeId") in
      make ?connectionType ?duration ?destinationNodeId ?sourceNodeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let duration = field_map json__ "Duration" Double.of_json in
      let destinationNodeId =
        field_map json__ "DestinationNodeId" String_.of_json in
      let sourceNodeId = field_map json__ "SourceNodeId" String_.of_json in
      make ?connectionType ?duration ?destinationNodeId ?sourceNodeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that represents a connection between two nodes in a dependency graph, showing the relationship and characteristics of the connection."]
module Node =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "The key attributes that identify this node, including Type, Name, and Environment information."];
      name: String_.t option
        [@ocaml.doc "The name of the entity represented by this node."];
      nodeId: String_.t option
        [@ocaml.doc
          "A unique identifier for this node within the dependency graph."];
      operation: String_.t option
        [@ocaml.doc
          "The operation associated with this node, if applicable."];
      type_: String_.t option
        [@ocaml.doc
          "The type of entity represented by this node, such as Service or Resource."];
      duration: Double.t option
        [@ocaml.doc
          "The duration or processing time associated with this node, if applicable."];
      status: String_.t option
        [@ocaml.doc "The status of the entity represented by this node."]}
    let make ?keyAttributes =
      fun ?name ->
        fun ?nodeId ->
          fun ?operation ->
            fun ?type_ ->
              fun ?duration ->
                fun ?status ->
                  fun () ->
                    {
                      keyAttributes;
                      name;
                      nodeId;
                      operation;
                      type_;
                      duration;
                      status
                    }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("NodeId", (Option.map x.nodeId ~f:String_.to_value));
        ("Operation", (Option.map x.operation ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value));
        ("Duration", (Option.map x.duration ~f:Double.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let duration =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Duration") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let operation =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Operation") in
      let nodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NodeId") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?status ?duration ?type_ ?operation ?nodeId ?name ?keyAttributes
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let duration = field_map json__ "Duration" Double.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      let operation = field_map json__ "Operation" String_.of_json in
      let nodeId = field_map json__ "NodeId" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?status ?duration ?type_ ?operation ?nodeId ?name ?keyAttributes
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that represents a node in a dependency graph, containing information about a service, resource, or other entity and its characteristics."]
module ServiceEntity =
  struct
    type nonrec t =
      {
      type_: String_.t option [@ocaml.doc "The type of the service entity."];
      name: String_.t option [@ocaml.doc "The name of the service."];
      environment: String_.t option
        [@ocaml.doc "The environment where the service is deployed."];
      awsAccountId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account ID where the service is located. Provide this value only for cross-account access."]}
    let make ?type_ =
      fun ?name ->
        fun ?environment ->
          fun ?awsAccountId ->
            fun () -> { type_; name; environment; awsAccountId }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("Environment", (Option.map x.environment ~f:String_.to_value));
        ("AwsAccountId", (Option.map x.awsAccountId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AwsAccountId") in
      let environment =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Environment") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      make ?awsAccountId ?environment ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsAccountId = field_map json__ "AwsAccountId" String_.of_json in
      let environment = field_map json__ "Environment" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      make ?awsAccountId ?environment ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains identifying information for a service entity."]
module CalendarInterval =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The date and time when you want the first interval to start. Be sure to choose a time that configures the intervals the way that you want. For example, if you want weekly intervals starting on Mondays at 6 a.m., be sure to specify a start time that is a Monday at 6 a.m. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 As soon as one calendar interval ends, another automatically begins."];
      durationUnit: DurationUnit.t
        [@ocaml.doc "Specifies the calendar interval unit."];
      duration: CalendarIntervalDuration.t
        [@ocaml.doc
          "Specifies the duration of each calendar interval. For example, if Duration is 1 and DurationUnit is MONTH, each interval is one month, aligned with the calendar."]}
    let context_ = "CalendarInterval"
    let make ~startTime =
      fun ~durationUnit ->
        fun ~duration -> fun () -> { startTime; durationUnit; duration }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("DurationUnit", (Some (DurationUnit.to_value x.durationUnit)));
        ("Duration", (Some (CalendarIntervalDuration.to_value x.duration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let duration =
        CalendarIntervalDuration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Duration") in
      let durationUnit =
        DurationUnit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DurationUnit") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ~duration ~durationUnit ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let duration =
        field_map_exn json__ "Duration" CalendarIntervalDuration.of_json in
      let durationUnit =
        field_map_exn json__ "DurationUnit" DurationUnit.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ~duration ~durationUnit ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the interval for this service level objective is a calendar interval, this structure contains the interval specifications."]
module RollingInterval =
  struct
    type nonrec t =
      {
      durationUnit: DurationUnit.t
        [@ocaml.doc "Specifies the rolling interval unit."];
      duration: RollingIntervalDuration.t
        [@ocaml.doc
          "Specifies the duration of each rolling interval. For example, if Duration is 7 and DurationUnit is DAY, each rolling interval is seven days."]}
    let context_ = "RollingInterval"
    let make ~durationUnit =
      fun ~duration -> fun () -> { durationUnit; duration }
    let to_value x =
      structure_to_value
        [("DurationUnit", (Some (DurationUnit.to_value x.durationUnit)));
        ("Duration", (Some (RollingIntervalDuration.to_value x.duration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let duration =
        RollingIntervalDuration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Duration") in
      let durationUnit =
        DurationUnit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DurationUnit") in
      make ~duration ~durationUnit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let duration =
        field_map_exn json__ "Duration" RollingIntervalDuration.of_json in
      let durationUnit =
        field_map_exn json__ "DurationUnit" DurationUnit.of_json in
      make ~duration ~durationUnit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the interval for this SLO is a rolling interval, this structure contains the interval specifications."]
module CompositeSliConfig =
  struct
    type nonrec t =
      {
      selectionConfig: SelectionConfig.t
        [@ocaml.doc
          "Specifies how operations are selected for this service-level SLO. Operations can be selected explicitly by listing them, by specifying a prefix to match operation names, or by providing a regular expression pattern."];
      components: CompositeSliComponents.t option
        [@ocaml.doc
          "The list of operations included in this composite SLI. You must specify between 2 and 20 components. Each component is a CompositeSliComponent that identifies a single operation by its OperationName."]}
    let context_ = "CompositeSliConfig"
    let make ?components =
      fun ~selectionConfig -> fun () -> { components; selectionConfig }
    let to_value x =
      structure_to_value
        [("SelectionConfig",
           (Some (SelectionConfig.to_value x.selectionConfig)));
        ("Components",
          (Option.map x.components ~f:CompositeSliComponents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let components =
        (Option.map ~f:CompositeSliComponents.of_xml)
          (Xml.child xml_arg0 "Components") in
      let selectionConfig =
        SelectionConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SelectionConfig") in
      make ?components ~selectionConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let components =
        field_map json__ "Components" CompositeSliComponents.of_json in
      let selectionConfig =
        field_map_exn json__ "SelectionConfig" SelectionConfig.of_json in
      make ?components ~selectionConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains the configuration for a composite service level indicator (SLI) that aggregates metrics across multiple operations of a service for service-level SLOs."]
module DependencyConfig =
  struct
    type nonrec t =
      {
      dependencyKeyAttributes: Attributes.t
        [@ocaml.doc
          "This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      dependencyOperationName: OperationName.t
        [@ocaml.doc "The name of the called operation in the dependency."]}
    let context_ = "DependencyConfig"
    let make ~dependencyKeyAttributes =
      fun ~dependencyOperationName ->
        fun () -> { dependencyKeyAttributes; dependencyOperationName }
    let to_value x =
      structure_to_value
        [("DependencyKeyAttributes",
           (Some (Attributes.to_value x.dependencyKeyAttributes)));
        ("DependencyOperationName",
          (Some (OperationName.to_value x.dependencyOperationName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dependencyOperationName =
        OperationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DependencyOperationName") in
      let dependencyKeyAttributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DependencyKeyAttributes") in
      make ~dependencyOperationName ~dependencyKeyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dependencyOperationName =
        field_map_exn json__ "DependencyOperationName" OperationName.of_json in
      let dependencyKeyAttributes =
        field_map_exn json__ "DependencyKeyAttributes" Attributes.of_json in
      make ~dependencyOperationName ~dependencyKeyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName. When creating a service dependency SLO, you must specify the KeyAttributes of the service, and the DependencyConfig for the dependency. You can specify the OperationName of the service, from which it calls the dependency. Alternatively, you can exclude OperationName and the SLO will monitor all of the service's operations that call the dependency."]
module MetricSource =
  struct
    type nonrec t =
      {
      metricSourceKeyAttributes: Attributes.t
        [@ocaml.doc "Key attributes that identify the metric source."];
      metricSourceAttributes: Attributes.t option
        [@ocaml.doc "Additional attributes for the metric source."]}
    let context_ = "MetricSource"
    let make ?metricSourceAttributes =
      fun ~metricSourceKeyAttributes ->
        fun () -> { metricSourceAttributes; metricSourceKeyAttributes }
    let to_value x =
      structure_to_value
        [("MetricSourceKeyAttributes",
           (Some (Attributes.to_value x.metricSourceKeyAttributes)));
        ("MetricSourceAttributes",
          (Option.map x.metricSourceAttributes ~f:Attributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricSourceAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "MetricSourceAttributes") in
      let metricSourceKeyAttributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "MetricSourceKeyAttributes") in
      make ?metricSourceAttributes ~metricSourceKeyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricSourceAttributes =
        field_map json__ "MetricSourceAttributes" Attributes.of_json in
      let metricSourceKeyAttributes =
        field_map_exn json__ "MetricSourceKeyAttributes" Attributes.of_json in
      make ?metricSourceAttributes ~metricSourceKeyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the metric source for SLOs on resources other than Application Signals services."]
module MonitoredRequestCountMetricDataQueries =
  struct
    type nonrec t =
      {
      goodCountMetric: MetricDataQueries.t option
        [@ocaml.doc
          "If you want to count \"good requests\" to determine the percentage of successful requests for this request-based SLO, specify the metric to use as \"good requests\" in this structure."];
      badCountMetric: MetricDataQueries.t option
        [@ocaml.doc
          "If you want to count \"bad requests\" to determine the percentage of successful requests for this request-based SLO, specify the metric to use as \"bad requests\" in this structure."]}
    let make ?goodCountMetric =
      fun ?badCountMetric -> fun () -> { goodCountMetric; badCountMetric }
    let to_value x =
      structure_to_value
        [("GoodCountMetric",
           (Option.map x.goodCountMetric ~f:MetricDataQueries.to_value));
        ("BadCountMetric",
          (Option.map x.badCountMetric ~f:MetricDataQueries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let badCountMetric =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "BadCountMetric") in
      let goodCountMetric =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "GoodCountMetric") in
      make ?badCountMetric ?goodCountMetric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let badCountMetric =
        field_map json__ "BadCountMetric" MetricDataQueries.of_json in
      let goodCountMetric =
        field_map json__ "GoodCountMetric" MetricDataQueries.of_json in
      make ?badCountMetric ?goodCountMetric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure defines the metric that is used as the \"good request\" or \"bad request\" value for a request-based SLO. This value observed for the metric defined in TotalRequestCountMetric is divided by the number found for MonitoredRequestCountMetric to determine the percentage of successful requests that this SLO tracks."]
module ServiceLevelIndicatorMetricType =
  struct
    type nonrec t =
      | LATENCY 
      | AVAILABILITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LATENCY -> "LATENCY"
      | AVAILABILITY -> "AVAILABILITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "LATENCY" -> LATENCY
      | "AVAILABILITY" -> AVAILABILITY
      | 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 ServiceLevelIndicatorMetricType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ServiceLevelIndicatorMetricType" j)
    let to_json = simple_to_json to_value
  end
module BurnRateLookBackWindowMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10080) >>=
             (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 BurnRateLookBackWindowMinutes"
           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 GroupingSourceKeyStringList =
  struct
    type nonrec t = GroupingString.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:GroupingString.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:GroupingString.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupingSourceKeyStringList"
        ~of_json:GroupingString.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttributeMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricReference =
  struct
    type nonrec t =
      {
      namespace: Namespace.t option
        [@ocaml.doc
          "The namespace of the metric. For more information, see CloudWatchNamespaces."];
      metricType: MetricType.t option
        [@ocaml.doc
          "Used to display the appropriate statistics in the CloudWatch console."];
      dimensions: Dimensions.t option
        [@ocaml.doc
          "An array of one or more dimensions that further define the metric. For more information, see CloudWatchDimensions."];
      metricName: MetricName.t option [@ocaml.doc "The name of the metric."];
      accountId: AwsAccountId.t option
        [@ocaml.doc "Amazon Web Services account ID."]}
    let make ?namespace =
      fun ?metricType ->
        fun ?dimensions ->
          fun ?metricName ->
            fun ?accountId ->
              fun () ->
                { namespace; metricType; dimensions; metricName; accountId }
    let to_value x =
      structure_to_value
        [("Namespace", (Option.map x.namespace ~f:Namespace.to_value));
        ("MetricType", (Option.map x.metricType ~f:MetricType.to_value));
        ("Dimensions", (Option.map x.dimensions ~f:Dimensions.to_value));
        ("MetricName", (Option.map x.metricName ~f:MetricName.to_value));
        ("AccountId", (Option.map x.accountId ~f:AwsAccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let metricName =
        (Option.map ~f:MetricName.of_xml) (Xml.child xml_arg0 "MetricName") in
      let dimensions =
        (Option.map ~f:Dimensions.of_xml) (Xml.child xml_arg0 "Dimensions") in
      let metricType =
        (Option.map ~f:MetricType.of_xml) (Xml.child xml_arg0 "MetricType") in
      let namespace =
        (Option.map ~f:Namespace.of_xml) (Xml.child xml_arg0 "Namespace") in
      make ?accountId ?metricName ?dimensions ?metricType ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "AccountId" AwsAccountId.of_json in
      let metricName = field_map json__ "MetricName" MetricName.of_json in
      let dimensions = field_map json__ "Dimensions" Dimensions.of_json in
      let metricType = field_map json__ "MetricType" MetricType.of_json in
      let namespace = field_map json__ "Namespace" Namespace.of_json in
      make ?accountId ?metricName ?dimensions ?metricType ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about one CloudWatch metric associated with this entity discovered by Application Signals."]
module ServiceGroup =
  struct
    type nonrec t =
      {
      groupName: GroupName.t option
        [@ocaml.doc
          "The name of the grouping attribute, such as BusinessUnit or Environment."];
      groupValue: GroupValue.t option
        [@ocaml.doc
          "The value of the grouping attribute for this service, such as Payments or Production."];
      groupSource: GroupSource.t option
        [@ocaml.doc
          "The source of the grouping attribute, such as TAG, OTEL, or DEFAULT."];
      groupIdentifier: GroupIdentifier.t option
        [@ocaml.doc
          "A unique identifier for this grouping attribute value, used for filtering and API operations."]}
    let make ?groupName =
      fun ?groupValue ->
        fun ?groupSource ->
          fun ?groupIdentifier ->
            fun () -> { groupName; groupValue; groupSource; groupIdentifier }
    let to_value x =
      structure_to_value
        [("GroupName", (Option.map x.groupName ~f:GroupName.to_value));
        ("GroupValue", (Option.map x.groupValue ~f:GroupValue.to_value));
        ("GroupSource", (Option.map x.groupSource ~f:GroupSource.to_value));
        ("GroupIdentifier",
          (Option.map x.groupIdentifier ~f:GroupIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupIdentifier =
        (Option.map ~f:GroupIdentifier.of_xml)
          (Xml.child xml_arg0 "GroupIdentifier") in
      let groupSource =
        (Option.map ~f:GroupSource.of_xml) (Xml.child xml_arg0 "GroupSource") in
      let groupValue =
        (Option.map ~f:GroupValue.of_xml) (Xml.child xml_arg0 "GroupValue") in
      let groupName =
        (Option.map ~f:GroupName.of_xml) (Xml.child xml_arg0 "GroupName") in
      make ?groupIdentifier ?groupSource ?groupValue ?groupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupIdentifier =
        field_map json__ "GroupIdentifier" GroupIdentifier.of_json in
      let groupSource = field_map json__ "GroupSource" GroupSource.of_json in
      let groupValue = field_map json__ "GroupValue" GroupValue.of_json in
      let groupName = field_map json__ "GroupName" GroupName.of_json in
      make ?groupIdentifier ?groupSource ?groupValue ?groupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that represents a logical grouping of services based on shared attributes such as business unit, environment, or entry point."]
module AttributeFilter =
  struct
    type nonrec t =
      {
      attributeFilterName: AttributeFilterName.t
        [@ocaml.doc
          "The name of the attribute to filter by, such as Platform, Environment, or BusinessUnit."];
      attributeFilterValues: AttributeFilterValues.t
        [@ocaml.doc
          "An array of values to match for the specified attribute. Services that have any of these values for the attribute will be included in the results."]}
    let context_ = "AttributeFilter"
    let make ~attributeFilterName =
      fun ~attributeFilterValues ->
        fun () -> { attributeFilterName; attributeFilterValues }
    let to_value x =
      structure_to_value
        [("AttributeFilterName",
           (Some (AttributeFilterName.to_value x.attributeFilterName)));
        ("AttributeFilterValues",
          (Some (AttributeFilterValues.to_value x.attributeFilterValues)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeFilterValues =
        AttributeFilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeFilterValues") in
      let attributeFilterName =
        AttributeFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeFilterName") in
      make ~attributeFilterValues ~attributeFilterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeFilterValues =
        field_map_exn json__ "AttributeFilterValues"
          AttributeFilterValues.of_json in
      let attributeFilterName =
        field_map_exn json__ "AttributeFilterName"
          AttributeFilterName.of_json in
      make ~attributeFilterValues ~attributeFilterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that defines a filter for narrowing down results based on specific attribute values. This can be used to filter services by platform, environment, or other service characteristics."]
module ChangeEvent =
  struct
    type nonrec t =
      {
      timestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp when this change event occurred. When used in a raw HTTP Query API, it is formatted as epoch time in seconds."];
      accountId: AwsAccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID where this change event occurred."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services region where this change event occurred."];
      entity: Attributes.t option
        [@ocaml.doc
          "The entity (service or resource) that was affected by this change event, including its key attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to. AwsAccountId specifies the account where this object is in. Below is an example of a service. \\{ \"Type\": \"Service\", \"Name\": \"visits-service\", \"Environment\": \"petclinic-test\" \\} Below is an example of a resource. \\{ \"Type\": \"AWS::Resource\", \"ResourceType\": \"AWS::DynamoDB::Table\", \"Identifier\": \"Customers\" \\}"];
      changeEventType: ChangeEventType.t option
        [@ocaml.doc
          "The type of change event that occurred, such as DEPLOYMENT."];
      eventId: String_.t option
        [@ocaml.doc
          "A unique identifier for this change event. For CloudTrail-based events, this is the CloudTrail event id. For other events, this will be Unknown."];
      userName: String_.t option
        [@ocaml.doc
          "The name of the user who initiated this change event, if available."];
      eventName: String_.t option
        [@ocaml.doc "The name or description of this change event."]}
    let make ?timestamp =
      fun ?accountId ->
        fun ?region ->
          fun ?entity ->
            fun ?changeEventType ->
              fun ?eventId ->
                fun ?userName ->
                  fun ?eventName ->
                    fun () ->
                      {
                        timestamp;
                        accountId;
                        region;
                        entity;
                        changeEventType;
                        eventId;
                        userName;
                        eventName
                      }
    let to_value x =
      structure_to_value
        [("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("AccountId", (Option.map x.accountId ~f:AwsAccountId.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("Entity", (Option.map x.entity ~f:Attributes.to_value));
        ("ChangeEventType",
          (Option.map x.changeEventType ~f:ChangeEventType.to_value));
        ("EventId", (Option.map x.eventId ~f:String_.to_value));
        ("UserName", (Option.map x.userName ~f:String_.to_value));
        ("EventName", (Option.map x.eventName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EventName") in
      let userName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UserName") in
      let eventId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EventId") in
      let changeEventType =
        (Option.map ~f:ChangeEventType.of_xml)
          (Xml.child xml_arg0 "ChangeEventType") in
      let entity =
        (Option.map ~f:Attributes.of_xml) (Xml.child xml_arg0 "Entity") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let accountId =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      make ?eventName ?userName ?eventId ?changeEventType ?entity ?region
        ?accountId ?timestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventName = field_map json__ "EventName" String_.of_json in
      let userName = field_map json__ "UserName" String_.of_json in
      let eventId = field_map json__ "EventId" String_.of_json in
      let changeEventType =
        field_map json__ "ChangeEventType" ChangeEventType.of_json in
      let entity = field_map json__ "Entity" Attributes.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let accountId = field_map json__ "AccountId" AwsAccountId.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      make ?eventName ?userName ?eventId ?changeEventType ?entity ?region
        ?accountId ?timestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about a change event that occurred for a service, such as a deployment or configuration change."]
module Expression =
  struct
    type nonrec t = string
    let context_ = "Expression"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Expression" j
    let to_json = simple_to_json to_value
  end
module ExclusionDuration =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ExclusionDuration" 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 AuditorResult =
  struct
    type nonrec t =
      {
      auditor: String_.t option
        [@ocaml.doc
          "The name of the auditor algorithm that generated this result."];
      description: AuditorResultDescriptionString.t option
        [@ocaml.doc
          "A detailed description of the audit finding, explaining what was observed and potential implications."];
      data: DataMap.t option
        [@ocaml.doc
          "This is a string-to-string map. It contains additional data about the result of an automated audit analysis."];
      severity: Severity.t option
        [@ocaml.doc
          "The severity level of this audit finding, indicating the importance and potential impact of the issue."]}
    let make ?auditor =
      fun ?description ->
        fun ?data ->
          fun ?severity -> fun () -> { auditor; description; data; severity }
    let to_value x =
      structure_to_value
        [("Auditor", (Option.map x.auditor ~f:String_.to_value));
        ("Description",
          (Option.map x.description
             ~f:AuditorResultDescriptionString.to_value));
        ("Data", (Option.map x.data ~f:DataMap.to_value));
        ("Severity", (Option.map x.severity ~f:Severity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let severity =
        (Option.map ~f:Severity.of_xml) (Xml.child xml_arg0 "Severity") in
      let data = (Option.map ~f:DataMap.of_xml) (Xml.child xml_arg0 "Data") in
      let description =
        (Option.map ~f:AuditorResultDescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let auditor =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Auditor") in
      make ?severity ?data ?description ?auditor ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let severity = field_map json__ "Severity" Severity.of_json in
      let data = field_map json__ "Data" DataMap.of_json in
      let description =
        field_map json__ "Description" AuditorResultDescriptionString.of_json in
      let auditor = field_map json__ "Auditor" String_.of_json in
      make ?severity ?data ?description ?auditor ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the result of an automated audit analysis, including the auditor name, description of findings, additional data, and severity level."]
module Edges =
  struct
    type nonrec t = Edge.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:Edge.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:Edge.of_xml)
    let of_json j = list_of_json ~kind:"Edges" ~of_json:Edge.of_json j
    let to_json v = composed_to_json to_value v
  end
module Nodes =
  struct
    type nonrec t = Node.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:4) >>= (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:Node.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:Node.of_xml)
    let of_json j = list_of_json ~kind:"Nodes" ~of_json:Node.of_json j
    let to_json v = composed_to_json to_value v
  end
module CanaryEntity =
  struct
    type nonrec t =
      {
      canaryName: String_.t
        [@ocaml.doc "The name of the CloudWatch Synthetics canary."]}
    let context_ = "CanaryEntity"
    let make ~canaryName = fun () -> { canaryName }
    let to_value x =
      structure_to_value
        [("CanaryName", (Some (String_.to_value x.canaryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let canaryName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CanaryName") in
      make ~canaryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let canaryName = field_map_exn json__ "CanaryName" String_.of_json in
      make ~canaryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains identifying information for a CloudWatch Synthetics canary entity used in audit targeting."]
module ServiceLevelObjectiveEntity =
  struct
    type nonrec t =
      {
      sloName: String_.t option
        [@ocaml.doc "The name of the service level objective."];
      sloArn: String_.t option
        [@ocaml.doc
          "The ARN of the service level objective. The SLO must be provided with ARN for cross-account access."]}
    let make ?sloName = fun ?sloArn -> fun () -> { sloName; sloArn }
    let to_value x =
      structure_to_value
        [("SloName", (Option.map x.sloName ~f:String_.to_value));
        ("SloArn", (Option.map x.sloArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sloArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SloArn") in
      let sloName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SloName") in
      make ?sloArn ?sloName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sloArn = field_map json__ "SloArn" String_.of_json in
      let sloName = field_map json__ "SloName" String_.of_json in
      make ?sloArn ?sloName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains identifying information for a service level objective entity."]
module ServiceOperationEntity =
  struct
    type nonrec t =
      {
      service: ServiceEntity.t option
        [@ocaml.doc "The service entity that contains this operation."];
      operation: String_.t option [@ocaml.doc "The name of the operation."];
      metricType: String_.t option
        [@ocaml.doc
          "The type of metric associated with this service operation."]}
    let make ?service =
      fun ?operation ->
        fun ?metricType -> fun () -> { service; operation; metricType }
    let to_value x =
      structure_to_value
        [("Service", (Option.map x.service ~f:ServiceEntity.to_value));
        ("Operation", (Option.map x.operation ~f:String_.to_value));
        ("MetricType", (Option.map x.metricType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MetricType") in
      let operation =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Operation") in
      let service =
        (Option.map ~f:ServiceEntity.of_xml) (Xml.child xml_arg0 "Service") in
      make ?metricType ?operation ?service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricType = field_map json__ "MetricType" String_.of_json in
      let operation = field_map json__ "Operation" String_.of_json in
      let service = field_map json__ "Service" ServiceEntity.of_json in
      make ?metricType ?operation ?service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains identifying information for a service operation entity."]
module AttainmentGoal =
  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 Interval =
  struct
    type nonrec t =
      {
      rollingInterval: RollingInterval.t option
        [@ocaml.doc
          "If the interval is a rolling interval, this structure contains the interval specifications."];
      calendarInterval: CalendarInterval.t option
        [@ocaml.doc
          "If the interval is a calendar interval, this structure contains the interval specifications."]}
    let make ?rollingInterval =
      fun ?calendarInterval ->
        fun () -> { rollingInterval; calendarInterval }
    let to_value x =
      structure_to_value
        [("RollingInterval",
           (Option.map x.rollingInterval ~f:RollingInterval.to_value));
        ("CalendarInterval",
          (Option.map x.calendarInterval ~f:CalendarInterval.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let calendarInterval =
        (Option.map ~f:CalendarInterval.of_xml)
          (Xml.child xml_arg0 "CalendarInterval") in
      let rollingInterval =
        (Option.map ~f:RollingInterval.of_xml)
          (Xml.child xml_arg0 "RollingInterval") in
      make ?calendarInterval ?rollingInterval ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let calendarInterval =
        field_map json__ "CalendarInterval" CalendarInterval.of_json in
      let rollingInterval =
        field_map json__ "RollingInterval" RollingInterval.of_json in
      make ?calendarInterval ?rollingInterval ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The time period used to evaluate the SLO. It can be either a calendar interval or rolling interval."]
module WarningThreshold =
  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 RequestBasedServiceLevelIndicatorMetric =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map that contains information about the type of object that this SLO is related to. It can include the following fields. Type designates the type of object that this SLO is related to. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      operationName: OperationName.t option
        [@ocaml.doc
          "If the SLO monitors a specific operation of the service, this field displays that operation name."];
      metricType: ServiceLevelIndicatorMetricType.t option
        [@ocaml.doc
          "If the SLO monitors either the LATENCY or AVAILABILITY metric that Application Signals collects, this field displays which of those metrics is used."];
      totalRequestCountMetric: MetricDataQueries.t option
        [@ocaml.doc
          "This structure defines the metric that is used as the \"total requests\" number for a request-based SLO. The number observed for this metric is divided by the number of \"good requests\" or \"bad requests\" that is observed for the metric defined in MonitoredRequestCountMetric."];
      monitoredRequestCountMetric:
        MonitoredRequestCountMetricDataQueries.t option
        [@ocaml.doc
          "This structure defines the metric that is used as the \"good request\" or \"bad request\" value for a request-based SLO. This value observed for the metric defined in TotalRequestCountMetric is divided by the number found for MonitoredRequestCountMetric to determine the percentage of successful requests that this SLO tracks."];
      dependencyConfig: DependencyConfig.t option
        [@ocaml.doc
          "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName."];
      metricSource: MetricSource.t option
        [@ocaml.doc
          "Identifies the metric source for SLOs on resources other than Application Signals services."];
      compositeSliConfig: CompositeSliConfig.t option
        [@ocaml.doc
          "The composite SLI configuration for service-level SLOs that monitor multiple operations of a service."]}
    let make ?keyAttributes =
      fun ?operationName ->
        fun ?metricType ->
          fun ?totalRequestCountMetric ->
            fun ?monitoredRequestCountMetric ->
              fun ?dependencyConfig ->
                fun ?metricSource ->
                  fun ?compositeSliConfig ->
                    fun () ->
                      {
                        keyAttributes;
                        operationName;
                        metricType;
                        totalRequestCountMetric;
                        monitoredRequestCountMetric;
                        dependencyConfig;
                        metricSource;
                        compositeSliConfig
                      }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("OperationName",
          (Option.map x.operationName ~f:OperationName.to_value));
        ("MetricType",
          (Option.map x.metricType
             ~f:ServiceLevelIndicatorMetricType.to_value));
        ("TotalRequestCountMetric",
          (Option.map x.totalRequestCountMetric ~f:MetricDataQueries.to_value));
        ("MonitoredRequestCountMetric",
          (Option.map x.monitoredRequestCountMetric
             ~f:MonitoredRequestCountMetricDataQueries.to_value));
        ("DependencyConfig",
          (Option.map x.dependencyConfig ~f:DependencyConfig.to_value));
        ("MetricSource",
          (Option.map x.metricSource ~f:MetricSource.to_value));
        ("CompositeSliConfig",
          (Option.map x.compositeSliConfig ~f:CompositeSliConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compositeSliConfig =
        (Option.map ~f:CompositeSliConfig.of_xml)
          (Xml.child xml_arg0 "CompositeSliConfig") in
      let metricSource =
        (Option.map ~f:MetricSource.of_xml)
          (Xml.child xml_arg0 "MetricSource") in
      let dependencyConfig =
        (Option.map ~f:DependencyConfig.of_xml)
          (Xml.child xml_arg0 "DependencyConfig") in
      let monitoredRequestCountMetric =
        (Option.map ~f:MonitoredRequestCountMetricDataQueries.of_xml)
          (Xml.child xml_arg0 "MonitoredRequestCountMetric") in
      let totalRequestCountMetric =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "TotalRequestCountMetric") in
      let metricType =
        (Option.map ~f:ServiceLevelIndicatorMetricType.of_xml)
          (Xml.child xml_arg0 "MetricType") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?compositeSliConfig ?metricSource ?dependencyConfig
        ?monitoredRequestCountMetric ?totalRequestCountMetric ?metricType
        ?operationName ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compositeSliConfig =
        field_map json__ "CompositeSliConfig" CompositeSliConfig.of_json in
      let metricSource = field_map json__ "MetricSource" MetricSource.of_json in
      let dependencyConfig =
        field_map json__ "DependencyConfig" DependencyConfig.of_json in
      let monitoredRequestCountMetric =
        field_map json__ "MonitoredRequestCountMetric"
          MonitoredRequestCountMetricDataQueries.of_json in
      let totalRequestCountMetric =
        field_map json__ "TotalRequestCountMetric" MetricDataQueries.of_json in
      let metricType =
        field_map json__ "MetricType" ServiceLevelIndicatorMetricType.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?compositeSliConfig ?metricSource ?dependencyConfig
        ?monitoredRequestCountMetric ?totalRequestCountMetric ?metricType
        ?operationName ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains the information about the metric that is used for a request-based SLO."]
module ServiceLevelIndicatorComparisonOperator =
  struct
    type nonrec t =
      | GreaterThanOrEqualTo 
      | GreaterThan 
      | LessThan 
      | LessThanOrEqualTo 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GreaterThanOrEqualTo -> "GreaterThanOrEqualTo"
      | GreaterThan -> "GreaterThan"
      | LessThan -> "LessThan"
      | LessThanOrEqualTo -> "LessThanOrEqualTo"
      | Non_static_id s -> s
    let of_string =
      function
      | "GreaterThanOrEqualTo" -> GreaterThanOrEqualTo
      | "GreaterThan" -> GreaterThan
      | "LessThan" -> LessThan
      | "LessThanOrEqualTo" -> LessThanOrEqualTo
      | 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 ServiceLevelIndicatorComparisonOperator"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ServiceLevelIndicatorComparisonOperator" j)
    let to_json = simple_to_json to_value
  end
module ServiceLevelIndicatorMetricThreshold =
  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 ServiceLevelIndicatorMetric =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map that contains information about the type of object that this SLO is related to. It can include the following fields. Type designates the type of object that this SLO is related to. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      operationName: OperationName.t option
        [@ocaml.doc
          "If the SLO monitors a specific operation of the service, this field displays that operation name."];
      metricType: ServiceLevelIndicatorMetricType.t option
        [@ocaml.doc
          "If the SLO monitors either the LATENCY or AVAILABILITY metric that Application Signals collects, this field displays which of those metrics is used."];
      metricDataQueries: MetricDataQueries.t option
        [@ocaml.doc
          "If this SLO monitors a CloudWatch metric or the result of a CloudWatch metric math expression, this structure includes the information about that metric or expression."];
      dependencyConfig: DependencyConfig.t option
        [@ocaml.doc
          "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName."];
      metricSource: MetricSource.t option
        [@ocaml.doc
          "Identifies the metric source for SLOs on resources other than Application Signals services."];
      compositeSliConfig: CompositeSliConfig.t option
        [@ocaml.doc
          "The composite SLI configuration for service-level SLOs that monitor multiple operations of a service."]}
    let make ?keyAttributes =
      fun ?operationName ->
        fun ?metricType ->
          fun ?metricDataQueries ->
            fun ?dependencyConfig ->
              fun ?metricSource ->
                fun ?compositeSliConfig ->
                  fun () ->
                    {
                      keyAttributes;
                      operationName;
                      metricType;
                      metricDataQueries;
                      dependencyConfig;
                      metricSource;
                      compositeSliConfig
                    }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("OperationName",
          (Option.map x.operationName ~f:OperationName.to_value));
        ("MetricType",
          (Option.map x.metricType
             ~f:ServiceLevelIndicatorMetricType.to_value));
        ("MetricDataQueries",
          (Option.map x.metricDataQueries ~f:MetricDataQueries.to_value));
        ("DependencyConfig",
          (Option.map x.dependencyConfig ~f:DependencyConfig.to_value));
        ("MetricSource",
          (Option.map x.metricSource ~f:MetricSource.to_value));
        ("CompositeSliConfig",
          (Option.map x.compositeSliConfig ~f:CompositeSliConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compositeSliConfig =
        (Option.map ~f:CompositeSliConfig.of_xml)
          (Xml.child xml_arg0 "CompositeSliConfig") in
      let metricSource =
        (Option.map ~f:MetricSource.of_xml)
          (Xml.child xml_arg0 "MetricSource") in
      let dependencyConfig =
        (Option.map ~f:DependencyConfig.of_xml)
          (Xml.child xml_arg0 "DependencyConfig") in
      let metricDataQueries =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "MetricDataQueries") in
      let metricType =
        (Option.map ~f:ServiceLevelIndicatorMetricType.of_xml)
          (Xml.child xml_arg0 "MetricType") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?compositeSliConfig ?metricSource ?dependencyConfig
        ?metricDataQueries ?metricType ?operationName ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compositeSliConfig =
        field_map json__ "CompositeSliConfig" CompositeSliConfig.of_json in
      let metricSource = field_map json__ "MetricSource" MetricSource.of_json in
      let dependencyConfig =
        field_map json__ "DependencyConfig" DependencyConfig.of_json in
      let metricDataQueries =
        field_map json__ "MetricDataQueries" MetricDataQueries.of_json in
      let metricType =
        field_map json__ "MetricType" ServiceLevelIndicatorMetricType.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?compositeSliConfig ?metricSource ?dependencyConfig
        ?metricDataQueries ?metricType ?operationName ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains the information about the metric that is used for a period-based SLO."]
module BurnRateConfiguration =
  struct
    type nonrec t =
      {
      lookBackWindowMinutes: BurnRateLookBackWindowMinutes.t
        [@ocaml.doc "The number of minutes to use as the look-back window."]}
    let context_ = "BurnRateConfiguration"
    let make ~lookBackWindowMinutes = fun () -> { lookBackWindowMinutes }
    let to_value x =
      structure_to_value
        [("LookBackWindowMinutes",
           (Some
              (BurnRateLookBackWindowMinutes.to_value x.lookBackWindowMinutes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lookBackWindowMinutes =
        BurnRateLookBackWindowMinutes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LookBackWindowMinutes") in
      make ~lookBackWindowMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lookBackWindowMinutes =
        field_map_exn json__ "LookBackWindowMinutes"
          BurnRateLookBackWindowMinutes.of_json in
      make ~lookBackWindowMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This object defines the length of the look-back window used to calculate one burn rate metric for this SLO. The burn rate measures how fast the service is consuming the error budget, relative to the attainment goal of the SLO. A burn rate of exactly 1 indicates that the SLO goal will be met exactly. For example, if you specify 60 as the number of minutes in the look-back window, the burn rate is calculated as the following: burn rate = error rate over the look-back window / (100% - attainment goal percentage) For more information about burn rates, see Calculate burn rates."]
module SLIPeriodSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:900) >>= (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 SLIPeriodSeconds" 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 ServiceLevelIndicatorStatistic =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelIndicatorStatistic"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (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:"ServiceLevelIndicatorStatistic" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module GroupingAttributeDefinition =
  struct
    type nonrec t =
      {
      groupingName: GroupingString.t
        [@ocaml.doc
          "The friendly name for this grouping attribute, such as BusinessUnit or Environment. This name is used to identify the grouping in the console and APIs."];
      groupingSourceKeys: GroupingSourceKeyStringList.t option
        [@ocaml.doc
          "An array of source keys used to derive the grouping attribute value from telemetry data, Amazon Web Services tags, or other sources. For example, \\[\"business_unit\", \"team\"\\] would look for values in those fields."];
      defaultGroupingValue: GroupingString.t option
        [@ocaml.doc
          "The default value to use for this grouping attribute when no value can be derived from the source keys. This ensures all services have a grouping value even if the source data is missing."]}
    let context_ = "GroupingAttributeDefinition"
    let make ?groupingSourceKeys =
      fun ?defaultGroupingValue ->
        fun ~groupingName ->
          fun () ->
            { groupingSourceKeys; defaultGroupingValue; groupingName }
    let to_value x =
      structure_to_value
        [("GroupingName", (Some (GroupingString.to_value x.groupingName)));
        ("GroupingSourceKeys",
          (Option.map x.groupingSourceKeys
             ~f:GroupingSourceKeyStringList.to_value));
        ("DefaultGroupingValue",
          (Option.map x.defaultGroupingValue ~f:GroupingString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultGroupingValue =
        (Option.map ~f:GroupingString.of_xml)
          (Xml.child xml_arg0 "DefaultGroupingValue") in
      let groupingSourceKeys =
        (Option.map ~f:GroupingSourceKeyStringList.of_xml)
          (Xml.child xml_arg0 "GroupingSourceKeys") in
      let groupingName =
        GroupingString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GroupingName") in
      make ?defaultGroupingValue ?groupingSourceKeys ~groupingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultGroupingValue =
        field_map json__ "DefaultGroupingValue" GroupingString.of_json in
      let groupingSourceKeys =
        field_map json__ "GroupingSourceKeys"
          GroupingSourceKeyStringList.of_json in
      let groupingName =
        field_map_exn json__ "GroupingName" GroupingString.of_json in
      make ?defaultGroupingValue ?groupingSourceKeys ~groupingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that defines how services should be grouped based on specific attributes. This includes the friendly name for the grouping, the source keys to derive values from, and an optional default value."]
module AttributeMaps =
  struct
    type nonrec t = AttributeMap.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:AttributeMap.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:AttributeMap.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeMaps" ~of_json:AttributeMap.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricReferences =
  struct
    type nonrec t = MetricReference.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MetricReference.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:MetricReference.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricReferences" ~of_json:MetricReference.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ServiceGroups =
  struct
    type nonrec t = ServiceGroup.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:ServiceGroup.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:ServiceGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceGroups" ~of_json:ServiceGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttributeFilters =
  struct
    type nonrec t = AttributeFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:AttributeFilter.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:AttributeFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeFilters" ~of_json:AttributeFilter.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module LatestChangeEvents =
  struct
    type nonrec t = ChangeEvent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:ChangeEvent.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:ChangeEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"LatestChangeEvents" ~of_json:ChangeEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module EvaluationType =
  struct
    type nonrec t =
      | PeriodBased 
      | RequestBased 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PeriodBased -> "PeriodBased"
      | RequestBased -> "RequestBased"
      | Non_static_id s -> s
    let of_string =
      function
      | "PeriodBased" -> PeriodBased
      | "RequestBased" -> RequestBased
      | 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 EvaluationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EvaluationType" j)
    let to_json = simple_to_json to_value
  end
module MetricSourceType =
  struct
    type nonrec t =
      | ServiceOperation 
      | CloudWatchMetric 
      | ServiceDependency 
      | AppMonitor 
      | Canary 
      | Service 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ServiceOperation -> "ServiceOperation"
      | CloudWatchMetric -> "CloudWatchMetric"
      | ServiceDependency -> "ServiceDependency"
      | AppMonitor -> "AppMonitor"
      | Canary -> "Canary"
      | Service -> "Service"
      | Non_static_id s -> s
    let of_string =
      function
      | "ServiceOperation" -> ServiceOperation
      | "CloudWatchMetric" -> CloudWatchMetric
      | "ServiceDependency" -> ServiceDependency
      | "AppMonitor" -> AppMonitor
      | "Canary" -> Canary
      | "Service" -> Service
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration MetricSourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetricSourceType" j)
    let to_json = simple_to_json to_value
  end
module ServiceLevelObjectiveArn =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelObjectiveArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-us-gov):application-signals:[^:]*:[^:]*:slo/[0-9A-Za-z][-._0-9A-Za-z ]{0,126}[0-9A-Za-z]")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceLevelObjectiveArn" j
    let to_json = simple_to_json to_value
  end
module ServiceLevelObjectiveName =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelObjectiveName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9A-Za-z][-._0-9A-Za-z ]{0,126}[0-9A-Za-z]");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceLevelObjectiveName" j
    let to_json = simple_to_json to_value
  end
module ExclusionReason =
  struct
    type nonrec t = string
    let context_ = "ExclusionReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExclusionReason" j
    let to_json = simple_to_json to_value
  end
module RecurrenceRule =
  struct
    type nonrec t =
      {
      expression: Expression.t
        [@ocaml.doc
          "A cron or rate expression that specifies the schedule for the exclusion window."]}
    let context_ = "RecurrenceRule"
    let make ~expression = fun () -> { expression }
    let to_value x =
      structure_to_value
        [("Expression", (Some (Expression.to_value x.expression)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expression =
        Expression.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Expression") in
      make ~expression ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expression = field_map_exn json__ "Expression" Expression.of_json in
      make ~expression ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The recurrence rule for the SLO time window exclusion ."]
module Window =
  struct
    type nonrec t =
      {
      durationUnit: DurationUnit.t
        [@ocaml.doc
          "The unit of time for the exclusion window duration. Valid values: MINUTE, HOUR, DAY, MONTH."];
      duration: ExclusionDuration.t
        [@ocaml.doc
          "The number of time units for the exclusion window length."]}
    let context_ = "Window"
    let make ~durationUnit =
      fun ~duration -> fun () -> { durationUnit; duration }
    let to_value x =
      structure_to_value
        [("DurationUnit", (Some (DurationUnit.to_value x.durationUnit)));
        ("Duration", (Some (ExclusionDuration.to_value x.duration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let duration =
        ExclusionDuration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Duration") in
      let durationUnit =
        DurationUnit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DurationUnit") in
      make ~duration ~durationUnit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let duration =
        field_map_exn json__ "Duration" ExclusionDuration.of_json in
      let durationUnit =
        field_map_exn json__ "DurationUnit" DurationUnit.of_json in
      make ~duration ~durationUnit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object that defines the time length of an exclusion window."]
module AuditorResults =
  struct
    type nonrec t = AuditorResult.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:AuditorResult.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:AuditorResult.of_xml)
    let of_json j =
      list_of_json ~kind:"AuditorResults" ~of_json:AuditorResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module DependencyGraph =
  struct
    type nonrec t =
      {
      nodes: Nodes.t option
        [@ocaml.doc
          "An array of nodes representing the services, resources, or other entities in the dependency graph."];
      edges: Edges.t option
        [@ocaml.doc
          "An array of edges representing the connections and relationships between the nodes in the dependency graph."]}
    let make ?nodes = fun ?edges -> fun () -> { nodes; edges }
    let to_value x =
      structure_to_value
        [("Nodes", (Option.map x.nodes ~f:Nodes.to_value));
        ("Edges", (Option.map x.edges ~f:Edges.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edges = (Option.map ~f:Edges.of_xml) (Xml.child xml_arg0 "Edges") in
      let nodes = (Option.map ~f:Nodes.of_xml) (Xml.child xml_arg0 "Nodes") in
      make ?edges ?nodes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edges = field_map json__ "Edges" Edges.of_json in
      let nodes = field_map json__ "Nodes" Nodes.of_json in
      make ?edges ?nodes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that represents the dependency relationships relevant to an audit finding, containing nodes and edges that show how services and resources are connected."]
module MetricGraph =
  struct
    type nonrec t =
      {
      metricDataQueries: MetricDataQueries.t option
        [@ocaml.doc
          "An array of metric data queries that define the metrics to be retrieved and analyzed as part of the audit finding context."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time for the metric data included in this graph. When used in a raw HTTP Query API, it is formatted as epoch time in seconds."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time for the metric data included in this graph. When used in a raw HTTP Query API, it is formatted as epoch time in seconds."]}
    let make ?metricDataQueries =
      fun ?startTime ->
        fun ?endTime -> fun () -> { metricDataQueries; startTime; endTime }
    let to_value x =
      structure_to_value
        [("MetricDataQueries",
           (Option.map x.metricDataQueries ~f:MetricDataQueries.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let metricDataQueries =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "MetricDataQueries") in
      make ?endTime ?startTime ?metricDataQueries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let metricDataQueries =
        field_map json__ "MetricDataQueries" MetricDataQueries.of_json in
      make ?endTime ?startTime ?metricDataQueries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains metric data queries and time range information that provides context for audit findings through relevant performance metrics."]
module AuditTargetEntity =
  struct
    type nonrec t =
      {
      service: ServiceEntity.t option
        [@ocaml.doc
          "Service entity information when the audit target is a service."];
      slo: ServiceLevelObjectiveEntity.t option
        [@ocaml.doc
          "SLO entity information when the audit target is a service level objective."];
      serviceOperation: ServiceOperationEntity.t option
        [@ocaml.doc
          "Service operation entity information when the audit target is a specific service operation."];
      canary: CanaryEntity.t option
        [@ocaml.doc
          "Canary entity information when the audit target is a CloudWatch Synthetics canary."]}
    let make ?service =
      fun ?slo ->
        fun ?serviceOperation ->
          fun ?canary -> fun () -> { service; slo; serviceOperation; canary }
    let to_value x =
      structure_to_value
        [("Service", (Option.map x.service ~f:ServiceEntity.to_value));
        ("Slo", (Option.map x.slo ~f:ServiceLevelObjectiveEntity.to_value));
        ("ServiceOperation",
          (Option.map x.serviceOperation ~f:ServiceOperationEntity.to_value));
        ("Canary", (Option.map x.canary ~f:CanaryEntity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let canary =
        (Option.map ~f:CanaryEntity.of_xml) (Xml.child xml_arg0 "Canary") in
      let serviceOperation =
        (Option.map ~f:ServiceOperationEntity.of_xml)
          (Xml.child xml_arg0 "ServiceOperation") in
      let slo =
        (Option.map ~f:ServiceLevelObjectiveEntity.of_xml)
          (Xml.child xml_arg0 "Slo") in
      let service =
        (Option.map ~f:ServiceEntity.of_xml) (Xml.child xml_arg0 "Service") in
      make ?canary ?serviceOperation ?slo ?service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let canary = field_map json__ "Canary" CanaryEntity.of_json in
      let serviceOperation =
        field_map json__ "ServiceOperation" ServiceOperationEntity.of_json in
      let slo = field_map json__ "Slo" ServiceLevelObjectiveEntity.of_json in
      let service = field_map json__ "Service" ServiceEntity.of_json in
      make ?canary ?serviceOperation ?slo ?service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A union structure that contains the specific entity information for different types of audit targets."]
module ExclusionWindowErrorCode =
  struct
    type nonrec t = string
    let context_ = "ExclusionWindowErrorCode"
    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:"ExclusionWindowErrorCode" j
    let to_json = simple_to_json to_value
  end
module ExclusionWindowErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ExclusionWindowErrorMessage"
    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:"ExclusionWindowErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ServiceLevelObjectiveId =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelObjectiveId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9A-Za-z][-._0-9A-Za-z ]{0,126}[0-9A-Za-z]$|^arn:(aws|aws-us-gov):application-signals:[^:]*:[^:]*:slo/[0-9A-Za-z][-._0-9A-Za-z ]{0,126}[0-9A-Za-z]");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceLevelObjectiveId" j
    let to_json = simple_to_json to_value
  end
module ServiceLevelObjectiveBudgetReportErrorCode =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelObjectiveBudgetReportErrorCode"
    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:"ServiceLevelObjectiveBudgetReportErrorCode" j
    let to_json = simple_to_json to_value
  end
module ServiceLevelObjectiveBudgetReportErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelObjectiveBudgetReportErrorMessage"
    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:"ServiceLevelObjectiveBudgetReportErrorMessage" j
    let to_json = simple_to_json to_value
  end
module Attainment =
  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 BudgetRequestsRemaining =
  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 BudgetRequestsRemaining"
           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 BudgetSecondsRemaining =
  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 BudgetSecondsRemaining" 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 Goal =
  struct
    type nonrec t =
      {
      interval: Interval.t option
        [@ocaml.doc
          "The time period used to evaluate the SLO. It can be either a calendar interval or rolling interval. If you omit this parameter, a rolling interval of 7 days is used."];
      attainmentGoal: AttainmentGoal.t option
        [@ocaml.doc
          "The threshold that determines if the goal is being met. If this is a period-based SLO, the attainment goal is the percentage of good periods that meet the threshold requirements to the total periods within the interval. For example, an attainment goal of 99.9% means that within your interval, you are targeting 99.9% of the periods to be in healthy state. If this is a request-based SLO, the attainment goal is the percentage of requests that must be successful to meet the attainment goal. If you omit this parameter, 99 is used to represent 99% as the attainment goal."];
      warningThreshold: WarningThreshold.t option
        [@ocaml.doc
          "The percentage of remaining budget over total budget that you want to get warnings for. If you omit this parameter, the default of 50.0 is used."]}
    let make ?interval =
      fun ?attainmentGoal ->
        fun ?warningThreshold ->
          fun () -> { interval; attainmentGoal; warningThreshold }
    let to_value x =
      structure_to_value
        [("Interval", (Option.map x.interval ~f:Interval.to_value));
        ("AttainmentGoal",
          (Option.map x.attainmentGoal ~f:AttainmentGoal.to_value));
        ("WarningThreshold",
          (Option.map x.warningThreshold ~f:WarningThreshold.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let warningThreshold =
        (Option.map ~f:WarningThreshold.of_xml)
          (Xml.child xml_arg0 "WarningThreshold") in
      let attainmentGoal =
        (Option.map ~f:AttainmentGoal.of_xml)
          (Xml.child xml_arg0 "AttainmentGoal") in
      let interval =
        (Option.map ~f:Interval.of_xml) (Xml.child xml_arg0 "Interval") in
      make ?warningThreshold ?attainmentGoal ?interval ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let warningThreshold =
        field_map json__ "WarningThreshold" WarningThreshold.of_json in
      let attainmentGoal =
        field_map json__ "AttainmentGoal" AttainmentGoal.of_json in
      let interval = field_map json__ "Interval" Interval.of_json in
      make ?warningThreshold ?attainmentGoal ?interval ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains the attributes that determine the goal of an SLO. This includes the time period for evaluation and the attainment threshold."]
module RequestBasedServiceLevelIndicator =
  struct
    type nonrec t =
      {
      requestBasedSliMetric: RequestBasedServiceLevelIndicatorMetric.t option
        [@ocaml.doc
          "A structure that contains information about the metric that the SLO monitors."];
      metricThreshold: ServiceLevelIndicatorMetricThreshold.t option
        [@ocaml.doc
          "This value is the threshold that the observed metric values of the SLI metric are compared to."];
      comparisonOperator: ServiceLevelIndicatorComparisonOperator.t option
        [@ocaml.doc
          "The arithmetic operation used when comparing the specified metric to the threshold."]}
    let make ?requestBasedSliMetric =
      fun ?metricThreshold ->
        fun ?comparisonOperator ->
          fun () ->
            { requestBasedSliMetric; metricThreshold; comparisonOperator }
    let to_value x =
      structure_to_value
        [("RequestBasedSliMetric",
           (Option.map x.requestBasedSliMetric
              ~f:RequestBasedServiceLevelIndicatorMetric.to_value));
        ("MetricThreshold",
          (Option.map x.metricThreshold
             ~f:ServiceLevelIndicatorMetricThreshold.to_value));
        ("ComparisonOperator",
          (Option.map x.comparisonOperator
             ~f:ServiceLevelIndicatorComparisonOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparisonOperator =
        (Option.map ~f:ServiceLevelIndicatorComparisonOperator.of_xml)
          (Xml.child xml_arg0 "ComparisonOperator") in
      let metricThreshold =
        (Option.map ~f:ServiceLevelIndicatorMetricThreshold.of_xml)
          (Xml.child xml_arg0 "MetricThreshold") in
      let requestBasedSliMetric =
        (Option.map ~f:RequestBasedServiceLevelIndicatorMetric.of_xml)
          (Xml.child xml_arg0 "RequestBasedSliMetric") in
      make ?comparisonOperator ?metricThreshold ?requestBasedSliMetric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparisonOperator =
        field_map json__ "ComparisonOperator"
          ServiceLevelIndicatorComparisonOperator.of_json in
      let metricThreshold =
        field_map json__ "MetricThreshold"
          ServiceLevelIndicatorMetricThreshold.of_json in
      let requestBasedSliMetric =
        field_map json__ "RequestBasedSliMetric"
          RequestBasedServiceLevelIndicatorMetric.of_json in
      make ?comparisonOperator ?metricThreshold ?requestBasedSliMetric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about the performance metric that a request-based SLO monitors."]
module ServiceLevelIndicator =
  struct
    type nonrec t =
      {
      sliMetric: ServiceLevelIndicatorMetric.t option
        [@ocaml.doc
          "A structure that contains information about the metric that the SLO monitors."];
      metricThreshold: ServiceLevelIndicatorMetricThreshold.t option
        [@ocaml.doc "The value that the SLI metric is compared to."];
      comparisonOperator: ServiceLevelIndicatorComparisonOperator.t option
        [@ocaml.doc
          "The arithmetic operation used when comparing the specified metric to the threshold."]}
    let make ?sliMetric =
      fun ?metricThreshold ->
        fun ?comparisonOperator ->
          fun () -> { sliMetric; metricThreshold; comparisonOperator }
    let to_value x =
      structure_to_value
        [("SliMetric",
           (Option.map x.sliMetric ~f:ServiceLevelIndicatorMetric.to_value));
        ("MetricThreshold",
          (Option.map x.metricThreshold
             ~f:ServiceLevelIndicatorMetricThreshold.to_value));
        ("ComparisonOperator",
          (Option.map x.comparisonOperator
             ~f:ServiceLevelIndicatorComparisonOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparisonOperator =
        (Option.map ~f:ServiceLevelIndicatorComparisonOperator.of_xml)
          (Xml.child xml_arg0 "ComparisonOperator") in
      let metricThreshold =
        (Option.map ~f:ServiceLevelIndicatorMetricThreshold.of_xml)
          (Xml.child xml_arg0 "MetricThreshold") in
      let sliMetric =
        (Option.map ~f:ServiceLevelIndicatorMetric.of_xml)
          (Xml.child xml_arg0 "SliMetric") in
      make ?comparisonOperator ?metricThreshold ?sliMetric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparisonOperator =
        field_map json__ "ComparisonOperator"
          ServiceLevelIndicatorComparisonOperator.of_json in
      let metricThreshold =
        field_map json__ "MetricThreshold"
          ServiceLevelIndicatorMetricThreshold.of_json in
      let sliMetric =
        field_map json__ "SliMetric" ServiceLevelIndicatorMetric.of_json in
      make ?comparisonOperator ?metricThreshold ?sliMetric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about the performance metric that a period-based SLO monitors."]
module ServiceLevelObjectiveBudgetStatus =
  struct
    type nonrec t =
      | OK 
      | WARNING 
      | BREACHED 
      | INSUFFICIENT_DATA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OK -> "OK"
      | WARNING -> "WARNING"
      | BREACHED -> "BREACHED"
      | INSUFFICIENT_DATA -> "INSUFFICIENT_DATA"
      | Non_static_id s -> s
    let of_string =
      function
      | "OK" -> OK
      | "WARNING" -> WARNING
      | "BREACHED" -> BREACHED
      | "INSUFFICIENT_DATA" -> INSUFFICIENT_DATA
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ServiceLevelObjectiveBudgetStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ServiceLevelObjectiveBudgetStatus" j)
    let to_json = simple_to_json to_value
  end
module TotalBudgetRequests =
  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 TotalBudgetRequests" 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 TotalBudgetSeconds =
  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 TotalBudgetSeconds" 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 FaultDescription =
  struct
    type nonrec t = string
    let context_ = "FaultDescription"
    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:"FaultDescription" j
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t = string
    let context_ = "ResourceType"
    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:"ResourceType" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module BurnRateConfigurations =
  struct
    type nonrec t = BurnRateConfiguration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:BurnRateConfiguration.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:BurnRateConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"BurnRateConfigurations"
        ~of_json:BurnRateConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceLevelObjectiveDescription =
  struct
    type nonrec t = string
    let context_ = "ServiceLevelObjectiveDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceLevelObjectiveDescription" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ValidationExceptionMessage"
    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:"ValidationExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module RequestBasedServiceLevelIndicatorMetricConfig =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "If this SLO is related to a metric collected by Application Signals, you must use this field to specify which service the SLO metric is related to. To do so, you must specify at least the Type, Name, and Environment attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      operationName: OperationName.t option
        [@ocaml.doc
          "If the SLO is to monitor a specific operation of the service, use this field to specify the name of that operation."];
      metricType: ServiceLevelIndicatorMetricType.t option
        [@ocaml.doc
          "If the SLO is to monitor either the LATENCY or AVAILABILITY metric that Application Signals collects, use this field to specify which of those metrics is used."];
      totalRequestCountMetric: MetricDataQueries.t option
        [@ocaml.doc
          "Use this structure to define the metric that you want to use as the \"total requests\" number for a request-based SLO. This result will be divided by the \"good request\" or \"bad request\" value defined in MonitoredRequestCountMetric."];
      monitoredRequestCountMetric:
        MonitoredRequestCountMetricDataQueries.t option
        [@ocaml.doc
          "Use this structure to define the metric that you want to use as the \"good request\" or \"bad request\" value for a request-based SLO. This value observed for the metric defined in TotalRequestCountMetric will be divided by the number found for MonitoredRequestCountMetric to determine the percentage of successful requests that this SLO tracks."];
      dependencyConfig: DependencyConfig.t option
        [@ocaml.doc
          "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName."];
      metricSource: MetricSource.t option
        [@ocaml.doc
          "Identifies the metric source for SLOs on resources other than Application Signals services."];
      metricName: MetricName.t option
        [@ocaml.doc
          "The name of the metric for SLOs on resources other than Application Signals services."];
      compositeSliConfig: CompositeSliConfig.t option
        [@ocaml.doc
          "The composite SLI configuration for service-level SLOs that monitor multiple operations of a service."]}
    let make ?keyAttributes =
      fun ?operationName ->
        fun ?metricType ->
          fun ?totalRequestCountMetric ->
            fun ?monitoredRequestCountMetric ->
              fun ?dependencyConfig ->
                fun ?metricSource ->
                  fun ?metricName ->
                    fun ?compositeSliConfig ->
                      fun () ->
                        {
                          keyAttributes;
                          operationName;
                          metricType;
                          totalRequestCountMetric;
                          monitoredRequestCountMetric;
                          dependencyConfig;
                          metricSource;
                          metricName;
                          compositeSliConfig
                        }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("OperationName",
          (Option.map x.operationName ~f:OperationName.to_value));
        ("MetricType",
          (Option.map x.metricType
             ~f:ServiceLevelIndicatorMetricType.to_value));
        ("TotalRequestCountMetric",
          (Option.map x.totalRequestCountMetric ~f:MetricDataQueries.to_value));
        ("MonitoredRequestCountMetric",
          (Option.map x.monitoredRequestCountMetric
             ~f:MonitoredRequestCountMetricDataQueries.to_value));
        ("DependencyConfig",
          (Option.map x.dependencyConfig ~f:DependencyConfig.to_value));
        ("MetricSource",
          (Option.map x.metricSource ~f:MetricSource.to_value));
        ("MetricName", (Option.map x.metricName ~f:MetricName.to_value));
        ("CompositeSliConfig",
          (Option.map x.compositeSliConfig ~f:CompositeSliConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compositeSliConfig =
        (Option.map ~f:CompositeSliConfig.of_xml)
          (Xml.child xml_arg0 "CompositeSliConfig") in
      let metricName =
        (Option.map ~f:MetricName.of_xml) (Xml.child xml_arg0 "MetricName") in
      let metricSource =
        (Option.map ~f:MetricSource.of_xml)
          (Xml.child xml_arg0 "MetricSource") in
      let dependencyConfig =
        (Option.map ~f:DependencyConfig.of_xml)
          (Xml.child xml_arg0 "DependencyConfig") in
      let monitoredRequestCountMetric =
        (Option.map ~f:MonitoredRequestCountMetricDataQueries.of_xml)
          (Xml.child xml_arg0 "MonitoredRequestCountMetric") in
      let totalRequestCountMetric =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "TotalRequestCountMetric") in
      let metricType =
        (Option.map ~f:ServiceLevelIndicatorMetricType.of_xml)
          (Xml.child xml_arg0 "MetricType") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?compositeSliConfig ?metricName ?metricSource ?dependencyConfig
        ?monitoredRequestCountMetric ?totalRequestCountMetric ?metricType
        ?operationName ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compositeSliConfig =
        field_map json__ "CompositeSliConfig" CompositeSliConfig.of_json in
      let metricName = field_map json__ "MetricName" MetricName.of_json in
      let metricSource = field_map json__ "MetricSource" MetricSource.of_json in
      let dependencyConfig =
        field_map json__ "DependencyConfig" DependencyConfig.of_json in
      let monitoredRequestCountMetric =
        field_map json__ "MonitoredRequestCountMetric"
          MonitoredRequestCountMetricDataQueries.of_json in
      let totalRequestCountMetric =
        field_map json__ "TotalRequestCountMetric" MetricDataQueries.of_json in
      let metricType =
        field_map json__ "MetricType" ServiceLevelIndicatorMetricType.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?compositeSliConfig ?metricName ?metricSource ?dependencyConfig
        ?monitoredRequestCountMetric ?totalRequestCountMetric ?metricType
        ?operationName ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this structure to specify the information for the metric that a period-based SLO will monitor."]
module ServiceLevelIndicatorMetricConfig =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "If this SLO is related to a metric collected by Application Signals, you must use this field to specify which service the SLO metric is related to. To do so, you must specify at least the Type, Name, and Environment attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      operationName: OperationName.t option
        [@ocaml.doc
          "If the SLO is to monitor a specific operation of the service, use this field to specify the name of that operation."];
      metricType: ServiceLevelIndicatorMetricType.t option
        [@ocaml.doc
          "If the SLO is to monitor either the LATENCY or AVAILABILITY metric that Application Signals collects, use this field to specify which of those metrics is used."];
      metricName: MetricName.t option
        [@ocaml.doc
          "The name of the CloudWatch metric to use for the SLO, when using a custom metric rather than Application Signals standard metrics."];
      statistic: ServiceLevelIndicatorStatistic.t option
        [@ocaml.doc
          "The statistic to use for comparison to the threshold. It can be any CloudWatch statistic or extended statistic. For more information about statistics, see CloudWatch statistics definitions."];
      periodSeconds: SLIPeriodSeconds.t option
        [@ocaml.doc
          "The number of seconds to use as the period for SLO evaluation. Your application's performance is compared to the SLI during each period. For each period, the application is determined to have either achieved or not achieved the necessary performance."];
      metricSource: MetricSource.t option
        [@ocaml.doc
          "Identifies the metric source for SLOs on resources other than Application Signals services."];
      metricDataQueries: MetricDataQueries.t option
        [@ocaml.doc
          "If this SLO monitors a CloudWatch metric or the result of a CloudWatch metric math expression, use this structure to specify that metric or expression."];
      dependencyConfig: DependencyConfig.t option
        [@ocaml.doc
          "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName."];
      compositeSliConfig: CompositeSliConfig.t option
        [@ocaml.doc
          "The composite SLI configuration for service-level SLOs that monitor multiple operations of a service."]}
    let make ?keyAttributes =
      fun ?operationName ->
        fun ?metricType ->
          fun ?metricName ->
            fun ?statistic ->
              fun ?periodSeconds ->
                fun ?metricSource ->
                  fun ?metricDataQueries ->
                    fun ?dependencyConfig ->
                      fun ?compositeSliConfig ->
                        fun () ->
                          {
                            keyAttributes;
                            operationName;
                            metricType;
                            metricName;
                            statistic;
                            periodSeconds;
                            metricSource;
                            metricDataQueries;
                            dependencyConfig;
                            compositeSliConfig
                          }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("OperationName",
          (Option.map x.operationName ~f:OperationName.to_value));
        ("MetricType",
          (Option.map x.metricType
             ~f:ServiceLevelIndicatorMetricType.to_value));
        ("MetricName", (Option.map x.metricName ~f:MetricName.to_value));
        ("Statistic",
          (Option.map x.statistic ~f:ServiceLevelIndicatorStatistic.to_value));
        ("PeriodSeconds",
          (Option.map x.periodSeconds ~f:SLIPeriodSeconds.to_value));
        ("MetricSource",
          (Option.map x.metricSource ~f:MetricSource.to_value));
        ("MetricDataQueries",
          (Option.map x.metricDataQueries ~f:MetricDataQueries.to_value));
        ("DependencyConfig",
          (Option.map x.dependencyConfig ~f:DependencyConfig.to_value));
        ("CompositeSliConfig",
          (Option.map x.compositeSliConfig ~f:CompositeSliConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compositeSliConfig =
        (Option.map ~f:CompositeSliConfig.of_xml)
          (Xml.child xml_arg0 "CompositeSliConfig") in
      let dependencyConfig =
        (Option.map ~f:DependencyConfig.of_xml)
          (Xml.child xml_arg0 "DependencyConfig") in
      let metricDataQueries =
        (Option.map ~f:MetricDataQueries.of_xml)
          (Xml.child xml_arg0 "MetricDataQueries") in
      let metricSource =
        (Option.map ~f:MetricSource.of_xml)
          (Xml.child xml_arg0 "MetricSource") in
      let periodSeconds =
        (Option.map ~f:SLIPeriodSeconds.of_xml)
          (Xml.child xml_arg0 "PeriodSeconds") in
      let statistic =
        (Option.map ~f:ServiceLevelIndicatorStatistic.of_xml)
          (Xml.child xml_arg0 "Statistic") in
      let metricName =
        (Option.map ~f:MetricName.of_xml) (Xml.child xml_arg0 "MetricName") in
      let metricType =
        (Option.map ~f:ServiceLevelIndicatorMetricType.of_xml)
          (Xml.child xml_arg0 "MetricType") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?compositeSliConfig ?dependencyConfig ?metricDataQueries
        ?metricSource ?periodSeconds ?statistic ?metricName ?metricType
        ?operationName ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compositeSliConfig =
        field_map json__ "CompositeSliConfig" CompositeSliConfig.of_json in
      let dependencyConfig =
        field_map json__ "DependencyConfig" DependencyConfig.of_json in
      let metricDataQueries =
        field_map json__ "MetricDataQueries" MetricDataQueries.of_json in
      let metricSource = field_map json__ "MetricSource" MetricSource.of_json in
      let periodSeconds =
        field_map json__ "PeriodSeconds" SLIPeriodSeconds.of_json in
      let statistic =
        field_map json__ "Statistic" ServiceLevelIndicatorStatistic.of_json in
      let metricName = field_map json__ "MetricName" MetricName.of_json in
      let metricType =
        field_map json__ "MetricType" ServiceLevelIndicatorMetricType.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?compositeSliConfig ?dependencyConfig ?metricDataQueries
        ?metricSource ?periodSeconds ?statistic ?metricName ?metricType
        ?operationName ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this structure to specify the information for the metric that a period-based SLO will monitor."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "A string that you can use to assign a value. The combination of tag keys and values can help you organize and categorize your resources."];
      value: TagValue.t [@ocaml.doc "The value for the specified tag key."]}
    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 associated with a resource. Tags can help you organize and categorize your resources."]
module ServiceErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ServiceErrorMessage"
    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:"ServiceErrorMessage" j
    let to_json = simple_to_json to_value
  end
module GroupingAttributeDefinitions =
  struct
    type nonrec t = GroupingAttributeDefinition.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:GroupingAttributeDefinition.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:GroupingAttributeDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupingAttributeDefinitions"
        ~of_json:GroupingAttributeDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceSummary =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map that help identify the objects discovered by Application Signals. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      attributeMaps: AttributeMaps.t option
        [@ocaml.doc
          "This structure contains one or more string-to-string maps that help identify this service. It can include platform attributes, application attributes, and telemetry attributes. Platform attributes contain information the service's platform. PlatformType defines the hosted-in platform. EKS.Cluster is the name of the Amazon EKS cluster. K8s.Cluster is the name of the self-hosted Kubernetes cluster. K8s.Namespace is the name of the Kubernetes namespace in either Amazon EKS or Kubernetes clusters. K8s.Workload is the name of the Kubernetes workload in either Amazon EKS or Kubernetes clusters. K8s.Node is the name of the Kubernetes node in either Amazon EKS or Kubernetes clusters. K8s.Pod is the name of the Kubernetes pod in either Amazon EKS or Kubernetes clusters. EC2.AutoScalingGroup is the name of the Amazon EC2 Auto Scaling group. EC2.InstanceId is the ID of the Amazon EC2 instance. Host is the name of the host, for all platform types. Application attributes contain information about the application. AWS.Application is the application's name in Amazon Web Services Service Catalog AppRegistry. AWS.Application.ARN is the application's ARN in Amazon Web Services Service Catalog AppRegistry. Telemetry attributes contain telemetry information. Telemetry.SDK is the fingerprint of the OpenTelemetry SDK version for instrumented services. Telemetry.Agent is the fingerprint of the agent used to collect and send telemetry data. Telemetry.Source Specifies the point of application where the telemetry was collected or specifies what was used for the source of telemetry data."];
      metricReferences: MetricReferences.t option
        [@ocaml.doc
          "An array of structures that each contain information about one metric associated with this service."];
      serviceGroups: ServiceGroups.t option
        [@ocaml.doc
          "An array of service groups that this service belongs to, based on the configured grouping attributes."]}
    let make ?keyAttributes =
      fun ?attributeMaps ->
        fun ?metricReferences ->
          fun ?serviceGroups ->
            fun () ->
              { keyAttributes; attributeMaps; metricReferences; serviceGroups
              }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("AttributeMaps",
          (Option.map x.attributeMaps ~f:AttributeMaps.to_value));
        ("MetricReferences",
          (Option.map x.metricReferences ~f:MetricReferences.to_value));
        ("ServiceGroups",
          (Option.map x.serviceGroups ~f:ServiceGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceGroups =
        (Option.map ~f:ServiceGroups.of_xml)
          (Xml.child xml_arg0 "ServiceGroups") in
      let metricReferences =
        (Option.map ~f:MetricReferences.of_xml)
          (Xml.child xml_arg0 "MetricReferences") in
      let attributeMaps =
        (Option.map ~f:AttributeMaps.of_xml)
          (Xml.child xml_arg0 "AttributeMaps") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?serviceGroups ?metricReferences ?attributeMaps ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceGroups =
        field_map json__ "ServiceGroups" ServiceGroups.of_json in
      let metricReferences =
        field_map json__ "MetricReferences" MetricReferences.of_json in
      let attributeMaps =
        field_map json__ "AttributeMaps" AttributeMaps.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?serviceGroups ?metricReferences ?attributeMaps ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about one of your services that was discovered by Application Signals"]
module ServiceState =
  struct
    type nonrec t =
      {
      attributeFilters: AttributeFilters.t option
        [@ocaml.doc
          "The attribute filters that were applied when retrieving this service state information."];
      service: Attributes.t option
        [@ocaml.doc
          "The key attributes that identify this service, including Type, Name, and Environment information."];
      latestChangeEvents: LatestChangeEvents.t option
        [@ocaml.doc
          "An array containing the most recent change events for this service, such as deployments, with information about when they occurred and who initiated them."]}
    let make ?attributeFilters =
      fun ?service ->
        fun ?latestChangeEvents ->
          fun () -> { attributeFilters; service; latestChangeEvents }
    let to_value x =
      structure_to_value
        [("AttributeFilters",
           (Option.map x.attributeFilters ~f:AttributeFilters.to_value));
        ("Service", (Option.map x.service ~f:Attributes.to_value));
        ("LatestChangeEvents",
          (Option.map x.latestChangeEvents ~f:LatestChangeEvents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestChangeEvents =
        (Option.map ~f:LatestChangeEvents.of_xml)
          (Xml.child xml_arg0 "LatestChangeEvents") in
      let service =
        (Option.map ~f:Attributes.of_xml) (Xml.child xml_arg0 "Service") in
      let attributeFilters =
        (Option.map ~f:AttributeFilters.of_xml)
          (Xml.child xml_arg0 "AttributeFilters") in
      make ?latestChangeEvents ?service ?attributeFilters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestChangeEvents =
        field_map json__ "LatestChangeEvents" LatestChangeEvents.of_json in
      let service = field_map json__ "Service" Attributes.of_json in
      let attributeFilters =
        field_map json__ "AttributeFilters" AttributeFilters.of_json in
      make ?latestChangeEvents ?service ?attributeFilters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about the current state of a service, including its latest change events such as deployments and other state-changing activities."]
module ServiceOperation =
  struct
    type nonrec t =
      {
      name: OperationName.t option
        [@ocaml.doc
          "The name of the operation, discovered by Application Signals."];
      metricReferences: MetricReferences.t option
        [@ocaml.doc
          "An array of structures that each contain information about one metric associated with this service operation that was discovered by Application Signals."]}
    let make ?name =
      fun ?metricReferences -> fun () -> { name; metricReferences }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:OperationName.to_value));
        ("MetricReferences",
          (Option.map x.metricReferences ~f:MetricReferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricReferences =
        (Option.map ~f:MetricReferences.of_xml)
          (Xml.child xml_arg0 "MetricReferences") in
      let name =
        (Option.map ~f:OperationName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?metricReferences ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricReferences =
        field_map json__ "MetricReferences" MetricReferences.of_json in
      let name = field_map json__ "Name" OperationName.of_json in
      make ?metricReferences ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about an operation discovered by Application Signals. An operation is a specific function performed by a service that was discovered by Application Signals, and is often an API that is called by an upstream dependent."]
module ServiceLevelObjectiveSummary =
  struct
    type nonrec t =
      {
      arn: ServiceLevelObjectiveArn.t option
        [@ocaml.doc "The ARN of this service level objective."];
      name: ServiceLevelObjectiveName.t option
        [@ocaml.doc "The name of the service level objective."];
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map. It can include the following fields. Type designates the type of object this service level objective is for. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      operationName: OperationName.t option
        [@ocaml.doc
          "If this service level objective is specific to a single operation, this field displays the name of that operation."];
      dependencyConfig: DependencyConfig.t option
        [@ocaml.doc
          "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName."];
      createdTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that this service level objective was created. It is expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC."];
      evaluationType: EvaluationType.t option
        [@ocaml.doc
          "Displays whether this is a period-based SLO or a request-based SLO."];
      metricSourceType: MetricSourceType.t option
        [@ocaml.doc
          "Displays the SLI metric source type for this SLO. Supported types are: Service operation Service dependency Service CloudWatch metric AppMonitor Canary"];
      metricSource: MetricSource.t option
        [@ocaml.doc
          "Identifies the metric source for SLOs on resources other than Application Signals services."];
      compositeSliConfig: CompositeSliConfig.t option
        [@ocaml.doc
          "The composite SLI configuration for service-level SLOs that monitor multiple operations of a service."]}
    let make ?arn =
      fun ?name ->
        fun ?keyAttributes ->
          fun ?operationName ->
            fun ?dependencyConfig ->
              fun ?createdTime ->
                fun ?evaluationType ->
                  fun ?metricSourceType ->
                    fun ?metricSource ->
                      fun ?compositeSliConfig ->
                        fun () ->
                          {
                            arn;
                            name;
                            keyAttributes;
                            operationName;
                            dependencyConfig;
                            createdTime;
                            evaluationType;
                            metricSourceType;
                            metricSource;
                            compositeSliConfig
                          }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:ServiceLevelObjectiveArn.to_value));
        ("Name", (Option.map x.name ~f:ServiceLevelObjectiveName.to_value));
        ("KeyAttributes",
          (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("OperationName",
          (Option.map x.operationName ~f:OperationName.to_value));
        ("DependencyConfig",
          (Option.map x.dependencyConfig ~f:DependencyConfig.to_value));
        ("CreatedTime", (Option.map x.createdTime ~f:Timestamp.to_value));
        ("EvaluationType",
          (Option.map x.evaluationType ~f:EvaluationType.to_value));
        ("MetricSourceType",
          (Option.map x.metricSourceType ~f:MetricSourceType.to_value));
        ("MetricSource",
          (Option.map x.metricSource ~f:MetricSource.to_value));
        ("CompositeSliConfig",
          (Option.map x.compositeSliConfig ~f:CompositeSliConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compositeSliConfig =
        (Option.map ~f:CompositeSliConfig.of_xml)
          (Xml.child xml_arg0 "CompositeSliConfig") in
      let metricSource =
        (Option.map ~f:MetricSource.of_xml)
          (Xml.child xml_arg0 "MetricSource") in
      let metricSourceType =
        (Option.map ~f:MetricSourceType.of_xml)
          (Xml.child xml_arg0 "MetricSourceType") in
      let evaluationType =
        (Option.map ~f:EvaluationType.of_xml)
          (Xml.child xml_arg0 "EvaluationType") in
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedTime") in
      let dependencyConfig =
        (Option.map ~f:DependencyConfig.of_xml)
          (Xml.child xml_arg0 "DependencyConfig") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      let name =
        (Option.map ~f:ServiceLevelObjectiveName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:ServiceLevelObjectiveArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?compositeSliConfig ?metricSource ?metricSourceType
        ?evaluationType ?createdTime ?dependencyConfig ?operationName
        ?keyAttributes ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compositeSliConfig =
        field_map json__ "CompositeSliConfig" CompositeSliConfig.of_json in
      let metricSource = field_map json__ "MetricSource" MetricSource.of_json in
      let metricSourceType =
        field_map json__ "MetricSourceType" MetricSourceType.of_json in
      let evaluationType =
        field_map json__ "EvaluationType" EvaluationType.of_json in
      let createdTime = field_map json__ "CreatedTime" Timestamp.of_json in
      let dependencyConfig =
        field_map json__ "DependencyConfig" DependencyConfig.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      let name = field_map json__ "Name" ServiceLevelObjectiveName.of_json in
      let arn = field_map json__ "Arn" ServiceLevelObjectiveArn.of_json in
      make ?compositeSliConfig ?metricSource ?metricSourceType
        ?evaluationType ?createdTime ?dependencyConfig ?operationName
        ?keyAttributes ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about one service level objective (SLO) created in Application Signals."]
module ExclusionWindow =
  struct
    type nonrec t =
      {
      window: Window.t [@ocaml.doc "The SLO time window exclusion ."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the SLO time window exclusion. Defaults to current time if not specified."];
      recurrenceRule: RecurrenceRule.t option
        [@ocaml.doc
          "The recurrence rule for the SLO time window exclusion. Supports both cron and rate expressions."];
      reason: ExclusionReason.t option
        [@ocaml.doc
          "A description explaining why this time period should be excluded from SLO calculations."]}
    let context_ = "ExclusionWindow"
    let make ?startTime =
      fun ?recurrenceRule ->
        fun ?reason ->
          fun ~window ->
            fun () -> { startTime; recurrenceRule; reason; window }
    let to_value x =
      structure_to_value
        [("Window", (Some (Window.to_value x.window)));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("RecurrenceRule",
          (Option.map x.recurrenceRule ~f:RecurrenceRule.to_value));
        ("Reason", (Option.map x.reason ~f:ExclusionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ExclusionReason.of_xml) (Xml.child xml_arg0 "Reason") in
      let recurrenceRule =
        (Option.map ~f:RecurrenceRule.of_xml)
          (Xml.child xml_arg0 "RecurrenceRule") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let window =
        Window.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Window") in
      make ?reason ?recurrenceRule ?startTime ~window ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "Reason" ExclusionReason.of_json in
      let recurrenceRule =
        field_map json__ "RecurrenceRule" RecurrenceRule.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let window = field_map_exn json__ "Window" Window.of_json in
      make ?reason ?recurrenceRule ?startTime ~window ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The core SLO time window exclusion object that includes Window, StartTime, RecurrenceRule, and Reason."]
module ServiceDependent =
  struct
    type nonrec t =
      {
      operationName: OperationName.t option
        [@ocaml.doc
          "If the invoked entity is an operation on an entity, the name of that dependent operation is displayed here."];
      dependentKeyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      dependentOperationName: OperationName.t option
        [@ocaml.doc
          "If the dependent invoker was a service that invoked it from an operation, the name of that dependent operation is displayed here."];
      metricReferences: MetricReferences.t option
        [@ocaml.doc
          "An array of structures that each contain information about one metric associated with this service dependent that was discovered by Application Signals."]}
    let make ?operationName =
      fun ?dependentKeyAttributes ->
        fun ?dependentOperationName ->
          fun ?metricReferences ->
            fun () ->
              {
                operationName;
                dependentKeyAttributes;
                dependentOperationName;
                metricReferences
              }
    let to_value x =
      structure_to_value
        [("OperationName",
           (Option.map x.operationName ~f:OperationName.to_value));
        ("DependentKeyAttributes",
          (Option.map x.dependentKeyAttributes ~f:Attributes.to_value));
        ("DependentOperationName",
          (Option.map x.dependentOperationName ~f:OperationName.to_value));
        ("MetricReferences",
          (Option.map x.metricReferences ~f:MetricReferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricReferences =
        (Option.map ~f:MetricReferences.of_xml)
          (Xml.child xml_arg0 "MetricReferences") in
      let dependentOperationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "DependentOperationName") in
      let dependentKeyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "DependentKeyAttributes") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      make ?metricReferences ?dependentOperationName ?dependentKeyAttributes
        ?operationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricReferences =
        field_map json__ "MetricReferences" MetricReferences.of_json in
      let dependentOperationName =
        field_map json__ "DependentOperationName" OperationName.of_json in
      let dependentKeyAttributes =
        field_map json__ "DependentKeyAttributes" Attributes.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      make ?metricReferences ?dependentOperationName ?dependentKeyAttributes
        ?operationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about a service dependent that was discovered by Application Signals. A dependent is an entity that invoked the specified service during the provided time range. Dependents include other services, CloudWatch Synthetics canaries, and clients that are instrumented with CloudWatch RUM app monitors."]
module ServiceDependency =
  struct
    type nonrec t =
      {
      operationName: OperationName.t option
        [@ocaml.doc
          "The name of the operation in this service that calls the dependency."];
      dependencyKeyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      dependencyOperationName: OperationName.t option
        [@ocaml.doc "The name of the called operation in the dependency."];
      metricReferences: MetricReferences.t option
        [@ocaml.doc
          "An array of structures that each contain information about one metric associated with this service dependency that was discovered by Application Signals."]}
    let make ?operationName =
      fun ?dependencyKeyAttributes ->
        fun ?dependencyOperationName ->
          fun ?metricReferences ->
            fun () ->
              {
                operationName;
                dependencyKeyAttributes;
                dependencyOperationName;
                metricReferences
              }
    let to_value x =
      structure_to_value
        [("OperationName",
           (Option.map x.operationName ~f:OperationName.to_value));
        ("DependencyKeyAttributes",
          (Option.map x.dependencyKeyAttributes ~f:Attributes.to_value));
        ("DependencyOperationName",
          (Option.map x.dependencyOperationName ~f:OperationName.to_value));
        ("MetricReferences",
          (Option.map x.metricReferences ~f:MetricReferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricReferences =
        (Option.map ~f:MetricReferences.of_xml)
          (Xml.child xml_arg0 "MetricReferences") in
      let dependencyOperationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "DependencyOperationName") in
      let dependencyKeyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "DependencyKeyAttributes") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      make ?metricReferences ?dependencyOperationName
        ?dependencyKeyAttributes ?operationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricReferences =
        field_map json__ "MetricReferences" MetricReferences.of_json in
      let dependencyOperationName =
        field_map json__ "DependencyOperationName" OperationName.of_json in
      let dependencyKeyAttributes =
        field_map json__ "DependencyKeyAttributes" Attributes.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      make ?metricReferences ?dependencyOperationName
        ?dependencyKeyAttributes ?operationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about one dependency of this service."]
module AuditFinding =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "The key attributes that identify the service or entity this audit finding relates to. This is a string-to-string map that includes fields like Type, Name, and Environment."];
      auditorResults: AuditorResults.t option
        [@ocaml.doc
          "An array of auditor results that contain the specific findings, descriptions, and severity levels identified by different auditing algorithms."];
      operation: String_.t option
        [@ocaml.doc
          "The name of the operation associated with this audit finding, if the finding is specific to a particular service operation."];
      metricGraph: MetricGraph.t option
        [@ocaml.doc
          "A structure containing metric data queries and time range information that provides context for the audit finding through relevant performance metrics."];
      dependencyGraph: DependencyGraph.t option
        [@ocaml.doc
          "A structure containing nodes and edges that represent the dependency relationships relevant to this audit finding, helping to understand the context and potential impact."];
      type_: String_.t option [@ocaml.doc "The type of audit finding."]}
    let make ?keyAttributes =
      fun ?auditorResults ->
        fun ?operation ->
          fun ?metricGraph ->
            fun ?dependencyGraph ->
              fun ?type_ ->
                fun () ->
                  {
                    keyAttributes;
                    auditorResults;
                    operation;
                    metricGraph;
                    dependencyGraph;
                    type_
                  }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("AuditorResults",
          (Option.map x.auditorResults ~f:AuditorResults.to_value));
        ("Operation", (Option.map x.operation ~f:String_.to_value));
        ("MetricGraph", (Option.map x.metricGraph ~f:MetricGraph.to_value));
        ("DependencyGraph",
          (Option.map x.dependencyGraph ~f:DependencyGraph.to_value));
        ("Type", (Option.map x.type_ ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Type") in
      let dependencyGraph =
        (Option.map ~f:DependencyGraph.of_xml)
          (Xml.child xml_arg0 "DependencyGraph") in
      let metricGraph =
        (Option.map ~f:MetricGraph.of_xml) (Xml.child xml_arg0 "MetricGraph") in
      let operation =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Operation") in
      let auditorResults =
        (Option.map ~f:AuditorResults.of_xml)
          (Xml.child xml_arg0 "AuditorResults") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?type_ ?dependencyGraph ?metricGraph ?operation ?auditorResults
        ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" String_.of_json in
      let dependencyGraph =
        field_map json__ "DependencyGraph" DependencyGraph.of_json in
      let metricGraph = field_map json__ "MetricGraph" MetricGraph.of_json in
      let operation = field_map json__ "Operation" String_.of_json in
      let auditorResults =
        field_map json__ "AuditorResults" AuditorResults.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?type_ ?dependencyGraph ?metricGraph ?operation ?auditorResults
        ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about an audit finding, which represents an automated analysis result about service behavior, performance issues, or potential problems identified through heuristic algorithms."]
module AuditTarget =
  struct
    type nonrec t =
      {
      type_: String_.t
        [@ocaml.doc
          "The type of entity being audited, such as service, SLO, service_operation, or canary."];
      data: AuditTargetEntity.t
        [@ocaml.doc "The specific data identifying the audit target entity."]}
    let context_ = "AuditTarget"
    let make ~type_ = fun ~data -> fun () -> { type_; data }
    let to_value x =
      structure_to_value
        [("Type", (Some (String_.to_value x.type_)));
        ("Data", (Some (AuditTargetEntity.to_value x.data)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let data =
        AuditTargetEntity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Data") in
      let type_ =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ~data ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let data = field_map_exn json__ "Data" AuditTargetEntity.of_json in
      let type_ = field_map_exn json__ "Type" String_.of_json in
      make ~data ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that specifies the target entity for audit analysis, such as a service, SLO, service_operation, or canary."]
module LogGroupReferences =
  struct
    type nonrec t = Attributes.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:Attributes.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:Attributes.of_xml)
    let of_json j =
      list_of_json ~kind:"LogGroupReferences" ~of_json:Attributes.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchUpdateExclusionWindowsError =
  struct
    type nonrec t =
      {
      sloId: ServiceLevelObjectiveId.t option
        [@ocaml.doc "The SLO ID in the error."];
      errorCode: ExclusionWindowErrorCode.t option
        [@ocaml.doc "The error code."];
      errorMessage: ExclusionWindowErrorMessage.t option
        [@ocaml.doc "The error message."]}
    let make ?sloId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { sloId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("SloId", (Option.map x.sloId ~f:ServiceLevelObjectiveId.to_value));
        ("ErrorCode",
          (Option.map x.errorCode ~f:ExclusionWindowErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ExclusionWindowErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ExclusionWindowErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ExclusionWindowErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let sloId =
        (Option.map ~f:ServiceLevelObjectiveId.of_xml)
          (Xml.child xml_arg0 "SloId") in
      make ?errorMessage ?errorCode ?sloId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage =
        field_map json__ "ErrorMessage" ExclusionWindowErrorMessage.of_json in
      let errorCode =
        field_map json__ "ErrorCode" ExclusionWindowErrorCode.of_json in
      let sloId = field_map json__ "SloId" ServiceLevelObjectiveId.of_json in
      make ?errorMessage ?errorCode ?sloId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An array of structures, where each structure includes an error indicating that one of the requests in the array was not valid."]
module ServiceLevelObjectiveBudgetReportError =
  struct
    type nonrec t =
      {
      name: ServiceLevelObjectiveName.t option
        [@ocaml.doc "The name of the SLO that this error is related to."];
      arn: ServiceLevelObjectiveArn.t option
        [@ocaml.doc "The ARN of the SLO that this error is related to."];
      errorCode: ServiceLevelObjectiveBudgetReportErrorCode.t option
        [@ocaml.doc "The error code for this error."];
      errorMessage: ServiceLevelObjectiveBudgetReportErrorMessage.t option
        [@ocaml.doc "The message for this error."]}
    let make ?name =
      fun ?arn ->
        fun ?errorCode ->
          fun ?errorMessage ->
            fun () -> { name; arn; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:ServiceLevelObjectiveName.to_value));
        ("Arn", (Option.map x.arn ~f:ServiceLevelObjectiveArn.to_value));
        ("ErrorCode",
          (Option.map x.errorCode
             ~f:ServiceLevelObjectiveBudgetReportErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage
             ~f:ServiceLevelObjectiveBudgetReportErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ServiceLevelObjectiveBudgetReportErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ServiceLevelObjectiveBudgetReportErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let arn =
        (Option.map ~f:ServiceLevelObjectiveArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:ServiceLevelObjectiveName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?errorMessage ?errorCode ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage =
        field_map json__ "ErrorMessage"
          ServiceLevelObjectiveBudgetReportErrorMessage.of_json in
      let errorCode =
        field_map json__ "ErrorCode"
          ServiceLevelObjectiveBudgetReportErrorCode.of_json in
      let arn = field_map json__ "Arn" ServiceLevelObjectiveArn.of_json in
      let name = field_map json__ "Name" ServiceLevelObjectiveName.of_json in
      make ?errorMessage ?errorCode ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure containing information about one error that occurred during a BatchGetServiceLevelObjectiveBudgetReport operation."]
module ServiceLevelObjectiveBudgetReport =
  struct
    type nonrec t =
      {
      arn: ServiceLevelObjectiveArn.t option
        [@ocaml.doc "The ARN of the SLO that this report is for."];
      name: ServiceLevelObjectiveName.t option
        [@ocaml.doc "The name of the SLO that this report is for."];
      evaluationType: EvaluationType.t option
        [@ocaml.doc
          "Displays whether this budget report is for a period-based SLO or a request-based SLO."];
      budgetStatus: ServiceLevelObjectiveBudgetStatus.t option
        [@ocaml.doc
          "The status of this SLO, as it relates to the error budget for the entire time interval. OK means that the SLO had remaining budget above the warning threshold, as of the time that you specified in TimeStamp. WARNING means that the SLO's remaining budget was below the warning threshold, as of the time that you specified in TimeStamp. BREACHED means that the SLO's budget was exhausted, as of the time that you specified in TimeStamp. INSUFFICIENT_DATA means that the specified start and end times were before the SLO was created, or that attainment data is missing."];
      attainment: Attainment.t option
        [@ocaml.doc
          "A number between 0 and 100 that represents the success percentage of your application compared to the goal set by the SLO. If this is a period-based SLO, the number is the percentage of time periods that the service has attained the SLO's attainment goal, as of the time of the request. If this is a request-based SLO, the number is the number of successful requests divided by the number of total requests, multiplied by 100, during the time range that you specified in your request."];
      totalBudgetSeconds: TotalBudgetSeconds.t option
        [@ocaml.doc
          "The total number of seconds in the error budget for the interval. This field is included only if the SLO is a period-based SLO."];
      budgetSecondsRemaining: BudgetSecondsRemaining.t option
        [@ocaml.doc
          "The budget amount remaining before the SLO status becomes BREACHING, at the time specified in the Timestemp parameter of the request. If this value is negative, then the SLO is already in BREACHING status. This field is included only if the SLO is a period-based SLO."];
      totalBudgetRequests: TotalBudgetRequests.t option
        [@ocaml.doc
          "This field is displayed only for request-based SLOs. It displays the total number of failed requests that can be tolerated during the time range between the start of the interval and the time stamp supplied in the budget report request. It is based on the total number of requests that occurred, and the percentage specified in the attainment goal. If the number of failed requests matches this number or is higher, then this SLO is currently breaching. This number can go up and down between reports with different time stamps, based on both how many total requests occur."];
      budgetRequestsRemaining: BudgetRequestsRemaining.t option
        [@ocaml.doc
          "This field is displayed only for request-based SLOs. It displays the number of failed requests that can be tolerated before any more successful requests occur, and still have the application meet its SLO goal. This number can go up and down between different reports, based on both how many successful requests and how many failed requests occur in that time."];
      sli: ServiceLevelIndicator.t option
        [@ocaml.doc
          "A structure that contains information about the performance metric that this SLO monitors."];
      requestBasedSli: RequestBasedServiceLevelIndicator.t option ;
      goal: Goal.t option }
    let make ?arn =
      fun ?name ->
        fun ?evaluationType ->
          fun ?budgetStatus ->
            fun ?attainment ->
              fun ?totalBudgetSeconds ->
                fun ?budgetSecondsRemaining ->
                  fun ?totalBudgetRequests ->
                    fun ?budgetRequestsRemaining ->
                      fun ?sli ->
                        fun ?requestBasedSli ->
                          fun ?goal ->
                            fun () ->
                              {
                                arn;
                                name;
                                evaluationType;
                                budgetStatus;
                                attainment;
                                totalBudgetSeconds;
                                budgetSecondsRemaining;
                                totalBudgetRequests;
                                budgetRequestsRemaining;
                                sli;
                                requestBasedSli;
                                goal
                              }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:ServiceLevelObjectiveArn.to_value));
        ("Name", (Option.map x.name ~f:ServiceLevelObjectiveName.to_value));
        ("EvaluationType",
          (Option.map x.evaluationType ~f:EvaluationType.to_value));
        ("BudgetStatus",
          (Option.map x.budgetStatus
             ~f:ServiceLevelObjectiveBudgetStatus.to_value));
        ("Attainment", (Option.map x.attainment ~f:Attainment.to_value));
        ("TotalBudgetSeconds",
          (Option.map x.totalBudgetSeconds ~f:TotalBudgetSeconds.to_value));
        ("BudgetSecondsRemaining",
          (Option.map x.budgetSecondsRemaining
             ~f:BudgetSecondsRemaining.to_value));
        ("TotalBudgetRequests",
          (Option.map x.totalBudgetRequests ~f:TotalBudgetRequests.to_value));
        ("BudgetRequestsRemaining",
          (Option.map x.budgetRequestsRemaining
             ~f:BudgetRequestsRemaining.to_value));
        ("Sli", (Option.map x.sli ~f:ServiceLevelIndicator.to_value));
        ("RequestBasedSli",
          (Option.map x.requestBasedSli
             ~f:RequestBasedServiceLevelIndicator.to_value));
        ("Goal", (Option.map x.goal ~f:Goal.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let goal = (Option.map ~f:Goal.of_xml) (Xml.child xml_arg0 "Goal") in
      let requestBasedSli =
        (Option.map ~f:RequestBasedServiceLevelIndicator.of_xml)
          (Xml.child xml_arg0 "RequestBasedSli") in
      let sli =
        (Option.map ~f:ServiceLevelIndicator.of_xml)
          (Xml.child xml_arg0 "Sli") in
      let budgetRequestsRemaining =
        (Option.map ~f:BudgetRequestsRemaining.of_xml)
          (Xml.child xml_arg0 "BudgetRequestsRemaining") in
      let totalBudgetRequests =
        (Option.map ~f:TotalBudgetRequests.of_xml)
          (Xml.child xml_arg0 "TotalBudgetRequests") in
      let budgetSecondsRemaining =
        (Option.map ~f:BudgetSecondsRemaining.of_xml)
          (Xml.child xml_arg0 "BudgetSecondsRemaining") in
      let totalBudgetSeconds =
        (Option.map ~f:TotalBudgetSeconds.of_xml)
          (Xml.child xml_arg0 "TotalBudgetSeconds") in
      let attainment =
        (Option.map ~f:Attainment.of_xml) (Xml.child xml_arg0 "Attainment") in
      let budgetStatus =
        (Option.map ~f:ServiceLevelObjectiveBudgetStatus.of_xml)
          (Xml.child xml_arg0 "BudgetStatus") in
      let evaluationType =
        (Option.map ~f:EvaluationType.of_xml)
          (Xml.child xml_arg0 "EvaluationType") in
      let name =
        (Option.map ~f:ServiceLevelObjectiveName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:ServiceLevelObjectiveArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?goal ?requestBasedSli ?sli ?budgetRequestsRemaining
        ?totalBudgetRequests ?budgetSecondsRemaining ?totalBudgetSeconds
        ?attainment ?budgetStatus ?evaluationType ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let goal = field_map json__ "Goal" Goal.of_json in
      let requestBasedSli =
        field_map json__ "RequestBasedSli"
          RequestBasedServiceLevelIndicator.of_json in
      let sli = field_map json__ "Sli" ServiceLevelIndicator.of_json in
      let budgetRequestsRemaining =
        field_map json__ "BudgetRequestsRemaining"
          BudgetRequestsRemaining.of_json in
      let totalBudgetRequests =
        field_map json__ "TotalBudgetRequests" TotalBudgetRequests.of_json in
      let budgetSecondsRemaining =
        field_map json__ "BudgetSecondsRemaining"
          BudgetSecondsRemaining.of_json in
      let totalBudgetSeconds =
        field_map json__ "TotalBudgetSeconds" TotalBudgetSeconds.of_json in
      let attainment = field_map json__ "Attainment" Attainment.of_json in
      let budgetStatus =
        field_map json__ "BudgetStatus"
          ServiceLevelObjectiveBudgetStatus.of_json in
      let evaluationType =
        field_map json__ "EvaluationType" EvaluationType.of_json in
      let name = field_map json__ "Name" ServiceLevelObjectiveName.of_json in
      let arn = field_map json__ "Arn" ServiceLevelObjectiveArn.of_json in
      make ?goal ?requestBasedSli ?sli ?budgetRequestsRemaining
        ?totalBudgetRequests ?budgetSecondsRemaining ?totalBudgetSeconds
        ?attainment ?budgetStatus ?evaluationType ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure containing an SLO budget report that you have requested."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc "The resource type is not valid."];
      resourceId: ResourceId.t option
        [@ocaml.doc "Can't find the resource id."];
      message: FaultDescription.t option }
    let make ?resourceType =
      fun ?resourceId ->
        fun ?message -> fun () -> { resourceType; resourceId; message }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("Message", (Option.map x.message ~f:FaultDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FaultDescription.of_xml)
          (Xml.child xml_arg0 "Message") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?message ?resourceId ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" FaultDescription.of_json in
      let resourceId = field_map json__ "ResourceId" ResourceId.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?message ?resourceId ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Resource not found."]
module ServiceLevelObjective =
  struct
    type nonrec t =
      {
      arn: ServiceLevelObjectiveArn.t option
        [@ocaml.doc "The ARN of this SLO."];
      name: ServiceLevelObjectiveName.t option
        [@ocaml.doc "The name of this SLO."];
      description: ServiceLevelObjectiveDescription.t option
        [@ocaml.doc "The description that you created for this SLO."];
      createdTime: Timestamp.t option
        [@ocaml.doc
          "The date and time that this SLO was created. When used in a raw HTTP Query API, it is formatted as yyyy-MM-dd'T'HH:mm:ss. For example, 2019-07-01T23:59:59."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc
          "The time that this SLO was most recently updated. When used in a raw HTTP Query API, it is formatted as yyyy-MM-dd'T'HH:mm:ss. For example, 2019-07-01T23:59:59."];
      sli: ServiceLevelIndicator.t option
        [@ocaml.doc
          "A structure containing information about the performance metric that this SLO monitors, if this is a period-based SLO."];
      requestBasedSli: RequestBasedServiceLevelIndicator.t option
        [@ocaml.doc
          "A structure containing information about the performance metric that this SLO monitors, if this is a request-based SLO."];
      evaluationType: EvaluationType.t option
        [@ocaml.doc
          "Displays whether this is a period-based SLO or a request-based SLO."];
      goal: Goal.t option ;
      burnRateConfigurations: BurnRateConfigurations.t option
        [@ocaml.doc
          "Each object in this array defines the length of the look-back window used to calculate one burn rate metric for this SLO. The burn rate measures how fast the service is consuming the error budget, relative to the attainment goal of the SLO."];
      metricSourceType: MetricSourceType.t option
        [@ocaml.doc
          "Displays the SLI metric source type for this SLO. Supported types are: Service operation Service dependency Service CloudWatch metric AppMonitor Canary"];
      autoInvestigationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether DevOps Agent will automatically investigate this SLO when it is breached"]}
    let make ?arn =
      fun ?name ->
        fun ?description ->
          fun ?createdTime ->
            fun ?lastUpdatedTime ->
              fun ?sli ->
                fun ?requestBasedSli ->
                  fun ?evaluationType ->
                    fun ?goal ->
                      fun ?burnRateConfigurations ->
                        fun ?metricSourceType ->
                          fun ?autoInvestigationEnabled ->
                            fun () ->
                              {
                                arn;
                                name;
                                description;
                                createdTime;
                                lastUpdatedTime;
                                sli;
                                requestBasedSli;
                                evaluationType;
                                goal;
                                burnRateConfigurations;
                                metricSourceType;
                                autoInvestigationEnabled
                              }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:ServiceLevelObjectiveArn.to_value));
        ("Name", (Option.map x.name ~f:ServiceLevelObjectiveName.to_value));
        ("Description",
          (Option.map x.description
             ~f:ServiceLevelObjectiveDescription.to_value));
        ("CreatedTime", (Option.map x.createdTime ~f:Timestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("Sli", (Option.map x.sli ~f:ServiceLevelIndicator.to_value));
        ("RequestBasedSli",
          (Option.map x.requestBasedSli
             ~f:RequestBasedServiceLevelIndicator.to_value));
        ("EvaluationType",
          (Option.map x.evaluationType ~f:EvaluationType.to_value));
        ("Goal", (Option.map x.goal ~f:Goal.to_value));
        ("BurnRateConfigurations",
          (Option.map x.burnRateConfigurations
             ~f:BurnRateConfigurations.to_value));
        ("MetricSourceType",
          (Option.map x.metricSourceType ~f:MetricSourceType.to_value));
        ("AutoInvestigationEnabled",
          (Option.map x.autoInvestigationEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoInvestigationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AutoInvestigationEnabled") in
      let metricSourceType =
        (Option.map ~f:MetricSourceType.of_xml)
          (Xml.child xml_arg0 "MetricSourceType") in
      let burnRateConfigurations =
        (Option.map ~f:BurnRateConfigurations.of_xml)
          (Xml.child xml_arg0 "BurnRateConfigurations") in
      let goal = (Option.map ~f:Goal.of_xml) (Xml.child xml_arg0 "Goal") in
      let evaluationType =
        (Option.map ~f:EvaluationType.of_xml)
          (Xml.child xml_arg0 "EvaluationType") in
      let requestBasedSli =
        (Option.map ~f:RequestBasedServiceLevelIndicator.of_xml)
          (Xml.child xml_arg0 "RequestBasedSli") in
      let sli =
        (Option.map ~f:ServiceLevelIndicator.of_xml)
          (Xml.child xml_arg0 "Sli") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedTime") in
      let description =
        (Option.map ~f:ServiceLevelObjectiveDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:ServiceLevelObjectiveName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:ServiceLevelObjectiveArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?autoInvestigationEnabled ?metricSourceType
        ?burnRateConfigurations ?goal ?evaluationType ?requestBasedSli ?sli
        ?lastUpdatedTime ?createdTime ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoInvestigationEnabled =
        field_map json__ "AutoInvestigationEnabled" Boolean.of_json in
      let metricSourceType =
        field_map json__ "MetricSourceType" MetricSourceType.of_json in
      let burnRateConfigurations =
        field_map json__ "BurnRateConfigurations"
          BurnRateConfigurations.of_json in
      let goal = field_map json__ "Goal" Goal.of_json in
      let evaluationType =
        field_map json__ "EvaluationType" EvaluationType.of_json in
      let requestBasedSli =
        field_map json__ "RequestBasedSli"
          RequestBasedServiceLevelIndicator.of_json in
      let sli = field_map json__ "Sli" ServiceLevelIndicator.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let createdTime = field_map json__ "CreatedTime" Timestamp.of_json in
      let description =
        field_map json__ "Description"
          ServiceLevelObjectiveDescription.of_json in
      let name = field_map json__ "Name" ServiceLevelObjectiveName.of_json in
      let arn = field_map json__ "Arn" ServiceLevelObjectiveArn.of_json in
      make ?autoInvestigationEnabled ?metricSourceType
        ?burnRateConfigurations ?goal ?evaluationType ?requestBasedSli ?sli
        ?lastUpdatedTime ?createdTime ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure containing information about one service level objective (SLO) that has been created in Application Signals. Creating SLOs can help you ensure your services are performing to the level that you expect. SLOs help you set and track a specific target level for the reliability and availability of your applications and services. Each SLO uses a service level indicator (SLI), which is a key performance metric, to calculate how much underperformance can be tolerated before the goal that you set for the SLO is not achieved."]
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 throttled because of quota limits."]
module ValidationException =
  struct
    type nonrec t = {
      message: ValidationExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message",
           (Option.map x.message ~f:ValidationExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ValidationExceptionMessage.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" ValidationExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource is not valid."]
module RequestBasedServiceLevelIndicatorConfig =
  struct
    type nonrec t =
      {
      requestBasedSliMetricConfig:
        RequestBasedServiceLevelIndicatorMetricConfig.t
        [@ocaml.doc
          "Use this structure to specify the metric to be used for the SLO."];
      metricThreshold: ServiceLevelIndicatorMetricThreshold.t option
        [@ocaml.doc
          "The value that the SLI metric is compared to. This parameter is required if this SLO is tracking the Latency metric."];
      comparisonOperator: ServiceLevelIndicatorComparisonOperator.t option
        [@ocaml.doc
          "The arithmetic operation to use when comparing the specified metric to the threshold. This parameter is required if this SLO is tracking the Latency metric."]}
    let context_ = "RequestBasedServiceLevelIndicatorConfig"
    let make ?metricThreshold =
      fun ?comparisonOperator ->
        fun ~requestBasedSliMetricConfig ->
          fun () ->
            {
              metricThreshold;
              comparisonOperator;
              requestBasedSliMetricConfig
            }
    let to_value x =
      structure_to_value
        [("RequestBasedSliMetricConfig",
           (Some
              (RequestBasedServiceLevelIndicatorMetricConfig.to_value
                 x.requestBasedSliMetricConfig)));
        ("MetricThreshold",
          (Option.map x.metricThreshold
             ~f:ServiceLevelIndicatorMetricThreshold.to_value));
        ("ComparisonOperator",
          (Option.map x.comparisonOperator
             ~f:ServiceLevelIndicatorComparisonOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparisonOperator =
        (Option.map ~f:ServiceLevelIndicatorComparisonOperator.of_xml)
          (Xml.child xml_arg0 "ComparisonOperator") in
      let metricThreshold =
        (Option.map ~f:ServiceLevelIndicatorMetricThreshold.of_xml)
          (Xml.child xml_arg0 "MetricThreshold") in
      let requestBasedSliMetricConfig =
        RequestBasedServiceLevelIndicatorMetricConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "RequestBasedSliMetricConfig") in
      make ?comparisonOperator ?metricThreshold ~requestBasedSliMetricConfig
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparisonOperator =
        field_map json__ "ComparisonOperator"
          ServiceLevelIndicatorComparisonOperator.of_json in
      let metricThreshold =
        field_map json__ "MetricThreshold"
          ServiceLevelIndicatorMetricThreshold.of_json in
      let requestBasedSliMetricConfig =
        field_map_exn json__ "RequestBasedSliMetricConfig"
          RequestBasedServiceLevelIndicatorMetricConfig.of_json in
      make ?comparisonOperator ?metricThreshold ~requestBasedSliMetricConfig
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure specifies the information about the service and the performance metric that a request-based SLO is to monitor."]
module ServiceLevelIndicatorConfig =
  struct
    type nonrec t =
      {
      sliMetricConfig: ServiceLevelIndicatorMetricConfig.t
        [@ocaml.doc
          "Use this structure to specify the metric to be used for the SLO."];
      metricThreshold: ServiceLevelIndicatorMetricThreshold.t option
        [@ocaml.doc
          "This parameter is used only when a request-based SLO tracks the Latency metric. Specify the threshold value that the observed Latency metric values are to be compared to. This is not required if CreateRecommendedSlo is set to true."];
      comparisonOperator: ServiceLevelIndicatorComparisonOperator.t option
        [@ocaml.doc
          "The arithmetic operation to use when comparing the specified metric to the threshold. This is not required if CreateRecommendedSlo is set to true."]}
    let context_ = "ServiceLevelIndicatorConfig"
    let make ?metricThreshold =
      fun ?comparisonOperator ->
        fun ~sliMetricConfig ->
          fun () -> { metricThreshold; comparisonOperator; sliMetricConfig }
    let to_value x =
      structure_to_value
        [("SliMetricConfig",
           (Some
              (ServiceLevelIndicatorMetricConfig.to_value x.sliMetricConfig)));
        ("MetricThreshold",
          (Option.map x.metricThreshold
             ~f:ServiceLevelIndicatorMetricThreshold.to_value));
        ("ComparisonOperator",
          (Option.map x.comparisonOperator
             ~f:ServiceLevelIndicatorComparisonOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparisonOperator =
        (Option.map ~f:ServiceLevelIndicatorComparisonOperator.of_xml)
          (Xml.child xml_arg0 "ComparisonOperator") in
      let metricThreshold =
        (Option.map ~f:ServiceLevelIndicatorMetricThreshold.of_xml)
          (Xml.child xml_arg0 "MetricThreshold") in
      let sliMetricConfig =
        ServiceLevelIndicatorMetricConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SliMetricConfig") in
      make ?comparisonOperator ?metricThreshold ~sliMetricConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparisonOperator =
        field_map json__ "ComparisonOperator"
          ServiceLevelIndicatorComparisonOperator.of_json in
      let metricThreshold =
        field_map json__ "MetricThreshold"
          ServiceLevelIndicatorMetricThreshold.of_json in
      let sliMetricConfig =
        field_map_exn json__ "SliMetricConfig"
          ServiceLevelIndicatorMetricConfig.of_json in
      make ?comparisonOperator ?metricThreshold ~sliMetricConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure specifies the information about the service and the performance metric that a period-based SLO is to monitor."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module 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 "This request exceeds a service quota."]
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 AccessDeniedException =
  struct
    type nonrec t = {
      message: ServiceErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ServiceErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ServiceErrorMessage.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" ServiceErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You don't have sufficient permissions to perform this action."]
module GroupingConfiguration =
  struct
    type nonrec t =
      {
      groupingAttributeDefinitions: GroupingAttributeDefinitions.t option
        [@ocaml.doc
          "An array of grouping attribute definitions that specify how services should be grouped based on various attributes and source keys."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp when this grouping configuration was last updated. When used in a raw HTTP Query API, it is formatted as epoch time in seconds."]}
    let make ?groupingAttributeDefinitions =
      fun ?updatedAt -> fun () -> { groupingAttributeDefinitions; updatedAt }
    let to_value x =
      structure_to_value
        [("GroupingAttributeDefinitions",
           (Option.map x.groupingAttributeDefinitions
              ~f:GroupingAttributeDefinitions.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let groupingAttributeDefinitions =
        (Option.map ~f:GroupingAttributeDefinitions.of_xml)
          (Xml.child xml_arg0 "GroupingAttributeDefinitions") in
      make ?updatedAt ?groupingAttributeDefinitions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "UpdatedAt" Timestamp.of_json in
      let groupingAttributeDefinitions =
        field_map json__ "GroupingAttributeDefinitions"
          GroupingAttributeDefinitions.of_json in
      make ?updatedAt ?groupingAttributeDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the complete grouping configuration for an account, including all defined grouping attributes and metadata about when it was last updated."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ServiceSummaries =
  struct
    type nonrec t = ServiceSummary.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:ServiceSummary.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:ServiceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceSummaries" ~of_json:ServiceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServicesMaxResults =
  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 ListServicesMaxResults" 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 ServiceStates =
  struct
    type nonrec t = ServiceState.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:250) >>=
             (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:ServiceState.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:ServiceState.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceStates" ~of_json:ServiceState.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceStatesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_max i ~max:250); 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 ListServiceStatesMaxResults"
           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 ServiceOperations =
  struct
    type nonrec t = ServiceOperation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ServiceOperation.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:ServiceOperation.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceOperations"
        ~of_json:ServiceOperation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceOperationMaxResults =
  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 ListServiceOperationMaxResults"
           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 ServiceLevelObjectiveSummaries =
  struct
    type nonrec t = ServiceLevelObjectiveSummary.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:ServiceLevelObjectiveSummary.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:ServiceLevelObjectiveSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceLevelObjectiveSummaries"
        ~of_json:ServiceLevelObjectiveSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceLevelObjectivesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 ListServiceLevelObjectivesMaxResults"
           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 MetricSourceTypes =
  struct
    type nonrec t = MetricSourceType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (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:MetricSourceType.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:MetricSourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricSourceTypes"
        ~of_json:MetricSourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExclusionWindows =
  struct
    type nonrec t = ExclusionWindow.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:ExclusionWindow.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:ExclusionWindow.of_xml)
    let of_json j =
      list_of_json ~kind:"ExclusionWindows" ~of_json:ExclusionWindow.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListServiceLevelObjectiveExclusionWindowsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 ListServiceLevelObjectiveExclusionWindowsMaxResults"
           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 ServiceDependents =
  struct
    type nonrec t = ServiceDependent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ServiceDependent.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:ServiceDependent.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceDependents"
        ~of_json:ServiceDependent.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceDependentsMaxResults =
  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 ListServiceDependentsMaxResults"
           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 ServiceDependencies =
  struct
    type nonrec t = ServiceDependency.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ServiceDependency.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:ServiceDependency.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceDependencies"
        ~of_json:ServiceDependency.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceDependenciesMaxResults =
  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 ListServiceDependenciesMaxResults" 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 ChangeEvents =
  struct
    type nonrec t = ChangeEvent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:250) >>=
             (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:ChangeEvent.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:ChangeEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeEvents" ~of_json:ChangeEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListEntityEventsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:250) >>= (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 ListEntityEventsMaxResults"
           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 AuditFindings =
  struct
    type nonrec t = AuditFinding.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:AuditFinding.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:AuditFinding.of_xml)
    let of_json j =
      list_of_json ~kind:"AuditFindings" ~of_json:AuditFinding.of_json j
    let to_json v = composed_to_json to_value v
  end
module AuditTargets =
  struct
    type nonrec t = AuditTarget.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AuditTarget.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:AuditTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"AuditTargets" ~of_json:AuditTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module Auditors =
  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:"Auditors" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module DetailLevel =
  struct
    type nonrec t =
      | BRIEF 
      | DETAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BRIEF -> "BRIEF"
      | DETAILED -> "DETAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "BRIEF" -> BRIEF
      | "DETAILED" -> DETAILED
      | 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 DetailLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DetailLevel" j)
    let to_json = simple_to_json to_value
  end
module ListAuditFindingMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 ListAuditFindingMaxResults"
           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 Service =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      attributeMaps: AttributeMaps.t option
        [@ocaml.doc
          "This structure contains one or more string-to-string maps that help identify this service. It can include platform attributes, application attributes, and telemetry attributes. Platform attributes contain information the service's platform. PlatformType defines the hosted-in platform. EKS.Cluster is the name of the Amazon EKS cluster. K8s.Cluster is the name of the self-hosted Kubernetes cluster. K8s.Namespace is the name of the Kubernetes namespace in either Amazon EKS or Kubernetes clusters. K8s.Workload is the name of the Kubernetes workload in either Amazon EKS or Kubernetes clusters. K8s.Node is the name of the Kubernetes node in either Amazon EKS or Kubernetes clusters. K8s.Pod is the name of the Kubernetes pod in either Amazon EKS or Kubernetes clusters. EC2.AutoScalingGroup is the name of the Amazon EC2 Auto Scaling group. EC2.InstanceId is the ID of the Amazon EC2 instance. Host is the name of the host, for all platform types. Application attributes contain information about the application. AWS.Application is the application's name in Amazon Web Services Service Catalog AppRegistry. AWS.Application.ARN is the application's ARN in Amazon Web Services Service Catalog AppRegistry. Telemetry attributes contain telemetry information. Telemetry.SDK is the fingerprint of the OpenTelemetry SDK version for instrumented services. Telemetry.Agent is the fingerprint of the agent used to collect and send telemetry data. Telemetry.Source Specifies the point of application where the telemetry was collected or specifies what was used for the source of telemetry data."];
      serviceGroups: ServiceGroups.t option
        [@ocaml.doc
          "An array of service groups that this service belongs to, based on the configured grouping attributes."];
      metricReferences: MetricReferences.t option
        [@ocaml.doc
          "An array of structures that each contain information about one metric associated with this service."];
      logGroupReferences: LogGroupReferences.t option
        [@ocaml.doc
          "An array of string-to-string maps that each contain information about one log group associated with this service. Each string-to-string map includes the following fields: \"Type\": \"AWS::Resource\" \"ResourceType\": \"AWS::Logs::LogGroup\" \"Identifier\": \"name-of-log-group\""]}
    let make ?keyAttributes =
      fun ?attributeMaps ->
        fun ?serviceGroups ->
          fun ?metricReferences ->
            fun ?logGroupReferences ->
              fun () ->
                {
                  keyAttributes;
                  attributeMaps;
                  serviceGroups;
                  metricReferences;
                  logGroupReferences
                }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("AttributeMaps",
          (Option.map x.attributeMaps ~f:AttributeMaps.to_value));
        ("ServiceGroups",
          (Option.map x.serviceGroups ~f:ServiceGroups.to_value));
        ("MetricReferences",
          (Option.map x.metricReferences ~f:MetricReferences.to_value));
        ("LogGroupReferences",
          (Option.map x.logGroupReferences ~f:LogGroupReferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupReferences =
        (Option.map ~f:LogGroupReferences.of_xml)
          (Xml.child xml_arg0 "LogGroupReferences") in
      let metricReferences =
        (Option.map ~f:MetricReferences.of_xml)
          (Xml.child xml_arg0 "MetricReferences") in
      let serviceGroups =
        (Option.map ~f:ServiceGroups.of_xml)
          (Xml.child xml_arg0 "ServiceGroups") in
      let attributeMaps =
        (Option.map ~f:AttributeMaps.of_xml)
          (Xml.child xml_arg0 "AttributeMaps") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?logGroupReferences ?metricReferences ?serviceGroups
        ?attributeMaps ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupReferences =
        field_map json__ "LogGroupReferences" LogGroupReferences.of_json in
      let metricReferences =
        field_map json__ "MetricReferences" MetricReferences.of_json in
      let serviceGroups =
        field_map json__ "ServiceGroups" ServiceGroups.of_json in
      let attributeMaps =
        field_map json__ "AttributeMaps" AttributeMaps.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?logGroupReferences ?metricReferences ?serviceGroups
        ?attributeMaps ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about one of your services that was discovered by Application Signals."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation attempted to create a resource that already exists."]
module BatchUpdateExclusionWindowsErrors =
  struct
    type nonrec t = BatchUpdateExclusionWindowsError.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:BatchUpdateExclusionWindowsError.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:BatchUpdateExclusionWindowsError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchUpdateExclusionWindowsErrors"
        ~of_json:BatchUpdateExclusionWindowsError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceLevelObjectiveIds =
  struct
    type nonrec t = String_.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: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:"ServiceLevelObjectiveIds" ~of_json:String_.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ServiceLevelObjectiveBudgetReportErrors =
  struct
    type nonrec t = ServiceLevelObjectiveBudgetReportError.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ServiceLevelObjectiveBudgetReportError.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:ServiceLevelObjectiveBudgetReportError.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceLevelObjectiveBudgetReportErrors"
        ~of_json:ServiceLevelObjectiveBudgetReportError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceLevelObjectiveBudgetReports =
  struct
    type nonrec t = ServiceLevelObjectiveBudgetReport.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ServiceLevelObjectiveBudgetReport.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:ServiceLevelObjectiveBudgetReport.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceLevelObjectiveBudgetReports"
        ~of_json:ServiceLevelObjectiveBudgetReport.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateServiceLevelObjectiveOutput =
  struct
    type nonrec t =
      {
      slo: ServiceLevelObjective.t option
        [@ocaml.doc
          "A structure that contains information about the SLO that you just updated."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?slo = fun () -> { slo }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Slo", (Option.map x.slo ~f:ServiceLevelObjective.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slo =
        (Option.map ~f:ServiceLevelObjective.of_xml)
          (Xml.child xml_arg0 "Slo") in
      make ?slo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slo = field_map json__ "Slo" ServiceLevelObjective.of_json in
      make ?slo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing service level objective (SLO). If you omit parameters, the previous values of those parameters are retained. You cannot change from a period-based SLO to a request-based SLO, or change from a request-based SLO to a period-based SLO."]
module UpdateServiceLevelObjectiveInput =
  struct
    type nonrec t =
      {
      id: ServiceLevelObjectiveId.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or name of the service level objective that you want to update."];
      description: ServiceLevelObjectiveDescription.t option
        [@ocaml.doc "An optional description for the SLO."];
      sliConfig: ServiceLevelIndicatorConfig.t option
        [@ocaml.doc
          "If this SLO is a period-based SLO, this structure defines the information about what performance metric this SLO will monitor."];
      requestBasedSliConfig: RequestBasedServiceLevelIndicatorConfig.t option
        [@ocaml.doc
          "If this SLO is a request-based SLO, this structure defines the information about what performance metric this SLO will monitor. You can't specify both SliConfig and RequestBasedSliConfig in the same operation."];
      goal: Goal.t option
        [@ocaml.doc
          "A structure that contains the attributes that determine the goal of the SLO. This includes the time period for evaluation and the attainment threshold."];
      burnRateConfigurations: BurnRateConfigurations.t option
        [@ocaml.doc
          "Use this array to create burn rates for this SLO. Each burn rate is a metric that indicates how fast the service is consuming the error budget, relative to the attainment goal of the SLO."];
      autoInvestigationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether DevOps Agent will automatically investigate this SLO when it is breached"]}
    let context_ = "UpdateServiceLevelObjectiveInput"
    let make ?description =
      fun ?sliConfig ->
        fun ?requestBasedSliConfig ->
          fun ?goal ->
            fun ?burnRateConfigurations ->
              fun ?autoInvestigationEnabled ->
                fun ~id ->
                  fun () ->
                    {
                      description;
                      sliConfig;
                      requestBasedSliConfig;
                      goal;
                      burnRateConfigurations;
                      autoInvestigationEnabled;
                      id
                    }
    let to_value x =
      structure_to_value
        [("Id", (Some (ServiceLevelObjectiveId.to_value x.id)));
        ("Description",
          (Option.map x.description
             ~f:ServiceLevelObjectiveDescription.to_value));
        ("SliConfig",
          (Option.map x.sliConfig ~f:ServiceLevelIndicatorConfig.to_value));
        ("RequestBasedSliConfig",
          (Option.map x.requestBasedSliConfig
             ~f:RequestBasedServiceLevelIndicatorConfig.to_value));
        ("Goal", (Option.map x.goal ~f:Goal.to_value));
        ("BurnRateConfigurations",
          (Option.map x.burnRateConfigurations
             ~f:BurnRateConfigurations.to_value));
        ("AutoInvestigationEnabled",
          (Option.map x.autoInvestigationEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoInvestigationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AutoInvestigationEnabled") in
      let burnRateConfigurations =
        (Option.map ~f:BurnRateConfigurations.of_xml)
          (Xml.child xml_arg0 "BurnRateConfigurations") in
      let goal = (Option.map ~f:Goal.of_xml) (Xml.child xml_arg0 "Goal") in
      let requestBasedSliConfig =
        (Option.map ~f:RequestBasedServiceLevelIndicatorConfig.of_xml)
          (Xml.child xml_arg0 "RequestBasedSliConfig") in
      let sliConfig =
        (Option.map ~f:ServiceLevelIndicatorConfig.of_xml)
          (Xml.child xml_arg0 "SliConfig") in
      let description =
        (Option.map ~f:ServiceLevelObjectiveDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let id =
        ServiceLevelObjectiveId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?autoInvestigationEnabled ?burnRateConfigurations ?goal
        ?requestBasedSliConfig ?sliConfig ?description ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoInvestigationEnabled =
        field_map json__ "AutoInvestigationEnabled" Boolean.of_json in
      let burnRateConfigurations =
        field_map json__ "BurnRateConfigurations"
          BurnRateConfigurations.of_json in
      let goal = field_map json__ "Goal" Goal.of_json in
      let requestBasedSliConfig =
        field_map json__ "RequestBasedSliConfig"
          RequestBasedServiceLevelIndicatorConfig.of_json in
      let sliConfig =
        field_map json__ "SliConfig" ServiceLevelIndicatorConfig.of_json in
      let description =
        field_map json__ "Description"
          ServiceLevelObjectiveDescription.of_json in
      let id = field_map_exn json__ "Id" ServiceLevelObjectiveId.of_json in
      make ?autoInvestigationEnabled ?burnRateConfigurations ?goal
        ?requestBasedSliConfig ?sliConfig ?description ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing service level objective (SLO). If you omit parameters, the previous values of those parameters are retained. You cannot change from a period-based SLO to a request-based SLO, or change from a request-based SLO to a period-based SLO."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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 one or more tags from the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch resource that you want to delete tags from. The ARN format of an Application Signals SLO is arn:aws:cloudwatch:Region:account-id:slo:slo-name For more information about ARN format, see Resource Types Defined by Amazon CloudWatch in the Amazon Web Services General Reference."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The list of tag keys to remove from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes one or more tags from the specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.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
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
       "Assigns one or more tags (key-value pairs) to the specified CloudWatch resource, such as a service level objective. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values. Tags don't have any semantic meaning to Amazon Web Services and are interpreted strictly as strings of characters. You can use the TagResource action with an alarm that already has tags. If you specify a new tag key for the alarm, this tag is appended to the list of tags associated with the alarm. If you specify a tag key that is already associated with the alarm, the new tag value that you specify replaces the previous value for that tag. You can associate as many as 50 tags with a CloudWatch resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch resource that you want to set tags for. The ARN format of an Application Signals SLO is arn:aws:cloudwatch:Region:account-id:slo:slo-name For more information about ARN format, see Resource Types Defined by Amazon CloudWatch in the Amazon Web Services General Reference."];
      tags: TagList.t
        [@ocaml.doc
          "The list of key-value pairs to associate with the alarm."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified CloudWatch resource, such as a service level objective. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values. Tags don't have any semantic meaning to Amazon Web Services and are interpreted strictly as strings of characters. You can use the TagResource action with an alarm that already has tags. If you specify a new tag key for the alarm, this tag is appended to the list of tags associated with the alarm. If you specify a tag key that is already associated with the alarm, the new tag value that you specify replaces the previous value for that tag. You can associate as many as 50 tags with a CloudWatch resource."]
module StartDiscoveryOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables this Amazon Web Services account to be able to use CloudWatch Application Signals by creating the AWSServiceRoleForCloudWatchApplicationSignals service-linked role. This service- linked role has the following permissions: xray:GetServiceGraph logs:StartQuery logs:GetQueryResults cloudwatch:GetMetricData cloudwatch:ListMetrics tag:GetResources autoscaling:DescribeAutoScalingGroups A service-linked CloudTrail event channel is created to process CloudTrail events and return change event information. This includes last deployment time, userName, eventName, and other event metadata. After completing this step, you still need to instrument your Java and Python applications to send data to Application Signals. For more information, see Enabling Application Signals."]
module StartDiscoveryInput =
  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
       "Enables this Amazon Web Services account to be able to use CloudWatch Application Signals by creating the AWSServiceRoleForCloudWatchApplicationSignals service-linked role. This service- linked role has the following permissions: xray:GetServiceGraph logs:StartQuery logs:GetQueryResults cloudwatch:GetMetricData cloudwatch:ListMetrics tag:GetResources autoscaling:DescribeAutoScalingGroups A service-linked CloudTrail event channel is created to process CloudTrail events and return change event information. This includes last deployment time, userName, eventName, and other event metadata. After completing this step, you still need to instrument your Java and Python applications to send data to Application Signals. For more information, see Enabling Application Signals."]
module PutGroupingConfigurationOutput =
  struct
    type nonrec t =
      {
      groupingConfiguration: GroupingConfiguration.t option
        [@ocaml.doc
          "A structure containing the updated grouping configuration, including all grouping attribute definitions and the timestamp when it was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?groupingConfiguration = fun () -> { groupingConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("GroupingConfiguration",
           (Option.map x.groupingConfiguration
              ~f:GroupingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupingConfiguration =
        (Option.map ~f:GroupingConfiguration.of_xml)
          (Xml.child xml_arg0 "GroupingConfiguration") in
      make ?groupingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupingConfiguration =
        field_map json__ "GroupingConfiguration"
          GroupingConfiguration.of_json in
      make ?groupingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the grouping configuration for this account. This operation allows you to define custom grouping attributes that determine how services are logically grouped based on telemetry attributes, Amazon Web Services tags, or predefined mappings. These grouping attributes can then be used to organize and filter services in the Application Signals console and APIs."]
module PutGroupingConfigurationInput =
  struct
    type nonrec t =
      {
      groupingAttributeDefinitions: GroupingAttributeDefinitions.t
        [@ocaml.doc
          "An array of grouping attribute definitions that specify how services should be grouped. Each definition includes a friendly name, source keys to derive the grouping value from, and an optional default value."]}
    let context_ = "PutGroupingConfigurationInput"
    let make ~groupingAttributeDefinitions =
      fun () -> { groupingAttributeDefinitions }
    let to_value x =
      structure_to_value
        [("GroupingAttributeDefinitions",
           (Some
              (GroupingAttributeDefinitions.to_value
                 x.groupingAttributeDefinitions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupingAttributeDefinitions =
        GroupingAttributeDefinitions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "GroupingAttributeDefinitions") in
      make ~groupingAttributeDefinitions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupingAttributeDefinitions =
        field_map_exn json__ "GroupingAttributeDefinitions"
          GroupingAttributeDefinitions.of_json in
      make ~groupingAttributeDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the grouping configuration for this account. This operation allows you to define custom grouping attributes that determine how services are logically grouped based on telemetry attributes, Amazon Web Services tags, or predefined mappings. These grouping attributes can then be used to organize and filter services in the Application Signals console and APIs."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "The list of tag keys and values associated with the resource you specified."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
       "Displays the tags associated with a CloudWatch resource. Tags can be assigned to service level objectives."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch resource that you want to view tags for. The ARN format of an Application Signals SLO is arn:aws:cloudwatch:Region:account-id:slo:slo-name For more information about ARN format, see Resource Types Defined by Amazon CloudWatch in the Amazon Web Services General Reference."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        AmazonResourceName.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" AmazonResourceName.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the tags associated with a CloudWatch resource. Tags can be assigned to service level objectives."]
module ListServicesOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      serviceSummaries: ServiceSummaries.t option
        [@ocaml.doc
          "An array of structures, where each structure contains some information about a service. To get complete information about a service, use GetService."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get next set of services."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?serviceSummaries ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; serviceSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ServiceSummaries",
          (Option.map x.serviceSummaries ~f:ServiceSummaries.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 serviceSummaries =
        (Option.map ~f:ServiceSummaries.of_xml)
          (Xml.child xml_arg0 "ServiceSummaries") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?serviceSummaries ?endTime ?startTime ()
    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 serviceSummaries =
        field_map json__ "ServiceSummaries" ServiceSummaries.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?serviceSummaries ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of services that have been discovered by Application Signals. A service represents a minimum logical and transactional unit that completes a business function. Services are discovered through Application Signals instrumentation."]
module ListServicesInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      maxResults: ListServicesMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of services."];
      includeLinkedAccounts: Boolean.t option
        [@ocaml.doc
          "If you are using this operation in a monitoring account, specify true to include services from source accounts in the returned data."];
      awsAccountId: AwsAccountId.t option
        [@ocaml.doc "Amazon Web Services Account ID."]}
    let context_ = "ListServicesInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?includeLinkedAccounts ->
          fun ?awsAccountId ->
            fun ~startTime ->
              fun ~endTime ->
                fun () ->
                  {
                    maxResults;
                    nextToken;
                    includeLinkedAccounts;
                    awsAccountId;
                    startTime;
                    endTime
                  }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListServicesMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("IncludeLinkedAccounts",
          (Option.map x.includeLinkedAccounts ~f:Boolean.to_value));
        ("AwsAccountId",
          (Option.map x.awsAccountId ~f:AwsAccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "AwsAccountId") in
      let includeLinkedAccounts =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IncludeLinkedAccounts") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListServicesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ?awsAccountId ?includeLinkedAccounts ?nextToken ?maxResults
        ~endTime ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsAccountId = field_map json__ "AwsAccountId" AwsAccountId.of_json in
      let includeLinkedAccounts =
        field_map json__ "IncludeLinkedAccounts" Boolean.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListServicesMaxResults.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ?awsAccountId ?includeLinkedAccounts ?nextToken ?maxResults
        ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of services that have been discovered by Application Signals. A service represents a minimum logical and transactional unit that completes a business function. Services are discovered through Application Signals instrumentation."]
module ListServiceStatesOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057."];
      serviceStates: ServiceStates.t option
        [@ocaml.doc
          "An array of structures, where each structure contains information about the state of one service, including its latest change events such as deployments."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get the next set of service states."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?serviceStates ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; serviceStates; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ServiceStates",
          (Option.map x.serviceStates ~f:ServiceStates.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 serviceStates =
        (Option.map ~f:ServiceStates.of_xml)
          (Xml.child xml_arg0 "ServiceStates") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?serviceStates ?endTime ?startTime ()
    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 serviceStates =
        field_map json__ "ServiceStates" ServiceStates.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?serviceStates ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the last deployment and other change states of services. This API provides visibility into recent changes that may have affected service performance, helping with troubleshooting and change correlation."]
module ListServiceStatesInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve service state information for. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve service state information for. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057."];
      maxResults: ListServiceStatesMaxResults.t option
        [@ocaml.doc
          "The maximum number of service states to return in one operation. If you omit this parameter, the default of 20 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service states."];
      includeLinkedAccounts: Boolean.t option
        [@ocaml.doc
          "If you are using this operation in a monitoring account, specify true to include service states from source accounts in the returned data."];
      awsAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID to filter service states by. Use this to limit results to services from a specific account."];
      attributeFilters: AttributeFilters.t option
        [@ocaml.doc
          "A list of attribute filters to narrow down the services. You can filter by platform, environment, or other service attributes."]}
    let context_ = "ListServiceStatesInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?includeLinkedAccounts ->
          fun ?awsAccountId ->
            fun ?attributeFilters ->
              fun ~startTime ->
                fun ~endTime ->
                  fun () ->
                    {
                      maxResults;
                      nextToken;
                      includeLinkedAccounts;
                      awsAccountId;
                      attributeFilters;
                      startTime;
                      endTime
                    }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListServiceStatesMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("IncludeLinkedAccounts",
          (Option.map x.includeLinkedAccounts ~f:Boolean.to_value));
        ("AwsAccountId",
          (Option.map x.awsAccountId ~f:AwsAccountId.to_value));
        ("AttributeFilters",
          (Option.map x.attributeFilters ~f:AttributeFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeFilters =
        (Option.map ~f:AttributeFilters.of_xml)
          (Xml.child xml_arg0 "AttributeFilters") in
      let awsAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "AwsAccountId") in
      let includeLinkedAccounts =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IncludeLinkedAccounts") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListServiceStatesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ?attributeFilters ?awsAccountId ?includeLinkedAccounts ?nextToken
        ?maxResults ~endTime ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeFilters =
        field_map json__ "AttributeFilters" AttributeFilters.of_json in
      let awsAccountId = field_map json__ "AwsAccountId" AwsAccountId.of_json in
      let includeLinkedAccounts =
        field_map json__ "IncludeLinkedAccounts" Boolean.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListServiceStatesMaxResults.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ?attributeFilters ?awsAccountId ?includeLinkedAccounts ?nextToken
        ?maxResults ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the last deployment and other change states of services. This API provides visibility into recent changes that may have affected service performance, helping with troubleshooting and change correlation."]
module ListServiceOperationsOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      serviceOperations: ServiceOperations.t option
        [@ocaml.doc
          "An array of structures that each contain information about one operation of this service."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get next set of service operations."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?serviceOperations ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; serviceOperations; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ServiceOperations",
          (Option.map x.serviceOperations ~f:ServiceOperations.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 serviceOperations =
        (Option.map ~f:ServiceOperations.of_xml)
          (Xml.child xml_arg0 "ServiceOperations") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?serviceOperations ?endTime ?startTime ()
    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 serviceOperations =
        field_map json__ "ServiceOperations" ServiceOperations.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?serviceOperations ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the operations of this service that have been discovered by Application Signals. Only the operations that were invoked during the specified time range are returned."]
module ListServiceOperationsInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested end time will be rounded to the nearest hour."];
      keyAttributes: Attributes.t
        [@ocaml.doc
          "Use this field to specify which service you want to retrieve information for. You must specify at least the Type, Name, and Environment attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      maxResults: ListServiceOperationMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service operations."]}
    let context_ = "ListServiceOperationsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~startTime ->
          fun ~endTime ->
            fun ~keyAttributes ->
              fun () ->
                { maxResults; nextToken; startTime; endTime; keyAttributes }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("KeyAttributes", (Some (Attributes.to_value x.keyAttributes)));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListServiceOperationMaxResults.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:ListServiceOperationMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let keyAttributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ?nextToken ?maxResults ~keyAttributes ~endTime ~startTime ()
    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" ListServiceOperationMaxResults.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" Attributes.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?maxResults ~keyAttributes ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the operations of this service that have been discovered by Application Signals. Only the operations that were invoked during the specified time range are returned."]
module ListServiceLevelObjectivesOutput =
  struct
    type nonrec t =
      {
      sloSummaries: ServiceLevelObjectiveSummaries.t option
        [@ocaml.doc
          "An array of structures, where each structure contains information about one SLO."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get next set of service level objectives."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sloSummaries =
      fun ?nextToken -> fun () -> { sloSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SloSummaries",
           (Option.map x.sloSummaries
              ~f:ServiceLevelObjectiveSummaries.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 sloSummaries =
        (Option.map ~f:ServiceLevelObjectiveSummaries.of_xml)
          (Xml.child xml_arg0 "SloSummaries") in
      make ?nextToken ?sloSummaries ()
    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 sloSummaries =
        field_map json__ "SloSummaries"
          ServiceLevelObjectiveSummaries.of_json in
      make ?nextToken ?sloSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of SLOs created in this account."]
module ListServiceLevelObjectivesInput =
  struct
    type nonrec t =
      {
      keyAttributes: Attributes.t option
        [@ocaml.doc
          "You can use this optional field to specify which services you want to retrieve SLO information for. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      operationName: OperationName.t option
        [@ocaml.doc
          "The name of the operation that this SLO is associated with."];
      dependencyConfig: DependencyConfig.t option
        [@ocaml.doc
          "Identifies the dependency using the DependencyKeyAttributes and DependencyOperationName."];
      maxResults: ListServiceLevelObjectivesMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service level objectives."];
      metricSourceTypes: MetricSourceTypes.t option
        [@ocaml.doc
          "Use this optional field to only include SLOs with the specified metric source types in the output. Supported types are: Service operation Service dependency Service CloudWatch metric AppMonitor Canary"];
      includeLinkedAccounts: Boolean.t option
        [@ocaml.doc
          "If you are using this operation in a monitoring account, specify true to include SLO from source accounts in the returned data. When you are monitoring an account, you can use Amazon Web Services account ID in KeyAttribute filter for service source account and SloOwnerawsaccountID for SLO source account with IncludeLinkedAccounts to filter the returned data to only a single source account."];
      sloOwnerAwsAccountId: AwsAccountId.t option
        [@ocaml.doc "SLO's Amazon Web Services account ID."];
      metricSource: MetricSource.t option
        [@ocaml.doc "Identifies the metric source to filter SLOs by."]}
    let make ?keyAttributes =
      fun ?operationName ->
        fun ?dependencyConfig ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ?metricSourceTypes ->
                fun ?includeLinkedAccounts ->
                  fun ?sloOwnerAwsAccountId ->
                    fun ?metricSource ->
                      fun () ->
                        {
                          keyAttributes;
                          operationName;
                          dependencyConfig;
                          maxResults;
                          nextToken;
                          metricSourceTypes;
                          includeLinkedAccounts;
                          sloOwnerAwsAccountId;
                          metricSource
                        }
    let to_value x =
      structure_to_value
        [("KeyAttributes",
           (Option.map x.keyAttributes ~f:Attributes.to_value));
        ("OperationName",
          (Option.map x.operationName ~f:OperationName.to_value));
        ("DependencyConfig",
          (Option.map x.dependencyConfig ~f:DependencyConfig.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListServiceLevelObjectivesMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MetricSourceTypes",
          (Option.map x.metricSourceTypes ~f:MetricSourceTypes.to_value));
        ("IncludeLinkedAccounts",
          (Option.map x.includeLinkedAccounts ~f:Boolean.to_value));
        ("SloOwnerAwsAccountId",
          (Option.map x.sloOwnerAwsAccountId ~f:AwsAccountId.to_value));
        ("MetricSource",
          (Option.map x.metricSource ~f:MetricSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricSource =
        (Option.map ~f:MetricSource.of_xml)
          (Xml.child xml_arg0 "MetricSource") in
      let sloOwnerAwsAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "SloOwnerAwsAccountId") in
      let includeLinkedAccounts =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IncludeLinkedAccounts") in
      let metricSourceTypes =
        (Option.map ~f:MetricSourceTypes.of_xml)
          (Xml.child xml_arg0 "MetricSourceTypes") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListServiceLevelObjectivesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let dependencyConfig =
        (Option.map ~f:DependencyConfig.of_xml)
          (Xml.child xml_arg0 "DependencyConfig") in
      let operationName =
        (Option.map ~f:OperationName.of_xml)
          (Xml.child xml_arg0 "OperationName") in
      let keyAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "KeyAttributes") in
      make ?metricSource ?sloOwnerAwsAccountId ?includeLinkedAccounts
        ?metricSourceTypes ?nextToken ?maxResults ?dependencyConfig
        ?operationName ?keyAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricSource = field_map json__ "MetricSource" MetricSource.of_json in
      let sloOwnerAwsAccountId =
        field_map json__ "SloOwnerAwsAccountId" AwsAccountId.of_json in
      let includeLinkedAccounts =
        field_map json__ "IncludeLinkedAccounts" Boolean.of_json in
      let metricSourceTypes =
        field_map json__ "MetricSourceTypes" MetricSourceTypes.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListServiceLevelObjectivesMaxResults.of_json in
      let dependencyConfig =
        field_map json__ "DependencyConfig" DependencyConfig.of_json in
      let operationName =
        field_map json__ "OperationName" OperationName.of_json in
      let keyAttributes = field_map json__ "KeyAttributes" Attributes.of_json in
      make ?metricSource ?sloOwnerAwsAccountId ?includeLinkedAccounts
        ?metricSourceTypes ?nextToken ?maxResults ?dependencyConfig
        ?operationName ?keyAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of SLOs created in this account."]
module ListServiceLevelObjectiveExclusionWindowsOutput =
  struct
    type nonrec t =
      {
      exclusionWindows: ExclusionWindows.t option
        [@ocaml.doc "A list of exclusion windows configured for the SLO."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service level objectives."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?exclusionWindows =
      fun ?nextToken -> fun () -> { exclusionWindows; nextToken }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ExclusionWindows",
           (Option.map x.exclusionWindows ~f:ExclusionWindows.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 exclusionWindows =
        (Option.map ~f:ExclusionWindows.of_xml)
          (Xml.child xml_arg0 "ExclusionWindows") in
      make ?nextToken ?exclusionWindows ()
    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 exclusionWindows =
        field_map json__ "ExclusionWindows" ExclusionWindows.of_json in
      make ?nextToken ?exclusionWindows ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves all exclusion windows configured for a specific SLO."]
module ListServiceLevelObjectiveExclusionWindowsInput =
  struct
    type nonrec t =
      {
      id: ServiceLevelObjectiveId.t
        [@ocaml.doc "The ID of the SLO to list exclusion windows for."];
      maxResults:
        ListServiceLevelObjectiveExclusionWindowsMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service level objectives."]}
    let context_ = "ListServiceLevelObjectiveExclusionWindowsInput"
    let make ?maxResults =
      fun ?nextToken -> fun ~id -> fun () -> { maxResults; nextToken; id }
    let to_value x =
      structure_to_value
        [("Id", (Some (ServiceLevelObjectiveId.to_value x.id)));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListServiceLevelObjectiveExclusionWindowsMaxResults.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:ListServiceLevelObjectiveExclusionWindowsMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let id =
        ServiceLevelObjectiveId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?nextToken ?maxResults ~id ()
    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"
          ListServiceLevelObjectiveExclusionWindowsMaxResults.of_json in
      let id = field_map_exn json__ "Id" ServiceLevelObjectiveId.of_json in
      make ?nextToken ?maxResults ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves all exclusion windows configured for a specific SLO."]
module ListServiceDependentsOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      serviceDependents: ServiceDependents.t option
        [@ocaml.doc
          "An array, where each object in the array contains information about one of the dependents of this service."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get next set of service dependents."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?serviceDependents ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; serviceDependents; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ServiceDependents",
          (Option.map x.serviceDependents ~f:ServiceDependents.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 serviceDependents =
        (Option.map ~f:ServiceDependents.of_xml)
          (Xml.child xml_arg0 "ServiceDependents") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?serviceDependents ?endTime ?startTime ()
    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 serviceDependents =
        field_map json__ "ServiceDependents" ServiceDependents.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?serviceDependents ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of dependents that invoked the specified service during the provided time range. Dependents include other services, CloudWatch Synthetics canaries, and clients that are instrumented with CloudWatch RUM app monitors."]
module ListServiceDependentsInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      keyAttributes: Attributes.t
        [@ocaml.doc
          "Use this field to specify which service you want to retrieve information for. You must specify at least the Type, Name, and Environment attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      maxResults: ListServiceDependentsMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service dependents."]}
    let context_ = "ListServiceDependentsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~startTime ->
          fun ~endTime ->
            fun ~keyAttributes ->
              fun () ->
                { maxResults; nextToken; startTime; endTime; keyAttributes }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("KeyAttributes", (Some (Attributes.to_value x.keyAttributes)));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListServiceDependentsMaxResults.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:ListServiceDependentsMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let keyAttributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ?nextToken ?maxResults ~keyAttributes ~endTime ~startTime ()
    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" ListServiceDependentsMaxResults.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" Attributes.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?maxResults ~keyAttributes ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of dependents that invoked the specified service during the provided time range. Dependents include other services, CloudWatch Synthetics canaries, and clients that are instrumented with CloudWatch RUM app monitors."]
module ListServiceDependenciesOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned information applies to. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      serviceDependencies: ServiceDependencies.t option
        [@ocaml.doc
          "An array, where each object in the array contains information about one of the dependencies of this service."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get next set of service dependencies."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?serviceDependencies ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; serviceDependencies; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ServiceDependencies",
          (Option.map x.serviceDependencies ~f:ServiceDependencies.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 serviceDependencies =
        (Option.map ~f:ServiceDependencies.of_xml)
          (Xml.child xml_arg0 "ServiceDependencies") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?serviceDependencies ?endTime ?startTime ()
    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 serviceDependencies =
        field_map json__ "ServiceDependencies" ServiceDependencies.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?serviceDependencies ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of service dependencies of the service that you specify. A dependency is an infrastructure component that an operation of this service connects with. Dependencies can include Amazon Web Services services, Amazon Web Services resources, and third-party services."]
module ListServiceDependenciesInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested end time will be rounded to the nearest hour."];
      keyAttributes: Attributes.t
        [@ocaml.doc
          "Use this field to specify which service you want to retrieve information for. You must specify at least the Type, Name, and Environment attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."];
      maxResults: ListServiceDependenciesMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service dependencies."]}
    let context_ = "ListServiceDependenciesInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~startTime ->
          fun ~endTime ->
            fun ~keyAttributes ->
              fun () ->
                { maxResults; nextToken; startTime; endTime; keyAttributes }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("KeyAttributes", (Some (Attributes.to_value x.keyAttributes)));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListServiceDependenciesMaxResults.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:ListServiceDependenciesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let keyAttributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ?nextToken ?maxResults ~keyAttributes ~endTime ~startTime ()
    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"
          ListServiceDependenciesMaxResults.of_json in
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" Attributes.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?maxResults ~keyAttributes ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of service dependencies of the service that you specify. A dependency is an infrastructure component that an operation of this service connects with. Dependencies can include Amazon Web Services services, Amazon Web Services resources, and third-party services."]
module ListGroupingAttributeDefinitionsOutput =
  struct
    type nonrec t =
      {
      groupingAttributeDefinitions: GroupingAttributeDefinitions.t option
        [@ocaml.doc
          "An array of structures, where each structure contains information about one grouping attribute definition, including the grouping name, source keys, and default values."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the grouping configuration was last updated. When used in a raw HTTP Query API, it is formatted as epoch time in seconds."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get the next set of grouping attribute definitions."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?groupingAttributeDefinitions =
      fun ?updatedAt ->
        fun ?nextToken ->
          fun () -> { groupingAttributeDefinitions; updatedAt; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("GroupingAttributeDefinitions",
           (Option.map x.groupingAttributeDefinitions
              ~f:GroupingAttributeDefinitions.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:Timestamp.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 updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let groupingAttributeDefinitions =
        (Option.map ~f:GroupingAttributeDefinitions.of_xml)
          (Xml.child xml_arg0 "GroupingAttributeDefinitions") in
      make ?nextToken ?updatedAt ?groupingAttributeDefinitions ()
    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 updatedAt = field_map json__ "UpdatedAt" Timestamp.of_json in
      let groupingAttributeDefinitions =
        field_map json__ "GroupingAttributeDefinitions"
          GroupingAttributeDefinitions.of_json in
      make ?nextToken ?updatedAt ?groupingAttributeDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the current grouping configuration for this account, including all custom grouping attribute definitions that have been configured. These definitions determine how services are logically grouped based on telemetry attributes, Amazon Web Services tags, or predefined mappings."]
module ListGroupingAttributeDefinitionsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of grouping attribute definitions."];
      awsAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID to retrieve grouping attribute definitions for. Use this when accessing grouping configurations from a different account in cross-account monitoring scenarios."];
      includeLinkedAccounts: Boolean.t option
        [@ocaml.doc
          "If you are using this operation in a monitoring account, specify true to include grouping attributes from source accounts in the returned data."]}
    let make ?nextToken =
      fun ?awsAccountId ->
        fun ?includeLinkedAccounts ->
          fun () -> { nextToken; awsAccountId; includeLinkedAccounts }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("AwsAccountId",
          (Option.map x.awsAccountId ~f:AwsAccountId.to_value));
        ("IncludeLinkedAccounts",
          (Option.map x.includeLinkedAccounts ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeLinkedAccounts =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IncludeLinkedAccounts") in
      let awsAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "AwsAccountId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?includeLinkedAccounts ?awsAccountId ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeLinkedAccounts =
        field_map json__ "IncludeLinkedAccounts" Boolean.of_json in
      let awsAccountId = field_map json__ "AwsAccountId" AwsAccountId.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?includeLinkedAccounts ?awsAccountId ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the current grouping configuration for this account, including all custom grouping attribute definitions that have been configured. These definitions determine how services are logically grouped based on telemetry attributes, Amazon Web Services tags, or predefined mappings."]
module ListEntityEventsOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned change events apply to. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example: 1698778057"];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned change events apply to. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example: 1698778057"];
      changeEvents: ChangeEvents.t option
        [@ocaml.doc
          "An array of structures, where each structure contains information about one change event that occurred for the specified entity during the requested time period."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get the next set of change events."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?changeEvents ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; changeEvents; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("ChangeEvents",
          (Option.map x.changeEvents ~f:ChangeEvents.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 changeEvents =
        (Option.map ~f:ChangeEvents.of_xml)
          (Xml.child xml_arg0 "ChangeEvents") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?changeEvents ?endTime ?startTime ()
    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 changeEvents = field_map json__ "ChangeEvents" ChangeEvents.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?changeEvents ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of change events for a specific entity, such as deployments, configuration changes, or other state-changing activities. This operation helps track the history of changes that may have affected service performance."]
module ListEntityEventsInput =
  struct
    type nonrec t =
      {
      entity: Attributes.t
        [@ocaml.doc
          "The entity for which to retrieve change events. This specifies the service, resource, or other entity whose event history you want to examine. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to. AwsAccountId specifies the account where this object is in. Below is an example of a service. \\{ \"Type\": \"Service\", \"Name\": \"visits-service\", \"Environment\": \"petclinic-test\" \\} Below is an example of a resource. \\{ \"Type\": \"AWS::Resource\", \"ResourceType\": \"AWS::DynamoDB::Table\", \"Identifier\": \"Customers\" \\}"];
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve change events for. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example: 1698778057"];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve change events for. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example: 1698778057"];
      maxResults: ListEntityEventsMaxResults.t option
        [@ocaml.doc
          "The maximum number of change events to return in one operation. If you omit this parameter, the default of 50 is used."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of change events."]}
    let context_ = "ListEntityEventsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~entity ->
          fun ~startTime ->
            fun ~endTime ->
              fun () -> { maxResults; nextToken; entity; startTime; endTime }
    let to_value x =
      structure_to_value
        [("Entity", (Some (Attributes.to_value x.entity)));
        ("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListEntityEventsMaxResults.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:ListEntityEventsMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      let entity =
        Attributes.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Entity") in
      make ?nextToken ?maxResults ~endTime ~startTime ~entity ()
    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" ListEntityEventsMaxResults.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      let entity = field_map_exn json__ "Entity" Attributes.of_json in
      make ?nextToken ?maxResults ~endTime ~startTime ~entity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of change events for a specific entity, such as deployments, configuration changes, or other state-changing activities. This operation helps track the history of changes that may have affected service performance."]
module ListAuditFindingsOutput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start of the time period that the returned audit findings apply to. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057"];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end of the time period that the returned audit findings apply to. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057"];
      auditFindings: AuditFindings.t option
        [@ocaml.doc
          "An array of structures, where each structure contains information about one audit finding, including the auditor results, severity, and associated metric and dependency graphs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value in your next use of this API to get the next set of audit findings."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?startTime =
      fun ?endTime ->
        fun ?auditFindings ->
          fun ?nextToken ->
            fun () -> { startTime; endTime; auditFindings; nextToken }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("AuditFindings",
          (Option.map x.auditFindings ~f:AuditFindings.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 auditFindings =
        (Option.map ~f:AuditFindings.of_xml)
          (Xml.child xml_arg0 "AuditFindings") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?nextToken ?auditFindings ?endTime ?startTime ()
    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 auditFindings =
        field_map json__ "AuditFindings" AuditFindings.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      make ?nextToken ?auditFindings ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of audit findings that provide automated analysis of service behavior and root cause analysis. These findings help identify the most significant observations about your services, including performance issues, anomalies, and potential problems. The findings are generated using heuristic algorithms based on established troubleshooting patterns."]
module ListAuditFindingsInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve audit findings for. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057"];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve audit findings for. When used in a raw HTTP Query API, it is formatted as epoch time in seconds. For example, 1698778057"];
      auditors: Auditors.t option
        [@ocaml.doc
          "A list of auditor names to filter the findings by. Only findings generated by the specified auditors will be returned. The following auditors are available for configuration: slo - SloAuditor: Identifies SLO violations and detects breached thresholds during the Assessment phase. operation_metric - OperationMetricAuditor: Detects anomalies in service operation metrics from Application Signals RED metrics during the Assessment phase Anomaly detection is not supported for sparse metrics (those missing more than 80% of datapoints within the given time period). service_quota - ServiceQuotaAuditor: Monitors resource utilization against service quotas during the Assessment phase trace - TraceAuditor: Performs deep-dive analysis of distributed traces, correlating traces with breached SLOs or abnormal RED metrics during the Analysis phase dependency_metric - CriticalPathAuditor: Analyzes service dependency impacts and maps dependency relationships from Application Signals RED metrics during the Analysis phase top_contributor - TopContributorAuditor: Identifies infrastructure-level contributors to issues by analyzing EMF logs of Application Signals RED metrics during the Analysis phase log - LogAuditor: Extracts insights from application logs, categorizing error types and ranking severity by frequency during the Analysis phase change_indicator - ChangeIndicatorAuditor: Detects change events (deployments, configuration changes) that occurred within 10 minutes before and during a detected anomaly, and surfaces them as findings with deployment timestamps in the Analysis phase. When changes are detected, the top_contributor auditor skips its analysis to avoid redundancy. InitAuditor and Summarizer auditors are not configurable as they are automatically triggered during the audit process."];
      auditTargets: AuditTargets.t
        [@ocaml.doc
          "A list of audit targets to filter the findings by. You can specify services, SLOs, or service operations to limit the audit findings to specific entities."];
      detailLevel: DetailLevel.t option
        [@ocaml.doc
          "The level of details of the audit findings. Supported values: BRIEF, DETAILED."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of audit findings."];
      maxResults: ListAuditFindingMaxResults.t option
        [@ocaml.doc
          "The maximum number of audit findings to return in one operation. If you omit this parameter, the default of 10 is used."]}
    let context_ = "ListAuditFindingsInput"
    let make ?auditors =
      fun ?detailLevel ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~startTime ->
              fun ~endTime ->
                fun ~auditTargets ->
                  fun () ->
                    {
                      auditors;
                      detailLevel;
                      nextToken;
                      maxResults;
                      startTime;
                      endTime;
                      auditTargets
                    }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("Auditors", (Option.map x.auditors ~f:Auditors.to_value));
        ("AuditTargets", (Some (AuditTargets.to_value x.auditTargets)));
        ("DetailLevel", (Option.map x.detailLevel ~f:DetailLevel.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:ListAuditFindingMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListAuditFindingMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let detailLevel =
        (Option.map ~f:DetailLevel.of_xml) (Xml.child xml_arg0 "DetailLevel") in
      let auditTargets =
        AuditTargets.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuditTargets") in
      let auditors =
        (Option.map ~f:Auditors.of_xml) (Xml.child xml_arg0 "Auditors") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ?maxResults ?nextToken ?detailLevel ~auditTargets ?auditors
        ~endTime ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" ListAuditFindingMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let detailLevel = field_map json__ "DetailLevel" DetailLevel.of_json in
      let auditTargets =
        field_map_exn json__ "AuditTargets" AuditTargets.of_json in
      let auditors = field_map json__ "Auditors" Auditors.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ?maxResults ?nextToken ?detailLevel ~auditTargets ?auditors
        ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of audit findings that provide automated analysis of service behavior and root cause analysis. These findings help identify the most significant observations about your services, including performance issues, anomalies, and potential problems. The findings are generated using heuristic algorithms based on established troubleshooting patterns."]
module GetServiceOutput =
  struct
    type nonrec t =
      {
      service: Service.t option
        [@ocaml.doc "A structure containing information about the service."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the data included in the response. In a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057. This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the data included in the response. In a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057. This displays the time that Application Signals used for the request. It might not match your request exactly, because it was rounded to the nearest hour."];
      logGroupReferences: LogGroupReferences.t option
        [@ocaml.doc
          "An array of string-to-string maps that each contain information about one log group associated with this service. Each string-to-string map includes the following fields: \"Type\": \"AWS::Resource\" \"ResourceType\": \"AWS::Logs::LogGroup\" \"Identifier\": \"name-of-log-group\""]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?service =
      fun ?startTime ->
        fun ?endTime ->
          fun ?logGroupReferences ->
            fun () -> { service; startTime; endTime; logGroupReferences }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Service", (Option.map x.service ~f:Service.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("LogGroupReferences",
          (Option.map x.logGroupReferences ~f:LogGroupReferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupReferences =
        (Option.map ~f:LogGroupReferences.of_xml)
          (Xml.child xml_arg0 "LogGroupReferences") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let service =
        (Option.map ~f:Service.of_xml) (Xml.child xml_arg0 "Service") in
      make ?logGroupReferences ?endTime ?startTime ?service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupReferences =
        field_map json__ "LogGroupReferences" LogGroupReferences.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let service = field_map json__ "Service" Service.of_json in
      make ?logGroupReferences ?endTime ?startTime ?service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a service discovered by Application Signals."]
module GetServiceLevelObjectiveOutput =
  struct
    type nonrec t =
      {
      slo: ServiceLevelObjective.t option
        [@ocaml.doc "A structure containing the information about the SLO."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?slo = fun () -> { slo }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Slo", (Option.map x.slo ~f:ServiceLevelObjective.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slo =
        (Option.map ~f:ServiceLevelObjective.of_xml)
          (Xml.child xml_arg0 "Slo") in
      make ?slo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slo = field_map json__ "Slo" ServiceLevelObjective.of_json in
      make ?slo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one SLO created in the account."]
module GetServiceLevelObjectiveInput =
  struct
    type nonrec t =
      {
      id: ServiceLevelObjectiveId.t
        [@ocaml.doc
          "The ARN or name of the SLO that you want to retrieve information about. You can find the ARNs of SLOs by using the ListServiceLevelObjectives operation."]}
    let context_ = "GetServiceLevelObjectiveInput"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value
        [("Id", (Some (ServiceLevelObjectiveId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        ServiceLevelObjectiveId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" ServiceLevelObjectiveId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one SLO created in the account."]
module GetServiceInput =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t
        [@ocaml.doc
          "The start of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end of the time period to retrieve information about. When used in a raw HTTP Query API, it is formatted as be epoch time in seconds. For example: 1698778057 Your requested start time will be rounded to the nearest hour."];
      keyAttributes: Attributes.t
        [@ocaml.doc
          "Use this field to specify which service you want to retrieve information for. You must specify at least the Type, Name, and Environment attributes. This is a string-to-string map. It can include the following fields. Type designates the type of object this is. ResourceType specifies the type of the resource. This field is used only when the value of the Type field is Resource or AWS::Resource. Name specifies the name of the object. This is used only if the value of the Type field is Service, RemoteService, or AWS::Service. Identifier identifies the resource objects of this resource. This is used only if the value of the Type field is Resource or AWS::Resource. Environment specifies the location where this object is hosted, or what it belongs to."]}
    let context_ = "GetServiceInput"
    let make ~startTime =
      fun ~endTime ->
        fun ~keyAttributes -> fun () -> { startTime; endTime; keyAttributes }
    let to_value x =
      structure_to_value
        [("StartTime", (Some (Timestamp.to_value x.startTime)));
        ("EndTime", (Some (Timestamp.to_value x.endTime)));
        ("KeyAttributes", (Some (Attributes.to_value x.keyAttributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyAttributes =
        Attributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyAttributes") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      make ~keyAttributes ~endTime ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyAttributes =
        field_map_exn json__ "KeyAttributes" Attributes.of_json in
      let endTime = field_map_exn json__ "EndTime" Timestamp.of_json in
      let startTime = field_map_exn json__ "StartTime" Timestamp.of_json in
      make ~keyAttributes ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a service discovered by Application Signals."]
module DeleteServiceLevelObjectiveOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified service level objective."]
module DeleteServiceLevelObjectiveInput =
  struct
    type nonrec t =
      {
      id: ServiceLevelObjectiveId.t
        [@ocaml.doc
          "The ARN or name of the service level objective to delete."]}
    let context_ = "DeleteServiceLevelObjectiveInput"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value
        [("Id", (Some (ServiceLevelObjectiveId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        ServiceLevelObjectiveId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "Id" ServiceLevelObjectiveId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified service level objective."]
module DeleteGroupingConfigurationOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the grouping configuration for this account. This removes all custom grouping attribute definitions that were previously configured."]
module CreateServiceLevelObjectiveOutput =
  struct
    type nonrec t =
      {
      slo: ServiceLevelObjective.t option
        [@ocaml.doc
          "A structure that contains information about the SLO that you just created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?slo = fun () -> { slo }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Slo", (Option.map x.slo ~f:ServiceLevelObjective.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slo =
        (Option.map ~f:ServiceLevelObjective.of_xml)
          (Xml.child xml_arg0 "Slo") in
      make ?slo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slo = field_map json__ "Slo" ServiceLevelObjective.of_json in
      make ?slo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a service level objective (SLO), which can help you ensure that your critical business operations are meeting customer expectations. Use SLOs to set and track specific target levels for the reliability and availability of your applications and services. SLOs use service level indicators (SLIs) to calculate whether the application is performing at the level that you want. Create an SLO to set a target for a service or operation\226\128\153s availability or latency. CloudWatch measures this target frequently you can find whether it has been breached. The target performance quality that is defined for an SLO is the attainment goal. You can set SLO targets for your applications that are discovered by Application Signals, using critical metrics such as latency and availability. You can also set SLOs against any CloudWatch metric or math expression that produces a time series. You can't create an SLO for a service operation that was discovered by Application Signals until after that operation has reported standard metrics to Application Signals. When you create an SLO, you specify whether it is a period-based SLO or a request-based SLO. Each type of SLO has a different way of evaluating your application's performance against its attainment goal. A period-based SLO uses defined periods of time within a specified total time interval. For each period of time, Application Signals determines whether the application met its goal. The attainment rate is calculated as the number of good periods/number of total periods. For example, for a period-based SLO, meeting an attainment goal of 99.9% means that within your interval, your application must meet its performance goal during at least 99.9% of the time periods. A request-based SLO doesn't use pre-defined periods of time. Instead, the SLO measures number of good requests/number of total requests during the interval. At any time, you can find the ratio of good requests to total requests for the interval up to the time stamp that you specify, and measure that ratio against the goal set in your SLO. After you have created an SLO, you can retrieve error budget reports for it. An error budget is the amount of time or amount of requests that your application can be non-compliant with the SLO's goal, and still have your application meet the goal. For a period-based SLO, the error budget starts at a number defined by the highest number of periods that can fail to meet the threshold, while still meeting the overall goal. The remaining error budget decreases with every failed period that is recorded. The error budget within one interval can never increase. For example, an SLO with a threshold that 99.95% of requests must be completed under 2000ms every month translates to an error budget of 21.9 minutes of downtime per month. For a request-based SLO, the remaining error budget is dynamic and can increase or decrease, depending on the ratio of good requests to total requests. For more information about SLOs, see Service level objectives (SLOs). When you perform a CreateServiceLevelObjective operation, Application Signals creates the AWSServiceRoleForCloudWatchApplicationSignals service-linked role, if it doesn't already exist in your account. This service- linked role has the following permissions: xray:GetServiceGraph logs:StartQuery logs:GetQueryResults cloudwatch:GetMetricData cloudwatch:ListMetrics tag:GetResources autoscaling:DescribeAutoScalingGroups"]
module CreateServiceLevelObjectiveInput =
  struct
    type nonrec t =
      {
      name: ServiceLevelObjectiveName.t [@ocaml.doc "A name for this SLO."];
      description: ServiceLevelObjectiveDescription.t option
        [@ocaml.doc "An optional description for this SLO."];
      sliConfig: ServiceLevelIndicatorConfig.t option
        [@ocaml.doc
          "If this SLO is a period-based SLO, this structure defines the information about what performance metric this SLO will monitor. You can't specify both RequestBasedSliConfig and SliConfig in the same operation."];
      requestBasedSliConfig: RequestBasedServiceLevelIndicatorConfig.t option
        [@ocaml.doc
          "If this SLO is a request-based SLO, this structure defines the information about what performance metric this SLO will monitor. You can't specify both RequestBasedSliConfig and SliConfig in the same operation."];
      goal: Goal.t option
        [@ocaml.doc
          "This structure contains the attributes that determine the goal of the SLO."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of key-value pairs to associate with the SLO. You can associate as many as 50 tags with an SLO. To be able to associate tags with the SLO when you create the SLO, you must have the cloudwatch:TagResource permission. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values."];
      burnRateConfigurations: BurnRateConfigurations.t option
        [@ocaml.doc
          "Use this array to create burn rates for this SLO. Each burn rate is a metric that indicates how fast the service is consuming the error budget, relative to the attainment goal of the SLO."];
      createRecommendedSlo: Boolean.t option
        [@ocaml.doc
          "Set this to true to create a recommended SLO out of the box. When set to true, you don't need to specify the MetricThreshold or ComparisonOperator in the SliConfig or RequestBasedSliConfig. The default value is false. This is supported for SLOs on a service, service operation, or a dependency."];
      autoInvestigationEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether DevOps Agent will automatically investigate this SLO when it is breached"]}
    let context_ = "CreateServiceLevelObjectiveInput"
    let make ?description =
      fun ?sliConfig ->
        fun ?requestBasedSliConfig ->
          fun ?goal ->
            fun ?tags ->
              fun ?burnRateConfigurations ->
                fun ?createRecommendedSlo ->
                  fun ?autoInvestigationEnabled ->
                    fun ~name ->
                      fun () ->
                        {
                          description;
                          sliConfig;
                          requestBasedSliConfig;
                          goal;
                          tags;
                          burnRateConfigurations;
                          createRecommendedSlo;
                          autoInvestigationEnabled;
                          name
                        }
    let to_value x =
      structure_to_value
        [("Name", (Some (ServiceLevelObjectiveName.to_value x.name)));
        ("Description",
          (Option.map x.description
             ~f:ServiceLevelObjectiveDescription.to_value));
        ("SliConfig",
          (Option.map x.sliConfig ~f:ServiceLevelIndicatorConfig.to_value));
        ("RequestBasedSliConfig",
          (Option.map x.requestBasedSliConfig
             ~f:RequestBasedServiceLevelIndicatorConfig.to_value));
        ("Goal", (Option.map x.goal ~f:Goal.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("BurnRateConfigurations",
          (Option.map x.burnRateConfigurations
             ~f:BurnRateConfigurations.to_value));
        ("CreateRecommendedSlo",
          (Option.map x.createRecommendedSlo ~f:Boolean.to_value));
        ("AutoInvestigationEnabled",
          (Option.map x.autoInvestigationEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoInvestigationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AutoInvestigationEnabled") in
      let createRecommendedSlo =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "CreateRecommendedSlo") in
      let burnRateConfigurations =
        (Option.map ~f:BurnRateConfigurations.of_xml)
          (Xml.child xml_arg0 "BurnRateConfigurations") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let goal = (Option.map ~f:Goal.of_xml) (Xml.child xml_arg0 "Goal") in
      let requestBasedSliConfig =
        (Option.map ~f:RequestBasedServiceLevelIndicatorConfig.of_xml)
          (Xml.child xml_arg0 "RequestBasedSliConfig") in
      let sliConfig =
        (Option.map ~f:ServiceLevelIndicatorConfig.of_xml)
          (Xml.child xml_arg0 "SliConfig") in
      let description =
        (Option.map ~f:ServiceLevelObjectiveDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        ServiceLevelObjectiveName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?autoInvestigationEnabled ?createRecommendedSlo
        ?burnRateConfigurations ?tags ?goal ?requestBasedSliConfig ?sliConfig
        ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoInvestigationEnabled =
        field_map json__ "AutoInvestigationEnabled" Boolean.of_json in
      let createRecommendedSlo =
        field_map json__ "CreateRecommendedSlo" Boolean.of_json in
      let burnRateConfigurations =
        field_map json__ "BurnRateConfigurations"
          BurnRateConfigurations.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let goal = field_map json__ "Goal" Goal.of_json in
      let requestBasedSliConfig =
        field_map json__ "RequestBasedSliConfig"
          RequestBasedServiceLevelIndicatorConfig.of_json in
      let sliConfig =
        field_map json__ "SliConfig" ServiceLevelIndicatorConfig.of_json in
      let description =
        field_map json__ "Description"
          ServiceLevelObjectiveDescription.of_json in
      let name =
        field_map_exn json__ "Name" ServiceLevelObjectiveName.of_json in
      make ?autoInvestigationEnabled ?createRecommendedSlo
        ?burnRateConfigurations ?tags ?goal ?requestBasedSliConfig ?sliConfig
        ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a service level objective (SLO), which can help you ensure that your critical business operations are meeting customer expectations. Use SLOs to set and track specific target levels for the reliability and availability of your applications and services. SLOs use service level indicators (SLIs) to calculate whether the application is performing at the level that you want. Create an SLO to set a target for a service or operation\226\128\153s availability or latency. CloudWatch measures this target frequently you can find whether it has been breached. The target performance quality that is defined for an SLO is the attainment goal. You can set SLO targets for your applications that are discovered by Application Signals, using critical metrics such as latency and availability. You can also set SLOs against any CloudWatch metric or math expression that produces a time series. You can't create an SLO for a service operation that was discovered by Application Signals until after that operation has reported standard metrics to Application Signals. When you create an SLO, you specify whether it is a period-based SLO or a request-based SLO. Each type of SLO has a different way of evaluating your application's performance against its attainment goal. A period-based SLO uses defined periods of time within a specified total time interval. For each period of time, Application Signals determines whether the application met its goal. The attainment rate is calculated as the number of good periods/number of total periods. For example, for a period-based SLO, meeting an attainment goal of 99.9% means that within your interval, your application must meet its performance goal during at least 99.9% of the time periods. A request-based SLO doesn't use pre-defined periods of time. Instead, the SLO measures number of good requests/number of total requests during the interval. At any time, you can find the ratio of good requests to total requests for the interval up to the time stamp that you specify, and measure that ratio against the goal set in your SLO. After you have created an SLO, you can retrieve error budget reports for it. An error budget is the amount of time or amount of requests that your application can be non-compliant with the SLO's goal, and still have your application meet the goal. For a period-based SLO, the error budget starts at a number defined by the highest number of periods that can fail to meet the threshold, while still meeting the overall goal. The remaining error budget decreases with every failed period that is recorded. The error budget within one interval can never increase. For example, an SLO with a threshold that 99.95% of requests must be completed under 2000ms every month translates to an error budget of 21.9 minutes of downtime per month. For a request-based SLO, the remaining error budget is dynamic and can increase or decrease, depending on the ratio of good requests to total requests. For more information about SLOs, see Service level objectives (SLOs). When you perform a CreateServiceLevelObjective operation, Application Signals creates the AWSServiceRoleForCloudWatchApplicationSignals service-linked role, if it doesn't already exist in your account. This service- linked role has the following permissions: xray:GetServiceGraph logs:StartQuery logs:GetQueryResults cloudwatch:GetMetricData cloudwatch:ListMetrics tag:GetResources autoscaling:DescribeAutoScalingGroups"]
module BatchUpdateExclusionWindowsOutput =
  struct
    type nonrec t =
      {
      sloIds: ServiceLevelObjectiveIds.t option
        [@ocaml.doc "The list of SLO IDs that were successfully processed."];
      errors: BatchUpdateExclusionWindowsErrors.t option
        [@ocaml.doc
          "A list of errors that occurred while processing the request."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sloIds = fun ?errors -> fun () -> { sloIds; errors }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SloIds",
           (Option.map x.sloIds ~f:ServiceLevelObjectiveIds.to_value));
        ("Errors",
          (Option.map x.errors ~f:BatchUpdateExclusionWindowsErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchUpdateExclusionWindowsErrors.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let sloIds =
        (Option.map ~f:ServiceLevelObjectiveIds.of_xml)
          (Xml.child xml_arg0 "SloIds") in
      make ?errors ?sloIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "Errors" BatchUpdateExclusionWindowsErrors.of_json in
      let sloIds = field_map json__ "SloIds" ServiceLevelObjectiveIds.of_json in
      make ?errors ?sloIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add or remove time window exclusions for one or more Service Level Objectives (SLOs)."]
module BatchUpdateExclusionWindowsInput =
  struct
    type nonrec t =
      {
      sloIds: ServiceLevelObjectiveIds.t
        [@ocaml.doc
          "The list of SLO IDs to add or remove exclusion windows from."];
      addExclusionWindows: ExclusionWindows.t option
        [@ocaml.doc
          "A list of exclusion windows to add to the specified SLOs. You can add up to 10 exclusion windows per SLO."];
      removeExclusionWindows: ExclusionWindows.t option
        [@ocaml.doc
          "A list of exclusion windows to remove from the specified SLOs. The window configuration must match an existing exclusion window."]}
    let context_ = "BatchUpdateExclusionWindowsInput"
    let make ?addExclusionWindows =
      fun ?removeExclusionWindows ->
        fun ~sloIds ->
          fun () -> { addExclusionWindows; removeExclusionWindows; sloIds }
    let to_value x =
      structure_to_value
        [("SloIds", (Some (ServiceLevelObjectiveIds.to_value x.sloIds)));
        ("AddExclusionWindows",
          (Option.map x.addExclusionWindows ~f:ExclusionWindows.to_value));
        ("RemoveExclusionWindows",
          (Option.map x.removeExclusionWindows ~f:ExclusionWindows.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let removeExclusionWindows =
        (Option.map ~f:ExclusionWindows.of_xml)
          (Xml.child xml_arg0 "RemoveExclusionWindows") in
      let addExclusionWindows =
        (Option.map ~f:ExclusionWindows.of_xml)
          (Xml.child xml_arg0 "AddExclusionWindows") in
      let sloIds =
        ServiceLevelObjectiveIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SloIds") in
      make ?removeExclusionWindows ?addExclusionWindows ~sloIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let removeExclusionWindows =
        field_map json__ "RemoveExclusionWindows" ExclusionWindows.of_json in
      let addExclusionWindows =
        field_map json__ "AddExclusionWindows" ExclusionWindows.of_json in
      let sloIds =
        field_map_exn json__ "SloIds" ServiceLevelObjectiveIds.of_json in
      make ?removeExclusionWindows ?addExclusionWindows ~sloIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add or remove time window exclusions for one or more Service Level Objectives (SLOs)."]
module BatchGetServiceLevelObjectiveBudgetReportOutput =
  struct
    type nonrec t =
      {
      timestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time that the report is for. It is expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC."];
      reports: ServiceLevelObjectiveBudgetReports.t option
        [@ocaml.doc
          "An array of structures, where each structure is one budget report."];
      errors: ServiceLevelObjectiveBudgetReportErrors.t option
        [@ocaml.doc
          "An array of structures, where each structure includes an error indicating that one of the requests in the array was not valid."]}
    type nonrec error =
      [ `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?timestamp =
      fun ?reports -> fun ?errors -> fun () -> { timestamp; reports; errors }
    let error_of_json name json =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("Reports",
          (Option.map x.reports
             ~f:ServiceLevelObjectiveBudgetReports.to_value));
        ("Errors",
          (Option.map x.errors
             ~f:ServiceLevelObjectiveBudgetReportErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:ServiceLevelObjectiveBudgetReportErrors.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let reports =
        (Option.map ~f:ServiceLevelObjectiveBudgetReports.of_xml)
          (Xml.child xml_arg0 "Reports") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      make ?errors ?reports ?timestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "Errors"
          ServiceLevelObjectiveBudgetReportErrors.of_json in
      let reports =
        field_map json__ "Reports" ServiceLevelObjectiveBudgetReports.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      make ?errors ?reports ?timestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this operation to retrieve one or more service level objective (SLO) budget reports. An error budget is the amount of time or requests in an unhealthy state that your service can accumulate during an interval before your overall SLO budget health is breached and the SLO is considered to be unmet. For example, an SLO with a threshold of 99.95% and a monthly interval translates to an error budget of 21.9 minutes of downtime in a 30-day month. Budget reports include a health indicator, the attainment value, and remaining budget. For more information about SLO error budgets, see SLO concepts."]
module BatchGetServiceLevelObjectiveBudgetReportInput =
  struct
    type nonrec t =
      {
      timestamp: Timestamp.t
        [@ocaml.doc
          "The date and time that you want the report to be for. It is expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC."];
      sloIds: ServiceLevelObjectiveIds.t
        [@ocaml.doc
          "An array containing the IDs of the service level objectives that you want to include in the report."]}
    let context_ = "BatchGetServiceLevelObjectiveBudgetReportInput"
    let make ~timestamp = fun ~sloIds -> fun () -> { timestamp; sloIds }
    let to_value x =
      structure_to_value
        [("Timestamp", (Some (Timestamp.to_value x.timestamp)));
        ("SloIds", (Some (ServiceLevelObjectiveIds.to_value x.sloIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sloIds =
        ServiceLevelObjectiveIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SloIds") in
      let timestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Timestamp") in
      make ~sloIds ~timestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sloIds =
        field_map_exn json__ "SloIds" ServiceLevelObjectiveIds.of_json in
      let timestamp = field_map_exn json__ "Timestamp" Timestamp.of_json in
      make ~sloIds ~timestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this operation to retrieve one or more service level objective (SLO) budget reports. An error budget is the amount of time or requests in an unhealthy state that your service can accumulate during an interval before your overall SLO budget health is breached and the SLO is considered to be unmet. For example, an SLO with a threshold of 99.95% and a monthly interval translates to an error budget of 21.9 minutes of downtime in a 30-day month. Budget reports include a health indicator, the attainment value, and remaining budget. For more information about SLO error budgets, see SLO concepts."]