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_insights
let apiVersion = "2018-11-25"
let endpointPrefix = "applicationinsights"
let serviceFullName = "Amazon CloudWatch Application Insights"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Application Insights"
let targetPrefix = "EC2WindowsBarleyService"
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 MetaDataKey =
  struct
    type nonrec t = string
    let context_ = "MetaDataKey"
    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:"MetaDataKey" j
    let to_json = simple_to_json to_value
  end
module MetaDataValue =
  struct
    type nonrec t = string
    let context_ = "MetaDataValue"
    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:"MetaDataValue" j
    let to_json = simple_to_json to_value
  end
module FeedbackKey =
  struct
    type nonrec t =
      | INSIGHTS_FEEDBACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INSIGHTS_FEEDBACK -> "INSIGHTS_FEEDBACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "INSIGHTS_FEEDBACK" -> INSIGHTS_FEEDBACK
      | 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 FeedbackKey" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FeedbackKey" j)
    let to_json = simple_to_json to_value
  end
module FeedbackValue =
  struct
    type nonrec t =
      | NOT_SPECIFIED 
      | USEFUL 
      | NOT_USEFUL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_SPECIFIED -> "NOT_SPECIFIED"
      | USEFUL -> "USEFUL"
      | NOT_USEFUL -> "NOT_USEFUL"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_SPECIFIED" -> NOT_SPECIFIED
      | "USEFUL" -> USEFUL
      | "NOT_USEFUL" -> NOT_USEFUL
      | 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 FeedbackValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FeedbackValue" j)
    let to_json = simple_to_json to_value
  end
module Tier =
  struct
    type nonrec t =
      | CUSTOM 
      | DEFAULT 
      | DOT_NET_CORE 
      | DOT_NET_WORKER 
      | DOT_NET_WEB_TIER 
      | DOT_NET_WEB 
      | SQL_SERVER 
      | SQL_SERVER_ALWAYSON_AVAILABILITY_GROUP 
      | MYSQL 
      | POSTGRESQL 
      | JAVA_JMX 
      | ORACLE 
      | SAP_HANA_MULTI_NODE 
      | SAP_HANA_SINGLE_NODE 
      | SAP_HANA_HIGH_AVAILABILITY 
      | SAP_ASE_SINGLE_NODE 
      | SAP_ASE_HIGH_AVAILABILITY 
      | SQL_SERVER_FAILOVER_CLUSTER_INSTANCE 
      | SHAREPOINT 
      | ACTIVE_DIRECTORY 
      | SAP_NETWEAVER_STANDARD 
      | SAP_NETWEAVER_DISTRIBUTED 
      | SAP_NETWEAVER_HIGH_AVAILABILITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOM -> "CUSTOM"
      | DEFAULT -> "DEFAULT"
      | DOT_NET_CORE -> "DOT_NET_CORE"
      | DOT_NET_WORKER -> "DOT_NET_WORKER"
      | DOT_NET_WEB_TIER -> "DOT_NET_WEB_TIER"
      | DOT_NET_WEB -> "DOT_NET_WEB"
      | SQL_SERVER -> "SQL_SERVER"
      | SQL_SERVER_ALWAYSON_AVAILABILITY_GROUP ->
          "SQL_SERVER_ALWAYSON_AVAILABILITY_GROUP"
      | MYSQL -> "MYSQL"
      | POSTGRESQL -> "POSTGRESQL"
      | JAVA_JMX -> "JAVA_JMX"
      | ORACLE -> "ORACLE"
      | SAP_HANA_MULTI_NODE -> "SAP_HANA_MULTI_NODE"
      | SAP_HANA_SINGLE_NODE -> "SAP_HANA_SINGLE_NODE"
      | SAP_HANA_HIGH_AVAILABILITY -> "SAP_HANA_HIGH_AVAILABILITY"
      | SAP_ASE_SINGLE_NODE -> "SAP_ASE_SINGLE_NODE"
      | SAP_ASE_HIGH_AVAILABILITY -> "SAP_ASE_HIGH_AVAILABILITY"
      | SQL_SERVER_FAILOVER_CLUSTER_INSTANCE ->
          "SQL_SERVER_FAILOVER_CLUSTER_INSTANCE"
      | SHAREPOINT -> "SHAREPOINT"
      | ACTIVE_DIRECTORY -> "ACTIVE_DIRECTORY"
      | SAP_NETWEAVER_STANDARD -> "SAP_NETWEAVER_STANDARD"
      | SAP_NETWEAVER_DISTRIBUTED -> "SAP_NETWEAVER_DISTRIBUTED"
      | SAP_NETWEAVER_HIGH_AVAILABILITY -> "SAP_NETWEAVER_HIGH_AVAILABILITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOM" -> CUSTOM
      | "DEFAULT" -> DEFAULT
      | "DOT_NET_CORE" -> DOT_NET_CORE
      | "DOT_NET_WORKER" -> DOT_NET_WORKER
      | "DOT_NET_WEB_TIER" -> DOT_NET_WEB_TIER
      | "DOT_NET_WEB" -> DOT_NET_WEB
      | "SQL_SERVER" -> SQL_SERVER
      | "SQL_SERVER_ALWAYSON_AVAILABILITY_GROUP" ->
          SQL_SERVER_ALWAYSON_AVAILABILITY_GROUP
      | "MYSQL" -> MYSQL
      | "POSTGRESQL" -> POSTGRESQL
      | "JAVA_JMX" -> JAVA_JMX
      | "ORACLE" -> ORACLE
      | "SAP_HANA_MULTI_NODE" -> SAP_HANA_MULTI_NODE
      | "SAP_HANA_SINGLE_NODE" -> SAP_HANA_SINGLE_NODE
      | "SAP_HANA_HIGH_AVAILABILITY" -> SAP_HANA_HIGH_AVAILABILITY
      | "SAP_ASE_SINGLE_NODE" -> SAP_ASE_SINGLE_NODE
      | "SAP_ASE_HIGH_AVAILABILITY" -> SAP_ASE_HIGH_AVAILABILITY
      | "SQL_SERVER_FAILOVER_CLUSTER_INSTANCE" ->
          SQL_SERVER_FAILOVER_CLUSTER_INSTANCE
      | "SHAREPOINT" -> SHAREPOINT
      | "ACTIVE_DIRECTORY" -> ACTIVE_DIRECTORY
      | "SAP_NETWEAVER_STANDARD" -> SAP_NETWEAVER_STANDARD
      | "SAP_NETWEAVER_DISTRIBUTED" -> SAP_NETWEAVER_DISTRIBUTED
      | "SAP_NETWEAVER_HIGH_AVAILABILITY" -> SAP_NETWEAVER_HIGH_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 Tier" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Tier" j)
    let to_json = simple_to_json to_value
  end
module WorkloadMetaData =
  struct
    type nonrec t = (MetaDataKey.t * MetaDataValue.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 ->
                            ((MetaDataKey.of_string chopped),
                              (MetaDataValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MetaDataKey.to_value x) |>
                    (fun x -> (MetaDataValue.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:MetaDataKey.of_string
        ~of_json:MetaDataValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module CloudWatchEventDetailType =
  struct
    type nonrec t = string
    let context_ = "CloudWatchEventDetailType"
    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:"CloudWatchEventDetailType" j
    let to_json = simple_to_json to_value
  end
module CloudWatchEventId =
  struct
    type nonrec t = string
    let context_ = "CloudWatchEventId"
    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:"CloudWatchEventId" j
    let to_json = simple_to_json to_value
  end
module CloudWatchEventSource =
  struct
    type nonrec t =
      | EC2 
      | CODE_DEPLOY 
      | HEALTH 
      | RDS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EC2 -> "EC2"
      | CODE_DEPLOY -> "CODE_DEPLOY"
      | HEALTH -> "HEALTH"
      | RDS -> "RDS"
      | Non_static_id s -> s
    let of_string =
      function
      | "EC2" -> EC2
      | "CODE_DEPLOY" -> CODE_DEPLOY
      | "HEALTH" -> HEALTH
      | "RDS" -> RDS
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CloudWatchEventSource" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CloudWatchEventSource" j)
    let to_json = simple_to_json to_value
  end
module CodeDeployApplication =
  struct
    type nonrec t = string
    let context_ = "CodeDeployApplication"
    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:"CodeDeployApplication" j
    let to_json = simple_to_json to_value
  end
module CodeDeployDeploymentGroup =
  struct
    type nonrec t = string
    let context_ = "CodeDeployDeploymentGroup"
    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:"CodeDeployDeploymentGroup" j
    let to_json = simple_to_json to_value
  end
module CodeDeployDeploymentId =
  struct
    type nonrec t = string
    let context_ = "CodeDeployDeploymentId"
    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:"CodeDeployDeploymentId" j
    let to_json = simple_to_json to_value
  end
module CodeDeployInstanceGroupId =
  struct
    type nonrec t = string
    let context_ = "CodeDeployInstanceGroupId"
    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:"CodeDeployInstanceGroupId" j
    let to_json = simple_to_json to_value
  end
module CodeDeployState =
  struct
    type nonrec t = string
    let context_ = "CodeDeployState"
    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:"CodeDeployState" j
    let to_json = simple_to_json to_value
  end
module EbsCause =
  struct
    type nonrec t = string
    let context_ = "EbsCause"
    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:"EbsCause" j
    let to_json = simple_to_json to_value
  end
module EbsEvent =
  struct
    type nonrec t = string
    let context_ = "EbsEvent"
    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:"EbsEvent" j
    let to_json = simple_to_json to_value
  end
module EbsRequestId =
  struct
    type nonrec t = string
    let context_ = "EbsRequestId"
    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:"EbsRequestId" j
    let to_json = simple_to_json to_value
  end
module EbsResult =
  struct
    type nonrec t = string
    let context_ = "EbsResult"
    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:"EbsResult" j
    let to_json = simple_to_json to_value
  end
module Ec2State =
  struct
    type nonrec t = string
    let context_ = "Ec2State"
    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:"Ec2State" j
    let to_json = simple_to_json to_value
  end
module EndTime =
  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 HealthEventArn =
  struct
    type nonrec t = string
    let context_ = "HealthEventArn"
    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:"HealthEventArn" j
    let to_json = simple_to_json to_value
  end
module HealthEventDescription =
  struct
    type nonrec t = string
    let context_ = "HealthEventDescription"
    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:"HealthEventDescription" j
    let to_json = simple_to_json to_value
  end
module HealthEventTypeCategory =
  struct
    type nonrec t = string
    let context_ = "HealthEventTypeCategory"
    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:"HealthEventTypeCategory" j
    let to_json = simple_to_json to_value
  end
module HealthEventTypeCode =
  struct
    type nonrec t = string
    let context_ = "HealthEventTypeCode"
    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:"HealthEventTypeCode" j
    let to_json = simple_to_json to_value
  end
module HealthService =
  struct
    type nonrec t = string
    let context_ = "HealthService"
    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:"HealthService" j
    let to_json = simple_to_json to_value
  end
module LineTime =
  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 LogFilter =
  struct
    type nonrec t =
      | ERROR 
      | WARN 
      | INFO 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ERROR -> "ERROR"
      | WARN -> "WARN"
      | INFO -> "INFO"
      | Non_static_id s -> s
    let of_string =
      function
      | "ERROR" -> ERROR
      | "WARN" -> WARN
      | "INFO" -> INFO
      | 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 LogFilter" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LogFilter" j)
    let to_json = simple_to_json to_value
  end
module LogGroup =
  struct
    type nonrec t = string
    let context_ = "LogGroup"
    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:"LogGroup" j
    let to_json = simple_to_json to_value
  end
module LogText =
  struct
    type nonrec t = string
    let context_ = "LogText"
    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:"LogText" j
    let to_json = simple_to_json to_value
  end
module MetricName =
  struct
    type nonrec t = string
    let context_ = "MetricName"
    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:"MetricName" j
    let to_json = simple_to_json to_value
  end
module MetricNamespace =
  struct
    type nonrec t = string
    let context_ = "MetricNamespace"
    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:"MetricNamespace" j
    let to_json = simple_to_json to_value
  end
module ObservationId =
  struct
    type nonrec t = string
    let context_ = "ObservationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:38) >>=
             (fun () ->
                (check_string_max i ~max:38) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"o-[0-9a-fA-F]{8}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ObservationId" j
    let to_json = simple_to_json to_value
  end
module RdsEventCategories =
  struct
    type nonrec t = string
    let context_ = "RdsEventCategories"
    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:"RdsEventCategories" j
    let to_json = simple_to_json to_value
  end
module RdsEventMessage =
  struct
    type nonrec t = string
    let context_ = "RdsEventMessage"
    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:"RdsEventMessage" j
    let to_json = simple_to_json to_value
  end
module S3EventName =
  struct
    type nonrec t = string
    let context_ = "S3EventName"
    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:"S3EventName" j
    let to_json = simple_to_json to_value
  end
module SourceARN =
  struct
    type nonrec t = string
    let context_ = "SourceARN"
    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:"SourceARN" j
    let to_json = simple_to_json to_value
  end
module SourceType =
  struct
    type nonrec t = string
    let context_ = "SourceType"
    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:"SourceType" j
    let to_json = simple_to_json to_value
  end
module StartTime =
  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 StatesArn =
  struct
    type nonrec t = string
    let context_ = "StatesArn"
    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:"StatesArn" j
    let to_json = simple_to_json to_value
  end
module StatesExecutionArn =
  struct
    type nonrec t = string
    let context_ = "StatesExecutionArn"
    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:"StatesExecutionArn" j
    let to_json = simple_to_json to_value
  end
module StatesInput =
  struct
    type nonrec t = string
    let context_ = "StatesInput"
    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:"StatesInput" j
    let to_json = simple_to_json to_value
  end
module StatesStatus =
  struct
    type nonrec t = string
    let context_ = "StatesStatus"
    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:"StatesStatus" j
    let to_json = simple_to_json to_value
  end
module Unit =
  struct
    type nonrec t = string
    let context_ = "Unit"
    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:"Unit" j
    let to_json = simple_to_json to_value
  end
module Value =
  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 XRayErrorPercent =
  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 XRayErrorPercent" 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 XRayFaultPercent =
  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 XRayFaultPercent" 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 XRayNodeName =
  struct
    type nonrec t = string
    let context_ = "XRayNodeName"
    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:"XRayNodeName" j
    let to_json = simple_to_json to_value
  end
module XRayNodeType =
  struct
    type nonrec t = string
    let context_ = "XRayNodeType"
    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:"XRayNodeType" j
    let to_json = simple_to_json to_value
  end
module XRayRequestAverageLatency =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module XRayRequestCount =
  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 XRayRequestCount" 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 XRayThrottlePercent =
  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 XRayThrottlePercent" 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 TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        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 ComponentName =
  struct
    type nonrec t = string
    let context_ = "ComponentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?:^[\\d\\w\\-_\\.+]*$)|(?:^arn:aws(-\\w+)*:[\\w\\d-]+:([\\w\\d-]*)?:[\\w\\d_-]*([:/].+)*$)")));
        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:"ComponentName" j
    let to_json = simple_to_json to_value
  end
module MissingWorkloadConfig =
  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 Remarks =
  struct
    type nonrec t = string
    let context_ = "Remarks"
    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:"Remarks" j
    let to_json = simple_to_json to_value
  end
