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.codeguruprofiler
let apiVersion = "2019-07-18"
let endpointPrefix = "codeguru-profiler"
let serviceFullName = "Amazon CodeGuru Profiler"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module FeedbackType =
  struct
    type nonrec t =
      | Positive 
      | Negative 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Positive -> "Positive"
      | Negative -> "Negative"
      | Non_static_id s -> s
    let of_string =
      function
      | "Positive" -> Positive
      | "Negative" -> Negative
      | 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 FeedbackType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FeedbackType" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module EventPublisher =
  struct
    type nonrec t =
      | AnomalyDetection 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AnomalyDetection -> "AnomalyDetection"
      | Non_static_id s -> s
    let of_string =
      function
      | "AnomalyDetection" -> AnomalyDetection
      | 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 EventPublisher" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventPublisher" j)
    let to_json = simple_to_json to_value
  end
module AggregationPeriod =
  struct
    type nonrec t =
      | PT5M 
      | PT1H 
      | P1D 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PT5M -> "PT5M"
      | PT1H -> "PT1H"
      | P1D -> "P1D"
      | Non_static_id s -> s
    let of_string =
      function
      | "PT5M" -> PT5M
      | "PT1H" -> PT1H
      | "P1D" -> P1D
      | 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 AggregationPeriod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AggregationPeriod" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UserFeedback =
  struct
    type nonrec t =
      {
      type_: FeedbackType.t option
        [@ocaml.doc
          "Optional Positive or Negative feedback submitted by the user about whether the recommendation is useful or not."]}
    let make ?type_ = fun () -> { type_ }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:FeedbackType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:FeedbackType.of_xml) (Xml.child xml_arg0 "type") in
      make ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" FeedbackType.of_json in
      make ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Feedback that can be submitted for each instance of an anomaly by the user. Feedback is be used for improvements in generating recommendations for the application."]
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module TargetFrame =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetFrame" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChannelId =
  struct
    type nonrec t = string
    let context_ = "ChannelId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChannelId" j
    let to_json = simple_to_json to_value
  end
module ChannelUri =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Channel URI uniquely identifies a Notification Channel. TopicArn is the uri for an SNS channel, emailId is uri for an email channel etc. Currently we only support SNS channels and thus required to be an ARN"]
    let context_ = "ChannelUri"
    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:"ChannelUri" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Channel URI uniquely identifies a Notification Channel. TopicArn is the uri for an SNS channel, emailId is uri for an email channel etc. Currently we only support SNS channels and thus required to be an ARN"]
module EventPublishers =
  struct
    type nonrec t = EventPublisher.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EventPublisher.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:EventPublisher.of_xml)
    let of_json j =
      list_of_json ~kind:"EventPublishers" ~of_json:EventPublisher.of_json j
    let to_json v = composed_to_json to_value v
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module AggregatedProfileTime =
  struct
    type nonrec t =
      {
      period: AggregationPeriod.t option
        [@ocaml.doc
          "The aggregation period. This indicates the period during which an aggregation profile collects posted agent profiles for a profiling group. Use one of three valid durations that are specified using the ISO 8601 format. P1D \226\128\148 1 day PT1H \226\128\148 1 hour PT5M \226\128\148 5 minutes"];
      start: Timestamp.t option
        [@ocaml.doc
          "The time that aggregation of posted agent profiles for a profiling group starts. The aggregation profile contains profiles posted by the agent starting at this time for an aggregation period specified by the period property of the AggregatedProfileTime object. Specify start using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]}
    let make ?period = fun ?start -> fun () -> { period; start }
    let to_value x =
      structure_to_value
        [("period", (Option.map x.period ~f:AggregationPeriod.to_value));
        ("start", (Option.map x.start ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let start =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "start") in
      let period =
        (Option.map ~f:AggregationPeriod.of_xml)
          (Xml.child xml_arg0 "period") in
      make ?start ?period ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let start = field_map json__ "start" Timestamp.of_json in
      let period = field_map json__ "period" AggregationPeriod.of_json in
      make ?start ?period ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the aggregation period and aggregation start time for an aggregated profile. An aggregated profile is used to collect posted agent profiles during an aggregation period. There are three possible aggregation periods (1 day, 1 hour, or 5 minutes)."]
module AnomalyInstance =
  struct
    type nonrec t =
      {
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the period during which the metric is flagged as anomalous. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      id: String_.t option
        [@ocaml.doc
          "The universally unique identifier (UUID) of an instance of an anomaly in a metric."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the period during which the metric is flagged as anomalous. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      userFeedback: UserFeedback.t option
        [@ocaml.doc
          "Feedback type on a specific instance of anomaly submitted by the user."]}
    let make ?endTime =
      fun ?id ->
        fun ?startTime ->
          fun ?userFeedback ->
            fun () -> { endTime; id; startTime; userFeedback }
    let to_value x =
      structure_to_value
        [("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("userFeedback",
          (Option.map x.userFeedback ~f:UserFeedback.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userFeedback =
        (Option.map ~f:UserFeedback.of_xml)
          (Xml.child xml_arg0 "userFeedback") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      make ?userFeedback ?startTime ?id ?endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userFeedback = field_map json__ "userFeedback" UserFeedback.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let id = field_map json__ "id" String_.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      make ?userFeedback ?startTime ?id ?endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specific duration in which the metric is flagged as anomalous."]
module MetricType =
  struct
    type nonrec t =
      | AggregatedRelativeTotalTime 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AggregatedRelativeTotalTime -> "AggregatedRelativeTotalTime"
      | Non_static_id s -> s
    let of_string =
      function
      | "AggregatedRelativeTotalTime" -> AggregatedRelativeTotalTime
      | 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 MetricType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetricType" j)
    let to_json = simple_to_json to_value
  end
module Strings =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j = list_of_json ~kind:"Strings" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Match =
  struct
    type nonrec t =
      {
      frameAddress: String_.t option
        [@ocaml.doc
          "The location in the profiling graph that contains a recommendation found during analysis."];
      targetFramesIndex: Integer.t option
        [@ocaml.doc "The target frame that triggered a match."];
      thresholdBreachValue: Double.t option
        [@ocaml.doc
          "The value in the profile data that exceeded the recommendation threshold."]}
    let make ?frameAddress =
      fun ?targetFramesIndex ->
        fun ?thresholdBreachValue ->
          fun () -> { frameAddress; targetFramesIndex; thresholdBreachValue }
    let to_value x =
      structure_to_value
        [("frameAddress", (Option.map x.frameAddress ~f:String_.to_value));
        ("targetFramesIndex",
          (Option.map x.targetFramesIndex ~f:Integer.to_value));
        ("thresholdBreachValue",
          (Option.map x.thresholdBreachValue ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let thresholdBreachValue =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "thresholdBreachValue") in
      let targetFramesIndex =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "targetFramesIndex") in
      let frameAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "frameAddress") in
      make ?thresholdBreachValue ?targetFramesIndex ?frameAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let thresholdBreachValue =
        field_map json__ "thresholdBreachValue" Double.of_json in
      let targetFramesIndex =
        field_map json__ "targetFramesIndex" Integer.of_json in
      let frameAddress = field_map json__ "frameAddress" String_.of_json in
      make ?thresholdBreachValue ?targetFramesIndex ?frameAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The part of a profile that contains a recommendation found during analysis."]
module Percentage =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:100.) >>=
             (fun () -> check_float_min i ~min:0.));
        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 TargetFrames =
  struct
    type nonrec t = TargetFrame.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:TargetFrame.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:TargetFrame.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetFrames" ~of_json:TargetFrame.of_json j
    let to_json v = composed_to_json to_value v
  end
module ThreadStates =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ThreadStates" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module FrameMetricValue =
  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 Channel =
  struct
    type nonrec t =
      {
      eventPublishers: EventPublishers.t
        [@ocaml.doc
          "List of publishers for different type of events that may be detected in an application from the profile. Anomaly detection is the only event publisher in Profiler."];
      id: ChannelId.t option
        [@ocaml.doc
          "Unique identifier for each Channel in the notification configuration of a Profiling Group. A random UUID for channelId is used when adding a channel to the notification configuration if not specified in the request."];
      uri: ChannelUri.t
        [@ocaml.doc
          "Unique arn of the resource to be used for notifications. We support a valid SNS topic arn as a channel uri."]}
    let context_ = "Channel"
    let make ?id =
      fun ~eventPublishers ->
        fun ~uri -> fun () -> { id; eventPublishers; uri }
    let to_value x =
      structure_to_value
        [("eventPublishers",
           (Some (EventPublishers.to_value x.eventPublishers)));
        ("id", (Option.map x.id ~f:ChannelId.to_value));
        ("uri", (Some (ChannelUri.to_value x.uri)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uri =
        ChannelUri.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uri") in
      let id = (Option.map ~f:ChannelId.of_xml) (Xml.child xml_arg0 "id") in
      let eventPublishers =
        EventPublishers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventPublishers") in
      make ~uri ?id ~eventPublishers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uri = field_map_exn json__ "uri" ChannelUri.of_json in
      let id = field_map json__ "id" ChannelId.of_json in
      let eventPublishers =
        field_map_exn json__ "eventPublishers" EventPublishers.of_json in
      make ~uri ?id ~eventPublishers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Notification medium for users to get alerted for events that occur in application profile. We support SNS topic as a notification channel."]
module AgentOrchestrationConfig =
  struct
    type nonrec t =
      {
      profilingEnabled: Boolean.t
        [@ocaml.doc
          "A Boolean that specifies whether the profiling agent collects profiling data or not. Set to true to enable profiling."]}
    let context_ = "AgentOrchestrationConfig"
    let make ~profilingEnabled = fun () -> { profilingEnabled }
    let to_value x =
      structure_to_value
        [("profilingEnabled", (Some (Boolean.to_value x.profilingEnabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingEnabled") in
      make ~profilingEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingEnabled =
        field_map_exn json__ "profilingEnabled" Boolean.of_json in
      make ~profilingEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies whether profiling is enabled or disabled for a profiling group. It is used by ConfigureAgent to enable or disable profiling for a profiling group."]
module ComputePlatform =
  struct
    type nonrec t =
      | Default 
      | AWSLambda 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "Default"
      | AWSLambda -> "AWSLambda"
      | Non_static_id s -> s
    let of_string =
      function
      | "Default" -> Default
      | "AWSLambda" -> AWSLambda
      | 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 ComputePlatform" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ComputePlatform" j)
    let to_json = simple_to_json to_value
  end
module ProfilingGroupArn =
  struct
    type nonrec t = string
    let context_ = "ProfilingGroupArn"
    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:"ProfilingGroupArn" j
    let to_json = simple_to_json to_value
  end
module ProfilingGroupName =
  struct
    type nonrec t = string
    let context_ = "ProfilingGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\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:"ProfilingGroupName" j
    let to_json = simple_to_json to_value
  end
module ProfilingStatus =
  struct
    type nonrec t =
      {
      latestAgentOrchestratedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time when the profiling agent most recently pinged back. Specify using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      latestAgentProfileReportedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time when the most recent profile was received. Specify using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      latestAggregatedProfile: AggregatedProfileTime.t option
        [@ocaml.doc
          "An AggregatedProfileTime object that contains the aggregation period and start time for an aggregated profile."]}
    let make ?latestAgentOrchestratedAt =
      fun ?latestAgentProfileReportedAt ->
        fun ?latestAggregatedProfile ->
          fun () ->
            {
              latestAgentOrchestratedAt;
              latestAgentProfileReportedAt;
              latestAggregatedProfile
            }
    let to_value x =
      structure_to_value
        [("latestAgentOrchestratedAt",
           (Option.map x.latestAgentOrchestratedAt ~f:Timestamp.to_value));
        ("latestAgentProfileReportedAt",
          (Option.map x.latestAgentProfileReportedAt ~f:Timestamp.to_value));
        ("latestAggregatedProfile",
          (Option.map x.latestAggregatedProfile
             ~f:AggregatedProfileTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestAggregatedProfile =
        (Option.map ~f:AggregatedProfileTime.of_xml)
          (Xml.child xml_arg0 "latestAggregatedProfile") in
      let latestAgentProfileReportedAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "latestAgentProfileReportedAt") in
      let latestAgentOrchestratedAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "latestAgentOrchestratedAt") in
      make ?latestAggregatedProfile ?latestAgentProfileReportedAt
        ?latestAgentOrchestratedAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestAggregatedProfile =
        field_map json__ "latestAggregatedProfile"
          AggregatedProfileTime.of_json in
      let latestAgentProfileReportedAt =
        field_map json__ "latestAgentProfileReportedAt" Timestamp.of_json in
      let latestAgentOrchestratedAt =
        field_map json__ "latestAgentOrchestratedAt" Timestamp.of_json in
      make ?latestAggregatedProfile ?latestAgentProfileReportedAt
        ?latestAgentOrchestratedAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Profiling status includes information about the last time a profile agent pinged back, the last time a profile was received, and the aggregation period and start time for the most recent aggregated profile."]
module TagsMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module FindingsReportId =
  struct
    type nonrec t = string
    let context_ = "FindingsReportId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FindingsReportId" j
    let to_json = simple_to_json to_value
  end
module AnomalyInstances =
  struct
    type nonrec t = AnomalyInstance.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:AnomalyInstance.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:AnomalyInstance.of_xml)
    let of_json j =
      list_of_json ~kind:"AnomalyInstances" ~of_json:AnomalyInstance.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Metric =
  struct
    type nonrec t =
      {
      frameName: String_.t option
        [@ocaml.doc
          "The name of the method that appears as a frame in any stack in a profile."];
      threadStates: Strings.t option
        [@ocaml.doc
          "The list of application runtime thread states that is used to calculate the metric value for the frame."];
      type_: MetricType.t option
        [@ocaml.doc
          "A type that specifies how a metric for a frame is analyzed. The supported value AggregatedRelativeTotalTime is an aggregation of the metric value for one frame that is calculated across the occurences of all frames in a profile."]}
    let make ?frameName =
      fun ?threadStates ->
        fun ?type_ -> fun () -> { frameName; threadStates; type_ }
    let to_value x =
      structure_to_value
        [("frameName", (Option.map x.frameName ~f:String_.to_value));
        ("threadStates", (Option.map x.threadStates ~f:Strings.to_value));
        ("type", (Option.map x.type_ ~f:MetricType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:MetricType.of_xml) (Xml.child xml_arg0 "type") in
      let threadStates =
        (Option.map ~f:Strings.of_xml) (Xml.child xml_arg0 "threadStates") in
      let frameName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "frameName") in
      make ?type_ ?threadStates ?frameName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" MetricType.of_json in
      let threadStates = field_map json__ "threadStates" Strings.of_json in
      let frameName = field_map json__ "frameName" String_.of_json in
      make ?type_ ?threadStates ?frameName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the metric that the analysis used when it detected the anomaly. The metric what is analyzed to create recommendations. It includes the name of the frame that was analyzed and the type and thread states used to derive the metric value for that frame."]
module Matches =
  struct
    type nonrec t = Match.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:Match.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:Match.of_xml)
    let of_json j = list_of_json ~kind:"Matches" ~of_json:Match.of_json j
    let to_json v = composed_to_json to_value v
  end
module Pattern =
  struct
    type nonrec t =
      {
      countersToAggregate: Strings.t option
        [@ocaml.doc
          "A list of the different counters used to determine if there is a match."];
      description: String_.t option
        [@ocaml.doc
          "The description of the recommendation. This explains a potential inefficiency in a profiled application."];
      id: String_.t option
        [@ocaml.doc
          "The universally unique identifier (UUID) of this pattern."];
      name: String_.t option [@ocaml.doc "The name for this pattern."];
      resolutionSteps: String_.t option
        [@ocaml.doc
          "A string that contains the steps recommended to address the potential inefficiency."];
      targetFrames: TargetFrames.t option
        [@ocaml.doc
          "A list of frame names that were searched during the analysis that generated a recommendation."];
      thresholdPercent: Percentage.t option
        [@ocaml.doc
          "The percentage of time an application spends in one method that triggers a recommendation. The percentage of time is the same as the percentage of the total gathered sample counts during analysis."]}
    let make ?countersToAggregate =
      fun ?description ->
        fun ?id ->
          fun ?name ->
            fun ?resolutionSteps ->
              fun ?targetFrames ->
                fun ?thresholdPercent ->
                  fun () ->
                    {
                      countersToAggregate;
                      description;
                      id;
                      name;
                      resolutionSteps;
                      targetFrames;
                      thresholdPercent
                    }
    let to_value x =
      structure_to_value
        [("countersToAggregate",
           (Option.map x.countersToAggregate ~f:Strings.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("resolutionSteps",
          (Option.map x.resolutionSteps ~f:String_.to_value));
        ("targetFrames",
          (Option.map x.targetFrames ~f:TargetFrames.to_value));
        ("thresholdPercent",
          (Option.map x.thresholdPercent ~f:Percentage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let thresholdPercent =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "thresholdPercent") in
      let targetFrames =
        (Option.map ~f:TargetFrames.of_xml)
          (Xml.child xml_arg0 "targetFrames") in
      let resolutionSteps =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resolutionSteps") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let countersToAggregate =
        (Option.map ~f:Strings.of_xml)
          (Xml.child xml_arg0 "countersToAggregate") in
      make ?thresholdPercent ?targetFrames ?resolutionSteps ?name ?id
        ?description ?countersToAggregate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let thresholdPercent =
        field_map json__ "thresholdPercent" Percentage.of_json in
      let targetFrames = field_map json__ "targetFrames" TargetFrames.of_json in
      let resolutionSteps =
        field_map json__ "resolutionSteps" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let countersToAggregate =
        field_map json__ "countersToAggregate" Strings.of_json in
      make ?thresholdPercent ?targetFrames ?resolutionSteps ?name ?id
        ?description ?countersToAggregate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set of rules used to make a recommendation during an analysis."]
module AgentParameterField =
  struct
    type nonrec t =
      | SamplingIntervalInMilliseconds 
      | ReportingIntervalInMilliseconds 
      | MinimumTimeForReportingInMilliseconds 
      | MemoryUsageLimitPercent 
      | MaxStackDepth 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SamplingIntervalInMilliseconds -> "SamplingIntervalInMilliseconds"
      | ReportingIntervalInMilliseconds -> "ReportingIntervalInMilliseconds"
      | MinimumTimeForReportingInMilliseconds ->
          "MinimumTimeForReportingInMilliseconds"
      | MemoryUsageLimitPercent -> "MemoryUsageLimitPercent"
      | MaxStackDepth -> "MaxStackDepth"
      | Non_static_id s -> s
    let of_string =
      function
      | "SamplingIntervalInMilliseconds" -> SamplingIntervalInMilliseconds
      | "ReportingIntervalInMilliseconds" -> ReportingIntervalInMilliseconds
      | "MinimumTimeForReportingInMilliseconds" ->
          MinimumTimeForReportingInMilliseconds
      | "MemoryUsageLimitPercent" -> MemoryUsageLimitPercent
      | "MaxStackDepth" -> MaxStackDepth
      | 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 AgentParameterField" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AgentParameterField" j)
    let to_json = simple_to_json to_value
  end
module FrameMetric =
  struct
    type nonrec t =
      {
      frameName: String_.t
        [@ocaml.doc
          "Name of the method common across the multiple occurrences of a frame in an application profile."];
      threadStates: ThreadStates.t
        [@ocaml.doc
          "List of application runtime thread states used to get the counts for a frame a derive a metric value."];
      type_: MetricType.t
        [@ocaml.doc
          "A type of aggregation that specifies how a metric for a frame is analyzed. The supported value AggregatedRelativeTotalTime is an aggregation of the metric value for one frame that is calculated across the occurrences of all frames in a profile."]}
    let context_ = "FrameMetric"
    let make ~frameName =
      fun ~threadStates ->
        fun ~type_ -> fun () -> { frameName; threadStates; type_ }
    let to_value x =
      structure_to_value
        [("frameName", (Some (String_.to_value x.frameName)));
        ("threadStates", (Some (ThreadStates.to_value x.threadStates)));
        ("type", (Some (MetricType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        MetricType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let threadStates =
        ThreadStates.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "threadStates") in
      let frameName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "frameName") in
      make ~type_ ~threadStates ~frameName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "type" MetricType.of_json in
      let threadStates =
        field_map_exn json__ "threadStates" ThreadStates.of_json in
      let frameName = field_map_exn json__ "frameName" String_.of_json in
      make ~type_ ~threadStates ~frameName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The frame name, metric type, and thread states. These are used to derive the value of the metric for the frame."]
module FrameMetricValues =
  struct
    type nonrec t = FrameMetricValue.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:FrameMetricValue.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:FrameMetricValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FrameMetricValues"
        ~of_json:FrameMetricValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimestampStructure =
  struct
    type nonrec t =
      {
      value: Timestamp.t option
        [@ocaml.doc
          "A Timestamp. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "value" Timestamp.of_json in
      make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A data type that contains a Timestamp object. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]
module Channels =
  struct
    type nonrec t = Channel.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Channel.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:Channel.of_xml)
    let of_json j = list_of_json ~kind:"Channels" ~of_json:Channel.of_json j
    let to_json v = composed_to_json to_value v
  end
module Principal =
  struct
    type nonrec t = string
    let context_ = "Principal"
    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:"Principal" j
    let to_json = simple_to_json to_value
  end
module ProfilingGroupDescription =
  struct
    type nonrec t =
      {
      agentOrchestrationConfig: AgentOrchestrationConfig.t option
        [@ocaml.doc
          "An AgentOrchestrationConfig object that indicates if the profiling group is enabled for profiled or not."];
      arn: ProfilingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) identifying the profiling group resource."];
      computePlatform: ComputePlatform.t option
        [@ocaml.doc
          "The compute platform of the profiling group. If it is set to AWSLambda, then the profiled application runs on AWS Lambda. If it is set to Default, then the profiled application runs on a compute platform that is not AWS Lambda, such an Amazon EC2 instance, an on-premises server, or a different platform. The default is Default."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The time when the profiling group was created. Specify using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      name: ProfilingGroupName.t option
        [@ocaml.doc "The name of the profiling group."];
      profilingStatus: ProfilingStatus.t option
        [@ocaml.doc
          "A ProfilingStatus object that includes information about the last time a profile agent pinged back, the last time a profile was received, and the aggregation period and start time for the most recent aggregated profile."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A list of the tags that belong to this profiling group."];
      updatedAt: Timestamp.t option
        [@ocaml.doc
          "The date and time when the profiling group was last updated. Specify using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]}
    let make ?agentOrchestrationConfig =
      fun ?arn ->
        fun ?computePlatform ->
          fun ?createdAt ->
            fun ?name ->
              fun ?profilingStatus ->
                fun ?tags ->
                  fun ?updatedAt ->
                    fun () ->
                      {
                        agentOrchestrationConfig;
                        arn;
                        computePlatform;
                        createdAt;
                        name;
                        profilingStatus;
                        tags;
                        updatedAt
                      }
    let to_value x =
      structure_to_value
        [("agentOrchestrationConfig",
           (Option.map x.agentOrchestrationConfig
              ~f:AgentOrchestrationConfig.to_value));
        ("arn", (Option.map x.arn ~f:ProfilingGroupArn.to_value));
        ("computePlatform",
          (Option.map x.computePlatform ~f:ComputePlatform.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("name", (Option.map x.name ~f:ProfilingGroupName.to_value));
        ("profilingStatus",
          (Option.map x.profilingStatus ~f:ProfilingStatus.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let profilingStatus =
        (Option.map ~f:ProfilingStatus.of_xml)
          (Xml.child xml_arg0 "profilingStatus") in
      let name =
        (Option.map ~f:ProfilingGroupName.of_xml) (Xml.child xml_arg0 "name") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let computePlatform =
        (Option.map ~f:ComputePlatform.of_xml)
          (Xml.child xml_arg0 "computePlatform") in
      let arn =
        (Option.map ~f:ProfilingGroupArn.of_xml) (Xml.child xml_arg0 "arn") in
      let agentOrchestrationConfig =
        (Option.map ~f:AgentOrchestrationConfig.of_xml)
          (Xml.child xml_arg0 "agentOrchestrationConfig") in
      make ?updatedAt ?tags ?profilingStatus ?name ?createdAt
        ?computePlatform ?arn ?agentOrchestrationConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let profilingStatus =
        field_map json__ "profilingStatus" ProfilingStatus.of_json in
      let name = field_map json__ "name" ProfilingGroupName.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let computePlatform =
        field_map json__ "computePlatform" ComputePlatform.of_json in
      let arn = field_map json__ "arn" ProfilingGroupArn.of_json in
      let agentOrchestrationConfig =
        field_map json__ "agentOrchestrationConfig"
          AgentOrchestrationConfig.of_json in
      make ?updatedAt ?tags ?profilingStatus ?name ?createdAt
        ?computePlatform ?arn ?agentOrchestrationConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a profiling group."]
module ProfileTime =
  struct
    type nonrec t =
      {
      start: Timestamp.t option
        [@ocaml.doc
          "The start time of a profile. It is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]}
    let make ?start = fun () -> { start }
    let to_value x =
      structure_to_value
        [("start", (Option.map x.start ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let start =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "start") in
      make ?start ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let start = field_map json__ "start" Timestamp.of_json in
      make ?start ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the start time of a profile."]
module FindingsReportSummary =
  struct
    type nonrec t =
      {
      id: FindingsReportId.t option
        [@ocaml.doc
          "The universally unique identifier (UUID) of the recommendation report."];
      profileEndTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the period during which the metric is flagged as anomalous. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      profileStartTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the profile the analysis data is about. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      profilingGroupName: String_.t option
        [@ocaml.doc
          "The name of the profiling group that is associated with the analysis data."];
      totalNumberOfFindings: Integer.t option
        [@ocaml.doc
          "The total number of different recommendations that were found by the analysis."]}
    let make ?id =
      fun ?profileEndTime ->
        fun ?profileStartTime ->
          fun ?profilingGroupName ->
            fun ?totalNumberOfFindings ->
              fun () ->
                {
                  id;
                  profileEndTime;
                  profileStartTime;
                  profilingGroupName;
                  totalNumberOfFindings
                }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:FindingsReportId.to_value));
        ("profileEndTime",
          (Option.map x.profileEndTime ~f:Timestamp.to_value));
        ("profileStartTime",
          (Option.map x.profileStartTime ~f:Timestamp.to_value));
        ("profilingGroupName",
          (Option.map x.profilingGroupName ~f:String_.to_value));
        ("totalNumberOfFindings",
          (Option.map x.totalNumberOfFindings ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalNumberOfFindings =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "totalNumberOfFindings") in
      let profilingGroupName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "profilingGroupName") in
      let profileStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "profileStartTime") in
      let profileEndTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "profileEndTime") in
      let id =
        (Option.map ~f:FindingsReportId.of_xml) (Xml.child xml_arg0 "id") in
      make ?totalNumberOfFindings ?profilingGroupName ?profileStartTime
        ?profileEndTime ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalNumberOfFindings =
        field_map json__ "totalNumberOfFindings" Integer.of_json in
      let profilingGroupName =
        field_map json__ "profilingGroupName" String_.of_json in
      let profileStartTime =
        field_map json__ "profileStartTime" Timestamp.of_json in
      let profileEndTime =
        field_map json__ "profileEndTime" Timestamp.of_json in
      let id = field_map json__ "id" FindingsReportId.of_json in
      make ?totalNumberOfFindings ?profilingGroupName ?profileStartTime
        ?profileEndTime ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about potential recommendations that might be created from the analysis of profiling data."]
module Anomaly =
  struct
    type nonrec t =
      {
      instances: AnomalyInstances.t option
        [@ocaml.doc
          "A list of the instances of the detected anomalies during the requested period."];
      metric: Metric.t option
        [@ocaml.doc
          "Details about the metric that the analysis used when it detected the anomaly. The metric includes the name of the frame that was analyzed with the type and thread states used to derive the metric value for that frame."];
      reason: String_.t option
        [@ocaml.doc "The reason for which metric was flagged as anomalous."]}
    let make ?instances =
      fun ?metric -> fun ?reason -> fun () -> { instances; metric; reason }
    let to_value x =
      structure_to_value
        [("instances", (Option.map x.instances ~f:AnomalyInstances.to_value));
        ("metric", (Option.map x.metric ~f:Metric.to_value));
        ("reason", (Option.map x.reason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "reason") in
      let metric =
        (Option.map ~f:Metric.of_xml) (Xml.child xml_arg0 "metric") in
      let instances =
        (Option.map ~f:AnomalyInstances.of_xml)
          (Xml.child xml_arg0 "instances") in
      make ?reason ?metric ?instances ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" String_.of_json in
      let metric = field_map json__ "metric" Metric.of_json in
      let instances = field_map json__ "instances" AnomalyInstances.of_json in
      make ?reason ?metric ?instances ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about an anomaly in a specific metric of application profile. The anomaly is detected using analysis of the metric data over a period of time."]
module Recommendation =
  struct
    type nonrec t =
      {
      allMatchesCount: Integer.t option
        [@ocaml.doc
          "How many different places in the profile graph triggered a match."];
      allMatchesSum: Double.t option
        [@ocaml.doc
          "How much of the total sample count is potentially affected."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "End time of the profile that was used by this analysis. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      pattern: Pattern.t option
        [@ocaml.doc
          "The pattern that analysis recognized in the profile to make this recommendation."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the profile that was used by this analysis. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      topMatches: Matches.t option
        [@ocaml.doc "List of the matches with most impact."]}
    let make ?allMatchesCount =
      fun ?allMatchesSum ->
        fun ?endTime ->
          fun ?pattern ->
            fun ?startTime ->
              fun ?topMatches ->
                fun () ->
                  {
                    allMatchesCount;
                    allMatchesSum;
                    endTime;
                    pattern;
                    startTime;
                    topMatches
                  }
    let to_value x =
      structure_to_value
        [("allMatchesCount",
           (Option.map x.allMatchesCount ~f:Integer.to_value));
        ("allMatchesSum", (Option.map x.allMatchesSum ~f:Double.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("pattern", (Option.map x.pattern ~f:Pattern.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("topMatches", (Option.map x.topMatches ~f:Matches.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topMatches =
        (Option.map ~f:Matches.of_xml) (Xml.child xml_arg0 "topMatches") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let pattern =
        (Option.map ~f:Pattern.of_xml) (Xml.child xml_arg0 "pattern") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let allMatchesSum =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "allMatchesSum") in
      let allMatchesCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "allMatchesCount") in
      make ?topMatches ?startTime ?pattern ?endTime ?allMatchesSum
        ?allMatchesCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topMatches = field_map json__ "topMatches" Matches.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let pattern = field_map json__ "pattern" Pattern.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let allMatchesSum = field_map json__ "allMatchesSum" Double.of_json in
      let allMatchesCount =
        field_map json__ "allMatchesCount" Integer.of_json in
      make ?topMatches ?startTime ?pattern ?endTime ?allMatchesSum
        ?allMatchesCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A potential improvement that was found from analyzing the profiling data."]
module AgentParameters =
  struct
    type nonrec t = (AgentParameterField.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((AgentParameterField.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AgentParameterField.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AgentParameterField.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetadataField =
  struct
    type nonrec t =
      | ComputePlatform 
      | AgentId 
      | AwsRequestId 
      | ExecutionEnvironment 
      | LambdaFunctionArn 
      | LambdaMemoryLimitInMB 
      | LambdaRemainingTimeInMilliseconds 
      | LambdaTimeGapBetweenInvokesInMilliseconds 
      | LambdaPreviousExecutionTimeInMilliseconds 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ComputePlatform -> "ComputePlatform"
      | AgentId -> "AgentId"
      | AwsRequestId -> "AwsRequestId"
      | ExecutionEnvironment -> "ExecutionEnvironment"
      | LambdaFunctionArn -> "LambdaFunctionArn"
      | LambdaMemoryLimitInMB -> "LambdaMemoryLimitInMB"
      | LambdaRemainingTimeInMilliseconds ->
          "LambdaRemainingTimeInMilliseconds"
      | LambdaTimeGapBetweenInvokesInMilliseconds ->
          "LambdaTimeGapBetweenInvokesInMilliseconds"
      | LambdaPreviousExecutionTimeInMilliseconds ->
          "LambdaPreviousExecutionTimeInMilliseconds"
      | Non_static_id s -> s
    let of_string =
      function
      | "ComputePlatform" -> ComputePlatform
      | "AgentId" -> AgentId
      | "AwsRequestId" -> AwsRequestId
      | "ExecutionEnvironment" -> ExecutionEnvironment
      | "LambdaFunctionArn" -> LambdaFunctionArn
      | "LambdaMemoryLimitInMB" -> LambdaMemoryLimitInMB
      | "LambdaRemainingTimeInMilliseconds" ->
          LambdaRemainingTimeInMilliseconds
      | "LambdaTimeGapBetweenInvokesInMilliseconds" ->
          LambdaTimeGapBetweenInvokesInMilliseconds
      | "LambdaPreviousExecutionTimeInMilliseconds" ->
          LambdaPreviousExecutionTimeInMilliseconds
      | 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 MetadataField" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetadataField" j)
    let to_json = simple_to_json to_value
  end
module FrameMetricDatum =
  struct
    type nonrec t =
      {
      frameMetric: FrameMetric.t option ;
      values: FrameMetricValues.t option
        [@ocaml.doc
          "A list of values that are associated with a frame metric."]}
    let make ?frameMetric = fun ?values -> fun () -> { frameMetric; values }
    let to_value x =
      structure_to_value
        [("frameMetric", (Option.map x.frameMetric ~f:FrameMetric.to_value));
        ("values", (Option.map x.values ~f:FrameMetricValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:FrameMetricValues.of_xml)
          (Xml.child xml_arg0 "values") in
      let frameMetric =
        (Option.map ~f:FrameMetric.of_xml) (Xml.child xml_arg0 "frameMetric") in
      make ?values ?frameMetric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" FrameMetricValues.of_json in
      let frameMetric = field_map json__ "frameMetric" FrameMetric.of_json in
      make ?values ?frameMetric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a frame metric and its values."]
module ListOfTimestamps =
  struct
    type nonrec t = TimestampStructure.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:TimestampStructure.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:TimestampStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfTimestamps"
        ~of_json:TimestampStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation would cause a conflict with the current state of a service resource associated with the request. Resolve the conflict before retrying this request."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The server encountered an internal error and is unable to complete the request."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource specified in the request does not exist."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The parameter is not valid."]
module TagKeys =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnomalyInstanceId =
  struct
    type nonrec t = string
    let context_ = "AnomalyInstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AnomalyInstanceId" j
    let to_json = simple_to_json to_value
  end
module RevisionId =
  struct
    type nonrec t = string
    let context_ = "RevisionId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RevisionId" j
    let to_json = simple_to_json to_value
  end
module ActionGroup =
  struct
    type nonrec t =
      | AgentPermissions 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AgentPermissions -> "agentPermissions"
      | Non_static_id s -> s
    let of_string =
      function
      | "agentPermissions" -> AgentPermissions
      | 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 ActionGroup" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActionGroup" j)
    let to_json = simple_to_json to_value
  end
module NotificationConfiguration =
  struct
    type nonrec t =
      {
      channels: Channels.t option
        [@ocaml.doc
          "List of up to two channels to be used for sending notifications for events detected from the application profile."]}
    let make ?channels = fun () -> { channels }
    let to_value x =
      structure_to_value
        [("channels", (Option.map x.channels ~f:Channels.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channels =
        (Option.map ~f:Channels.of_xml) (Xml.child xml_arg0 "channels") in
      make ?channels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channels = field_map json__ "channels" Channels.of_json in
      make ?channels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration for notifications stored for each profiling group. This includes up to to two channels and a list of event publishers associated with each channel."]
module Principals =
  struct
    type nonrec t = Principal.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Principal.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:Principal.of_xml)
    let of_json j =
      list_of_json ~kind:"Principals" ~of_json:Principal.of_json j
    let to_json v = composed_to_json to_value v
  end
module AgentProfile =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\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:"ClientToken" j
    let to_json = simple_to_json to_value
  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:64) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\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:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module ProfilingGroupDescriptions =
  struct
    type nonrec t = ProfilingGroupDescription.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:ProfilingGroupDescription.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:ProfilingGroupDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfilingGroupDescriptions"
        ~of_json:ProfilingGroupDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProfilingGroupNames =
  struct
    type nonrec t = ProfilingGroupName.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:ProfilingGroupName.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:ProfilingGroupName.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfilingGroupNames"
        ~of_json:ProfilingGroupName.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ProfileTimes =
  struct
    type nonrec t = ProfileTime.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:ProfileTime.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:ProfileTime.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfileTimes" ~of_json:ProfileTime.of_json j
    let to_json v = composed_to_json to_value v
  end
module OrderBy =
  struct
    type nonrec t =
      | TimestampDescending 
      | TimestampAscending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TimestampDescending -> "TimestampDescending"
      | TimestampAscending -> "TimestampAscending"
      | Non_static_id s -> s
    let of_string =
      function
      | "TimestampDescending" -> TimestampDescending
      | "TimestampAscending" -> TimestampAscending
      | 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 OrderBy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrderBy" j)
    let to_json = simple_to_json to_value
  end
module FindingsReportSummaries =
  struct
    type nonrec t = FindingsReportSummary.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:FindingsReportSummary.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:FindingsReportSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"FindingsReportSummaries"
        ~of_json:FindingsReportSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Anomalies =
  struct
    type nonrec t = Anomaly.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:Anomaly.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:Anomaly.of_xml)
    let of_json j = list_of_json ~kind:"Anomalies" ~of_json:Anomaly.of_json j
    let to_json v = composed_to_json to_value v
  end
module Recommendations =
  struct
    type nonrec t = Recommendation.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:Recommendation.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:Recommendation.of_xml)
    let of_json j =
      list_of_json ~kind:"Recommendations" ~of_json:Recommendation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Locale =
  struct
    type nonrec t = string[@@ocaml.doc
                            "BCP47 language code. Supported locales: de-DE, en-GB, en-US, es-ES, fr-FR, it-IT, ja-JP, ko-KR, pt-BR, zh-CN, zh-TW"]
    let context_ = "Locale"
    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:"Locale" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "BCP47 language code. Supported locales: de-DE, en-GB, en-US, es-ES, fr-FR, it-IT, ja-JP, ko-KR, pt-BR, zh-CN, zh-TW"]
module AggregatedProfile =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module MaxDepth =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000) >>=
             (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 MaxDepth" 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 Period =
  struct
    type nonrec t = string
    let context_ = "Period"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Period" j
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You have exceeded your service quota. To perform the requested action, remove some of the relevant resources, or use Service Quotas to request a service quota increase."]
module AgentConfiguration =
  struct
    type nonrec t =
      {
      agentParameters: AgentParameters.t option
        [@ocaml.doc
          "Parameters used by the profiler. The valid parameters are: MaxStackDepth - The maximum depth of the stacks in the code that is represented in the profile. For example, if CodeGuru Profiler finds a method A, which calls method B, which calls method C, which calls method D, then the depth is 4. If the maxDepth is set to 2, then the profiler evaluates A and B. MemoryUsageLimitPercent - The percentage of memory that is used by the profiler. MinimumTimeForReportingInMilliseconds - The minimum time in milliseconds between sending reports. ReportingIntervalInMilliseconds - The reporting interval in milliseconds used to report profiles. SamplingIntervalInMilliseconds - The sampling interval in milliseconds that is used to profile samples."];
      periodInSeconds: Integer.t option
        [@ocaml.doc
          "How long a profiling agent should send profiling data using ConfigureAgent . For example, if this is set to 300, the profiling agent calls ConfigureAgent every 5 minutes to submit the profiled data collected during that period."];
      shouldProfile: Boolean.t option
        [@ocaml.doc
          "A Boolean that specifies whether the profiling agent collects profiling data or not. Set to true to enable profiling."]}
    let make ?agentParameters =
      fun ?periodInSeconds ->
        fun ?shouldProfile ->
          fun () -> { agentParameters; periodInSeconds; shouldProfile }
    let to_value x =
      structure_to_value
        [("agentParameters",
           (Option.map x.agentParameters ~f:AgentParameters.to_value));
        ("periodInSeconds",
          (Option.map x.periodInSeconds ~f:Integer.to_value));
        ("shouldProfile", (Option.map x.shouldProfile ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shouldProfile =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "shouldProfile") in
      let periodInSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "periodInSeconds") in
      let agentParameters =
        (Option.map ~f:AgentParameters.of_xml)
          (Xml.child xml_arg0 "agentParameters") in
      make ?shouldProfile ?periodInSeconds ?agentParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shouldProfile = field_map json__ "shouldProfile" Boolean.of_json in
      let periodInSeconds =
        field_map json__ "periodInSeconds" Integer.of_json in
      let agentParameters =
        field_map json__ "agentParameters" AgentParameters.of_json in
      make ?shouldProfile ?periodInSeconds ?agentParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response of ConfigureAgent that specifies if an agent profiles or not and for how long to return profiling data."]
module FleetInstanceId =
  struct
    type nonrec t = string
    let context_ = "FleetInstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FleetInstanceId" j
    let to_json = simple_to_json to_value
  end
module Metadata =
  struct
    type nonrec t = (MetadataField.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((MetadataField.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MetadataField.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:MetadataField.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module FrameMetricData =
  struct
    type nonrec t = FrameMetricDatum.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:FrameMetricDatum.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:FrameMetricDatum.of_xml)
    let of_json j =
      list_of_json ~kind:"FrameMetricData" ~of_json:FrameMetricDatum.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module UnprocessedEndTimeMap =
  struct
    type nonrec t = (String_.t * ListOfTimestamps.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 String ListOfTimestamps"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x ->
                       (ListOfTimestamps.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:ListOfTimestamps.of_json j
    let to_json v = composed_to_json to_value v
  end
module FrameMetrics =
  struct
    type nonrec t = FrameMetric.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:FrameMetric.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:FrameMetric.of_xml)
    let of_json j =
      list_of_json ~kind:"FrameMetrics" ~of_json:FrameMetric.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateProfilingGroupResponse =
  struct
    type nonrec t =
      {
      profilingGroup: ProfilingGroupDescription.t option
        [@ocaml.doc
          "A ProfilingGroupDescription that contains information about the returned updated profiling group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profilingGroup = fun () -> { profilingGroup }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) -> make ?profilingGroup:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("profilingGroup",
           (Option.map x.profilingGroup ~f:ProfilingGroupDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroup =
        (Option.map ~f:ProfilingGroupDescription.of_xml)
          (Xml.child xml_arg0 "profilingGroup") in
      make ?profilingGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroup =
        field_map json__ "profilingGroup" ProfilingGroupDescription.of_json in
      make ?profilingGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the updateProfilingGroupResponse."]
module UpdateProfilingGroupRequest =
  struct
    type nonrec t =
      {
      agentOrchestrationConfig: AgentOrchestrationConfig.t
        [@ocaml.doc
          "Specifies whether profiling is enabled or disabled for a profiling group."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group to update."]}
    let context_ = "UpdateProfilingGroupRequest"
    let make ~agentOrchestrationConfig =
      fun ~profilingGroupName ->
        fun () -> { agentOrchestrationConfig; profilingGroupName }
    let to_value x =
      structure_to_value
        [("agentOrchestrationConfig",
           (Some
              (AgentOrchestrationConfig.to_value x.agentOrchestrationConfig)));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let agentOrchestrationConfig =
        AgentOrchestrationConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "agentOrchestrationConfig") in
      make ~profilingGroupName ~agentOrchestrationConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let agentOrchestrationConfig =
        field_map_exn json__ "agentOrchestrationConfig"
          AgentOrchestrationConfig.of_json in
      make ~profilingGroupName ~agentOrchestrationConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the updateProfilingGroupRequest."]
module UntagResourceResponse =
  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 "Use to remove one or more tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ProfilingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that contains the tags to remove."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "A list of tag keys. Existing tags of resources with keys in this list are removed from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ProfilingGroupArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        ProfilingGroupArn.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" TagKeys.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ProfilingGroupArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Use to remove one or more tags from a resource."]
module TagResourceResponse =
  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 "Use to assign one or more tags to a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ProfilingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that the tags are added to."];
      tags: TagsMap.t
        [@ocaml.doc
          "The list of tags that are added to the specified resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ProfilingGroupArn.to_value x.resourceArn)));
        ("tags", (Some (TagsMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        ProfilingGroupArn.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" TagsMap.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ProfilingGroupArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Use to assign one or more tags to a resource."]
module SubmitFeedbackResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the SubmitFeedbackResponse."]
module SubmitFeedbackRequest =
  struct
    type nonrec t =
      {
      anomalyInstanceId: AnomalyInstanceId.t
        [@ocaml.doc
          "The universally unique identifier (UUID) of the AnomalyInstance object that is included in the analysis data."];
      comment: String_.t option
        [@ocaml.doc "Optional feedback about this anomaly."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group that is associated with the analysis data."];
      type_: FeedbackType.t
        [@ocaml.doc
          "The feedback tpye. Thee are two valid values, Positive and Negative."]}
    let context_ = "SubmitFeedbackRequest"
    let make ?comment =
      fun ~anomalyInstanceId ->
        fun ~profilingGroupName ->
          fun ~type_ ->
            fun () ->
              { comment; anomalyInstanceId; profilingGroupName; type_ }
    let to_value x =
      structure_to_value
        [("anomalyInstanceId",
           (Some (AnomalyInstanceId.to_value x.anomalyInstanceId)));
        ("comment", (Option.map x.comment ~f:String_.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("type", (Some (FeedbackType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        FeedbackType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let comment =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "comment") in
      let anomalyInstanceId =
        AnomalyInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "anomalyInstanceId") in
      make ~type_ ~profilingGroupName ?comment ~anomalyInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "type" FeedbackType.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let comment = field_map json__ "comment" String_.of_json in
      let anomalyInstanceId =
        field_map_exn json__ "anomalyInstanceId" AnomalyInstanceId.of_json in
      make ~type_ ~profilingGroupName ?comment ~anomalyInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the SubmitFeedbackRequest."]
module RemovePermissionResponse =
  struct
    type nonrec t =
      {
      policy: String_.t option
        [@ocaml.doc
          "The JSON-formatted resource-based policy on the profiling group after the specified permissions were removed."];
      revisionId: RevisionId.t option
        [@ocaml.doc
          "A universally unique identifier (UUID) for the revision of the resource-based policy after the specified permissions were removed. The updated JSON-formatted policy is in the policy element of the response."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:String_.to_value));
        ("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      let policy = field_map json__ "policy" String_.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the removePermissionResponse."]
module RemovePermissionRequest =
  struct
    type nonrec t =
      {
      actionGroup: ActionGroup.t
        [@ocaml.doc
          "Specifies an action group that contains the permissions to remove from a profiling group's resource-based policy. One action group is supported, agentPermissions, which grants ConfigureAgent and PostAgentProfile permissions."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group."];
      revisionId: RevisionId.t
        [@ocaml.doc
          "A universally unique identifier (UUID) for the revision of the resource-based policy from which you want to remove permissions."]}
    let context_ = "RemovePermissionRequest"
    let make ~actionGroup =
      fun ~profilingGroupName ->
        fun ~revisionId ->
          fun () -> { actionGroup; profilingGroupName; revisionId }
    let to_value x =
      structure_to_value
        [("actionGroup", (Some (ActionGroup.to_value x.actionGroup)));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("revisionId", (Some (RevisionId.to_value x.revisionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        RevisionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let actionGroup =
        ActionGroup.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionGroup") in
      make ~revisionId ~profilingGroupName ~actionGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map_exn json__ "revisionId" RevisionId.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let actionGroup =
        field_map_exn json__ "actionGroup" ActionGroup.of_json in
      make ~revisionId ~profilingGroupName ~actionGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the <code>removePermissionRequest</code>.</p>"]
module RemoveNotificationChannelResponse =
  struct
    type nonrec t =
      {
      notificationConfiguration: NotificationConfiguration.t option
        [@ocaml.doc
          "The new notification configuration for this profiling group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notificationConfiguration =
      fun () -> { notificationConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("notificationConfiguration",
           (Option.map x.notificationConfiguration
              ~f:NotificationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfiguration =
        (Option.map ~f:NotificationConfiguration.of_xml)
          (Xml.child xml_arg0 "notificationConfiguration") in
      make ?notificationConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfiguration =
        field_map json__ "notificationConfiguration"
          NotificationConfiguration.of_json in
      make ?notificationConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the RemoveNotificationChannelResponse."]
module RemoveNotificationChannelRequest =
  struct
    type nonrec t =
      {
      channelId: ChannelId.t
        [@ocaml.doc
          "The id of the channel that we want to stop receiving notifications."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group we want to change notification configuration for."]}
    let context_ = "RemoveNotificationChannelRequest"
    let make ~channelId =
      fun ~profilingGroupName -> fun () -> { channelId; profilingGroupName }
    let to_value x =
      structure_to_value
        [("channelId", (Some (ChannelId.to_value x.channelId)));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let channelId =
        ChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      make ~profilingGroupName ~channelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let channelId = field_map_exn json__ "channelId" ChannelId.of_json in
      make ~profilingGroupName ~channelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the RemoveNotificationChannelRequest."]
module PutPermissionResponse =
  struct
    type nonrec t =
      {
      policy: String_.t option
        [@ocaml.doc
          "The JSON-formatted resource-based policy on the profiling group that includes the added permissions."];
      revisionId: RevisionId.t option
        [@ocaml.doc
          "A universally unique identifier (UUID) for the revision of the resource-based policy that includes the added permissions. The JSON-formatted policy is in the policy element of the response."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:String_.to_value));
        ("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      let policy = field_map json__ "policy" String_.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the putPermissionResponse."]
module PutPermissionRequest =
  struct
    type nonrec t =
      {
      actionGroup: ActionGroup.t
        [@ocaml.doc
          "Specifies an action group that contains permissions to add to a profiling group resource. One action group is supported, agentPermissions, which grants permission to perform actions required by the profiling agent, ConfigureAgent and PostAgentProfile permissions."];
      principals: Principals.t
        [@ocaml.doc
          "A list ARNs for the roles and users you want to grant access to the profiling group. Wildcards are not are supported in the ARNs."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group to grant access to."];
      revisionId: RevisionId.t option
        [@ocaml.doc
          "A universally unique identifier (UUID) for the revision of the policy you are adding to the profiling group. Do not specify this when you add permissions to a profiling group for the first time. If a policy already exists on the profiling group, you must specify the revisionId."]}
    let context_ = "PutPermissionRequest"
    let make ?revisionId =
      fun ~actionGroup ->
        fun ~principals ->
          fun ~profilingGroupName ->
            fun () ->
              { revisionId; actionGroup; principals; profilingGroupName }
    let to_value x =
      structure_to_value
        [("actionGroup", (Some (ActionGroup.to_value x.actionGroup)));
        ("principals", (Some (Principals.to_value x.principals)));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let principals =
        Principals.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "principals") in
      let actionGroup =
        ActionGroup.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionGroup") in
      make ?revisionId ~profilingGroupName ~principals ~actionGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let principals = field_map_exn json__ "principals" Principals.of_json in
      let actionGroup =
        field_map_exn json__ "actionGroup" ActionGroup.of_json in
      make ?revisionId ~profilingGroupName ~principals ~actionGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the putPermissionRequest."]
module PostAgentProfileResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the postAgentProfileResponse."]
module PostAgentProfileRequest =
  struct
    type nonrec t =
      {
      agentProfile: AgentProfile.t
        [@ocaml.doc "The submitted profiling data."];
      contentType: String_.t
        [@ocaml.doc
          "The format of the submitted profiling data. The format maps to the Accept and Content-Type headers of the HTTP request. You can specify one of the following: or the default . <ul> <li> <p> <code>application/json</code> \226\128\148 standard JSON format </p> </li> <li> <p> <code>application/x-amzn-ion</code> \226\128\148 the Amazon Ion data format. For more information, see <a href=\"http://amzn.github.io/ion-docs/\">Amazon Ion</a>. </p> </li> </ul>"];
      profileToken: ClientToken.t option
        [@ocaml.doc
          "Amazon CodeGuru Profiler uses this universally unique identifier (UUID) to prevent the accidental submission of duplicate profiling data if there are failures and retries."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group with the aggregated profile that receives the submitted profiling data."]}
    let context_ = "PostAgentProfileRequest"
    let make ?profileToken =
      fun ~agentProfile ->
        fun ~contentType ->
          fun ~profilingGroupName ->
            fun () ->
              { profileToken; agentProfile; contentType; profilingGroupName }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make ~agentProfile:pipe
            ~contentType:(String_.of_string
                            ((List.Assoc.find_exn
                                ~equal:String.Caseless.equal) xs
                               "Content-Type"))
            ?profileToken:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "profileToken") ~f:ClientToken.of_string)
            ~profilingGroupName:(ProfilingGroupName.of_string
                                   ((List.Assoc.find_exn
                                       ~equal:String.Caseless.equal) xs
                                      "profilingGroupName")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("agentProfile", (Some (AgentProfile.to_value x.agentProfile)));
        ("Content-Type", (Some (String_.to_value x.contentType)));
        ("profileToken", (Option.map x.profileToken ~f:ClientToken.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let profileToken =
        (Option.map ~f:ClientToken.of_xml)
          (Xml.child xml_arg0 "profileToken") in
      let contentType =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Content-Type") in
      let agentProfile =
        AgentProfile.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentProfile") in
      make ~profilingGroupName ?profileToken ~contentType ~agentProfile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let profileToken = field_map json__ "profileToken" ClientToken.of_json in
      let contentType = field_map_exn json__ "contentType" String_.of_json in
      let agentProfile =
        field_map_exn json__ "agentProfile" AgentProfile.of_json in
      make ~profilingGroupName ?profileToken ~contentType ~agentProfile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the postAgentProfileRequest."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagsMap.t option
        [@ocaml.doc
          "The list of tags assigned to the specified resource. This is the list of tags returned in the response."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `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
      | "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 [("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.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" TagsMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the tags that are assigned to a specified resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ProfilingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that contains the tags to return."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ProfilingGroupArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ProfilingGroupArn.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" ProfilingGroupArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the tags that are assigned to a specified resource."]
module ListProfilingGroupsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future ListProfilingGroups request. When the results of a ListProfilingGroups 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."];
      profilingGroupNames: ProfilingGroupNames.t option
        [@ocaml.doc
          "A returned list of profiling group names. A list of the names is returned only if includeDescription is false, otherwise a list of ProfilingGroupDescription objects is returned."];
      profilingGroups: ProfilingGroupDescriptions.t option
        [@ocaml.doc
          "A returned list ProfilingGroupDescription objects. A list of ProfilingGroupDescription objects is returned only if includeDescription is true, otherwise a list of profiling group names is returned."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?profilingGroupNames ->
        fun ?profilingGroups ->
          fun () -> { nextToken; profilingGroupNames; profilingGroups }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("profilingGroupNames",
          (Option.map x.profilingGroupNames ~f:ProfilingGroupNames.to_value));
        ("profilingGroups",
          (Option.map x.profilingGroups
             ~f:ProfilingGroupDescriptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroups =
        (Option.map ~f:ProfilingGroupDescriptions.of_xml)
          (Xml.child xml_arg0 "profilingGroups") in
      let profilingGroupNames =
        (Option.map ~f:ProfilingGroupNames.of_xml)
          (Xml.child xml_arg0 "profilingGroupNames") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?profilingGroups ?profilingGroupNames ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroups =
        field_map json__ "profilingGroups" ProfilingGroupDescriptions.of_json in
      let profilingGroupNames =
        field_map json__ "profilingGroupNames" ProfilingGroupNames.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?profilingGroups ?profilingGroupNames ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the listProfilingGroupsResponse."]
module ListProfilingGroupsRequest =
  struct
    type nonrec t =
      {
      includeDescription: Boolean.t option
        [@ocaml.doc
          "A Boolean value indicating whether to include a description. If true, then a list of ProfilingGroupDescription objects that contain detailed information about profiling groups is returned. If false, then a list of profiling group names is returned."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of profiling groups results returned by ListProfilingGroups in paginated output. When this parameter is used, ListProfilingGroups only returns maxResults results in a single page along with a nextToken response element. The remaining results of the initial request can be seen by sending another ListProfilingGroups request with the returned nextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value returned from a previous paginated ListProfilingGroups 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 token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes."]}
    let make ?includeDescription =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () -> { includeDescription; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("includeDescription",
           (Option.map x.includeDescription ~f:Boolean.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.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 maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let includeDescription =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "includeDescription") in
      make ?nextToken ?maxResults ?includeDescription ()
    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 maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let includeDescription =
        field_map json__ "includeDescription" Boolean.of_json in
      make ?nextToken ?maxResults ?includeDescription ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the listProfilingGroupsRequest."]
module ListProfileTimesResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future ListProfileTimes request. When the results of a ListProfileTimes 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."];
      profileTimes: ProfileTimes.t option
        [@ocaml.doc
          "The list of start times of the available profiles for the aggregation period in the specified time range."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?profileTimes -> fun () -> { nextToken; profileTimes }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("profileTimes",
          (Option.map x.profileTimes ~f:ProfileTimes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileTimes =
        (Option.map ~f:ProfileTimes.of_xml)
          (Xml.child xml_arg0 "profileTimes") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?profileTimes ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileTimes = field_map json__ "profileTimes" ProfileTimes.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?profileTimes ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the listProfileTimesResponse."]
module ListProfileTimesRequest =
  struct
    type nonrec t =
      {
      endTime: Timestamp.t
        [@ocaml.doc
          "The end time of the time range from which to list the profiles."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of profile time results returned by ListProfileTimes in paginated output. When this parameter is used, ListProfileTimes only returns maxResults results in a single page with a nextToken response element. The remaining results of the initial request can be seen by sending another ListProfileTimes request with the returned nextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value returned from a previous paginated ListProfileTimes 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 token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes."];
      orderBy: OrderBy.t option
        [@ocaml.doc
          "The order (ascending or descending by start time of the profile) to use when listing profiles. Defaults to TIMESTAMP_DESCENDING."];
      period: AggregationPeriod.t
        [@ocaml.doc
          "The aggregation period. This specifies the period during which an aggregation profile collects posted agent profiles for a profiling group. There are 3 valid values. P1D \226\128\148 1 day PT1H \226\128\148 1 hour PT5M \226\128\148 5 minutes"];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group."];
      startTime: Timestamp.t
        [@ocaml.doc
          "The start time of the time range from which to list the profiles."]}
    let context_ = "ListProfileTimesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?orderBy ->
          fun ~endTime ->
            fun ~period ->
              fun ~profilingGroupName ->
                fun ~startTime ->
                  fun () ->
                    {
                      maxResults;
                      nextToken;
                      orderBy;
                      endTime;
                      period;
                      profilingGroupName;
                      startTime
                    }
    let to_value x =
      structure_to_value
        [("endTime", (Some (Timestamp.to_value x.endTime)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("orderBy", (Option.map x.orderBy ~f:OrderBy.to_value));
        ("period", (Some (AggregationPeriod.to_value x.period)));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("startTime", (Some (Timestamp.to_value x.startTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let period =
        AggregationPeriod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "period") in
      let orderBy =
        (Option.map ~f:OrderBy.of_xml) (Xml.child xml_arg0 "orderBy") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      make ~startTime ~profilingGroupName ~period ?orderBy ?nextToken
        ?maxResults ~endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map_exn json__ "startTime" Timestamp.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let period = field_map_exn json__ "period" AggregationPeriod.of_json in
      let orderBy = field_map json__ "orderBy" OrderBy.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let endTime = field_map_exn json__ "endTime" Timestamp.of_json in
      make ~startTime ~profilingGroupName ~period ?orderBy ?nextToken
        ?maxResults ~endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the listProfileTimesRequest."]
module ListFindingsReportsResponse =
  struct
    type nonrec t =
      {
      findingsReportSummaries: FindingsReportSummaries.t option
        [@ocaml.doc "The list of analysis results summaries."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future ListFindingsReports request. When the results of a ListFindingsReports 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 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?findingsReportSummaries =
      fun ?nextToken -> fun () -> { findingsReportSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("findingsReportSummaries",
           (Option.map x.findingsReportSummaries
              ~f:FindingsReportSummaries.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 findingsReportSummaries =
        (Option.map ~f:FindingsReportSummaries.of_xml)
          (Xml.child xml_arg0 "findingsReportSummaries") in
      make ?nextToken ?findingsReportSummaries ()
    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 findingsReportSummaries =
        field_map json__ "findingsReportSummaries"
          FindingsReportSummaries.of_json in
      make ?nextToken ?findingsReportSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the ListFindingsReportsResponse."]
module ListFindingsReportsRequest =
  struct
    type nonrec t =
      {
      dailyReportsOnly: Boolean.t option
        [@ocaml.doc
          "A Boolean value indicating whether to only return reports from daily profiles. If set to True, only analysis data from daily profiles is returned. If set to False, analysis data is returned from smaller time windows (for example, one hour)."];
      endTime: Timestamp.t
        [@ocaml.doc
          "The end time of the profile to get analysis data about. You must specify startTime and endTime. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of report results returned by ListFindingsReports in paginated output. When this parameter is used, ListFindingsReports only returns maxResults results in a single page along with a nextToken response element. The remaining results of the initial request can be seen by sending another ListFindingsReports request with the returned nextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value returned from a previous paginated ListFindingsReportsRequest 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 token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group from which to search for analysis data."];
      startTime: Timestamp.t
        [@ocaml.doc
          "The start time of the profile to get analysis data about. You must specify startTime and endTime. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]}
    let context_ = "ListFindingsReportsRequest"
    let make ?dailyReportsOnly =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~endTime ->
            fun ~profilingGroupName ->
              fun ~startTime ->
                fun () ->
                  {
                    dailyReportsOnly;
                    maxResults;
                    nextToken;
                    endTime;
                    profilingGroupName;
                    startTime
                  }
    let to_value x =
      structure_to_value
        [("dailyReportsOnly",
           (Option.map x.dailyReportsOnly ~f:Boolean.to_value));
        ("endTime", (Some (Timestamp.to_value x.endTime)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("startTime", (Some (Timestamp.to_value x.startTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      let dailyReportsOnly =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "dailyReportsOnly") in
      make ~startTime ~profilingGroupName ?nextToken ?maxResults ~endTime
        ?dailyReportsOnly ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map_exn json__ "startTime" Timestamp.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let endTime = field_map_exn json__ "endTime" Timestamp.of_json in
      let dailyReportsOnly =
        field_map json__ "dailyReportsOnly" Boolean.of_json in
      make ~startTime ~profilingGroupName ?nextToken ?maxResults ~endTime
        ?dailyReportsOnly ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the ListFindingsReportsRequest."]
module GetRecommendationsResponse =
  struct
    type nonrec t =
      {
      anomalies: Anomalies.t option
        [@ocaml.doc
          "The list of anomalies that the analysis has found for this profile."];
      profileEndTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the profile the analysis data is about. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      profileStartTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the profile the analysis data is about. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      profilingGroupName: ProfilingGroupName.t option
        [@ocaml.doc
          "The name of the profiling group the analysis data is about."];
      recommendations: Recommendations.t option
        [@ocaml.doc
          "The list of recommendations that the analysis found for this profile."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?anomalies =
      fun ?profileEndTime ->
        fun ?profileStartTime ->
          fun ?profilingGroupName ->
            fun ?recommendations ->
              fun () ->
                {
                  anomalies;
                  profileEndTime;
                  profileStartTime;
                  profilingGroupName;
                  recommendations
                }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("anomalies", (Option.map x.anomalies ~f:Anomalies.to_value));
        ("profileEndTime",
          (Option.map x.profileEndTime ~f:Timestamp.to_value));
        ("profileStartTime",
          (Option.map x.profileStartTime ~f:Timestamp.to_value));
        ("profilingGroupName",
          (Option.map x.profilingGroupName ~f:ProfilingGroupName.to_value));
        ("recommendations",
          (Option.map x.recommendations ~f:Recommendations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendations =
        (Option.map ~f:Recommendations.of_xml)
          (Xml.child xml_arg0 "recommendations") in
      let profilingGroupName =
        (Option.map ~f:ProfilingGroupName.of_xml)
          (Xml.child xml_arg0 "profilingGroupName") in
      let profileStartTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "profileStartTime") in
      let profileEndTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "profileEndTime") in
      let anomalies =
        (Option.map ~f:Anomalies.of_xml) (Xml.child xml_arg0 "anomalies") in
      make ?recommendations ?profilingGroupName ?profileStartTime
        ?profileEndTime ?anomalies ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendations =
        field_map json__ "recommendations" Recommendations.of_json in
      let profilingGroupName =
        field_map json__ "profilingGroupName" ProfilingGroupName.of_json in
      let profileStartTime =
        field_map json__ "profileStartTime" Timestamp.of_json in
      let profileEndTime =
        field_map json__ "profileEndTime" Timestamp.of_json in
      let anomalies = field_map json__ "anomalies" Anomalies.of_json in
      make ?recommendations ?profilingGroupName ?profileStartTime
        ?profileEndTime ?anomalies ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the GetRecommendationsResponse."]
module GetRecommendationsRequest =
  struct
    type nonrec t =
      {
      endTime: Timestamp.t
        [@ocaml.doc
          "The start time of the profile to get analysis data about. You must specify startTime and endTime. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      locale: Locale.t option
        [@ocaml.doc
          "The language used to provide analysis. Specify using a string that is one of the following BCP 47 language codes. de-DE - German, Germany en-GB - English, United Kingdom en-US - English, United States es-ES - Spanish, Spain fr-FR - French, France it-IT - Italian, Italy ja-JP - Japanese, Japan ko-KR - Korean, Republic of Korea pt-BR - Portugese, Brazil zh-CN - Chinese, China zh-TW - Chinese, Taiwan"];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group to get analysis data about."];
      startTime: Timestamp.t
        [@ocaml.doc
          "The end time of the profile to get analysis data about. You must specify startTime and endTime. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."]}
    let context_ = "GetRecommendationsRequest"
    let make ?locale =
      fun ~endTime ->
        fun ~profilingGroupName ->
          fun ~startTime ->
            fun () -> { locale; endTime; profilingGroupName; startTime }
    let to_value x =
      structure_to_value
        [("endTime", (Some (Timestamp.to_value x.endTime)));
        ("locale", (Option.map x.locale ~f:Locale.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("startTime", (Some (Timestamp.to_value x.startTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let locale =
        (Option.map ~f:Locale.of_xml) (Xml.child xml_arg0 "locale") in
      let endTime =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      make ~startTime ~profilingGroupName ?locale ~endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map_exn json__ "startTime" Timestamp.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let locale = field_map json__ "locale" Locale.of_json in
      let endTime = field_map_exn json__ "endTime" Timestamp.of_json in
      make ~startTime ~profilingGroupName ?locale ~endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the GetRecommendationsRequest."]
module GetProfileResponse =
  struct
    type nonrec t =
      {
      contentEncoding: String_.t option
        [@ocaml.doc "The content encoding of the profile."];
      contentType: String_.t option
        [@ocaml.doc
          "The content type of the profile in the payload. It is either application/json or the default application/x-amzn-ion."];
      profile: AggregatedProfile.t option
        [@ocaml.doc "Information about the profile."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contentEncoding =
      fun ?contentType ->
        fun ?profile -> fun () -> { contentEncoding; contentType; profile }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ?contentEncoding:(Option.map
                                ((List.Assoc.find
                                    ~equal:String.Caseless.equal) xs
                                   "Content-Encoding") ~f:String_.of_string)
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:String_.of_string)
            ?profile:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Content-Encoding",
           (Option.map x.contentEncoding ~f:String_.to_value));
        ("Content-Type", (Option.map x.contentType ~f:String_.to_value));
        ("profile", (Option.map x.profile ~f:AggregatedProfile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profile =
        (Option.map ~f:AggregatedProfile.of_xml)
          (Xml.child xml_arg0 "profile") in
      let contentType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Content-Type") in
      let contentEncoding =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "Content-Encoding") in
      make ?profile ?contentType ?contentEncoding ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profile = field_map json__ "profile" AggregatedProfile.of_json in
      let contentType = field_map json__ "contentType" String_.of_json in
      let contentEncoding =
        field_map json__ "contentEncoding" String_.of_json in
      make ?profile ?contentType ?contentEncoding ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the getProfileResponse."]
module GetProfileRequest =
  struct
    type nonrec t =
      {
      accept: String_.t option
        [@ocaml.doc
          "The format of the returned profiling data. The format maps to the Accept and Content-Type headers of the HTTP request. You can specify one of the following: or the default . <ul> <li> <p> <code>application/json</code> \226\128\148 standard JSON format </p> </li> <li> <p> <code>application/x-amzn-ion</code> \226\128\148 the Amazon Ion data format. For more information, see <a href=\"http://amzn.github.io/ion-docs/\">Amazon Ion</a>. </p> </li> </ul>"];
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the requested profile. Specify using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC. If you specify endTime, then you must also specify period or startTime, but not both."];
      maxDepth: MaxDepth.t option
        [@ocaml.doc
          "The maximum depth of the stacks in the code that is represented in the aggregated profile. For example, if CodeGuru Profiler finds a method A, which calls method B, which calls method C, which calls method D, then the depth is 4. If the maxDepth is set to 2, then the aggregated profile contains representations of methods A and B."];
      period: Period.t option
        [@ocaml.doc
          "Used with startTime or endTime to specify the time range for the returned aggregated profile. Specify using the ISO 8601 format. For example, P1DT1H1M1S. <p> To get the latest aggregated profile, specify only <code>period</code>. </p>"];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group to get."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the profile to get. Specify using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC. <p> If you specify <code>startTime</code>, then you must also specify <code>period</code> or <code>endTime</code>, but not both. </p>"]}
    let context_ = "GetProfileRequest"
    let make ?accept =
      fun ?endTime ->
        fun ?maxDepth ->
          fun ?period ->
            fun ?startTime ->
              fun ~profilingGroupName ->
                fun () ->
                  {
                    accept;
                    endTime;
                    maxDepth;
                    period;
                    startTime;
                    profilingGroupName
                  }
    let to_value x =
      structure_to_value
        [("Accept", (Option.map x.accept ~f:String_.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("maxDepth", (Option.map x.maxDepth ~f:MaxDepth.to_value));
        ("period", (Option.map x.period ~f:Period.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let period =
        (Option.map ~f:Period.of_xml) (Xml.child xml_arg0 "period") in
      let maxDepth =
        (Option.map ~f:MaxDepth.of_xml) (Xml.child xml_arg0 "maxDepth") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let accept =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Accept") in
      make ?startTime ~profilingGroupName ?period ?maxDepth ?endTime ?accept
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let period = field_map json__ "period" Period.of_json in
      let maxDepth = field_map json__ "maxDepth" MaxDepth.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let accept = field_map json__ "accept" String_.of_json in
      make ?startTime ~profilingGroupName ?period ?maxDepth ?endTime ?accept
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the getProfileRequest."]
module GetPolicyResponse =
  struct
    type nonrec t =
      {
      policy: String_.t option
        [@ocaml.doc
          "The JSON-formatted resource-based policy attached to the ProfilingGroup."];
      revisionId: RevisionId.t option
        [@ocaml.doc
          "A unique identifier for the current revision of the returned policy."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("policy", (Option.map x.policy ~f:String_.to_value));
        ("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      let policy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      let policy = field_map json__ "policy" String_.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the getPolicyResponse."]
module GetPolicyRequest =
  struct
    type nonrec t =
      {
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group."]}
    let context_ = "GetPolicyRequest"
    let make ~profilingGroupName = fun () -> { profilingGroupName }
    let to_value x =
      structure_to_value
        [("profilingGroupName",
           (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      make ~profilingGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      make ~profilingGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the getPolicyRequest."]
module GetNotificationConfigurationResponse =
  struct
    type nonrec t =
      {
      notificationConfiguration: NotificationConfiguration.t option
        [@ocaml.doc
          "The current notification configuration for this profiling group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notificationConfiguration =
      fun () -> { notificationConfiguration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("notificationConfiguration",
           (Option.map x.notificationConfiguration
              ~f:NotificationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfiguration =
        (Option.map ~f:NotificationConfiguration.of_xml)
          (Xml.child xml_arg0 "notificationConfiguration") in
      make ?notificationConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfiguration =
        field_map json__ "notificationConfiguration"
          NotificationConfiguration.of_json in
      make ?notificationConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the GetNotificationConfigurationResponse."]
module GetNotificationConfigurationRequest =
  struct
    type nonrec t =
      {
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group we want to get the notification configuration for."]}
    let context_ = "GetNotificationConfigurationRequest"
    let make ~profilingGroupName = fun () -> { profilingGroupName }
    let to_value x =
      structure_to_value
        [("profilingGroupName",
           (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      make ~profilingGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      make ~profilingGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the GetNotificationConfigurationRequest."]
module GetFindingsReportAccountSummaryResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future GetFindingsReportAccountSummary request. When the results of a GetFindingsReportAccountSummary 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."];
      reportSummaries: FindingsReportSummaries.t option
        [@ocaml.doc
          "The return list of FindingsReportSummary objects taht contain summaries of analysis results for all profiling groups in your AWS account."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?reportSummaries -> fun () -> { nextToken; reportSummaries }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("reportSummaries",
          (Option.map x.reportSummaries ~f:FindingsReportSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportSummaries =
        (Option.map ~f:FindingsReportSummaries.of_xml)
          (Xml.child xml_arg0 "reportSummaries") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?reportSummaries ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportSummaries =
        field_map json__ "reportSummaries" FindingsReportSummaries.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?reportSummaries ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the GetFindingsReportAccountSummaryResponse."]
module GetFindingsReportAccountSummaryRequest =
  struct
    type nonrec t =
      {
      dailyReportsOnly: Boolean.t option
        [@ocaml.doc
          "A Boolean value indicating whether to only return reports from daily profiles. If set to True, only analysis data from daily profiles is returned. If set to False, analysis data is returned from smaller time windows (for example, one hour)."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results returned by GetFindingsReportAccountSummary in paginated output. When this parameter is used, GetFindingsReportAccountSummary only returns maxResults results in a single page along with a nextToken response element. The remaining results of the initial request can be seen by sending another GetFindingsReportAccountSummary request with the returned nextToken value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The nextToken value returned from a previous paginated GetFindingsReportAccountSummary 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 token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes."]}
    let make ?dailyReportsOnly =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () -> { dailyReportsOnly; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("dailyReportsOnly",
           (Option.map x.dailyReportsOnly ~f:Boolean.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.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 maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let dailyReportsOnly =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "dailyReportsOnly") in
      make ?nextToken ?maxResults ?dailyReportsOnly ()
    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 maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let dailyReportsOnly =
        field_map json__ "dailyReportsOnly" Boolean.of_json in
      make ?nextToken ?maxResults ?dailyReportsOnly ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the GetFindingsReportAccountSummaryRequest."]
module DescribeProfilingGroupResponse =
  struct
    type nonrec t =
      {
      profilingGroup: ProfilingGroupDescription.t option
        [@ocaml.doc
          "The returned ProfilingGroupDescription object that contains information about the requested profiling group."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profilingGroup = fun () -> { profilingGroup }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) -> make ?profilingGroup:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("profilingGroup",
           (Option.map x.profilingGroup ~f:ProfilingGroupDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroup =
        (Option.map ~f:ProfilingGroupDescription.of_xml)
          (Xml.child xml_arg0 "profilingGroup") in
      make ?profilingGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroup =
        field_map json__ "profilingGroup" ProfilingGroupDescription.of_json in
      make ?profilingGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the describeProfilingGroupResponse."]
module DescribeProfilingGroupRequest =
  struct
    type nonrec t =
      {
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group to get information about."]}
    let context_ = "DescribeProfilingGroupRequest"
    let make ~profilingGroupName = fun () -> { profilingGroupName }
    let to_value x =
      structure_to_value
        [("profilingGroupName",
           (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      make ~profilingGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      make ~profilingGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the describeProfilingGroupRequest."]
module DeleteProfilingGroupResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the deleteProfilingGroupResponse."]
module DeleteProfilingGroupRequest =
  struct
    type nonrec t =
      {
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group to delete."]}
    let context_ = "DeleteProfilingGroupRequest"
    let make ~profilingGroupName = fun () -> { profilingGroupName }
    let to_value x =
      structure_to_value
        [("profilingGroupName",
           (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      make ~profilingGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      make ~profilingGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the deleteProfilingGroupRequest."]
module CreateProfilingGroupResponse =
  struct
    type nonrec t =
      {
      profilingGroup: ProfilingGroupDescription.t option
        [@ocaml.doc
          "The returned ProfilingGroupDescription object that contains information about the created profiling group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profilingGroup = fun () -> { profilingGroup }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) -> make ?profilingGroup:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("profilingGroup",
           (Option.map x.profilingGroup ~f:ProfilingGroupDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroup =
        (Option.map ~f:ProfilingGroupDescription.of_xml)
          (Xml.child xml_arg0 "profilingGroup") in
      make ?profilingGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroup =
        field_map json__ "profilingGroup" ProfilingGroupDescription.of_json in
      make ?profilingGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the createProfilingGroupResponse."]
module CreateProfilingGroupRequest =
  struct
    type nonrec t =
      {
      agentOrchestrationConfig: AgentOrchestrationConfig.t option
        [@ocaml.doc
          "Specifies whether profiling is enabled or disabled for the created profiling group."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "Amazon CodeGuru Profiler uses this universally unique identifier (UUID) to prevent the accidental creation of duplicate profiling groups if there are failures and retries."];
      computePlatform: ComputePlatform.t option
        [@ocaml.doc
          "The compute platform of the profiling group. Use AWSLambda if your application runs on AWS Lambda. Use Default if your application runs on a compute platform that is not AWS Lambda, such an Amazon EC2 instance, an on-premises server, or a different platform. If not specified, Default is used."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc "The name of the profiling group to create."];
      tags: TagsMap.t option
        [@ocaml.doc "A list of tags to add to the created profiling group."]}
    let context_ = "CreateProfilingGroupRequest"
    let make ?agentOrchestrationConfig =
      fun ?computePlatform ->
        fun ?tags ->
          fun ~clientToken ->
            fun ~profilingGroupName ->
              fun () ->
                {
                  agentOrchestrationConfig;
                  computePlatform;
                  tags;
                  clientToken;
                  profilingGroupName
                }
    let to_value x =
      structure_to_value
        [("agentOrchestrationConfig",
           (Option.map x.agentOrchestrationConfig
              ~f:AgentOrchestrationConfig.to_value));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)));
        ("computePlatform",
          (Option.map x.computePlatform ~f:ComputePlatform.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let computePlatform =
        (Option.map ~f:ComputePlatform.of_xml)
          (Xml.child xml_arg0 "computePlatform") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let agentOrchestrationConfig =
        (Option.map ~f:AgentOrchestrationConfig.of_xml)
          (Xml.child xml_arg0 "agentOrchestrationConfig") in
      make ?tags ~profilingGroupName ?computePlatform ~clientToken
        ?agentOrchestrationConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let computePlatform =
        field_map json__ "computePlatform" ComputePlatform.of_json in
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let agentOrchestrationConfig =
        field_map json__ "agentOrchestrationConfig"
          AgentOrchestrationConfig.of_json in
      make ?tags ~profilingGroupName ?computePlatform ~clientToken
        ?agentOrchestrationConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the createProfiliingGroupRequest."]
module ConfigureAgentResponse =
  struct
    type nonrec t =
      {
      configuration: AgentConfiguration.t option
        [@ocaml.doc
          "An AgentConfiguration object that specifies if an agent profiles or not and for how long to return profiling data."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configuration = fun () -> { configuration }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) -> make ?configuration:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("configuration",
           (Option.map x.configuration ~f:AgentConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:AgentConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      make ?configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration" AgentConfiguration.of_json in
      make ?configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the configureAgentResponse."]
module ConfigureAgentRequest =
  struct
    type nonrec t =
      {
      fleetInstanceId: FleetInstanceId.t option
        [@ocaml.doc
          "A universally unique identifier (UUID) for a profiling instance. For example, if the profiling instance is an Amazon EC2 instance, it is the instance ID. If it is an AWS Fargate container, it is the container's task ID."];
      metadata: Metadata.t option
        [@ocaml.doc
          "Metadata captured about the compute platform the agent is running on. It includes information about sampling and reporting. The valid fields are: COMPUTE_PLATFORM - The compute platform on which the agent is running AGENT_ID - The ID for an agent instance. AWS_REQUEST_ID - The AWS request ID of a Lambda invocation. EXECUTION_ENVIRONMENT - The execution environment a Lambda function is running on. LAMBDA_FUNCTION_ARN - The Amazon Resource Name (ARN) that is used to invoke a Lambda function. LAMBDA_MEMORY_LIMIT_IN_MB - The memory allocated to a Lambda function. LAMBDA_REMAINING_TIME_IN_MILLISECONDS - The time in milliseconds before execution of a Lambda function times out. LAMBDA_TIME_GAP_BETWEEN_INVOKES_IN_MILLISECONDS - The time in milliseconds between two invocations of a Lambda function. LAMBDA_PREVIOUS_EXECUTION_TIME_IN_MILLISECONDS - The time in milliseconds for the previous Lambda invocation."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group for which the configured agent is collecting profiling data."]}
    let context_ = "ConfigureAgentRequest"
    let make ?fleetInstanceId =
      fun ?metadata ->
        fun ~profilingGroupName ->
          fun () -> { fleetInstanceId; metadata; profilingGroupName }
    let to_value x =
      structure_to_value
        [("fleetInstanceId",
           (Option.map x.fleetInstanceId ~f:FleetInstanceId.to_value));
        ("metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let fleetInstanceId =
        (Option.map ~f:FleetInstanceId.of_xml)
          (Xml.child xml_arg0 "fleetInstanceId") in
      make ~profilingGroupName ?metadata ?fleetInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let metadata = field_map json__ "metadata" Metadata.of_json in
      let fleetInstanceId =
        field_map json__ "fleetInstanceId" FleetInstanceId.of_json in
      make ~profilingGroupName ?metadata ?fleetInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure representing the configureAgentRequest."]
module BatchGetFrameMetricDataResponse =
  struct
    type nonrec t =
      {
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the time period for the returned time series values. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      endTimes: ListOfTimestamps.t option
        [@ocaml.doc
          "List of instances, or time steps, in the time series. For example, if the period is one day (PT24H)), and the resolution is five minutes (PT5M), then there are 288 endTimes in the list that are each five minutes appart."];
      frameMetricData: FrameMetricData.t option
        [@ocaml.doc
          "Details of the metrics to request a time series of values. The metric includes the name of the frame, the aggregation type to calculate the metric value for the frame, and the thread states to use to get the count for the metric value of the frame."];
      resolution: AggregationPeriod.t option
        [@ocaml.doc
          "Resolution or granularity of the profile data used to generate the time series. This is the value used to jump through time steps in a time series. There are 3 valid values. P1D \226\128\148 1 day PT1H \226\128\148 1 hour PT5M \226\128\148 5 minutes"];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the time period for the returned time series values. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      unprocessedEndTimes: UnprocessedEndTimeMap.t option
        [@ocaml.doc
          "List of instances which remained unprocessed. This will create a missing time step in the list of end times."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?endTime =
      fun ?endTimes ->
        fun ?frameMetricData ->
          fun ?resolution ->
            fun ?startTime ->
              fun ?unprocessedEndTimes ->
                fun () ->
                  {
                    endTime;
                    endTimes;
                    frameMetricData;
                    resolution;
                    startTime;
                    unprocessedEndTimes
                  }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("endTimes", (Option.map x.endTimes ~f:ListOfTimestamps.to_value));
        ("frameMetricData",
          (Option.map x.frameMetricData ~f:FrameMetricData.to_value));
        ("resolution",
          (Option.map x.resolution ~f:AggregationPeriod.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("unprocessedEndTimes",
          (Option.map x.unprocessedEndTimes ~f:UnprocessedEndTimeMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unprocessedEndTimes =
        (Option.map ~f:UnprocessedEndTimeMap.of_xml)
          (Xml.child xml_arg0 "unprocessedEndTimes") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let resolution =
        (Option.map ~f:AggregationPeriod.of_xml)
          (Xml.child xml_arg0 "resolution") in
      let frameMetricData =
        (Option.map ~f:FrameMetricData.of_xml)
          (Xml.child xml_arg0 "frameMetricData") in
      let endTimes =
        (Option.map ~f:ListOfTimestamps.of_xml)
          (Xml.child xml_arg0 "endTimes") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      make ?unprocessedEndTimes ?startTime ?resolution ?frameMetricData
        ?endTimes ?endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unprocessedEndTimes =
        field_map json__ "unprocessedEndTimes" UnprocessedEndTimeMap.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let resolution =
        field_map json__ "resolution" AggregationPeriod.of_json in
      let frameMetricData =
        field_map json__ "frameMetricData" FrameMetricData.of_json in
      let endTimes = field_map json__ "endTimes" ListOfTimestamps.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      make ?unprocessedEndTimes ?startTime ?resolution ?frameMetricData
        ?endTimes ?endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the BatchGetFrameMetricDataResponse."]
module BatchGetFrameMetricDataRequest =
  struct
    type nonrec t =
      {
      endTime: Timestamp.t option
        [@ocaml.doc
          "The end time of the time period for the returned time series values. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      frameMetrics: FrameMetrics.t option
        [@ocaml.doc
          "The details of the metrics that are used to request a time series of values. The metric includes the name of the frame, the aggregation type to calculate the metric value for the frame, and the thread states to use to get the count for the metric value of the frame."];
      period: Period.t option
        [@ocaml.doc
          "The duration of the frame metrics used to return the time series values. Specify using the ISO 8601 format. The maximum period duration is one day (PT24H or P1D)."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group associated with the the frame metrics used to return the time series values."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The start time of the time period for the frame metrics used to return the time series values. This is specified using the ISO 8601 format. For example, 2020-06-01T13:15:02.001Z represents 1 millisecond past June 1, 2020 1:15:02 PM UTC."];
      targetResolution: AggregationPeriod.t option
        [@ocaml.doc
          "The requested resolution of time steps for the returned time series of values. If the requested target resolution is not available due to data not being retained we provide a best effort result by falling back to the most granular available resolution after the target resolution. There are 3 valid values. P1D \226\128\148 1 day PT1H \226\128\148 1 hour PT5M \226\128\148 5 minutes"]}
    let context_ = "BatchGetFrameMetricDataRequest"
    let make ?endTime =
      fun ?frameMetrics ->
        fun ?period ->
          fun ?startTime ->
            fun ?targetResolution ->
              fun ~profilingGroupName ->
                fun () ->
                  {
                    endTime;
                    frameMetrics;
                    period;
                    startTime;
                    targetResolution;
                    profilingGroupName
                  }
    let to_value x =
      structure_to_value
        [("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("frameMetrics",
          (Option.map x.frameMetrics ~f:FrameMetrics.to_value));
        ("period", (Option.map x.period ~f:Period.to_value));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("targetResolution",
          (Option.map x.targetResolution ~f:AggregationPeriod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetResolution =
        (Option.map ~f:AggregationPeriod.of_xml)
          (Xml.child xml_arg0 "targetResolution") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let period =
        (Option.map ~f:Period.of_xml) (Xml.child xml_arg0 "period") in
      let frameMetrics =
        (Option.map ~f:FrameMetrics.of_xml)
          (Xml.child xml_arg0 "frameMetrics") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      make ?targetResolution ?startTime ~profilingGroupName ?period
        ?frameMetrics ?endTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetResolution =
        field_map json__ "targetResolution" AggregationPeriod.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let period = field_map json__ "period" Period.of_json in
      let frameMetrics = field_map json__ "frameMetrics" FrameMetrics.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      make ?targetResolution ?startTime ~profilingGroupName ?period
        ?frameMetrics ?endTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the BatchGetFrameMetricDataRequest."]
module AddNotificationChannelsResponse =
  struct
    type nonrec t =
      {
      notificationConfiguration: NotificationConfiguration.t option
        [@ocaml.doc
          "The new notification configuration for this profiling group."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notificationConfiguration =
      fun () -> { notificationConfiguration }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("notificationConfiguration",
           (Option.map x.notificationConfiguration
              ~f:NotificationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfiguration =
        (Option.map ~f:NotificationConfiguration.of_xml)
          (Xml.child xml_arg0 "notificationConfiguration") in
      make ?notificationConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfiguration =
        field_map json__ "notificationConfiguration"
          NotificationConfiguration.of_json in
      make ?notificationConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the AddNotificationChannelsResponse."]
module AddNotificationChannelsRequest =
  struct
    type nonrec t =
      {
      channels: Channels.t
        [@ocaml.doc
          "One or 2 channels to report to when anomalies are detected."];
      profilingGroupName: ProfilingGroupName.t
        [@ocaml.doc
          "The name of the profiling group that we are setting up notifications for."]}
    let context_ = "AddNotificationChannelsRequest"
    let make ~channels =
      fun ~profilingGroupName -> fun () -> { channels; profilingGroupName }
    let to_value x =
      structure_to_value
        [("channels", (Some (Channels.to_value x.channels)));
        ("profilingGroupName",
          (Some (ProfilingGroupName.to_value x.profilingGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profilingGroupName =
        ProfilingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profilingGroupName") in
      let channels =
        Channels.of_xml (Xml.child_exn ~context:context_ xml_arg0 "channels") in
      make ~profilingGroupName ~channels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profilingGroupName =
        field_map_exn json__ "profilingGroupName" ProfilingGroupName.of_json in
      let channels = field_map_exn json__ "channels" Channels.of_json in
      make ~profilingGroupName ~channels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure representing the AddNotificationChannelsRequest."]