module WorkloadId =
  struct
    type nonrec t = string
    let context_ = "WorkloadId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:38) >>=
             (fun () ->
                (check_string_max i ~max:38) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"w-[0-9a-fA-F]{8}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WorkloadId" j
    let to_json = simple_to_json to_value
  end
module WorkloadName =
  struct
    type nonrec t = string
    let context_ = "WorkloadName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (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:"WorkloadName" 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_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"^\\d{12}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module AffectedResource =
  struct
    type nonrec t = string
    let context_ = "AffectedResource"
    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:"AffectedResource" j
    let to_json = simple_to_json to_value
  end
module Feedback =
  struct
    type nonrec t = (FeedbackKey.t * FeedbackValue.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); 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 ->
                            ((FeedbackKey.of_string chopped),
                              (FeedbackValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (FeedbackKey.to_value x) |>
                    (fun x -> (FeedbackValue.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:FeedbackKey.of_string
        ~of_json:FeedbackValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Insights =
  struct
    type nonrec t = string
    let context_ = "Insights"
    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:"Insights" j
    let to_json = simple_to_json to_value
  end
module LastRecurrenceTime =
  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 ProblemId =
  struct
    type nonrec t = string
    let context_ = "ProblemId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:38) >>=
             (fun () ->
                (check_string_max i ~max:38) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"p-[0-9a-fA-F]{8}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{4}\\-[0-9a-fA-F]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProblemId" j
    let to_json = simple_to_json to_value
  end
module RecurringCount =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ResolutionMethod =
  struct
    type nonrec t =
      | MANUAL 
      | AUTOMATIC 
      | UNRESOLVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MANUAL -> "MANUAL"
      | AUTOMATIC -> "AUTOMATIC"
      | UNRESOLVED -> "UNRESOLVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "MANUAL" -> MANUAL
      | "AUTOMATIC" -> AUTOMATIC
      | "UNRESOLVED" -> UNRESOLVED
      | 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 ResolutionMethod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResolutionMethod" j)
    let to_json = simple_to_json to_value
  end
module ResourceGroupName =
  struct
    type nonrec t = string
    let context_ = "ResourceGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"ResourceGroupName" j
    let to_json = simple_to_json to_value
  end
module SeverityLevel =
  struct
    type nonrec t =
      | Informative 
      | Low 
      | Medium 
      | High 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Informative -> "Informative"
      | Low -> "Low"
      | Medium -> "Medium"
      | High -> "High"
      | Non_static_id s -> s
    let of_string =
      function
      | "Informative" -> Informative
      | "Low" -> Low
      | "Medium" -> Medium
      | "High" -> High
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SeverityLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SeverityLevel" j)
    let to_json = simple_to_json to_value
  end
module ShortName =
  struct
    type nonrec t = string
    let context_ = "ShortName"
    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:"ShortName" j
    let to_json = simple_to_json to_value
  end
module Status =
  struct
    type nonrec t =
      | IGNORE 
      | RESOLVED 
      | PENDING 
      | RECURRING 
      | RECOVERING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IGNORE -> "IGNORE"
      | RESOLVED -> "RESOLVED"
      | PENDING -> "PENDING"
      | RECURRING -> "RECURRING"
      | RECOVERING -> "RECOVERING"
      | Non_static_id s -> s
    let of_string =
      function
      | "IGNORE" -> IGNORE
      | "RESOLVED" -> RESOLVED
      | "PENDING" -> PENDING
      | "RECURRING" -> RECURRING
      | "RECOVERING" -> RECOVERING
      | 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 Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module Title =
  struct
    type nonrec t = string
    let context_ = "Title"
    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:"Title" j
    let to_json = simple_to_json to_value
  end
module Visibility =
  struct
    type nonrec t =
      | IGNORED 
      | VISIBLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IGNORED -> "IGNORED"
      | VISIBLE -> "VISIBLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IGNORED" -> IGNORED
      | "VISIBLE" -> VISIBLE
      | 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 Visibility" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Visibility" j)
    let to_json = simple_to_json to_value
  end
module LogPatternName =
  struct
    type nonrec t = string
    let context_ = "LogPatternName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (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:"LogPatternName" j
    let to_json = simple_to_json to_value
  end
module LogPatternRank =
  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 LogPatternRank" 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 LogPatternRegex =
  struct
    type nonrec t = string
    let context_ = "LogPatternRegex"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LogPatternRegex" j
    let to_json = simple_to_json to_value
  end
module LogPatternSetName =
  struct
    type nonrec t = string
    let context_ = "LogPatternSetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (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:"LogPatternSetName" j
    let to_json = simple_to_json to_value
  end
module ConfigurationEventDetail =
  struct
    type nonrec t = string
    let context_ = "ConfigurationEventDetail"
    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:"ConfigurationEventDetail" j
    let to_json = simple_to_json to_value
  end
module ConfigurationEventMonitoredResourceARN =
  struct
    type nonrec t = string
    let context_ = "ConfigurationEventMonitoredResourceARN"
    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:"ConfigurationEventMonitoredResourceARN" j
    let to_json = simple_to_json to_value
  end
module ConfigurationEventResourceName =
  struct
    type nonrec t = string
    let context_ = "ConfigurationEventResourceName"
    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:"ConfigurationEventResourceName" j
    let to_json = simple_to_json to_value
  end
module ConfigurationEventResourceType =
  struct
    type nonrec t =
      | CLOUDWATCH_ALARM 
      | CLOUDWATCH_LOG 
      | CLOUDFORMATION 
      | SSM_ASSOCIATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CLOUDWATCH_ALARM -> "CLOUDWATCH_ALARM"
      | CLOUDWATCH_LOG -> "CLOUDWATCH_LOG"
      | CLOUDFORMATION -> "CLOUDFORMATION"
      | SSM_ASSOCIATION -> "SSM_ASSOCIATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "CLOUDWATCH_ALARM" -> CLOUDWATCH_ALARM
      | "CLOUDWATCH_LOG" -> CLOUDWATCH_LOG
      | "CLOUDFORMATION" -> CLOUDFORMATION
      | "SSM_ASSOCIATION" -> SSM_ASSOCIATION
      | 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 ConfigurationEventResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConfigurationEventResourceType" j)
    let to_json = simple_to_json to_value
  end
module ConfigurationEventStatus =
  struct
    type nonrec t =
      | INFO 
      | WARN 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INFO -> "INFO"
      | WARN -> "WARN"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "INFO" -> INFO
      | "WARN" -> WARN
      | "ERROR" -> ERROR
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ConfigurationEventStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConfigurationEventStatus" j)
    let to_json = simple_to_json to_value
  end
module ConfigurationEventTime =
  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 DetectedWorkload =
  struct
    type nonrec t = (Tier.t * WorkloadMetaData.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types Tier WorkloadMetaData"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Tier.to_value x) |>
                    (fun x ->
                       (WorkloadMetaData.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:Tier.of_string
        ~of_json:WorkloadMetaData.of_json j
    let to_json v = composed_to_json to_value v
  end
module Monitor =
  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 OsType =
  struct
    type nonrec t =
      | WINDOWS 
      | LINUX 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | WINDOWS -> "WINDOWS"
      | LINUX -> "LINUX"
      | Non_static_id s -> s
    let of_string =
      function
      | "WINDOWS" -> WINDOWS
      | "LINUX" -> LINUX
      | 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 OsType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OsType" j)
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t = string
    let context_ = "ResourceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-zA-Z:_]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceType" j
    let to_json = simple_to_json to_value
  end
module AttachMissingPermission =
  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 AutoConfigEnabled =
  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 CWEMonitorEnabled =
  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 DiscoveryType =
  struct
    type nonrec t =
      | RESOURCE_GROUP_BASED 
      | ACCOUNT_BASED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCE_GROUP_BASED -> "RESOURCE_GROUP_BASED"
      | ACCOUNT_BASED -> "ACCOUNT_BASED"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCE_GROUP_BASED" -> RESOURCE_GROUP_BASED
      | "ACCOUNT_BASED" -> ACCOUNT_BASED
      | 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 DiscoveryType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DiscoveryType" j)
    let to_json = simple_to_json to_value
  end
module LifeCycle =
  struct
    type nonrec t = string
    let context_ = "LifeCycle"
    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:"LifeCycle" j
    let to_json = simple_to_json to_value
  end
module OpsCenterEnabled =
  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 OpsItemSNSTopicArn =
  struct
    type nonrec t = string
    let context_ = "OpsItemSNSTopicArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws(-\\w+)*:[\\w\\d-]+:([\\w\\d-]*)?:[\\w\\d_-]*([:/].+)*$")));
        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:"OpsItemSNSTopicArn" j
    let to_json = simple_to_json to_value
  end
module SNSNotificationArn =
  struct
    type nonrec t = string
    let context_ = "SNSNotificationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws(-\\w+)*:[\\w\\d-]+:([\\w\\d-]*)?:[\\w\\d_-]*([:/].+)*$")));
        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:"SNSNotificationArn" j
    let to_json = simple_to_json to_value
  end
module Observation =
  struct
    type nonrec t =
      {
      id: ObservationId.t option
        [@ocaml.doc "The ID of the observation type."];
      startTime: StartTime.t option
        [@ocaml.doc
          "The time when the observation was first detected, in epoch seconds."];
      endTime: EndTime.t option
        [@ocaml.doc "The time when the observation ended, in epoch seconds."];
      sourceType: SourceType.t option
        [@ocaml.doc "The source type of the observation."];
      sourceARN: SourceARN.t option
        [@ocaml.doc "The source resource ARN of the observation."];
      logGroup: LogGroup.t option [@ocaml.doc "The log group name."];
      lineTime: LineTime.t option
        [@ocaml.doc
          "The timestamp in the CloudWatch Logs that specifies when the matched line occurred."];
      logText: LogText.t option
        [@ocaml.doc "The log text of the observation."];
      logFilter: LogFilter.t option
        [@ocaml.doc "The log filter of the observation."];
      metricNamespace: MetricNamespace.t option
        [@ocaml.doc "The namespace of the observation metric."];
      metricName: MetricName.t option
        [@ocaml.doc "The name of the observation metric."];
      unit: Unit.t option
        [@ocaml.doc "The unit of the source observation metric."];
      value: Value.t option
        [@ocaml.doc "The value of the source observation metric."];
      cloudWatchEventId: CloudWatchEventId.t option
        [@ocaml.doc
          "The ID of the CloudWatch Event-based observation related to the detected problem."];
      cloudWatchEventSource: CloudWatchEventSource.t option
        [@ocaml.doc "The source of the CloudWatch Event."];
      cloudWatchEventDetailType: CloudWatchEventDetailType.t option
        [@ocaml.doc
          "The detail type of the CloudWatch Event-based observation, for example, EC2 Instance State-change Notification."];
      healthEventArn: HealthEventArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Health Event-based observation."];
      healthService: HealthService.t option
        [@ocaml.doc
          "The service to which the Health Event belongs, such as EC2."];
      healthEventTypeCode: HealthEventTypeCode.t option
        [@ocaml.doc
          "The type of the Health event, for example, AWS_EC2_POWER_CONNECTIVITY_ISSUE."];
      healthEventTypeCategory: HealthEventTypeCategory.t option
        [@ocaml.doc "The category of the Health event, such as issue."];
      healthEventDescription: HealthEventDescription.t option
        [@ocaml.doc
          "The description of the Health event provided by the service, such as Amazon EC2."];
      codeDeployDeploymentId: CodeDeployDeploymentId.t option
        [@ocaml.doc
          "The deployment ID of the CodeDeploy-based observation related to the detected problem."];
      codeDeployDeploymentGroup: CodeDeployDeploymentGroup.t option
        [@ocaml.doc
          "The deployment group to which the CodeDeploy deployment belongs."];
      codeDeployState: CodeDeployState.t option
        [@ocaml.doc
          "The status of the CodeDeploy deployment, for example SUCCESS or FAILURE."];
      codeDeployApplication: CodeDeployApplication.t option
        [@ocaml.doc
          "The CodeDeploy application to which the deployment belongs."];
      codeDeployInstanceGroupId: CodeDeployInstanceGroupId.t option
        [@ocaml.doc
          "The instance group to which the CodeDeploy instance belongs."];
      ec2State: Ec2State.t option
        [@ocaml.doc
          "The state of the instance, such as STOPPING or TERMINATING."];
      rdsEventCategories: RdsEventCategories.t option
        [@ocaml.doc "The category of an RDS event."];
      rdsEventMessage: RdsEventMessage.t option
        [@ocaml.doc "The message of an RDS event."];
      s3EventName: S3EventName.t option
        [@ocaml.doc "The name of the S3 CloudWatch Event-based observation."];
      statesExecutionArn: StatesExecutionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the step function execution-based observation."];
      statesArn: StatesArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the step function-based observation."];
      statesStatus: StatesStatus.t option
        [@ocaml.doc "The status of the step function-related observation."];
      statesInput: StatesInput.t option
        [@ocaml.doc "The input to the step function-based observation."];
      ebsEvent: EbsEvent.t option
        [@ocaml.doc
          "The type of EBS CloudWatch event, such as createVolume, deleteVolume or attachVolume."];
      ebsResult: EbsResult.t option
        [@ocaml.doc
          "The result of an EBS CloudWatch event, such as failed or succeeded."];
      ebsCause: EbsCause.t option
        [@ocaml.doc "The cause of an EBS CloudWatch event."];
      ebsRequestId: EbsRequestId.t option
        [@ocaml.doc "The request ID of an EBS CloudWatch event."];
      xRayFaultPercent: XRayFaultPercent.t option
        [@ocaml.doc "The X-Ray request fault percentage for this node."];
      xRayThrottlePercent: XRayThrottlePercent.t option
        [@ocaml.doc "The X-Ray request throttle percentage for this node."];
      xRayErrorPercent: XRayErrorPercent.t option
        [@ocaml.doc "The X-Ray request error percentage for this node."];
      xRayRequestCount: XRayRequestCount.t option
        [@ocaml.doc "The X-Ray request count for this node."];
      xRayRequestAverageLatency: XRayRequestAverageLatency.t option
        [@ocaml.doc "The X-Ray node request average latency for this node."];
      xRayNodeName: XRayNodeName.t option
        [@ocaml.doc "The name of the X-Ray node."];
      xRayNodeType: XRayNodeType.t option
        [@ocaml.doc "The type of the X-Ray node."]}
    let make ?id =
      fun ?startTime ->
        fun ?endTime ->
          fun ?sourceType ->
            fun ?sourceARN ->
              fun ?logGroup ->
                fun ?lineTime ->
                  fun ?logText ->
                    fun ?logFilter ->
                      fun ?metricNamespace ->
                        fun ?metricName ->
                          fun ?unit ->
                            fun ?value ->
                              fun ?cloudWatchEventId ->
                                fun ?cloudWatchEventSource ->
                                  fun ?cloudWatchEventDetailType ->
                                    fun ?healthEventArn ->
                                      fun ?healthService ->
                                        fun ?healthEventTypeCode ->
                                          fun ?healthEventTypeCategory ->
                                            fun ?healthEventDescription ->
                                              fun ?codeDeployDeploymentId ->
                                                fun
                                                  ?codeDeployDeploymentGroup
                                                  ->
                                                  fun ?codeDeployState ->
                                                    fun
                                                      ?codeDeployApplication
                                                      ->
                                                      fun
                                                        ?codeDeployInstanceGroupId
                                                        ->
                                                        fun ?ec2State ->
                                                          fun
                                                            ?rdsEventCategories
                                                            ->
                                                            fun
                                                              ?rdsEventMessage
                                                              ->
                                                              fun
                                                                ?s3EventName
                                                                ->
                                                                fun
                                                                  ?statesExecutionArn
                                                                  ->
                                                                  fun
                                                                    ?statesArn
                                                                    ->
                                                                    fun
                                                                    ?statesStatus
                                                                    ->
                                                                    fun
                                                                    ?statesInput
                                                                    ->
                                                                    fun
                                                                    ?ebsEvent
                                                                    ->
                                                                    fun
                                                                    ?ebsResult
                                                                    ->
                                                                    fun
                                                                    ?ebsCause
                                                                    ->
                                                                    fun
                                                                    ?ebsRequestId
                                                                    ->
                                                                    fun
                                                                    ?xRayFaultPercent
                                                                    ->
                                                                    fun
                                                                    ?xRayThrottlePercent
                                                                    ->
                                                                    fun
                                                                    ?xRayErrorPercent
                                                                    ->
                                                                    fun
                                                                    ?xRayRequestCount
                                                                    ->
                                                                    fun
                                                                    ?xRayRequestAverageLatency
                                                                    ->
                                                                    fun
                                                                    ?xRayNodeName
                                                                    ->
                                                                    fun
                                                                    ?xRayNodeType
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    id;
                                                                    startTime;
                                                                    endTime;
                                                                    sourceType;
                                                                    sourceARN;
                                                                    logGroup;
                                                                    lineTime;
                                                                    logText;
                                                                    logFilter;
                                                                    metricNamespace;
                                                                    metricName;
                                                                    unit;
                                                                    value;
                                                                    cloudWatchEventId;
                                                                    cloudWatchEventSource;
                                                                    cloudWatchEventDetailType;
                                                                    healthEventArn;
                                                                    healthService;
                                                                    healthEventTypeCode;
                                                                    healthEventTypeCategory;
                                                                    healthEventDescription;
                                                                    codeDeployDeploymentId;
                                                                    codeDeployDeploymentGroup;
                                                                    codeDeployState;
                                                                    codeDeployApplication;
                                                                    codeDeployInstanceGroupId;
                                                                    ec2State;
                                                                    rdsEventCategories;
                                                                    rdsEventMessage;
                                                                    s3EventName;
                                                                    statesExecutionArn;
                                                                    statesArn;
                                                                    statesStatus;
                                                                    statesInput;
                                                                    ebsEvent;
                                                                    ebsResult;
                                                                    ebsCause;
                                                                    ebsRequestId;
                                                                    xRayFaultPercent;
                                                                    xRayThrottlePercent;
                                                                    xRayErrorPercent;
                                                                    xRayRequestCount;
                                                                    xRayRequestAverageLatency;
                                                                    xRayNodeName;
                                                                    xRayNodeType
                                                                    }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ObservationId.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("SourceType", (Option.map x.sourceType ~f:SourceType.to_value));
        ("SourceARN", (Option.map x.sourceARN ~f:SourceARN.to_value));
        ("LogGroup", (Option.map x.logGroup ~f:LogGroup.to_value));
        ("LineTime", (Option.map x.lineTime ~f:LineTime.to_value));
        ("LogText", (Option.map x.logText ~f:LogText.to_value));
        ("LogFilter", (Option.map x.logFilter ~f:LogFilter.to_value));
        ("MetricNamespace",
          (Option.map x.metricNamespace ~f:MetricNamespace.to_value));
        ("MetricName", (Option.map x.metricName ~f:MetricName.to_value));
        ("Unit", (Option.map x.unit ~f:Unit.to_value));
        ("Value", (Option.map x.value ~f:Value.to_value));
        ("CloudWatchEventId",
          (Option.map x.cloudWatchEventId ~f:CloudWatchEventId.to_value));
        ("CloudWatchEventSource",
          (Option.map x.cloudWatchEventSource
             ~f:CloudWatchEventSource.to_value));
        ("CloudWatchEventDetailType",
          (Option.map x.cloudWatchEventDetailType
             ~f:CloudWatchEventDetailType.to_value));
        ("HealthEventArn",
          (Option.map x.healthEventArn ~f:HealthEventArn.to_value));
        ("HealthService",
          (Option.map x.healthService ~f:HealthService.to_value));
        ("HealthEventTypeCode",
          (Option.map x.healthEventTypeCode ~f:HealthEventTypeCode.to_value));
        ("HealthEventTypeCategory",
          (Option.map x.healthEventTypeCategory
             ~f:HealthEventTypeCategory.to_value));
        ("HealthEventDescription",
          (Option.map x.healthEventDescription
             ~f:HealthEventDescription.to_value));
        ("CodeDeployDeploymentId",
          (Option.map x.codeDeployDeploymentId
             ~f:CodeDeployDeploymentId.to_value));
        ("CodeDeployDeploymentGroup",
          (Option.map x.codeDeployDeploymentGroup
             ~f:CodeDeployDeploymentGroup.to_value));
        ("CodeDeployState",
          (Option.map x.codeDeployState ~f:CodeDeployState.to_value));
        ("CodeDeployApplication",
          (Option.map x.codeDeployApplication
             ~f:CodeDeployApplication.to_value));
        ("CodeDeployInstanceGroupId",
          (Option.map x.codeDeployInstanceGroupId
             ~f:CodeDeployInstanceGroupId.to_value));
        ("Ec2State", (Option.map x.ec2State ~f:Ec2State.to_value));
        ("RdsEventCategories",
          (Option.map x.rdsEventCategories ~f:RdsEventCategories.to_value));
        ("RdsEventMessage",
          (Option.map x.rdsEventMessage ~f:RdsEventMessage.to_value));
        ("S3EventName", (Option.map x.s3EventName ~f:S3EventName.to_value));
        ("StatesExecutionArn",
          (Option.map x.statesExecutionArn ~f:StatesExecutionArn.to_value));
        ("StatesArn", (Option.map x.statesArn ~f:StatesArn.to_value));
        ("StatesStatus",
          (Option.map x.statesStatus ~f:StatesStatus.to_value));
        ("StatesInput", (Option.map x.statesInput ~f:StatesInput.to_value));
        ("EbsEvent", (Option.map x.ebsEvent ~f:EbsEvent.to_value));
        ("EbsResult", (Option.map x.ebsResult ~f:EbsResult.to_value));
        ("EbsCause", (Option.map x.ebsCause ~f:EbsCause.to_value));
        ("EbsRequestId",
          (Option.map x.ebsRequestId ~f:EbsRequestId.to_value));
        ("XRayFaultPercent",
          (Option.map x.xRayFaultPercent ~f:XRayFaultPercent.to_value));
        ("XRayThrottlePercent",
          (Option.map x.xRayThrottlePercent ~f:XRayThrottlePercent.to_value));
        ("XRayErrorPercent",
          (Option.map x.xRayErrorPercent ~f:XRayErrorPercent.to_value));
        ("XRayRequestCount",
          (Option.map x.xRayRequestCount ~f:XRayRequestCount.to_value));
        ("XRayRequestAverageLatency",
          (Option.map x.xRayRequestAverageLatency
             ~f:XRayRequestAverageLatency.to_value));
        ("XRayNodeName",
          (Option.map x.xRayNodeName ~f:XRayNodeName.to_value));
        ("XRayNodeType",
          (Option.map x.xRayNodeType ~f:XRayNodeType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let xRayNodeType =
        (Option.map ~f:XRayNodeType.of_xml)
          (Xml.child xml_arg0 "XRayNodeType") in
      let xRayNodeName =
        (Option.map ~f:XRayNodeName.of_xml)
          (Xml.child xml_arg0 "XRayNodeName") in
      let xRayRequestAverageLatency =
        (Option.map ~f:XRayRequestAverageLatency.of_xml)
          (Xml.child xml_arg0 "XRayRequestAverageLatency") in
      let xRayRequestCount =
        (Option.map ~f:XRayRequestCount.of_xml)
          (Xml.child xml_arg0 "XRayRequestCount") in
      let xRayErrorPercent =
        (Option.map ~f:XRayErrorPercent.of_xml)
          (Xml.child xml_arg0 "XRayErrorPercent") in
      let xRayThrottlePercent =
        (Option.map ~f:XRayThrottlePercent.of_xml)
          (Xml.child xml_arg0 "XRayThrottlePercent") in
      let xRayFaultPercent =
        (Option.map ~f:XRayFaultPercent.of_xml)
          (Xml.child xml_arg0 "XRayFaultPercent") in
      let ebsRequestId =
        (Option.map ~f:EbsRequestId.of_xml)
          (Xml.child xml_arg0 "EbsRequestId") in
      let ebsCause =
        (Option.map ~f:EbsCause.of_xml) (Xml.child xml_arg0 "EbsCause") in
      let ebsResult =
        (Option.map ~f:EbsResult.of_xml) (Xml.child xml_arg0 "EbsResult") in
      let ebsEvent =
        (Option.map ~f:EbsEvent.of_xml) (Xml.child xml_arg0 "EbsEvent") in
      let statesInput =
        (Option.map ~f:StatesInput.of_xml) (Xml.child xml_arg0 "StatesInput") in
      let statesStatus =
        (Option.map ~f:StatesStatus.of_xml)
          (Xml.child xml_arg0 "StatesStatus") in
      let statesArn =
        (Option.map ~f:StatesArn.of_xml) (Xml.child xml_arg0 "StatesArn") in
      let statesExecutionArn =
        (Option.map ~f:StatesExecutionArn.of_xml)
          (Xml.child xml_arg0 "StatesExecutionArn") in
      let s3EventName =
        (Option.map ~f:S3EventName.of_xml) (Xml.child xml_arg0 "S3EventName") in
      let rdsEventMessage =
        (Option.map ~f:RdsEventMessage.of_xml)
          (Xml.child xml_arg0 "RdsEventMessage") in
      let rdsEventCategories =
        (Option.map ~f:RdsEventCategories.of_xml)
          (Xml.child xml_arg0 "RdsEventCategories") in
      let ec2State =
        (Option.map ~f:Ec2State.of_xml) (Xml.child xml_arg0 "Ec2State") in
      let codeDeployInstanceGroupId =
        (Option.map ~f:CodeDeployInstanceGroupId.of_xml)
          (Xml.child xml_arg0 "CodeDeployInstanceGroupId") in
      let codeDeployApplication =
        (Option.map ~f:CodeDeployApplication.of_xml)
          (Xml.child xml_arg0 "CodeDeployApplication") in
      let codeDeployState =
        (Option.map ~f:CodeDeployState.of_xml)
          (Xml.child xml_arg0 "CodeDeployState") in
      let codeDeployDeploymentGroup =
        (Option.map ~f:CodeDeployDeploymentGroup.of_xml)
          (Xml.child xml_arg0 "CodeDeployDeploymentGroup") in
      let codeDeployDeploymentId =
        (Option.map ~f:CodeDeployDeploymentId.of_xml)
          (Xml.child xml_arg0 "CodeDeployDeploymentId") in
      let healthEventDescription =
        (Option.map ~f:HealthEventDescription.of_xml)
          (Xml.child xml_arg0 "HealthEventDescription") in
      let healthEventTypeCategory =
        (Option.map ~f:HealthEventTypeCategory.of_xml)
          (Xml.child xml_arg0 "HealthEventTypeCategory") in
      let healthEventTypeCode =
        (Option.map ~f:HealthEventTypeCode.of_xml)
          (Xml.child xml_arg0 "HealthEventTypeCode") in
      let healthService =
        (Option.map ~f:HealthService.of_xml)
          (Xml.child xml_arg0 "HealthService") in
      let healthEventArn =
        (Option.map ~f:HealthEventArn.of_xml)
          (Xml.child xml_arg0 "HealthEventArn") in
      let cloudWatchEventDetailType =
        (Option.map ~f:CloudWatchEventDetailType.of_xml)
          (Xml.child xml_arg0 "CloudWatchEventDetailType") in
      let cloudWatchEventSource =
        (Option.map ~f:CloudWatchEventSource.of_xml)
          (Xml.child xml_arg0 "CloudWatchEventSource") in
      let cloudWatchEventId =
        (Option.map ~f:CloudWatchEventId.of_xml)
          (Xml.child xml_arg0 "CloudWatchEventId") in
      let value = (Option.map ~f:Value.of_xml) (Xml.child xml_arg0 "Value") in
      let unit = (Option.map ~f:Unit.of_xml) (Xml.child xml_arg0 "Unit") in
      let metricName =
        (Option.map ~f:MetricName.of_xml) (Xml.child xml_arg0 "MetricName") in
      let metricNamespace =
        (Option.map ~f:MetricNamespace.of_xml)
          (Xml.child xml_arg0 "MetricNamespace") in
      let logFilter =
        (Option.map ~f:LogFilter.of_xml) (Xml.child xml_arg0 "LogFilter") in
      let logText =
        (Option.map ~f:LogText.of_xml) (Xml.child xml_arg0 "LogText") in
      let lineTime =
        (Option.map ~f:LineTime.of_xml) (Xml.child xml_arg0 "LineTime") in
      let logGroup =
        (Option.map ~f:LogGroup.of_xml) (Xml.child xml_arg0 "LogGroup") in
      let sourceARN =
        (Option.map ~f:SourceARN.of_xml) (Xml.child xml_arg0 "SourceARN") in
      let sourceType =
        (Option.map ~f:SourceType.of_xml) (Xml.child xml_arg0 "SourceType") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let id = (Option.map ~f:ObservationId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?xRayNodeType ?xRayNodeName ?xRayRequestAverageLatency
        ?xRayRequestCount ?xRayErrorPercent ?xRayThrottlePercent
        ?xRayFaultPercent ?ebsRequestId ?ebsCause ?ebsResult ?ebsEvent
        ?statesInput ?statesStatus ?statesArn ?statesExecutionArn
        ?s3EventName ?rdsEventMessage ?rdsEventCategories ?ec2State
        ?codeDeployInstanceGroupId ?codeDeployApplication ?codeDeployState
        ?codeDeployDeploymentGroup ?codeDeployDeploymentId
        ?healthEventDescription ?healthEventTypeCategory ?healthEventTypeCode
        ?healthService ?healthEventArn ?cloudWatchEventDetailType
        ?cloudWatchEventSource ?cloudWatchEventId ?value ?unit ?metricName
        ?metricNamespace ?logFilter ?logText ?lineTime ?logGroup ?sourceARN
        ?sourceType ?endTime ?startTime ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let xRayNodeType = field_map json__ "XRayNodeType" XRayNodeType.of_json in
      let xRayNodeName = field_map json__ "XRayNodeName" XRayNodeName.of_json in
      let xRayRequestAverageLatency =
        field_map json__ "XRayRequestAverageLatency"
          XRayRequestAverageLatency.of_json in
      let xRayRequestCount =
        field_map json__ "XRayRequestCount" XRayRequestCount.of_json in
      let xRayErrorPercent =
        field_map json__ "XRayErrorPercent" XRayErrorPercent.of_json in
      let xRayThrottlePercent =
        field_map json__ "XRayThrottlePercent" XRayThrottlePercent.of_json in
      let xRayFaultPercent =
        field_map json__ "XRayFaultPercent" XRayFaultPercent.of_json in
      let ebsRequestId = field_map json__ "EbsRequestId" EbsRequestId.of_json in
      let ebsCause = field_map json__ "EbsCause" EbsCause.of_json in
      let ebsResult = field_map json__ "EbsResult" EbsResult.of_json in
      let ebsEvent = field_map json__ "EbsEvent" EbsEvent.of_json in
      let statesInput = field_map json__ "StatesInput" StatesInput.of_json in
      let statesStatus = field_map json__ "StatesStatus" StatesStatus.of_json in
      let statesArn = field_map json__ "StatesArn" StatesArn.of_json in
      let statesExecutionArn =
        field_map json__ "StatesExecutionArn" StatesExecutionArn.of_json in
      let s3EventName = field_map json__ "S3EventName" S3EventName.of_json in
      let rdsEventMessage =
        field_map json__ "RdsEventMessage" RdsEventMessage.of_json in
      let rdsEventCategories =
        field_map json__ "RdsEventCategories" RdsEventCategories.of_json in
      let ec2State = field_map json__ "Ec2State" Ec2State.of_json in
      let codeDeployInstanceGroupId =
        field_map json__ "CodeDeployInstanceGroupId"
          CodeDeployInstanceGroupId.of_json in
      let codeDeployApplication =
        field_map json__ "CodeDeployApplication"
          CodeDeployApplication.of_json in
      let codeDeployState =
        field_map json__ "CodeDeployState" CodeDeployState.of_json in
      let codeDeployDeploymentGroup =
        field_map json__ "CodeDeployDeploymentGroup"
          CodeDeployDeploymentGroup.of_json in
      let codeDeployDeploymentId =
        field_map json__ "CodeDeployDeploymentId"
          CodeDeployDeploymentId.of_json in
      let healthEventDescription =
        field_map json__ "HealthEventDescription"
          HealthEventDescription.of_json in
      let healthEventTypeCategory =
        field_map json__ "HealthEventTypeCategory"
          HealthEventTypeCategory.of_json in
      let healthEventTypeCode =
        field_map json__ "HealthEventTypeCode" HealthEventTypeCode.of_json in
      let healthService =
        field_map json__ "HealthService" HealthService.of_json in
      let healthEventArn =
        field_map json__ "HealthEventArn" HealthEventArn.of_json in
      let cloudWatchEventDetailType =
        field_map json__ "CloudWatchEventDetailType"
          CloudWatchEventDetailType.of_json in
      let cloudWatchEventSource =
        field_map json__ "CloudWatchEventSource"
          CloudWatchEventSource.of_json in
      let cloudWatchEventId =
        field_map json__ "CloudWatchEventId" CloudWatchEventId.of_json in
      let value = field_map json__ "Value" Value.of_json in
      let unit = field_map json__ "Unit" Unit.of_json in
      let metricName = field_map json__ "MetricName" MetricName.of_json in
      let metricNamespace =
        field_map json__ "MetricNamespace" MetricNamespace.of_json in
      let logFilter = field_map json__ "LogFilter" LogFilter.of_json in
      let logText = field_map json__ "LogText" LogText.of_json in
      let lineTime = field_map json__ "LineTime" LineTime.of_json in
      let logGroup = field_map json__ "LogGroup" LogGroup.of_json in
      let sourceARN = field_map json__ "SourceARN" SourceARN.of_json in
      let sourceType = field_map json__ "SourceType" SourceType.of_json in
      let endTime = field_map json__ "EndTime" EndTime.of_json in
      let startTime = field_map json__ "StartTime" StartTime.of_json in
      let id = field_map json__ "Id" ObservationId.of_json in
      make ?xRayNodeType ?xRayNodeName ?xRayRequestAverageLatency
        ?xRayRequestCount ?xRayErrorPercent ?xRayThrottlePercent
        ?xRayFaultPercent ?ebsRequestId ?ebsCause ?ebsResult ?ebsEvent
        ?statesInput ?statesStatus ?statesArn ?statesExecutionArn
        ?s3EventName ?rdsEventMessage ?rdsEventCategories ?ec2State
        ?codeDeployInstanceGroupId ?codeDeployApplication ?codeDeployState
        ?codeDeployDeploymentGroup ?codeDeployDeploymentId
        ?healthEventDescription ?healthEventTypeCategory ?healthEventTypeCode
        ?healthService ?healthEventArn ?cloudWatchEventDetailType
        ?cloudWatchEventSource ?cloudWatchEventId ?value ?unit ?metricName
        ?metricNamespace ?logFilter ?logText ?lineTime ?logGroup ?sourceARN
        ?sourceType ?endTime ?startTime ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an anomaly or error with the application."]
module ErrorMsg =
  struct
    type nonrec t = string
    let context_ = "ErrorMsg"
    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:"ErrorMsg" j
    let to_json = simple_to_json to_value
  end
module ComponentConfiguration =
  struct
    type nonrec t = string
    let context_ = "ComponentConfiguration"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComponentConfiguration" j
    let to_json = simple_to_json to_value
  end
module ResourceARN =
  struct
    type nonrec t = string
    let context_ = "ResourceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws(-\\w+)*:[\\w\\d-]+:([\\w\\d-]*)?:[\\w\\d_-]*([:/].+)*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceARN" j
    let to_json = simple_to_json to_value
  end
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws(-\\w+)*:[\\w\\d-]+:([\\w\\d-]*)?:[\\w\\d_-]*([:/].+)*$")));
        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 ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "One part of a key-value pair that defines a tag. The maximum length of a tag key is 128 characters. The minimum length is 1 character."];
      value: TagValue.t
        [@ocaml.doc
          "The optional part of a key-value pair that defines a tag. The maximum length of a tag value is 256 characters. The minimum length is 0 characters. If you don't want an application to have a specific tag value, don't specify a value for this parameter."]}
    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
       "An object that defines the tags associated with an application. A tag is a label that you optionally define and associate with an application. Tags can help you categorize and manage resources in different ways, such as by purpose, owner, environment, or other criteria. Each tag consists of a required tag key and an associated tag value, both of which you define. A tag key is a general label that acts as a category for a more specific tag value. A tag value acts as a descriptor within a tag key. A tag key can contain as many as 128 characters. A tag value can contain as many as 256 characters. The characters can be Unicode letters, digits, white space, or one of the following symbols: _ . : / = + -. The following additional restrictions apply to tags: Tag keys and values are case sensitive. For each associated resource, each tag key must be unique and it can have only one value. The aws: prefix is reserved for use by Amazon Web Services; you can\226\128\153t use it in any tag keys or values that you define. In addition, you can't edit or remove tag keys or values that use this prefix."]
module Workload =
  struct
    type nonrec t =
      {
      workloadId: WorkloadId.t option [@ocaml.doc "The ID of the workload."];
      componentName: ComponentName.t option
        [@ocaml.doc "The name of the component."];
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      tier: Tier.t option [@ocaml.doc "The tier of the workload."];
      workloadRemarks: Remarks.t option
        [@ocaml.doc
          "If logging is supported for the resource type, shows whether the component has configured logs to be monitored."];
      missingWorkloadConfig: MissingWorkloadConfig.t option
        [@ocaml.doc
          "Indicates whether all of the component configurations required to monitor a workload were provided."]}
    let make ?workloadId =
      fun ?componentName ->
        fun ?workloadName ->
          fun ?tier ->
            fun ?workloadRemarks ->
              fun ?missingWorkloadConfig ->
                fun () ->
                  {
                    workloadId;
                    componentName;
                    workloadName;
                    tier;
                    workloadRemarks;
                    missingWorkloadConfig
                  }
    let to_value x =
      structure_to_value
        [("WorkloadId", (Option.map x.workloadId ~f:WorkloadId.to_value));
        ("ComponentName",
          (Option.map x.componentName ~f:ComponentName.to_value));
        ("WorkloadName",
          (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("Tier", (Option.map x.tier ~f:Tier.to_value));
        ("WorkloadRemarks",
          (Option.map x.workloadRemarks ~f:Remarks.to_value));
        ("MissingWorkloadConfig",
          (Option.map x.missingWorkloadConfig
             ~f:MissingWorkloadConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let missingWorkloadConfig =
        (Option.map ~f:MissingWorkloadConfig.of_xml)
          (Xml.child xml_arg0 "MissingWorkloadConfig") in
      let workloadRemarks =
        (Option.map ~f:Remarks.of_xml) (Xml.child xml_arg0 "WorkloadRemarks") in
      let tier = (Option.map ~f:Tier.of_xml) (Xml.child xml_arg0 "Tier") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "WorkloadName") in
      let componentName =
        (Option.map ~f:ComponentName.of_xml)
          (Xml.child xml_arg0 "ComponentName") in
      let workloadId =
        (Option.map ~f:WorkloadId.of_xml) (Xml.child xml_arg0 "WorkloadId") in
      make ?missingWorkloadConfig ?workloadRemarks ?tier ?workloadName
        ?componentName ?workloadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let missingWorkloadConfig =
        field_map json__ "MissingWorkloadConfig"
          MissingWorkloadConfig.of_json in
      let workloadRemarks =
        field_map json__ "WorkloadRemarks" Remarks.of_json in
      let tier = field_map json__ "Tier" Tier.of_json in
      let workloadName = field_map json__ "WorkloadName" WorkloadName.of_json in
      let componentName =
        field_map json__ "ComponentName" ComponentName.of_json in
      let workloadId = field_map json__ "WorkloadId" WorkloadId.of_json in
      make ?missingWorkloadConfig ?workloadRemarks ?tier ?workloadName
        ?componentName ?workloadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the workloads on a component."]
module Problem =
  struct
    type nonrec t =
      {
      id: ProblemId.t option [@ocaml.doc "The ID of the problem."];
      title: Title.t option [@ocaml.doc "The name of the problem."];
      shortName: ShortName.t option
        [@ocaml.doc
          "The short name of the problem associated with the SNS notification."];
      insights: Insights.t option
        [@ocaml.doc
          "A detailed analysis of the problem using machine learning."];
      status: Status.t option [@ocaml.doc "The status of the problem."];
      affectedResource: AffectedResource.t option
        [@ocaml.doc "The resource affected by the problem."];
      startTime: StartTime.t option
        [@ocaml.doc "The time when the problem started, in epoch seconds."];
      endTime: EndTime.t option
        [@ocaml.doc "The time when the problem ended, in epoch seconds."];
      severityLevel: SeverityLevel.t option
        [@ocaml.doc "A measure of the level of impact of the problem."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the resource group affected by the problem."];
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc
          "The name of the resource group affected by the problem."];
      feedback: Feedback.t option
        [@ocaml.doc "Feedback provided by the user about the problem."];
      recurringCount: RecurringCount.t option
        [@ocaml.doc
          "The number of times that the same problem reoccurred after the first time it was resolved."];
      lastRecurrenceTime: LastRecurrenceTime.t option
        [@ocaml.doc
          "The last time that the problem reoccurred after its last resolution."];
      visibility: Visibility.t option
        [@ocaml.doc
          "Specifies whether or not you can view the problem. Updates to ignored problems do not generate notifications."];
      resolutionMethod: ResolutionMethod.t option
        [@ocaml.doc
          "Specifies how the problem was resolved. If the value is AUTOMATIC, the system resolved the problem. If the value is MANUAL, the user resolved the problem. If the value is UNRESOLVED, then the problem is not resolved."]}
    let make ?id =
      fun ?title ->
        fun ?shortName ->
          fun ?insights ->
            fun ?status ->
              fun ?affectedResource ->
                fun ?startTime ->
                  fun ?endTime ->
                    fun ?severityLevel ->
                      fun ?accountId ->
                        fun ?resourceGroupName ->
                          fun ?feedback ->
                            fun ?recurringCount ->
                              fun ?lastRecurrenceTime ->
                                fun ?visibility ->
                                  fun ?resolutionMethod ->
                                    fun () ->
                                      {
                                        id;
                                        title;
                                        shortName;
                                        insights;
                                        status;
                                        affectedResource;
                                        startTime;
                                        endTime;
                                        severityLevel;
                                        accountId;
                                        resourceGroupName;
                                        feedback;
                                        recurringCount;
                                        lastRecurrenceTime;
                                        visibility;
                                        resolutionMethod
                                      }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ProblemId.to_value));
        ("Title", (Option.map x.title ~f:Title.to_value));
        ("ShortName", (Option.map x.shortName ~f:ShortName.to_value));
        ("Insights", (Option.map x.insights ~f:Insights.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("AffectedResource",
          (Option.map x.affectedResource ~f:AffectedResource.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("SeverityLevel",
          (Option.map x.severityLevel ~f:SeverityLevel.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("ResourceGroupName",
          (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("Feedback", (Option.map x.feedback ~f:Feedback.to_value));
        ("RecurringCount",
          (Option.map x.recurringCount ~f:RecurringCount.to_value));
        ("LastRecurrenceTime",
          (Option.map x.lastRecurrenceTime ~f:LastRecurrenceTime.to_value));
        ("Visibility", (Option.map x.visibility ~f:Visibility.to_value));
        ("ResolutionMethod",
          (Option.map x.resolutionMethod ~f:ResolutionMethod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolutionMethod =
        (Option.map ~f:ResolutionMethod.of_xml)
          (Xml.child xml_arg0 "ResolutionMethod") in
      let visibility =
        (Option.map ~f:Visibility.of_xml) (Xml.child xml_arg0 "Visibility") in
      let lastRecurrenceTime =
        (Option.map ~f:LastRecurrenceTime.of_xml)
          (Xml.child xml_arg0 "LastRecurrenceTime") in
      let recurringCount =
        (Option.map ~f:RecurringCount.of_xml)
          (Xml.child xml_arg0 "RecurringCount") in
      let feedback =
        (Option.map ~f:Feedback.of_xml) (Xml.child xml_arg0 "Feedback") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let severityLevel =
        (Option.map ~f:SeverityLevel.of_xml)
          (Xml.child xml_arg0 "SeverityLevel") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let affectedResource =
        (Option.map ~f:AffectedResource.of_xml)
          (Xml.child xml_arg0 "AffectedResource") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let insights =
        (Option.map ~f:Insights.of_xml) (Xml.child xml_arg0 "Insights") in
      let shortName =
        (Option.map ~f:ShortName.of_xml) (Xml.child xml_arg0 "ShortName") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "Title") in
      let id = (Option.map ~f:ProblemId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?resolutionMethod ?visibility ?lastRecurrenceTime ?recurringCount
        ?feedback ?resourceGroupName ?accountId ?severityLevel ?endTime
        ?startTime ?affectedResource ?status ?insights ?shortName ?title ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolutionMethod =
        field_map json__ "ResolutionMethod" ResolutionMethod.of_json in
      let visibility = field_map json__ "Visibility" Visibility.of_json in
      let lastRecurrenceTime =
        field_map json__ "LastRecurrenceTime" LastRecurrenceTime.of_json in
      let recurringCount =
        field_map json__ "RecurringCount" RecurringCount.of_json in
      let feedback = field_map json__ "Feedback" Feedback.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let severityLevel =
        field_map json__ "SeverityLevel" SeverityLevel.of_json in
      let endTime = field_map json__ "EndTime" EndTime.of_json in
      let startTime = field_map json__ "StartTime" StartTime.of_json in
      let affectedResource =
        field_map json__ "AffectedResource" AffectedResource.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let insights = field_map json__ "Insights" Insights.of_json in
      let shortName = field_map json__ "ShortName" ShortName.of_json in
      let title = field_map json__ "Title" Title.of_json in
      let id = field_map json__ "Id" ProblemId.of_json in
      make ?resolutionMethod ?visibility ?lastRecurrenceTime ?recurringCount
        ?feedback ?resourceGroupName ?accountId ?severityLevel ?endTime
        ?startTime ?affectedResource ?status ?insights ?shortName ?title ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a problem that is detected by correlating observations."]
module LogPattern =
  struct
    type nonrec t =
      {
      patternSetName: LogPatternSetName.t option
        [@ocaml.doc
          "The name of the log pattern. A log pattern name can contain as many as 30 characters, and it cannot be empty. The characters can be Unicode letters, digits, or one of the following symbols: period, dash, underscore."];
      patternName: LogPatternName.t option
        [@ocaml.doc
          "The name of the log pattern. A log pattern name can contain as many as 50 characters, and it cannot be empty. The characters can be Unicode letters, digits, or one of the following symbols: period, dash, underscore."];
      pattern: LogPatternRegex.t option
        [@ocaml.doc
          "A regular expression that defines the log pattern. A log pattern can contain as many as 50 characters, and it cannot be empty. The pattern must be DFA compatible. Patterns that utilize forward lookahead or backreference constructions are not supported."];
      rank: LogPatternRank.t option
        [@ocaml.doc
          "Rank of the log pattern. Must be a value between 1 and 1,000,000. The patterns are sorted by rank, so we recommend that you set your highest priority patterns with the lowest rank. A pattern of rank 1 will be the first to get matched to a log line. A pattern of rank 1,000,000 will be last to get matched. When you configure custom log patterns from the console, a Low severity pattern translates to a 750,000 rank. A Medium severity pattern translates to a 500,000 rank. And a High severity pattern translates to a 250,000 rank. Rank values less than 1 or greater than 1,000,000 are reserved for Amazon Web Services provided patterns."]}
    let make ?patternSetName =
      fun ?patternName ->
        fun ?pattern ->
          fun ?rank ->
            fun () -> { patternSetName; patternName; pattern; rank }
    let to_value x =
      structure_to_value
        [("PatternSetName",
           (Option.map x.patternSetName ~f:LogPatternSetName.to_value));
        ("PatternName",
          (Option.map x.patternName ~f:LogPatternName.to_value));
        ("Pattern", (Option.map x.pattern ~f:LogPatternRegex.to_value));
        ("Rank", (Option.map x.rank ~f:LogPatternRank.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rank =
        (Option.map ~f:LogPatternRank.of_xml) (Xml.child xml_arg0 "Rank") in
      let pattern =
        (Option.map ~f:LogPatternRegex.of_xml) (Xml.child xml_arg0 "Pattern") in
      let patternName =
        (Option.map ~f:LogPatternName.of_xml)
          (Xml.child xml_arg0 "PatternName") in
      let patternSetName =
        (Option.map ~f:LogPatternSetName.of_xml)
          (Xml.child xml_arg0 "PatternSetName") in
      make ?rank ?pattern ?patternName ?patternSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rank = field_map json__ "Rank" LogPatternRank.of_json in
      let pattern = field_map json__ "Pattern" LogPatternRegex.of_json in
      let patternName = field_map json__ "PatternName" LogPatternName.of_json in
      let patternSetName =
        field_map json__ "PatternSetName" LogPatternSetName.of_json in
      make ?rank ?pattern ?patternName ?patternSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the log patterns that belongs to a LogPatternSet."]
module ConfigurationEvent =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc
          "The name of the resource group of the application to which the configuration event belongs."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the application to which the configuration event belongs."];
      monitoredResourceARN: ConfigurationEventMonitoredResourceARN.t option
        [@ocaml.doc "The resource monitored by Application Insights."];
      eventStatus: ConfigurationEventStatus.t option
        [@ocaml.doc
          "The status of the configuration update event. Possible values include INFO, WARN, and ERROR."];
      eventResourceType: ConfigurationEventResourceType.t option
        [@ocaml.doc
          "The resource type that Application Insights attempted to configure, for example, CLOUDWATCH_ALARM."];
      eventTime: ConfigurationEventTime.t option
        [@ocaml.doc "The timestamp of the event."];
      eventDetail: ConfigurationEventDetail.t option
        [@ocaml.doc "The details of the event in plain text."];
      eventResourceName: ConfigurationEventResourceName.t option
        [@ocaml.doc
          "The name of the resource Application Insights attempted to configure."]}
    let make ?resourceGroupName =
      fun ?accountId ->
        fun ?monitoredResourceARN ->
          fun ?eventStatus ->
            fun ?eventResourceType ->
              fun ?eventTime ->
                fun ?eventDetail ->
                  fun ?eventResourceName ->
                    fun () ->
                      {
                        resourceGroupName;
                        accountId;
                        monitoredResourceARN;
                        eventStatus;
                        eventResourceType;
                        eventTime;
                        eventDetail;
                        eventResourceName
                      }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("MonitoredResourceARN",
          (Option.map x.monitoredResourceARN
             ~f:ConfigurationEventMonitoredResourceARN.to_value));
        ("EventStatus",
          (Option.map x.eventStatus ~f:ConfigurationEventStatus.to_value));
        ("EventResourceType",
          (Option.map x.eventResourceType
             ~f:ConfigurationEventResourceType.to_value));
        ("EventTime",
          (Option.map x.eventTime ~f:ConfigurationEventTime.to_value));
        ("EventDetail",
          (Option.map x.eventDetail ~f:ConfigurationEventDetail.to_value));
        ("EventResourceName",
          (Option.map x.eventResourceName
             ~f:ConfigurationEventResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventResourceName =
        (Option.map ~f:ConfigurationEventResourceName.of_xml)
          (Xml.child xml_arg0 "EventResourceName") in
      let eventDetail =
        (Option.map ~f:ConfigurationEventDetail.of_xml)
          (Xml.child xml_arg0 "EventDetail") in
      let eventTime =
        (Option.map ~f:ConfigurationEventTime.of_xml)
          (Xml.child xml_arg0 "EventTime") in
      let eventResourceType =
        (Option.map ~f:ConfigurationEventResourceType.of_xml)
          (Xml.child xml_arg0 "EventResourceType") in
      let eventStatus =
        (Option.map ~f:ConfigurationEventStatus.of_xml)
          (Xml.child xml_arg0 "EventStatus") in
      let monitoredResourceARN =
        (Option.map ~f:ConfigurationEventMonitoredResourceARN.of_xml)
          (Xml.child xml_arg0 "MonitoredResourceARN") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?eventResourceName ?eventDetail ?eventTime ?eventResourceType
        ?eventStatus ?monitoredResourceARN ?accountId ?resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventResourceName =
        field_map json__ "EventResourceName"
          ConfigurationEventResourceName.of_json in
      let eventDetail =
        field_map json__ "EventDetail" ConfigurationEventDetail.of_json in
      let eventTime =
        field_map json__ "EventTime" ConfigurationEventTime.of_json in
      let eventResourceType =
        field_map json__ "EventResourceType"
          ConfigurationEventResourceType.of_json in
      let eventStatus =
        field_map json__ "EventStatus" ConfigurationEventStatus.of_json in
      let monitoredResourceARN =
        field_map json__ "MonitoredResourceARN"
          ConfigurationEventMonitoredResourceARN.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?eventResourceName ?eventDetail ?eventTime ?eventResourceType
        ?eventStatus ?monitoredResourceARN ?accountId ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The event information."]
module ApplicationComponent =
  struct
    type nonrec t =
      {
      componentName: ComponentName.t option
        [@ocaml.doc "The name of the component."];
      componentRemarks: Remarks.t option
        [@ocaml.doc
          "If logging is supported for the resource type, indicates whether the component has configured logs to be monitored."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The resource type. Supported resource types include EC2 instances, Auto Scaling group, Classic ELB, Application ELB, and SQS Queue."];
      osType: OsType.t option
        [@ocaml.doc "The operating system of the component."];
      tier: Tier.t option
        [@ocaml.doc "The stack tier of the application component."];
      monitor: Monitor.t option
        [@ocaml.doc
          "Indicates whether the application component is monitored."];
      detectedWorkload: DetectedWorkload.t option
        [@ocaml.doc "Workloads detected in the application component."]}
    let make ?componentName =
      fun ?componentRemarks ->
        fun ?resourceType ->
          fun ?osType ->
            fun ?tier ->
              fun ?monitor ->
                fun ?detectedWorkload ->
                  fun () ->
                    {
                      componentName;
                      componentRemarks;
                      resourceType;
                      osType;
                      tier;
                      monitor;
                      detectedWorkload
                    }
    let to_value x =
      structure_to_value
        [("ComponentName",
           (Option.map x.componentName ~f:ComponentName.to_value));
        ("ComponentRemarks",
          (Option.map x.componentRemarks ~f:Remarks.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("OsType", (Option.map x.osType ~f:OsType.to_value));
        ("Tier", (Option.map x.tier ~f:Tier.to_value));
        ("Monitor", (Option.map x.monitor ~f:Monitor.to_value));
        ("DetectedWorkload",
          (Option.map x.detectedWorkload ~f:DetectedWorkload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detectedWorkload =
        (Option.map ~f:DetectedWorkload.of_xml)
          (Xml.child xml_arg0 "DetectedWorkload") in
      let monitor =
        (Option.map ~f:Monitor.of_xml) (Xml.child xml_arg0 "Monitor") in
      let tier = (Option.map ~f:Tier.of_xml) (Xml.child xml_arg0 "Tier") in
      let osType =
        (Option.map ~f:OsType.of_xml) (Xml.child xml_arg0 "OsType") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let componentRemarks =
        (Option.map ~f:Remarks.of_xml)
          (Xml.child xml_arg0 "ComponentRemarks") in
      let componentName =
        (Option.map ~f:ComponentName.of_xml)
          (Xml.child xml_arg0 "ComponentName") in
      make ?detectedWorkload ?monitor ?tier ?osType ?resourceType
        ?componentRemarks ?componentName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detectedWorkload =
        field_map json__ "DetectedWorkload" DetectedWorkload.of_json in
      let monitor = field_map json__ "Monitor" Monitor.of_json in
      let tier = field_map json__ "Tier" Tier.of_json in
      let osType = field_map json__ "OsType" OsType.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let componentRemarks =
        field_map json__ "ComponentRemarks" Remarks.of_json in
      let componentName =
        field_map json__ "ComponentName" ComponentName.of_json in
      make ?detectedWorkload ?monitor ?tier ?osType ?resourceType
        ?componentRemarks ?componentName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a standalone resource or similarly grouped resources that the application is made up of."]
module ApplicationInfo =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the application."];
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc
          "The name of the resource group used for the application."];
      lifeCycle: LifeCycle.t option
        [@ocaml.doc "The lifecycle of the application."];
      opsItemSNSTopicArn: OpsItemSNSTopicArn.t option
        [@ocaml.doc
          "The SNS topic provided to Application Insights that is associated to the created opsItems to receive SNS notifications for opsItem updates."];
      sNSNotificationArn: SNSNotificationArn.t option
        [@ocaml.doc
          "The SNS topic ARN that is associated with SNS notifications for updates or issues."];
      opsCenterEnabled: OpsCenterEnabled.t option
        [@ocaml.doc
          "Indicates whether Application Insights will create opsItems for any problem detected by Application Insights for an application."];
      cWEMonitorEnabled: CWEMonitorEnabled.t option
        [@ocaml.doc
          "Indicates whether Application Insights can listen to CloudWatch events for the application resources, such as instance terminated, failed deployment, and others."];
      remarks: Remarks.t option
        [@ocaml.doc
          "The issues on the user side that block Application Insights from successfully monitoring an application. Example remarks include: \226\128\156Configuring application, detected 1 Errors, 3 Warnings\226\128\157 \226\128\156Configuring application, detected 1 Unconfigured Components\226\128\157"];
      autoConfigEnabled: AutoConfigEnabled.t option
        [@ocaml.doc
          "Indicates whether auto-configuration is turned on for this application."];
      discoveryType: DiscoveryType.t option
        [@ocaml.doc
          "The method used by Application Insights to onboard your resources."];
      attachMissingPermission: AttachMissingPermission.t option
        [@ocaml.doc
          "If set to true, the managed policies for SSM and CW will be attached to the instance roles if they are missing."]}
    let make ?accountId =
      fun ?resourceGroupName ->
        fun ?lifeCycle ->
          fun ?opsItemSNSTopicArn ->
            fun ?sNSNotificationArn ->
              fun ?opsCenterEnabled ->
                fun ?cWEMonitorEnabled ->
                  fun ?remarks ->
                    fun ?autoConfigEnabled ->
                      fun ?discoveryType ->
                        fun ?attachMissingPermission ->
                          fun () ->
                            {
                              accountId;
                              resourceGroupName;
                              lifeCycle;
                              opsItemSNSTopicArn;
                              sNSNotificationArn;
                              opsCenterEnabled;
                              cWEMonitorEnabled;
                              remarks;
                              autoConfigEnabled;
                              discoveryType;
                              attachMissingPermission
                            }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("ResourceGroupName",
          (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("LifeCycle", (Option.map x.lifeCycle ~f:LifeCycle.to_value));
        ("OpsItemSNSTopicArn",
          (Option.map x.opsItemSNSTopicArn ~f:OpsItemSNSTopicArn.to_value));
        ("SNSNotificationArn",
          (Option.map x.sNSNotificationArn ~f:SNSNotificationArn.to_value));
        ("OpsCenterEnabled",
          (Option.map x.opsCenterEnabled ~f:OpsCenterEnabled.to_value));
        ("CWEMonitorEnabled",
          (Option.map x.cWEMonitorEnabled ~f:CWEMonitorEnabled.to_value));
        ("Remarks", (Option.map x.remarks ~f:Remarks.to_value));
        ("AutoConfigEnabled",
          (Option.map x.autoConfigEnabled ~f:AutoConfigEnabled.to_value));
        ("DiscoveryType",
          (Option.map x.discoveryType ~f:DiscoveryType.to_value));
        ("AttachMissingPermission",
          (Option.map x.attachMissingPermission
             ~f:AttachMissingPermission.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachMissingPermission =
        (Option.map ~f:AttachMissingPermission.of_xml)
          (Xml.child xml_arg0 "AttachMissingPermission") in
      let discoveryType =
        (Option.map ~f:DiscoveryType.of_xml)
          (Xml.child xml_arg0 "DiscoveryType") in
      let autoConfigEnabled =
        (Option.map ~f:AutoConfigEnabled.of_xml)
          (Xml.child xml_arg0 "AutoConfigEnabled") in
      let remarks =
        (Option.map ~f:Remarks.of_xml) (Xml.child xml_arg0 "Remarks") in
      let cWEMonitorEnabled =
        (Option.map ~f:CWEMonitorEnabled.of_xml)
          (Xml.child xml_arg0 "CWEMonitorEnabled") in
      let opsCenterEnabled =
        (Option.map ~f:OpsCenterEnabled.of_xml)
          (Xml.child xml_arg0 "OpsCenterEnabled") in
      let sNSNotificationArn =
        (Option.map ~f:SNSNotificationArn.of_xml)
          (Xml.child xml_arg0 "SNSNotificationArn") in
      let opsItemSNSTopicArn =
        (Option.map ~f:OpsItemSNSTopicArn.of_xml)
          (Xml.child xml_arg0 "OpsItemSNSTopicArn") in
      let lifeCycle =
        (Option.map ~f:LifeCycle.of_xml) (Xml.child xml_arg0 "LifeCycle") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      make ?attachMissingPermission ?discoveryType ?autoConfigEnabled
        ?remarks ?cWEMonitorEnabled ?opsCenterEnabled ?sNSNotificationArn
        ?opsItemSNSTopicArn ?lifeCycle ?resourceGroupName ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachMissingPermission =
        field_map json__ "AttachMissingPermission"
          AttachMissingPermission.of_json in
      let discoveryType =
        field_map json__ "DiscoveryType" DiscoveryType.of_json in
      let autoConfigEnabled =
        field_map json__ "AutoConfigEnabled" AutoConfigEnabled.of_json in
      let remarks = field_map json__ "Remarks" Remarks.of_json in
      let cWEMonitorEnabled =
        field_map json__ "CWEMonitorEnabled" CWEMonitorEnabled.of_json in
      let opsCenterEnabled =
        field_map json__ "OpsCenterEnabled" OpsCenterEnabled.of_json in
      let sNSNotificationArn =
        field_map json__ "SNSNotificationArn" SNSNotificationArn.of_json in
      let opsItemSNSTopicArn =
        field_map json__ "OpsItemSNSTopicArn" OpsItemSNSTopicArn.of_json in
      let lifeCycle = field_map json__ "LifeCycle" LifeCycle.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      make ?attachMissingPermission ?discoveryType ?autoConfigEnabled
        ?remarks ?cWEMonitorEnabled ?opsCenterEnabled ?sNSNotificationArn
        ?opsItemSNSTopicArn ?lifeCycle ?resourceGroupName ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the status of the application."]
module ObservationList =
  struct
    type nonrec t = Observation.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:Observation.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:Observation.of_xml)
    let of_json j =
      list_of_json ~kind:"ObservationList" ~of_json:Observation.of_json j
    let to_json v = composed_to_json to_value v
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: ErrorMsg.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMsg.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMsg.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" ErrorMsg.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The server encountered an internal error and is unable to complete the request."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMsg.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMsg.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMsg.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" ErrorMsg.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource does not exist in the customer account."]
module ValidationException =
  struct
    type nonrec t = {
      message: ErrorMsg.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMsg.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMsg.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" ErrorMsg.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The parameter is not valid."]
module WorkloadConfiguration =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      tier: Tier.t option
        [@ocaml.doc "The configuration of the workload tier."];
      configuration: ComponentConfiguration.t option
        [@ocaml.doc "The configuration settings of the workload."]}
    let make ?workloadName =
      fun ?tier ->
        fun ?configuration -> fun () -> { workloadName; tier; configuration }
    let to_value x =
      structure_to_value
        [("WorkloadName",
           (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("Tier", (Option.map x.tier ~f:Tier.to_value));
        ("Configuration",
          (Option.map x.configuration ~f:ComponentConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:ComponentConfiguration.of_xml)
          (Xml.child xml_arg0 "Configuration") in
      let tier = (Option.map ~f:Tier.of_xml) (Xml.child xml_arg0 "Tier") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "WorkloadName") in
      make ?configuration ?tier ?workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "Configuration" ComponentConfiguration.of_json in
      let tier = field_map json__ "Tier" Tier.of_json in
      let workloadName = field_map json__ "WorkloadName" WorkloadName.of_json in
      make ?configuration ?tier ?workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration of the workload."]
module UpdateStatus =
  struct
    type nonrec t =
      | RESOLVED 
      | Non_static_id of string 
    let make i = i
    let to_string = function | RESOLVED -> "RESOLVED" | Non_static_id s -> s
    let of_string = function | "RESOLVED" -> RESOLVED | 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 UpdateStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceInUseException =
  struct
    type nonrec t = {
      message: ErrorMsg.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMsg.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMsg.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" ErrorMsg.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource is already created or in use."]
module CustomComponentName =
  struct
    type nonrec t = string
    let context_ = "CustomComponentName"
    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:"^[\\d\\w\\-_\\.+]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomComponentName" j
    let to_json = simple_to_json to_value
  end
module ResourceList =
  struct
    type nonrec t = ResourceARN.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:ResourceARN.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:ResourceARN.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceList" ~of_json:ResourceARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module RemoveSNSTopic =
  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 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 TooManyTagsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      resourceName: AmazonResourceName.t option
        [@ocaml.doc "The name of the resource with too many tags."]}
    let make ?message =
      fun ?resourceName -> fun () -> { message; resourceName }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("ResourceName",
          (Option.map x.resourceName ~f:AmazonResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceName =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceName") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?resourceName ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceName =
        field_map json__ "ResourceName" AmazonResourceName.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?resourceName ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of the provided tags is beyond the limit, or the number of total tags you are trying to attach to the specified resource exceeds the limit."]
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 PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    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:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module WorkloadList =
  struct
    type nonrec t = Workload.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:Workload.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:Workload.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkloadList" ~of_json:Workload.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxEntities =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:40) >>= (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 MaxEntities" 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 ProblemList =
  struct
    type nonrec t = Problem.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:Problem.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:Problem.of_xml)
    let of_json j =
      list_of_json ~kind:"ProblemList" ~of_json:Problem.of_json j
    let to_json v = composed_to_json to_value v
  end
module LogPatternList =
  struct
    type nonrec t = LogPattern.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:LogPattern.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:LogPattern.of_xml)
    let of_json j =
      list_of_json ~kind:"LogPatternList" ~of_json:LogPattern.of_json j
    let to_json v = composed_to_json to_value v
  end
module LogPatternSetList =
  struct
    type nonrec t = LogPatternSetName.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:LogPatternSetName.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:LogPatternSetName.of_xml)
    let of_json j =
      list_of_json ~kind:"LogPatternSetList"
        ~of_json:LogPatternSetName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationEventList =
  struct
    type nonrec t = ConfigurationEvent.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:ConfigurationEvent.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:ConfigurationEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationEventList"
        ~of_json:ConfigurationEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationComponentList =
  struct
    type nonrec t = ApplicationComponent.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:ApplicationComponent.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:ApplicationComponent.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationComponentList"
        ~of_json:ApplicationComponent.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationInfoList =
  struct
    type nonrec t = ApplicationInfo.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:ApplicationInfo.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:ApplicationInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationInfoList"
        ~of_json:ApplicationInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module RelatedObservations =
  struct
    type nonrec t =
      {
      observationList: ObservationList.t option
        [@ocaml.doc "The list of observations related to the problem."]}
    let make ?observationList = fun () -> { observationList }
    let to_value x =
      structure_to_value
        [("ObservationList",
           (Option.map x.observationList ~f:ObservationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let observationList =
        (Option.map ~f:ObservationList.of_xml)
          (Xml.child xml_arg0 "ObservationList") in
      make ?observationList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let observationList =
        field_map json__ "ObservationList" ObservationList.of_json in
      make ?observationList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes observations related to the problem."]
module RecommendationType =
  struct
    type nonrec t =
      | INFRA_ONLY 
      | WORKLOAD_ONLY 
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INFRA_ONLY -> "INFRA_ONLY"
      | WORKLOAD_ONLY -> "WORKLOAD_ONLY"
      | ALL -> "ALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "INFRA_ONLY" -> INFRA_ONLY
      | "WORKLOAD_ONLY" -> WORKLOAD_ONLY
      | "ALL" -> ALL
      | 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 RecommendationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RecommendationType" j)
    let to_json = simple_to_json to_value
  end
module BadRequestException =
  struct
    type nonrec t = {
      message: ErrorMsg.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMsg.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMsg.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" ErrorMsg.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request is not understood by the server."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMsg.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMsg.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMsg.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" ErrorMsg.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "User does not have permissions to perform this action."]
module TagsAlreadyExistException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tags are already registered for the specified application ARN."]
module AutoCreate =
  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 GroupingType =
  struct
    type nonrec t =
      | ACCOUNT_BASED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ACCOUNT_BASED -> "ACCOUNT_BASED" | Non_static_id s -> s
    let of_string =
      function | "ACCOUNT_BASED" -> ACCOUNT_BASED | 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 GroupingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GroupingType" j)
    let to_json = simple_to_json to_value
  end
module UpdateWorkloadResponse =
  struct
    type nonrec t =
      {
      workloadId: WorkloadId.t option [@ocaml.doc "The ID of the workload."];
      workloadConfiguration: WorkloadConfiguration.t option
        [@ocaml.doc
          "The configuration settings of the workload. The value is the escaped JSON of the configuration."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloadId =
      fun ?workloadConfiguration ->
        fun () -> { workloadId; workloadConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkloadId", (Option.map x.workloadId ~f:WorkloadId.to_value));
        ("WorkloadConfiguration",
          (Option.map x.workloadConfiguration
             ~f:WorkloadConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadConfiguration =
        (Option.map ~f:WorkloadConfiguration.of_xml)
          (Xml.child xml_arg0 "WorkloadConfiguration") in
      let workloadId =
        (Option.map ~f:WorkloadId.of_xml) (Xml.child xml_arg0 "WorkloadId") in
      make ?workloadConfiguration ?workloadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadConfiguration =
        field_map json__ "WorkloadConfiguration"
          WorkloadConfiguration.of_json in
      let workloadId = field_map json__ "WorkloadId" WorkloadId.of_json in
      make ?workloadConfiguration ?workloadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a workload to a component. Each component can have at most five workloads."]
module UpdateWorkloadRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      workloadId: WorkloadId.t option [@ocaml.doc "The ID of the workload."];
      workloadConfiguration: WorkloadConfiguration.t
        [@ocaml.doc
          "The configuration settings of the workload. The value is the escaped JSON of the configuration."]}
    let context_ = "UpdateWorkloadRequest"
    let make ?workloadId =
      fun ~resourceGroupName ->
        fun ~componentName ->
          fun ~workloadConfiguration ->
            fun () ->
              {
                workloadId;
                resourceGroupName;
                componentName;
                workloadConfiguration
              }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("WorkloadId", (Option.map x.workloadId ~f:WorkloadId.to_value));
        ("WorkloadConfiguration",
          (Some (WorkloadConfiguration.to_value x.workloadConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadConfiguration =
        WorkloadConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkloadConfiguration") in
      let workloadId =
        (Option.map ~f:WorkloadId.of_xml) (Xml.child xml_arg0 "WorkloadId") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~workloadConfiguration ?workloadId ~componentName
        ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadConfiguration =
        field_map_exn json__ "WorkloadConfiguration"
          WorkloadConfiguration.of_json in
      let workloadId = field_map json__ "WorkloadId" WorkloadId.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~workloadConfiguration ?workloadId ~componentName
        ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a workload to a component. Each component can have at most five workloads."]
module UpdateProblemResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the visibility of the problem or specifies the problem as RESOLVED."]
module UpdateProblemRequest =
  struct
    type nonrec t =
      {
      problemId: ProblemId.t [@ocaml.doc "The ID of the problem."];
      updateStatus: UpdateStatus.t option
        [@ocaml.doc
          "The status of the problem. Arguments can be passed for only problems that show a status of RECOVERING."];
      visibility: Visibility.t option
        [@ocaml.doc
          "The visibility of a problem. When you pass a value of IGNORED, the problem is removed from the default view, and all notifications for the problem are suspended. When VISIBLE is passed, the IGNORED action is reversed."]}
    let context_ = "UpdateProblemRequest"
    let make ?updateStatus =
      fun ?visibility ->
        fun ~problemId -> fun () -> { updateStatus; visibility; problemId }
    let to_value x =
      structure_to_value
        [("ProblemId", (Some (ProblemId.to_value x.problemId)));
        ("UpdateStatus",
          (Option.map x.updateStatus ~f:UpdateStatus.to_value));
        ("Visibility", (Option.map x.visibility ~f:Visibility.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visibility =
        (Option.map ~f:Visibility.of_xml) (Xml.child xml_arg0 "Visibility") in
      let updateStatus =
        (Option.map ~f:UpdateStatus.of_xml)
          (Xml.child xml_arg0 "UpdateStatus") in
      let problemId =
        ProblemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProblemId") in
      make ?visibility ?updateStatus ~problemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visibility = field_map json__ "Visibility" Visibility.of_json in
      let updateStatus = field_map json__ "UpdateStatus" UpdateStatus.of_json in
      let problemId = field_map_exn json__ "ProblemId" ProblemId.of_json in
      make ?visibility ?updateStatus ~problemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the visibility of the problem or specifies the problem as RESOLVED."]
module UpdateLogPatternResponse =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      logPattern: LogPattern.t option
        [@ocaml.doc "The successfully created log pattern."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceGroupName =
      fun ?logPattern -> fun () -> { resourceGroupName; logPattern }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("LogPattern", (Option.map x.logPattern ~f:LogPattern.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logPattern =
        (Option.map ~f:LogPattern.of_xml) (Xml.child xml_arg0 "LogPattern") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?logPattern ?resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logPattern = field_map json__ "LogPattern" LogPattern.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?logPattern ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a log pattern to a LogPatternSet."]
module UpdateLogPatternRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      patternSetName: LogPatternSetName.t
        [@ocaml.doc "The name of the log pattern set."];
      patternName: LogPatternName.t
        [@ocaml.doc "The name of the log pattern."];
      pattern: LogPatternRegex.t option
        [@ocaml.doc
          "The log pattern. The pattern must be DFA compatible. Patterns that utilize forward lookahead or backreference constructions are not supported."];
      rank: LogPatternRank.t option
        [@ocaml.doc
          "Rank of the log pattern. Must be a value between 1 and 1,000,000. The patterns are sorted by rank, so we recommend that you set your highest priority patterns with the lowest rank. A pattern of rank 1 will be the first to get matched to a log line. A pattern of rank 1,000,000 will be last to get matched. When you configure custom log patterns from the console, a Low severity pattern translates to a 750,000 rank. A Medium severity pattern translates to a 500,000 rank. And a High severity pattern translates to a 250,000 rank. Rank values less than 1 or greater than 1,000,000 are reserved for Amazon Web Services provided patterns."]}
    let context_ = "UpdateLogPatternRequest"
    let make ?pattern =
      fun ?rank ->
        fun ~resourceGroupName ->
          fun ~patternSetName ->
            fun ~patternName ->
              fun () ->
                {
                  pattern;
                  rank;
                  resourceGroupName;
                  patternSetName;
                  patternName
                }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("PatternSetName",
          (Some (LogPatternSetName.to_value x.patternSetName)));
        ("PatternName", (Some (LogPatternName.to_value x.patternName)));
        ("Pattern", (Option.map x.pattern ~f:LogPatternRegex.to_value));
        ("Rank", (Option.map x.rank ~f:LogPatternRank.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rank =
        (Option.map ~f:LogPatternRank.of_xml) (Xml.child xml_arg0 "Rank") in
      let pattern =
        (Option.map ~f:LogPatternRegex.of_xml) (Xml.child xml_arg0 "Pattern") in
      let patternName =
        LogPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternName") in
      let patternSetName =
        LogPatternSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternSetName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?rank ?pattern ~patternName ~patternSetName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rank = field_map json__ "Rank" LogPatternRank.of_json in
      let pattern = field_map json__ "Pattern" LogPatternRegex.of_json in
      let patternName =
        field_map_exn json__ "PatternName" LogPatternName.of_json in
      let patternSetName =
        field_map_exn json__ "PatternSetName" LogPatternSetName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?rank ?pattern ~patternName ~patternSetName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a log pattern to a LogPatternSet."]
module UpdateComponentResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the custom component name and/or the list of resources that make up the component."]
module UpdateComponentRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: CustomComponentName.t
        [@ocaml.doc "The name of the component."];
      newComponentName: CustomComponentName.t option
        [@ocaml.doc "The new name of the component."];
      resourceList: ResourceList.t option
        [@ocaml.doc
          "The list of resource ARNs that belong to the component."]}
    let context_ = "UpdateComponentRequest"
    let make ?newComponentName =
      fun ?resourceList ->
        fun ~resourceGroupName ->
          fun ~componentName ->
            fun () ->
              {
                newComponentName;
                resourceList;
                resourceGroupName;
                componentName
              }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName",
          (Some (CustomComponentName.to_value x.componentName)));
        ("NewComponentName",
          (Option.map x.newComponentName ~f:CustomComponentName.to_value));
        ("ResourceList",
          (Option.map x.resourceList ~f:ResourceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceList =
        (Option.map ~f:ResourceList.of_xml)
          (Xml.child xml_arg0 "ResourceList") in
      let newComponentName =
        (Option.map ~f:CustomComponentName.of_xml)
          (Xml.child xml_arg0 "NewComponentName") in
      let componentName =
        CustomComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?resourceList ?newComponentName ~componentName ~resourceGroupName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceList = field_map json__ "ResourceList" ResourceList.of_json in
      let newComponentName =
        field_map json__ "NewComponentName" CustomComponentName.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" CustomComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?resourceList ?newComponentName ~componentName ~resourceGroupName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the custom component name and/or the list of resources that make up the component."]
module UpdateComponentConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the monitoring configurations for the component. The configuration input parameter is an escaped JSON of the configuration and should match the schema of what is returned by DescribeComponentConfigurationRecommendation."]
module UpdateComponentConfigurationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      monitor: Monitor.t option
        [@ocaml.doc
          "Indicates whether the application component is monitored."];
      tier: Tier.t option
        [@ocaml.doc "The tier of the application component."];
      componentConfiguration: ComponentConfiguration.t option
        [@ocaml.doc
          "The configuration settings of the component. The value is the escaped JSON of the configuration. For more information about the JSON format, see Working with JSON. You can send a request to DescribeComponentConfigurationRecommendation to see the recommended configuration for a component. For the complete format of the component configuration file, see Component Configuration."];
      autoConfigEnabled: AutoConfigEnabled.t option
        [@ocaml.doc
          "Automatically configures the component by applying the recommended configurations."]}
    let context_ = "UpdateComponentConfigurationRequest"
    let make ?monitor =
      fun ?tier ->
        fun ?componentConfiguration ->
          fun ?autoConfigEnabled ->
            fun ~resourceGroupName ->
              fun ~componentName ->
                fun () ->
                  {
                    monitor;
                    tier;
                    componentConfiguration;
                    autoConfigEnabled;
                    resourceGroupName;
                    componentName
                  }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("Monitor", (Option.map x.monitor ~f:Monitor.to_value));
        ("Tier", (Option.map x.tier ~f:Tier.to_value));
        ("ComponentConfiguration",
          (Option.map x.componentConfiguration
             ~f:ComponentConfiguration.to_value));
        ("AutoConfigEnabled",
          (Option.map x.autoConfigEnabled ~f:AutoConfigEnabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoConfigEnabled =
        (Option.map ~f:AutoConfigEnabled.of_xml)
          (Xml.child xml_arg0 "AutoConfigEnabled") in
      let componentConfiguration =
        (Option.map ~f:ComponentConfiguration.of_xml)
          (Xml.child xml_arg0 "ComponentConfiguration") in
      let tier = (Option.map ~f:Tier.of_xml) (Xml.child xml_arg0 "Tier") in
      let monitor =
        (Option.map ~f:Monitor.of_xml) (Xml.child xml_arg0 "Monitor") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?autoConfigEnabled ?componentConfiguration ?tier ?monitor
        ~componentName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoConfigEnabled =
        field_map json__ "AutoConfigEnabled" AutoConfigEnabled.of_json in
      let componentConfiguration =
        field_map json__ "ComponentConfiguration"
          ComponentConfiguration.of_json in
      let tier = field_map json__ "Tier" Tier.of_json in
      let monitor = field_map json__ "Monitor" Monitor.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?autoConfigEnabled ?componentConfiguration ?tier ?monitor
        ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the monitoring configurations for the component. The configuration input parameter is an escaped JSON of the configuration and should match the schema of what is returned by DescribeComponentConfigurationRecommendation."]
module UpdateApplicationResponse =
  struct
    type nonrec t =
      {
      applicationInfo: ApplicationInfo.t option
        [@ocaml.doc "Information about the application."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationInfo = fun () -> { applicationInfo }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ApplicationInfo",
           (Option.map x.applicationInfo ~f:ApplicationInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationInfo =
        (Option.map ~f:ApplicationInfo.of_xml)
          (Xml.child xml_arg0 "ApplicationInfo") in
      make ?applicationInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationInfo =
        field_map json__ "ApplicationInfo" ApplicationInfo.of_json in
      make ?applicationInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the application."]
module UpdateApplicationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      opsCenterEnabled: OpsCenterEnabled.t option
        [@ocaml.doc
          "When set to true, creates opsItems for any problems detected on an application."];
      cWEMonitorEnabled: CWEMonitorEnabled.t option
        [@ocaml.doc
          "Indicates whether Application Insights can listen to CloudWatch events for the application resources, such as instance terminated, failed deployment, and others."];
      opsItemSNSTopicArn: OpsItemSNSTopicArn.t option
        [@ocaml.doc
          "The SNS topic provided to Application Insights that is associated to the created opsItem. Allows you to receive notifications for updates to the opsItem."];
      sNSNotificationArn: SNSNotificationArn.t option
        [@ocaml.doc
          "The SNS topic ARN. Allows you to receive SNS notifications for updates and issues with an application."];
      removeSNSTopic: RemoveSNSTopic.t option
        [@ocaml.doc
          "Disassociates the SNS topic from the opsItem created for detected problems."];
      autoConfigEnabled: AutoConfigEnabled.t option
        [@ocaml.doc "Turns auto-configuration on or off."];
      attachMissingPermission: AttachMissingPermission.t option
        [@ocaml.doc
          "If set to true, the managed policies for SSM and CW will be attached to the instance roles if they are missing."]}
    let context_ = "UpdateApplicationRequest"
    let make ?opsCenterEnabled =
      fun ?cWEMonitorEnabled ->
        fun ?opsItemSNSTopicArn ->
          fun ?sNSNotificationArn ->
            fun ?removeSNSTopic ->
              fun ?autoConfigEnabled ->
                fun ?attachMissingPermission ->
                  fun ~resourceGroupName ->
                    fun () ->
                      {
                        opsCenterEnabled;
                        cWEMonitorEnabled;
                        opsItemSNSTopicArn;
                        sNSNotificationArn;
                        removeSNSTopic;
                        autoConfigEnabled;
                        attachMissingPermission;
                        resourceGroupName
                      }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("OpsCenterEnabled",
          (Option.map x.opsCenterEnabled ~f:OpsCenterEnabled.to_value));
        ("CWEMonitorEnabled",
          (Option.map x.cWEMonitorEnabled ~f:CWEMonitorEnabled.to_value));
        ("OpsItemSNSTopicArn",
          (Option.map x.opsItemSNSTopicArn ~f:OpsItemSNSTopicArn.to_value));
        ("SNSNotificationArn",
          (Option.map x.sNSNotificationArn ~f:SNSNotificationArn.to_value));
        ("RemoveSNSTopic",
          (Option.map x.removeSNSTopic ~f:RemoveSNSTopic.to_value));
        ("AutoConfigEnabled",
          (Option.map x.autoConfigEnabled ~f:AutoConfigEnabled.to_value));
        ("AttachMissingPermission",
          (Option.map x.attachMissingPermission
             ~f:AttachMissingPermission.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachMissingPermission =
        (Option.map ~f:AttachMissingPermission.of_xml)
          (Xml.child xml_arg0 "AttachMissingPermission") in
      let autoConfigEnabled =
        (Option.map ~f:AutoConfigEnabled.of_xml)
          (Xml.child xml_arg0 "AutoConfigEnabled") in
      let removeSNSTopic =
        (Option.map ~f:RemoveSNSTopic.of_xml)
          (Xml.child xml_arg0 "RemoveSNSTopic") in
      let sNSNotificationArn =
        (Option.map ~f:SNSNotificationArn.of_xml)
          (Xml.child xml_arg0 "SNSNotificationArn") in
      let opsItemSNSTopicArn =
        (Option.map ~f:OpsItemSNSTopicArn.of_xml)
          (Xml.child xml_arg0 "OpsItemSNSTopicArn") in
      let cWEMonitorEnabled =
        (Option.map ~f:CWEMonitorEnabled.of_xml)
          (Xml.child xml_arg0 "CWEMonitorEnabled") in
      let opsCenterEnabled =
        (Option.map ~f:OpsCenterEnabled.of_xml)
          (Xml.child xml_arg0 "OpsCenterEnabled") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?attachMissingPermission ?autoConfigEnabled ?removeSNSTopic
        ?sNSNotificationArn ?opsItemSNSTopicArn ?cWEMonitorEnabled
        ?opsCenterEnabled ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachMissingPermission =
        field_map json__ "AttachMissingPermission"
          AttachMissingPermission.of_json in
      let autoConfigEnabled =
        field_map json__ "AutoConfigEnabled" AutoConfigEnabled.of_json in
      let removeSNSTopic =
        field_map json__ "RemoveSNSTopic" RemoveSNSTopic.of_json in
      let sNSNotificationArn =
        field_map json__ "SNSNotificationArn" SNSNotificationArn.of_json in
      let opsItemSNSTopicArn =
        field_map json__ "OpsItemSNSTopicArn" OpsItemSNSTopicArn.of_json in
      let cWEMonitorEnabled =
        field_map json__ "CWEMonitorEnabled" CWEMonitorEnabled.of_json in
      let opsCenterEnabled =
        field_map json__ "OpsCenterEnabled" OpsCenterEnabled.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?attachMissingPermission ?autoConfigEnabled ?removeSNSTopic
        ?sNSNotificationArn ?opsItemSNSTopicArn ?cWEMonitorEnabled
        ?opsCenterEnabled ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the application."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove one or more tags (keys and values) from a specified application."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the application that you want to remove one or more tags from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The tags (tag keys) that you want to remove from the resource. When you specify a tag key, the action removes both that key and its associated tag value. To remove more than one tag from the application, append the TagKeys parameter and argument for each additional tag to remove, separated by an ampersand."]}
    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
       "Remove one or more tags (keys and values) from a specified application."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyTagsException of TooManyTagsException.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)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.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)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.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))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.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
       "Add one or more tags (keys and values) to a specified application. A tag is a label that you optionally define and associate with an application. Tags can help you categorize and manage application in different ways, such as by purpose, owner, environment, or other criteria. Each tag consists of a required tag key and an associated tag value, both of which you define. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the application that you want to add one or more tags to."];
      tags: TagList.t
        [@ocaml.doc
          "A list of tags that to add to the application. A tag consists of a required tag key (Key) and an associated tag value (Value). The maximum length of a tag key is 128 characters. The maximum length of a tag value is 256 characters."]}
    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
       "Add one or more tags (keys and values) to a specified application. A tag is a label that you optionally define and associate with an application. Tags can help you categorize and manage application in different ways, such as by purpose, owner, environment, or other criteria. Each tag consists of a required tag key and an associated tag value, both of which you define. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module RemoveWorkloadResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Remove workload from a component."]
module RemoveWorkloadRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      workloadId: WorkloadId.t [@ocaml.doc "The ID of the workload."]}
    let context_ = "RemoveWorkloadRequest"
    let make ~resourceGroupName =
      fun ~componentName ->
        fun ~workloadId ->
          fun () -> { resourceGroupName; componentName; workloadId }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("WorkloadId", (Some (WorkloadId.to_value x.workloadId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadId =
        WorkloadId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkloadId") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~workloadId ~componentName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadId = field_map_exn json__ "WorkloadId" WorkloadId.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~workloadId ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Remove workload from a component."]
module ListWorkloadsResponse =
  struct
    type nonrec t =
      {
      workloadList: WorkloadList.t option
        [@ocaml.doc "The list of workloads."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloadList =
      fun ?nextToken -> fun () -> { workloadList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkloadList",
           (Option.map x.workloadList ~f:WorkloadList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let workloadList =
        (Option.map ~f:WorkloadList.of_xml)
          (Xml.child xml_arg0 "WorkloadList") in
      make ?nextToken ?workloadList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let workloadList = field_map json__ "WorkloadList" WorkloadList.of_json in
      make ?nextToken ?workloadList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the workloads that are configured on a given component."]
module ListWorkloadsRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the owner of the workload."]}
    let context_ = "ListWorkloadsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?accountId ->
          fun ~resourceGroupName ->
            fun ~componentName ->
              fun () ->
                {
                  maxResults;
                  nextToken;
                  accountId;
                  resourceGroupName;
                  componentName
                }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ?nextToken ?maxResults ~componentName
        ~resourceGroupName ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ?nextToken ?maxResults ~componentName
        ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the workloads that are configured on a given component."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "An array that lists all the tags that are associated with the application. Each tag consists of a required tag key (Key) and an associated tag value (Value)."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f: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
       "Retrieve a list of the tags (keys and values) that are associated with a specified application. A tag is a label that you optionally define and associate with an application. Each tag consists of a required tag key and an optional associated tag value. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the application that you want to retrieve tag information for."]}
    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
       "Retrieve a list of the tags (keys and values) that are associated with a specified application. A tag is a label that you optionally define and associate with an application. Each tag consists of a required tag key and an optional associated tag value. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module ListProblemsResponse =
  struct
    type nonrec t =
      {
      problemList: ProblemList.t option [@ocaml.doc "The list of problems."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token used to retrieve the next page of results. This value is null when there are no more results to return."];
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?problemList =
      fun ?nextToken ->
        fun ?resourceGroupName ->
          fun ?accountId ->
            fun () ->
              { problemList; nextToken; resourceGroupName; accountId }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProblemList", (Option.map x.problemList ~f:ProblemList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("ResourceGroupName",
          (Option.map x.resourceGroupName ~f:ResourceGroupName.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 resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let problemList =
        (Option.map ~f:ProblemList.of_xml) (Xml.child xml_arg0 "ProblemList") in
      make ?accountId ?resourceGroupName ?nextToken ?problemList ()
    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 resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let problemList = field_map json__ "ProblemList" ProblemList.of_json in
      make ?accountId ?resourceGroupName ?nextToken ?problemList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the problems with your application."]
module ListProblemsRequest =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."];
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      startTime: StartTime.t option
        [@ocaml.doc
          "The time when the problem was detected, in epoch seconds. If you don't specify a time frame for the request, problems within the past seven days are returned."];
      endTime: EndTime.t option
        [@ocaml.doc
          "The time when the problem ended, in epoch seconds. If not specified, problems within the past seven days are returned."];
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      componentName: ComponentName.t option
        [@ocaml.doc "The name of the component."];
      visibility: Visibility.t option
        [@ocaml.doc
          "Specifies whether or not you can view the problem. If not specified, visible and ignored problems are returned."]}
    let make ?accountId =
      fun ?resourceGroupName ->
        fun ?startTime ->
          fun ?endTime ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun ?componentName ->
                  fun ?visibility ->
                    fun () ->
                      {
                        accountId;
                        resourceGroupName;
                        startTime;
                        endTime;
                        maxResults;
                        nextToken;
                        componentName;
                        visibility
                      }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("ResourceGroupName",
          (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("ComponentName",
          (Option.map x.componentName ~f:ComponentName.to_value));
        ("Visibility", (Option.map x.visibility ~f:Visibility.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visibility =
        (Option.map ~f:Visibility.of_xml) (Xml.child xml_arg0 "Visibility") in
      let componentName =
        (Option.map ~f:ComponentName.of_xml)
          (Xml.child xml_arg0 "ComponentName") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      make ?visibility ?componentName ?nextToken ?maxResults ?endTime
        ?startTime ?resourceGroupName ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visibility = field_map json__ "Visibility" Visibility.of_json in
      let componentName =
        field_map json__ "ComponentName" ComponentName.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      let endTime = field_map json__ "EndTime" EndTime.of_json in
      let startTime = field_map json__ "StartTime" StartTime.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      make ?visibility ?componentName ?nextToken ?maxResults ?endTime
        ?startTime ?resourceGroupName ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the problems with your application."]
module ListLogPatternsResponse =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."];
      logPatterns: LogPatternList.t option
        [@ocaml.doc "The list of log patterns."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token used to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceGroupName =
      fun ?accountId ->
        fun ?logPatterns ->
          fun ?nextToken ->
            fun () ->
              { resourceGroupName; accountId; logPatterns; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("LogPatterns",
          (Option.map x.logPatterns ~f:LogPatternList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let logPatterns =
        (Option.map ~f:LogPatternList.of_xml)
          (Xml.child xml_arg0 "LogPatterns") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?nextToken ?logPatterns ?accountId ?resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let logPatterns = field_map json__ "LogPatterns" LogPatternList.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?nextToken ?logPatterns ?accountId ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the log patterns in the specific log LogPatternSet."]
module ListLogPatternsRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      patternSetName: LogPatternSetName.t option
        [@ocaml.doc "The name of the log pattern set."];
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "ListLogPatternsRequest"
    let make ?patternSetName =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?accountId ->
            fun ~resourceGroupName ->
              fun () ->
                {
                  patternSetName;
                  maxResults;
                  nextToken;
                  accountId;
                  resourceGroupName
                }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("PatternSetName",
          (Option.map x.patternSetName ~f:LogPatternSetName.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let patternSetName =
        (Option.map ~f:LogPatternSetName.of_xml)
          (Xml.child xml_arg0 "PatternSetName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ?nextToken ?maxResults ?patternSetName
        ~resourceGroupName ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      let patternSetName =
        field_map json__ "PatternSetName" LogPatternSetName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ?nextToken ?maxResults ?patternSetName
        ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the log patterns in the specific log LogPatternSet."]
module ListLogPatternSetsResponse =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."];
      logPatternSets: LogPatternSetList.t option
        [@ocaml.doc "The list of log pattern sets."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token used to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceGroupName =
      fun ?accountId ->
        fun ?logPatternSets ->
          fun ?nextToken ->
            fun () ->
              { resourceGroupName; accountId; logPatternSets; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("LogPatternSets",
          (Option.map x.logPatternSets ~f:LogPatternSetList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let logPatternSets =
        (Option.map ~f:LogPatternSetList.of_xml)
          (Xml.child xml_arg0 "LogPatternSets") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?nextToken ?logPatternSets ?accountId ?resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let logPatternSets =
        field_map json__ "LogPatternSets" LogPatternSetList.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?nextToken ?logPatternSets ?accountId ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the log pattern sets in the specific application."]
module ListLogPatternSetsRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "ListLogPatternSetsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?accountId ->
          fun ~resourceGroupName ->
            fun () -> { maxResults; nextToken; accountId; resourceGroupName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ?nextToken ?maxResults ~resourceGroupName ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ?nextToken ?maxResults ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the log pattern sets in the specific application."]
module ListConfigurationHistoryResponse =
  struct
    type nonrec t =
      {
      eventList: ConfigurationEventList.t option
        [@ocaml.doc
          "The list of configuration events and their corresponding details."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The NextToken value to include in a future ListConfigurationHistory request. When the results of a ListConfigurationHistory request exceed MaxResults, this value can be used to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventList =
      fun ?nextToken -> fun () -> { eventList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("EventList",
           (Option.map x.eventList ~f:ConfigurationEventList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let eventList =
        (Option.map ~f:ConfigurationEventList.of_xml)
          (Xml.child xml_arg0 "EventList") in
      make ?nextToken ?eventList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let eventList =
        field_map json__ "EventList" ConfigurationEventList.of_json in
      make ?nextToken ?eventList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the INFO, WARN, and ERROR events for periodic configuration updates performed by Application Insights. Examples of events represented are: INFO: creating a new alarm or updating an alarm threshold. WARN: alarm not created due to insufficient data points used to predict thresholds. ERROR: alarm not created due to permission errors or exceeding quotas."]
module ListConfigurationHistoryRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "Resource group to which the application belongs."];
      startTime: StartTime.t option
        [@ocaml.doc "The start time of the event."];
      endTime: EndTime.t option [@ocaml.doc "The end time of the event."];
      eventStatus: ConfigurationEventStatus.t option
        [@ocaml.doc
          "The status of the configuration update event. Possible values include INFO, WARN, and ERROR."];
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results returned by ListConfigurationHistory in paginated output. When this parameter is used, ListConfigurationHistory returns only MaxResults in a single page along with a NextToken response element. The remaining results of the initial request can be seen by sending another ListConfigurationHistory request with the returned NextToken value. If this parameter is not used, then ListConfigurationHistory returns all results."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The NextToken value returned from a previous paginated ListConfigurationHistory request where MaxResults was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the NextToken value. This value is null when there are no more results to return."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let make ?resourceGroupName =
      fun ?startTime ->
        fun ?endTime ->
          fun ?eventStatus ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun ?accountId ->
                  fun () ->
                    {
                      resourceGroupName;
                      startTime;
                      endTime;
                      eventStatus;
                      maxResults;
                      nextToken;
                      accountId
                    }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("EventStatus",
          (Option.map x.eventStatus ~f:ConfigurationEventStatus.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let eventStatus =
        (Option.map ~f:ConfigurationEventStatus.of_xml)
          (Xml.child xml_arg0 "EventStatus") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?accountId ?nextToken ?maxResults ?eventStatus ?endTime ?startTime
        ?resourceGroupName ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      let eventStatus =
        field_map json__ "EventStatus" ConfigurationEventStatus.of_json in
      let endTime = field_map json__ "EndTime" EndTime.of_json in
      let startTime = field_map json__ "StartTime" StartTime.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ?nextToken ?maxResults ?eventStatus ?endTime ?startTime
        ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the INFO, WARN, and ERROR events for periodic configuration updates performed by Application Insights. Examples of events represented are: INFO: creating a new alarm or updating an alarm threshold. WARN: alarm not created due to insufficient data points used to predict thresholds. ERROR: alarm not created due to permission errors or exceeding quotas."]
module ListComponentsResponse =
  struct
    type nonrec t =
      {
      applicationComponentList: ApplicationComponentList.t option
        [@ocaml.doc "The list of application components."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationComponentList =
      fun ?nextToken -> fun () -> { applicationComponentList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ApplicationComponentList",
           (Option.map x.applicationComponentList
              ~f:ApplicationComponentList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let applicationComponentList =
        (Option.map ~f:ApplicationComponentList.of_xml)
          (Xml.child xml_arg0 "ApplicationComponentList") in
      make ?nextToken ?applicationComponentList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let applicationComponentList =
        field_map json__ "ApplicationComponentList"
          ApplicationComponentList.of_json in
      make ?nextToken ?applicationComponentList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the auto-grouped, standalone, and custom components of the application."]
module ListComponentsRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "ListComponentsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?accountId ->
          fun ~resourceGroupName ->
            fun () -> { maxResults; nextToken; accountId; resourceGroupName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ?nextToken ?maxResults ~resourceGroupName ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ?nextToken ?maxResults ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the auto-grouped, standalone, and custom components of the application."]
module ListApplicationsResponse =
  struct
    type nonrec t =
      {
      applicationInfoList: ApplicationInfoList.t option
        [@ocaml.doc "The list of applications."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token used to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationInfoList =
      fun ?nextToken -> fun () -> { applicationInfoList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ApplicationInfoList",
           (Option.map x.applicationInfoList ~f:ApplicationInfoList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let applicationInfoList =
        (Option.map ~f:ApplicationInfoList.of_xml)
          (Xml.child xml_arg0 "ApplicationInfoList") in
      make ?nextToken ?applicationInfoList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let applicationInfoList =
        field_map json__ "ApplicationInfoList" ApplicationInfoList.of_json in
      make ?nextToken ?applicationInfoList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the IDs of the applications that you are monitoring."]
module ListApplicationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxEntities.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?accountId -> fun () -> { maxResults; nextToken; accountId }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxEntities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.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 nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxEntities.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?accountId ?nextToken ?maxResults ()
    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 nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxEntities.of_json in
      make ?accountId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the IDs of the applications that you are monitoring."]
module DescribeWorkloadResponse =
  struct
    type nonrec t =
      {
      workloadId: WorkloadId.t option [@ocaml.doc "The ID of the workload."];
      workloadRemarks: Remarks.t option
        [@ocaml.doc
          "If logging is supported for the resource type, shows whether the component has configured logs to be monitored."];
      workloadConfiguration: WorkloadConfiguration.t option
        [@ocaml.doc
          "The configuration settings of the workload. The value is the escaped JSON of the configuration."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloadId =
      fun ?workloadRemarks ->
        fun ?workloadConfiguration ->
          fun () -> { workloadId; workloadRemarks; workloadConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkloadId", (Option.map x.workloadId ~f:WorkloadId.to_value));
        ("WorkloadRemarks",
          (Option.map x.workloadRemarks ~f:Remarks.to_value));
        ("WorkloadConfiguration",
          (Option.map x.workloadConfiguration
             ~f:WorkloadConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadConfiguration =
        (Option.map ~f:WorkloadConfiguration.of_xml)
          (Xml.child xml_arg0 "WorkloadConfiguration") in
      let workloadRemarks =
        (Option.map ~f:Remarks.of_xml) (Xml.child xml_arg0 "WorkloadRemarks") in
      let workloadId =
        (Option.map ~f:WorkloadId.of_xml) (Xml.child xml_arg0 "WorkloadId") in
      make ?workloadConfiguration ?workloadRemarks ?workloadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadConfiguration =
        field_map json__ "WorkloadConfiguration"
          WorkloadConfiguration.of_json in
      let workloadRemarks =
        field_map json__ "WorkloadRemarks" Remarks.of_json in
      let workloadId = field_map json__ "WorkloadId" WorkloadId.of_json in
      make ?workloadConfiguration ?workloadRemarks ?workloadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a workload and its configuration."]
module DescribeWorkloadRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      workloadId: WorkloadId.t [@ocaml.doc "The ID of the workload."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the workload owner."]}
    let context_ = "DescribeWorkloadRequest"
    let make ?accountId =
      fun ~resourceGroupName ->
        fun ~componentName ->
          fun ~workloadId ->
            fun () ->
              { accountId; resourceGroupName; componentName; workloadId }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("WorkloadId", (Some (WorkloadId.to_value x.workloadId)));
        ("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 workloadId =
        WorkloadId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkloadId") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ~workloadId ~componentName ~resourceGroupName ()
    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 workloadId = field_map_exn json__ "WorkloadId" WorkloadId.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ~workloadId ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a workload and its configuration."]
module DescribeProblemResponse =
  struct
    type nonrec t =
      {
      problem: Problem.t option [@ocaml.doc "Information about the problem."];
      sNSNotificationArn: SNSNotificationArn.t option
        [@ocaml.doc "The SNS notification topic ARN of the problem."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?problem =
      fun ?sNSNotificationArn -> fun () -> { problem; sNSNotificationArn }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Problem", (Option.map x.problem ~f:Problem.to_value));
        ("SNSNotificationArn",
          (Option.map x.sNSNotificationArn ~f:SNSNotificationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sNSNotificationArn =
        (Option.map ~f:SNSNotificationArn.of_xml)
          (Xml.child xml_arg0 "SNSNotificationArn") in
      let problem =
        (Option.map ~f:Problem.of_xml) (Xml.child xml_arg0 "Problem") in
      make ?sNSNotificationArn ?problem ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sNSNotificationArn =
        field_map json__ "SNSNotificationArn" SNSNotificationArn.of_json in
      let problem = field_map json__ "Problem" Problem.of_json in
      make ?sNSNotificationArn ?problem ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an application problem."]
module DescribeProblemRequest =
  struct
    type nonrec t =
      {
      problemId: ProblemId.t [@ocaml.doc "The ID of the problem."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the owner of the resource group affected by the problem."]}
    let context_ = "DescribeProblemRequest"
    let make ?accountId =
      fun ~problemId -> fun () -> { accountId; problemId }
    let to_value x =
      structure_to_value
        [("ProblemId", (Some (ProblemId.to_value x.problemId)));
        ("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 problemId =
        ProblemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProblemId") in
      make ?accountId ~problemId ()
    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 problemId = field_map_exn json__ "ProblemId" ProblemId.of_json in
      make ?accountId ~problemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an application problem."]
module DescribeProblemObservationsResponse =
  struct
    type nonrec t =
      {
      relatedObservations: RelatedObservations.t option
        [@ocaml.doc "Observations related to the problem."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?relatedObservations = fun () -> { relatedObservations }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RelatedObservations",
           (Option.map x.relatedObservations ~f:RelatedObservations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedObservations =
        (Option.map ~f:RelatedObservations.of_xml)
          (Xml.child xml_arg0 "RelatedObservations") in
      make ?relatedObservations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedObservations =
        field_map json__ "RelatedObservations" RelatedObservations.of_json in
      make ?relatedObservations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the anomalies or errors associated with the problem."]
module DescribeProblemObservationsRequest =
  struct
    type nonrec t =
      {
      problemId: ProblemId.t [@ocaml.doc "The ID of the problem."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "DescribeProblemObservationsRequest"
    let make ?accountId =
      fun ~problemId -> fun () -> { accountId; problemId }
    let to_value x =
      structure_to_value
        [("ProblemId", (Some (ProblemId.to_value x.problemId)));
        ("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 problemId =
        ProblemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProblemId") in
      make ?accountId ~problemId ()
    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 problemId = field_map_exn json__ "ProblemId" ProblemId.of_json in
      make ?accountId ~problemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the anomalies or errors associated with the problem."]
module DescribeObservationResponse =
  struct
    type nonrec t =
      {
      observation: Observation.t option
        [@ocaml.doc "Information about the observation."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?observation = fun () -> { observation }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Observation", (Option.map x.observation ~f:Observation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let observation =
        (Option.map ~f:Observation.of_xml) (Xml.child xml_arg0 "Observation") in
      make ?observation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let observation = field_map json__ "Observation" Observation.of_json in
      make ?observation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an anomaly or error with the application."]
module DescribeObservationRequest =
  struct
    type nonrec t =
      {
      observationId: ObservationId.t
        [@ocaml.doc "The ID of the observation."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "DescribeObservationRequest"
    let make ?accountId =
      fun ~observationId -> fun () -> { accountId; observationId }
    let to_value x =
      structure_to_value
        [("ObservationId", (Some (ObservationId.to_value x.observationId)));
        ("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 observationId =
        ObservationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObservationId") in
      make ?accountId ~observationId ()
    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 observationId =
        field_map_exn json__ "ObservationId" ObservationId.of_json in
      make ?accountId ~observationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an anomaly or error with the application."]
module DescribeLogPatternResponse =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."];
      logPattern: LogPattern.t option
        [@ocaml.doc "The successfully created log pattern."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceGroupName =
      fun ?accountId ->
        fun ?logPattern ->
          fun () -> { resourceGroupName; accountId; logPattern }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("LogPattern", (Option.map x.logPattern ~f:LogPattern.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logPattern =
        (Option.map ~f:LogPattern.of_xml) (Xml.child xml_arg0 "LogPattern") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?logPattern ?accountId ?resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logPattern = field_map json__ "LogPattern" LogPattern.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?logPattern ?accountId ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describe a specific log pattern from a LogPatternSet."]
module DescribeLogPatternRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      patternSetName: LogPatternSetName.t
        [@ocaml.doc "The name of the log pattern set."];
      patternName: LogPatternName.t
        [@ocaml.doc "The name of the log pattern."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "DescribeLogPatternRequest"
    let make ?accountId =
      fun ~resourceGroupName ->
        fun ~patternSetName ->
          fun ~patternName ->
            fun () ->
              { accountId; resourceGroupName; patternSetName; patternName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("PatternSetName",
          (Some (LogPatternSetName.to_value x.patternSetName)));
        ("PatternName", (Some (LogPatternName.to_value x.patternName)));
        ("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 patternName =
        LogPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternName") in
      let patternSetName =
        LogPatternSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternSetName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ~patternName ~patternSetName ~resourceGroupName ()
    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 patternName =
        field_map_exn json__ "PatternName" LogPatternName.of_json in
      let patternSetName =
        field_map_exn json__ "PatternSetName" LogPatternSetName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ~patternName ~patternSetName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describe a specific log pattern from a LogPatternSet."]
module DescribeComponentResponse =
  struct
    type nonrec t =
      {
      applicationComponent: ApplicationComponent.t option ;
      resourceList: ResourceList.t option
        [@ocaml.doc
          "The list of resource ARNs that belong to the component."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationComponent =
      fun ?resourceList -> fun () -> { applicationComponent; resourceList }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ApplicationComponent",
           (Option.map x.applicationComponent
              ~f:ApplicationComponent.to_value));
        ("ResourceList",
          (Option.map x.resourceList ~f:ResourceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceList =
        (Option.map ~f:ResourceList.of_xml)
          (Xml.child xml_arg0 "ResourceList") in
      let applicationComponent =
        (Option.map ~f:ApplicationComponent.of_xml)
          (Xml.child xml_arg0 "ApplicationComponent") in
      make ?resourceList ?applicationComponent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceList = field_map json__ "ResourceList" ResourceList.of_json in
      let applicationComponent =
        field_map json__ "ApplicationComponent" ApplicationComponent.of_json in
      make ?resourceList ?applicationComponent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a component and lists the resources that are grouped together in a component."]
module DescribeComponentRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "DescribeComponentRequest"
    let make ?accountId =
      fun ~resourceGroupName ->
        fun ~componentName ->
          fun () -> { accountId; resourceGroupName; componentName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("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 componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ~componentName ~resourceGroupName ()
    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 componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a component and lists the resources that are grouped together in a component."]
module DescribeComponentConfigurationResponse =
  struct
    type nonrec t =
      {
      monitor: Monitor.t option
        [@ocaml.doc
          "Indicates whether the application component is monitored."];
      tier: Tier.t option
        [@ocaml.doc
          "The tier of the application component. Supported tiers include DOT_NET_CORE, DOT_NET_WORKER, DOT_NET_WEB, SQL_SERVER, and DEFAULT"];
      componentConfiguration: ComponentConfiguration.t option
        [@ocaml.doc
          "The configuration settings of the component. The value is the escaped JSON of the configuration."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monitor =
      fun ?tier ->
        fun ?componentConfiguration ->
          fun () -> { monitor; tier; componentConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Monitor", (Option.map x.monitor ~f:Monitor.to_value));
        ("Tier", (Option.map x.tier ~f:Tier.to_value));
        ("ComponentConfiguration",
          (Option.map x.componentConfiguration
             ~f:ComponentConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let componentConfiguration =
        (Option.map ~f:ComponentConfiguration.of_xml)
          (Xml.child xml_arg0 "ComponentConfiguration") in
      let tier = (Option.map ~f:Tier.of_xml) (Xml.child xml_arg0 "Tier") in
      let monitor =
        (Option.map ~f:Monitor.of_xml) (Xml.child xml_arg0 "Monitor") in
      make ?componentConfiguration ?tier ?monitor ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let componentConfiguration =
        field_map json__ "ComponentConfiguration"
          ComponentConfiguration.of_json in
      let tier = field_map json__ "Tier" Tier.of_json in
      let monitor = field_map json__ "Monitor" Monitor.of_json in
      make ?componentConfiguration ?tier ?monitor ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the monitoring configuration of the component."]
module DescribeComponentConfigurationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "DescribeComponentConfigurationRequest"
    let make ?accountId =
      fun ~resourceGroupName ->
        fun ~componentName ->
          fun () -> { accountId; resourceGroupName; componentName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("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 componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ~componentName ~resourceGroupName ()
    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 componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the monitoring configuration of the component."]
module DescribeComponentConfigurationRecommendationResponse =
  struct
    type nonrec t =
      {
      componentConfiguration: ComponentConfiguration.t option
        [@ocaml.doc
          "The recommended configuration settings of the component. The value is the escaped JSON of the configuration."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?componentConfiguration = fun () -> { componentConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ComponentConfiguration",
           (Option.map x.componentConfiguration
              ~f:ComponentConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let componentConfiguration =
        (Option.map ~f:ComponentConfiguration.of_xml)
          (Xml.child xml_arg0 "ComponentConfiguration") in
      make ?componentConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let componentConfiguration =
        field_map json__ "ComponentConfiguration"
          ComponentConfiguration.of_json in
      make ?componentConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the recommended monitoring configuration of the component."]
module DescribeComponentConfigurationRecommendationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      tier: Tier.t [@ocaml.doc "The tier of the application component."];
      workloadName: WorkloadName.t option
        [@ocaml.doc
          "The name of the workload. The name of the workload is required when the tier of the application component is SAP_ASE_SINGLE_NODE or SAP_ASE_HIGH_AVAILABILITY."];
      recommendationType: RecommendationType.t option
        [@ocaml.doc "The recommended configuration type."]}
    let context_ = "DescribeComponentConfigurationRecommendationRequest"
    let make ?workloadName =
      fun ?recommendationType ->
        fun ~resourceGroupName ->
          fun ~componentName ->
            fun ~tier ->
              fun () ->
                {
                  workloadName;
                  recommendationType;
                  resourceGroupName;
                  componentName;
                  tier
                }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("Tier", (Some (Tier.to_value x.tier)));
        ("WorkloadName",
          (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("RecommendationType",
          (Option.map x.recommendationType ~f:RecommendationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendationType =
        (Option.map ~f:RecommendationType.of_xml)
          (Xml.child xml_arg0 "RecommendationType") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "WorkloadName") in
      let tier =
        Tier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tier") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?recommendationType ?workloadName ~tier ~componentName
        ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendationType =
        field_map json__ "RecommendationType" RecommendationType.of_json in
      let workloadName = field_map json__ "WorkloadName" WorkloadName.of_json in
      let tier = field_map_exn json__ "Tier" Tier.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?recommendationType ?workloadName ~tier ~componentName
        ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the recommended monitoring configuration of the component."]
module DescribeApplicationResponse =
  struct
    type nonrec t =
      {
      applicationInfo: ApplicationInfo.t option
        [@ocaml.doc "Information about the application."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationInfo = fun () -> { applicationInfo }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ApplicationInfo",
           (Option.map x.applicationInfo ~f:ApplicationInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationInfo =
        (Option.map ~f:ApplicationInfo.of_xml)
          (Xml.child xml_arg0 "ApplicationInfo") in
      make ?applicationInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationInfo =
        field_map json__ "ApplicationInfo" ApplicationInfo.of_json in
      make ?applicationInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the application."]
module DescribeApplicationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID for the resource group owner."]}
    let context_ = "DescribeApplicationRequest"
    let make ?accountId =
      fun ~resourceGroupName -> fun () -> { accountId; resourceGroupName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("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 resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ?accountId ~resourceGroupName ()
    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 resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?accountId ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the application."]
module DeleteLogPatternResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified log pattern from a LogPatternSet."]
module DeleteLogPatternRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      patternSetName: LogPatternSetName.t
        [@ocaml.doc "The name of the log pattern set."];
      patternName: LogPatternName.t
        [@ocaml.doc "The name of the log pattern."]}
    let context_ = "DeleteLogPatternRequest"
    let make ~resourceGroupName =
      fun ~patternSetName ->
        fun ~patternName ->
          fun () -> { resourceGroupName; patternSetName; patternName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("PatternSetName",
          (Some (LogPatternSetName.to_value x.patternSetName)));
        ("PatternName", (Some (LogPatternName.to_value x.patternName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let patternName =
        LogPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternName") in
      let patternSetName =
        LogPatternSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternSetName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~patternName ~patternSetName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let patternName =
        field_map_exn json__ "PatternName" LogPatternName.of_json in
      let patternSetName =
        field_map_exn json__ "PatternSetName" LogPatternSetName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~patternName ~patternSetName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified log pattern from a LogPatternSet."]
module DeleteComponentResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Ungroups a custom component. When you ungroup custom components, all applicable monitors that are set up for the component are removed and the instances revert to their standalone status."]
module DeleteComponentRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: CustomComponentName.t
        [@ocaml.doc "The name of the component."]}
    let context_ = "DeleteComponentRequest"
    let make ~resourceGroupName =
      fun ~componentName -> fun () -> { resourceGroupName; componentName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName",
          (Some (CustomComponentName.to_value x.componentName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let componentName =
        CustomComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~componentName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let componentName =
        field_map_exn json__ "ComponentName" CustomComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Ungroups a custom component. When you ungroup custom components, all applicable monitors that are set up for the component are removed and the instances revert to their standalone status."]
module DeleteApplicationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified application from monitoring. Does not delete the application."]
module DeleteApplicationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."]}
    let context_ = "DeleteApplicationRequest"
    let make ~resourceGroupName = fun () -> { resourceGroupName }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified application from monitoring. Does not delete the application."]
module CreateLogPatternResponse =
  struct
    type nonrec t =
      {
      logPattern: LogPattern.t option
        [@ocaml.doc "The successfully created log pattern."];
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?logPattern =
      fun ?resourceGroupName -> fun () -> { logPattern; resourceGroupName }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("LogPattern", (Option.map x.logPattern ~f:LogPattern.to_value));
        ("ResourceGroupName",
          (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      let logPattern =
        (Option.map ~f:LogPattern.of_xml) (Xml.child xml_arg0 "LogPattern") in
      make ?resourceGroupName ?logPattern ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      let logPattern = field_map json__ "LogPattern" LogPattern.of_json in
      make ?resourceGroupName ?logPattern ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds an log pattern to a LogPatternSet."]
module CreateLogPatternRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      patternSetName: LogPatternSetName.t
        [@ocaml.doc "The name of the log pattern set."];
      patternName: LogPatternName.t
        [@ocaml.doc "The name of the log pattern."];
      pattern: LogPatternRegex.t
        [@ocaml.doc
          "The log pattern. The pattern must be DFA compatible. Patterns that utilize forward lookahead or backreference constructions are not supported."];
      rank: LogPatternRank.t
        [@ocaml.doc
          "Rank of the log pattern. Must be a value between 1 and 1,000,000. The patterns are sorted by rank, so we recommend that you set your highest priority patterns with the lowest rank. A pattern of rank 1 will be the first to get matched to a log line. A pattern of rank 1,000,000 will be last to get matched. When you configure custom log patterns from the console, a Low severity pattern translates to a 750,000 rank. A Medium severity pattern translates to a 500,000 rank. And a High severity pattern translates to a 250,000 rank. Rank values less than 1 or greater than 1,000,000 are reserved for Amazon Web Services provided patterns."]}
    let context_ = "CreateLogPatternRequest"
    let make ~resourceGroupName =
      fun ~patternSetName ->
        fun ~patternName ->
          fun ~pattern ->
            fun ~rank ->
              fun () ->
                {
                  resourceGroupName;
                  patternSetName;
                  patternName;
                  pattern;
                  rank
                }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("PatternSetName",
          (Some (LogPatternSetName.to_value x.patternSetName)));
        ("PatternName", (Some (LogPatternName.to_value x.patternName)));
        ("Pattern", (Some (LogPatternRegex.to_value x.pattern)));
        ("Rank", (Some (LogPatternRank.to_value x.rank)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rank =
        LogPatternRank.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rank") in
      let pattern =
        LogPatternRegex.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Pattern") in
      let patternName =
        LogPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternName") in
      let patternSetName =
        LogPatternSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PatternSetName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~rank ~pattern ~patternName ~patternSetName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rank = field_map_exn json__ "Rank" LogPatternRank.of_json in
      let pattern = field_map_exn json__ "Pattern" LogPatternRegex.of_json in
      let patternName =
        field_map_exn json__ "PatternName" LogPatternName.of_json in
      let patternSetName =
        field_map_exn json__ "PatternSetName" LogPatternSetName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~rank ~pattern ~patternName ~patternSetName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds an log pattern to a LogPatternSet."]
module CreateComponentResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a custom component by grouping similar standalone instances to monitor."]
module CreateComponentRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: CustomComponentName.t
        [@ocaml.doc "The name of the component."];
      resourceList: ResourceList.t
        [@ocaml.doc
          "The list of resource ARNs that belong to the component."]}
    let context_ = "CreateComponentRequest"
    let make ~resourceGroupName =
      fun ~componentName ->
        fun ~resourceList ->
          fun () -> { resourceGroupName; componentName; resourceList }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName",
          (Some (CustomComponentName.to_value x.componentName)));
        ("ResourceList", (Some (ResourceList.to_value x.resourceList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceList =
        ResourceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceList") in
      let componentName =
        CustomComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~resourceList ~componentName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceList =
        field_map_exn json__ "ResourceList" ResourceList.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" CustomComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~resourceList ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a custom component by grouping similar standalone instances to monitor."]
module CreateApplicationResponse =
  struct
    type nonrec t =
      {
      applicationInfo: ApplicationInfo.t option
        [@ocaml.doc "Information about the application."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TagsAlreadyExistException of TagsAlreadyExistException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationInfo = fun () -> { applicationInfo }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TagsAlreadyExistException" ->
          `TagsAlreadyExistException (TagsAlreadyExistException.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)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TagsAlreadyExistException" ->
          `TagsAlreadyExistException (TagsAlreadyExistException.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))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TagsAlreadyExistException e ->
          `Assoc
            [("error", (`String "TagsAlreadyExistException"));
            ("details", (TagsAlreadyExistException.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
        [("ApplicationInfo",
           (Option.map x.applicationInfo ~f:ApplicationInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationInfo =
        (Option.map ~f:ApplicationInfo.of_xml)
          (Xml.child xml_arg0 "ApplicationInfo") in
      make ?applicationInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationInfo =
        field_map json__ "ApplicationInfo" ApplicationInfo.of_json in
      make ?applicationInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds an application that is created from a resource group."]
module CreateApplicationRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t option
        [@ocaml.doc "The name of the resource group."];
      opsCenterEnabled: OpsCenterEnabled.t option
        [@ocaml.doc
          "When set to true, creates opsItems for any problems detected on an application."];
      cWEMonitorEnabled: CWEMonitorEnabled.t option
        [@ocaml.doc
          "Indicates whether Application Insights can listen to CloudWatch events for the application resources, such as instance terminated, failed deployment, and others."];
      opsItemSNSTopicArn: OpsItemSNSTopicArn.t option
        [@ocaml.doc
          "The SNS topic provided to Application Insights that is associated to the created opsItem. Allows you to receive notifications for updates to the opsItem."];
      sNSNotificationArn: SNSNotificationArn.t option
        [@ocaml.doc "The SNS notification topic ARN."];
      tags: TagList.t option
        [@ocaml.doc
          "List of tags to add to the application. tag key (Key) and an associated tag value (Value). The maximum length of a tag key is 128 characters. The maximum length of a tag value is 256 characters."];
      autoConfigEnabled: AutoConfigEnabled.t option
        [@ocaml.doc
          "Indicates whether Application Insights automatically configures unmonitored resources in the resource group."];
      autoCreate: AutoCreate.t option
        [@ocaml.doc
          "Configures all of the resources in the resource group by applying the recommended configurations."];
      groupingType: GroupingType.t option
        [@ocaml.doc
          "Application Insights can create applications based on a resource group or on an account. To create an account-based application using all of the resources in the account, set this parameter to ACCOUNT_BASED."];
      attachMissingPermission: AttachMissingPermission.t option
        [@ocaml.doc
          "If set to true, the managed policies for SSM and CW will be attached to the instance roles if they are missing."]}
    let make ?resourceGroupName =
      fun ?opsCenterEnabled ->
        fun ?cWEMonitorEnabled ->
          fun ?opsItemSNSTopicArn ->
            fun ?sNSNotificationArn ->
              fun ?tags ->
                fun ?autoConfigEnabled ->
                  fun ?autoCreate ->
                    fun ?groupingType ->
                      fun ?attachMissingPermission ->
                        fun () ->
                          {
                            resourceGroupName;
                            opsCenterEnabled;
                            cWEMonitorEnabled;
                            opsItemSNSTopicArn;
                            sNSNotificationArn;
                            tags;
                            autoConfigEnabled;
                            autoCreate;
                            groupingType;
                            attachMissingPermission
                          }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Option.map x.resourceGroupName ~f:ResourceGroupName.to_value));
        ("OpsCenterEnabled",
          (Option.map x.opsCenterEnabled ~f:OpsCenterEnabled.to_value));
        ("CWEMonitorEnabled",
          (Option.map x.cWEMonitorEnabled ~f:CWEMonitorEnabled.to_value));
        ("OpsItemSNSTopicArn",
          (Option.map x.opsItemSNSTopicArn ~f:OpsItemSNSTopicArn.to_value));
        ("SNSNotificationArn",
          (Option.map x.sNSNotificationArn ~f:SNSNotificationArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("AutoConfigEnabled",
          (Option.map x.autoConfigEnabled ~f:AutoConfigEnabled.to_value));
        ("AutoCreate", (Option.map x.autoCreate ~f:AutoCreate.to_value));
        ("GroupingType",
          (Option.map x.groupingType ~f:GroupingType.to_value));
        ("AttachMissingPermission",
          (Option.map x.attachMissingPermission
             ~f:AttachMissingPermission.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachMissingPermission =
        (Option.map ~f:AttachMissingPermission.of_xml)
          (Xml.child xml_arg0 "AttachMissingPermission") in
      let groupingType =
        (Option.map ~f:GroupingType.of_xml)
          (Xml.child xml_arg0 "GroupingType") in
      let autoCreate =
        (Option.map ~f:AutoCreate.of_xml) (Xml.child xml_arg0 "AutoCreate") in
      let autoConfigEnabled =
        (Option.map ~f:AutoConfigEnabled.of_xml)
          (Xml.child xml_arg0 "AutoConfigEnabled") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let sNSNotificationArn =
        (Option.map ~f:SNSNotificationArn.of_xml)
          (Xml.child xml_arg0 "SNSNotificationArn") in
      let opsItemSNSTopicArn =
        (Option.map ~f:OpsItemSNSTopicArn.of_xml)
          (Xml.child xml_arg0 "OpsItemSNSTopicArn") in
      let cWEMonitorEnabled =
        (Option.map ~f:CWEMonitorEnabled.of_xml)
          (Xml.child xml_arg0 "CWEMonitorEnabled") in
      let opsCenterEnabled =
        (Option.map ~f:OpsCenterEnabled.of_xml)
          (Xml.child xml_arg0 "OpsCenterEnabled") in
      let resourceGroupName =
        (Option.map ~f:ResourceGroupName.of_xml)
          (Xml.child xml_arg0 "ResourceGroupName") in
      make ?attachMissingPermission ?groupingType ?autoCreate
        ?autoConfigEnabled ?tags ?sNSNotificationArn ?opsItemSNSTopicArn
        ?cWEMonitorEnabled ?opsCenterEnabled ?resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachMissingPermission =
        field_map json__ "AttachMissingPermission"
          AttachMissingPermission.of_json in
      let groupingType = field_map json__ "GroupingType" GroupingType.of_json in
      let autoCreate = field_map json__ "AutoCreate" AutoCreate.of_json in
      let autoConfigEnabled =
        field_map json__ "AutoConfigEnabled" AutoConfigEnabled.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let sNSNotificationArn =
        field_map json__ "SNSNotificationArn" SNSNotificationArn.of_json in
      let opsItemSNSTopicArn =
        field_map json__ "OpsItemSNSTopicArn" OpsItemSNSTopicArn.of_json in
      let cWEMonitorEnabled =
        field_map json__ "CWEMonitorEnabled" CWEMonitorEnabled.of_json in
      let opsCenterEnabled =
        field_map json__ "OpsCenterEnabled" OpsCenterEnabled.of_json in
      let resourceGroupName =
        field_map json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ?attachMissingPermission ?groupingType ?autoCreate
        ?autoConfigEnabled ?tags ?sNSNotificationArn ?opsItemSNSTopicArn
        ?cWEMonitorEnabled ?opsCenterEnabled ?resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds an application that is created from a resource group."]
module AddWorkloadResponse =
  struct
    type nonrec t =
      {
      workloadId: WorkloadId.t option [@ocaml.doc "The ID of the workload."];
      workloadConfiguration: WorkloadConfiguration.t option
        [@ocaml.doc
          "The configuration settings of the workload. The value is the escaped JSON of the configuration."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloadId =
      fun ?workloadConfiguration ->
        fun () -> { workloadId; workloadConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkloadId", (Option.map x.workloadId ~f:WorkloadId.to_value));
        ("WorkloadConfiguration",
          (Option.map x.workloadConfiguration
             ~f:WorkloadConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadConfiguration =
        (Option.map ~f:WorkloadConfiguration.of_xml)
          (Xml.child xml_arg0 "WorkloadConfiguration") in
      let workloadId =
        (Option.map ~f:WorkloadId.of_xml) (Xml.child xml_arg0 "WorkloadId") in
      make ?workloadConfiguration ?workloadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadConfiguration =
        field_map json__ "WorkloadConfiguration"
          WorkloadConfiguration.of_json in
      let workloadId = field_map json__ "WorkloadId" WorkloadId.of_json in
      make ?workloadConfiguration ?workloadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a workload to a component. Each component can have at most five workloads."]
module AddWorkloadRequest =
  struct
    type nonrec t =
      {
      resourceGroupName: ResourceGroupName.t
        [@ocaml.doc "The name of the resource group."];
      componentName: ComponentName.t
        [@ocaml.doc "The name of the component."];
      workloadConfiguration: WorkloadConfiguration.t
        [@ocaml.doc
          "The configuration settings of the workload. The value is the escaped JSON of the configuration."]}
    let context_ = "AddWorkloadRequest"
    let make ~resourceGroupName =
      fun ~componentName ->
        fun ~workloadConfiguration ->
          fun () ->
            { resourceGroupName; componentName; workloadConfiguration }
    let to_value x =
      structure_to_value
        [("ResourceGroupName",
           (Some (ResourceGroupName.to_value x.resourceGroupName)));
        ("ComponentName", (Some (ComponentName.to_value x.componentName)));
        ("WorkloadConfiguration",
          (Some (WorkloadConfiguration.to_value x.workloadConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadConfiguration =
        WorkloadConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkloadConfiguration") in
      let componentName =
        ComponentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComponentName") in
      let resourceGroupName =
        ResourceGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceGroupName") in
      make ~workloadConfiguration ~componentName ~resourceGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadConfiguration =
        field_map_exn json__ "WorkloadConfiguration"
          WorkloadConfiguration.of_json in
      let componentName =
        field_map_exn json__ "ComponentName" ComponentName.of_json in
      let resourceGroupName =
        field_map_exn json__ "ResourceGroupName" ResourceGroupName.of_json in
      make ~workloadConfiguration ~componentName ~resourceGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a workload to a component. Each component can have at most five workloads."]