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.notifications
let apiVersion = "2018-05-10"
let endpointPrefix = "notifications"
let serviceFullName = "AWS User Notifications"
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 SampleAggregationDimensionValuesMemberString =
  struct
    type nonrec t = string
    let context_ = "SampleAggregationDimensionValuesMemberString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"SampleAggregationDimensionValuesMemberString" 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 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 SampleAggregationDimensionValues =
  struct
    type nonrec t = SampleAggregationDimensionValuesMemberString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map ~f:SampleAggregationDimensionValuesMemberString.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:SampleAggregationDimensionValuesMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"SampleAggregationDimensionValues"
        ~of_json:SampleAggregationDimensionValuesMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module SummarizationDimensionDetail =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the SummarizationDimensionDetail."];
      value: String_.t option
        [@ocaml.doc
          "Value of the property used to summarize aggregated events."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "value" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides detailed information about the dimensions used for event summarization and aggregation."]
module TagsMemberString =
  struct
    type nonrec t = string
    let context_ = "TagsMemberString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"TagsMemberString" j
    let to_json = simple_to_json to_value
  end
module AggregationKey =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "Indicates the type of aggregation key."];
      value: String_.t option
        [@ocaml.doc
          "Indicates the value associated with the aggregation key name."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "value" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Key-value collection that indicate how notifications are grouped."]
module SummarizationDimensionOverview =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "Name of the summarization dimension."];
      count: Integer.t option
        [@ocaml.doc "Total number of occurrences for this dimension."];
      sampleValues: SampleAggregationDimensionValues.t option
        [@ocaml.doc
          "Indicates the sample values found within the dimension."]}
    let make ?name =
      fun ?count ->
        fun ?sampleValues -> fun () -> { name; count; sampleValues }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("count", (Option.map x.count ~f:Integer.to_value));
        ("sampleValues",
          (Option.map x.sampleValues
             ~f:SampleAggregationDimensionValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleValues =
        (Option.map ~f:SampleAggregationDimensionValues.of_xml)
          (Xml.child xml_arg0 "sampleValues") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?sampleValues ?count ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleValues =
        field_map json__ "sampleValues"
          SampleAggregationDimensionValues.of_json in
      let count = field_map json__ "count" Integer.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?sampleValues ?count ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides an overview of how data is summarized across different dimensions."]
module MessageComponentsSummaryHeadlineString =
  struct
    type nonrec t = string
    let context_ = "MessageComponentsSummaryHeadlineString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"MessageComponentsSummaryHeadlineString" j
    let to_json = simple_to_json to_value
  end
module SourceEventMetadataSummaryEventOriginRegionString =
  struct
    type nonrec t = string
    let context_ = "SourceEventMetadataSummaryEventOriginRegionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"SourceEventMetadataSummaryEventOriginRegionString" j
    let to_json = simple_to_json to_value
  end
module SourceEventMetadataSummaryEventTypeString =
  struct
    type nonrec t = string
    let context_ = "SourceEventMetadataSummaryEventTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"SourceEventMetadataSummaryEventTypeString" j
    let to_json = simple_to_json to_value
  end
module ManagedSourceEventMetadataSummaryEventOriginRegionString =
  struct
    type nonrec t = string
    let context_ = "ManagedSourceEventMetadataSummaryEventOriginRegionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([a-z]{1,2})-([a-z]{1,15}-)+([0-9])")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"ManagedSourceEventMetadataSummaryEventOriginRegionString" j
    let to_json = simple_to_json to_value
  end
module ManagedSourceEventMetadataSummaryEventTypeString =
  struct
    type nonrec t = string
    let context_ = "ManagedSourceEventMetadataSummaryEventTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"([a-zA-Z0-9 \\-\\(\\)])+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ManagedSourceEventMetadataSummaryEventTypeString"
        j
    let to_json = simple_to_json to_value
  end
module Source =
  struct
    type nonrec t = string
    let context_ = "Source"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () -> check_pattern i ~pattern:"aws.([a-z0-9\\-])+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Source" j
    let to_json = simple_to_json to_value
  end
module SummarizationDimensionDetails =
  struct
    type nonrec t = SummarizationDimensionDetail.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:SummarizationDimensionDetail.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:SummarizationDimensionDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"SummarizationDimensionDetails"
        ~of_json:SummarizationDimensionDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventRuleStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | CREATING 
      | UPDATING 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EventRuleStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventRuleStatus" j)
    let to_json = simple_to_json to_value
  end
module EventRuleStatusReason =
  struct
    type nonrec t = string
    let context_ = "EventRuleStatusReason"
    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:"EventRuleStatusReason" j
    let to_json = simple_to_json to_value
  end
module TextPartReference =
  struct
    type nonrec t = string
    let context_ = "TextPartReference"
    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:"TextPartReference" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"arn:[^:]*:[^:]*:[^:]*:.*");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = TagsMemberString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagsMemberString.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:TagsMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"Tags" ~of_json:TagsMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:"(https?)://.*")));
        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:"Url" j
    let to_json = simple_to_json to_value
  end
module LocaleCode =
  struct
    type nonrec t =
      | De_DE 
      | En_CA 
      | En_US 
      | En_UK 
      | Es_ES 
      | Fr_CA 
      | Fr_FR 
      | Id_ID 
      | It_IT 
      | Ja_JP 
      | Ko_KR 
      | Pt_BR 
      | Tr_TR 
      | Zh_CN 
      | Zh_TW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | De_DE -> "de_DE"
      | En_CA -> "en_CA"
      | En_US -> "en_US"
      | En_UK -> "en_UK"
      | Es_ES -> "es_ES"
      | Fr_CA -> "fr_CA"
      | Fr_FR -> "fr_FR"
      | Id_ID -> "id_ID"
      | It_IT -> "it_IT"
      | Ja_JP -> "ja_JP"
      | Ko_KR -> "ko_KR"
      | Pt_BR -> "pt_BR"
      | Tr_TR -> "tr_TR"
      | Zh_CN -> "zh_CN"
      | Zh_TW -> "zh_TW"
      | Non_static_id s -> s
    let of_string =
      function
      | "de_DE" -> De_DE
      | "en_CA" -> En_CA
      | "en_US" -> En_US
      | "en_UK" -> En_UK
      | "es_ES" -> Es_ES
      | "fr_CA" -> Fr_CA
      | "fr_FR" -> Fr_FR
      | "id_ID" -> Id_ID
      | "it_IT" -> It_IT
      | "ja_JP" -> Ja_JP
      | "ko_KR" -> Ko_KR
      | "pt_BR" -> Pt_BR
      | "tr_TR" -> Tr_TR
      | "zh_CN" -> Zh_CN
      | "zh_TW" -> Zh_TW
      | 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 LocaleCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LocaleCode" j)
    let to_json = simple_to_json to_value
  end
module NotificationHubStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | REGISTERING 
      | DEREGISTERING 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | REGISTERING -> "REGISTERING"
      | DEREGISTERING -> "DEREGISTERING"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "REGISTERING" -> REGISTERING
      | "DEREGISTERING" -> DEREGISTERING
      | "INACTIVE" -> INACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NotificationHubStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotificationHubStatus" j)
    let to_json = simple_to_json to_value
  end
module NotificationHubStatusReason =
  struct
    type nonrec t = string
    let context_ = "NotificationHubStatusReason"
    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:"NotificationHubStatusReason" j
    let to_json = simple_to_json to_value
  end
module AggregationKeys =
  struct
    type nonrec t = AggregationKey.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:AggregationKey.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:AggregationKey.of_xml)
    let of_json j =
      list_of_json ~kind:"AggregationKeys" ~of_json:AggregationKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module SummarizationDimensionOverviews =
  struct
    type nonrec t = SummarizationDimensionOverview.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:SummarizationDimensionOverview.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:SummarizationDimensionOverview.of_xml)
    let of_json j =
      list_of_json ~kind:"SummarizationDimensionOverviews"
        ~of_json:SummarizationDimensionOverview.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventStatus =
  struct
    type nonrec t =
      | HEALTHY 
      | UNHEALTHY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HEALTHY -> "HEALTHY"
      | UNHEALTHY -> "UNHEALTHY"
      | Non_static_id s -> s
    let of_string =
      function
      | "HEALTHY" -> HEALTHY
      | "UNHEALTHY" -> UNHEALTHY
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EventStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventStatus" j)
    let to_json = simple_to_json to_value
  end
module MessageComponentsSummary =
  struct
    type nonrec t =
      {
      headline: MessageComponentsSummaryHeadlineString.t option
        [@ocaml.doc
          "A sentence long summary. For example, titles or an email subject line."]}
    let make ?headline = fun () -> { headline }
    let to_value x =
      structure_to_value
        [("headline",
           (Option.map x.headline
              ~f:MessageComponentsSummaryHeadlineString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headline =
        (Option.map ~f:MessageComponentsSummaryHeadlineString.of_xml)
          (Xml.child xml_arg0 "headline") in
      make ?headline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headline =
        field_map json__ "headline"
          MessageComponentsSummaryHeadlineString.of_json in
      make ?headline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the headline message component."]
module NotificationType =
  struct
    type nonrec t =
      | ALERT 
      | WARNING 
      | ANNOUNCEMENT 
      | INFORMATIONAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALERT -> "ALERT"
      | WARNING -> "WARNING"
      | ANNOUNCEMENT -> "ANNOUNCEMENT"
      | INFORMATIONAL -> "INFORMATIONAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALERT" -> ALERT
      | "WARNING" -> WARNING
      | "ANNOUNCEMENT" -> ANNOUNCEMENT
      | "INFORMATIONAL" -> INFORMATIONAL
      | 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 NotificationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NotificationType" j)
    let to_json = simple_to_json to_value
  end
module SchemaVersion =
  struct
    type nonrec t =
      | V1_0 
      | Non_static_id of string 
    let make i = i
    let to_string = function | V1_0 -> "v1.0" | Non_static_id s -> s
    let of_string = function | "v1.0" -> V1_0 | 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 SchemaVersion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SchemaVersion" j)
    let to_json = simple_to_json to_value
  end
module SourceEventMetadataSummary =
  struct
    type nonrec t =
      {
      eventOriginRegion:
        SourceEventMetadataSummaryEventOriginRegionString.t option
        [@ocaml.doc
          "The Region where the notification originated. Unavailable for aggregated notifications."];
      source: String_.t option
        [@ocaml.doc
          "The matched event source. Must match one of the valid EventBridge sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventType: SourceEventMetadataSummaryEventTypeString.t option
        [@ocaml.doc
          "The event type to match. Must match one of the valid Amazon EventBridge event types. For example, EC2 Instance State-change Notification and Amazon CloudWatch Alarm State Change. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."]}
    let make ?eventOriginRegion =
      fun ?source ->
        fun ?eventType -> fun () -> { eventOriginRegion; source; eventType }
    let to_value x =
      structure_to_value
        [("eventOriginRegion",
           (Option.map x.eventOriginRegion
              ~f:SourceEventMetadataSummaryEventOriginRegionString.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("eventType",
          (Option.map x.eventType
             ~f:SourceEventMetadataSummaryEventTypeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventType =
        (Option.map ~f:SourceEventMetadataSummaryEventTypeString.of_xml)
          (Xml.child xml_arg0 "eventType") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let eventOriginRegion =
        (Option.map
           ~f:SourceEventMetadataSummaryEventOriginRegionString.of_xml)
          (Xml.child xml_arg0 "eventOriginRegion") in
      make ?eventType ?source ?eventOriginRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventType =
        field_map json__ "eventType"
          SourceEventMetadataSummaryEventTypeString.of_json in
      let source = field_map json__ "source" String_.of_json in
      let eventOriginRegion =
        field_map json__ "eventOriginRegion"
          SourceEventMetadataSummaryEventOriginRegionString.of_json in
      make ?eventType ?source ?eventOriginRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains metadata about the event that caused the NotificationEvent. For other specific values, see sourceEventMetadata."]
module Region =
  struct
    type nonrec t = string
    let context_ = "Region"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:25) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([a-z]{1,2})-([a-z]{1,15}-)+([0-9])")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Region" j
    let to_json = simple_to_json to_value
  end
module ManagedSourceEventMetadataSummary =
  struct
    type nonrec t =
      {
      eventOriginRegion:
        ManagedSourceEventMetadataSummaryEventOriginRegionString.t option
        [@ocaml.doc "The Region where the notification originated."];
      source: Source.t option
        [@ocaml.doc
          "The source service of the notification. Must match one of the valid EventBridge sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventType: ManagedSourceEventMetadataSummaryEventTypeString.t option
        [@ocaml.doc "The event Type of the notification."]}
    let make ?eventOriginRegion =
      fun ?source ->
        fun ?eventType -> fun () -> { eventOriginRegion; source; eventType }
    let to_value x =
      structure_to_value
        [("eventOriginRegion",
           (Option.map x.eventOriginRegion
              ~f:ManagedSourceEventMetadataSummaryEventOriginRegionString.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("eventType",
          (Option.map x.eventType
             ~f:ManagedSourceEventMetadataSummaryEventTypeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventType =
        (Option.map
           ~f:ManagedSourceEventMetadataSummaryEventTypeString.of_xml)
          (Xml.child xml_arg0 "eventType") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let eventOriginRegion =
        (Option.map
           ~f:ManagedSourceEventMetadataSummaryEventOriginRegionString.of_xml)
          (Xml.child xml_arg0 "eventOriginRegion") in
      make ?eventType ?source ?eventOriginRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventType =
        field_map json__ "eventType"
          ManagedSourceEventMetadataSummaryEventTypeString.of_json in
      let source = field_map json__ "source" Source.of_json in
      let eventOriginRegion =
        field_map json__ "eventOriginRegion"
          ManagedSourceEventMetadataSummaryEventOriginRegionString.of_json in
      make ?eventType ?source ?eventOriginRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A short summary and metadata for a managed notification event."]
module AggregationDetail =
  struct
    type nonrec t =
      {
      summarizationDimensions: SummarizationDimensionDetails.t option
        [@ocaml.doc "Properties used to summarize aggregated events."]}
    let make ?summarizationDimensions = fun () -> { summarizationDimensions }
    let to_value x =
      structure_to_value
        [("summarizationDimensions",
           (Option.map x.summarizationDimensions
              ~f:SummarizationDimensionDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summarizationDimensions =
        (Option.map ~f:SummarizationDimensionDetails.of_xml)
          (Xml.child xml_arg0 "summarizationDimensions") in
      make ?summarizationDimensions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summarizationDimensions =
        field_map json__ "summarizationDimensions"
          SummarizationDimensionDetails.of_json in
      make ?summarizationDimensions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides detailed information about the dimensions used for aggregation."]
module ManagedRuleArn =
  struct
    type nonrec t = string
    let context_ = "ManagedRuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:events:[a-z-\\d]{2,25}:\\d{12}:rule\\/[a-zA-Z-\\d]{1,1024}");
        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:"ManagedRuleArn" j
    let to_json = simple_to_json to_value
  end
module EventRuleStatusSummary =
  struct
    type nonrec t =
      {
      status: EventRuleStatus.t option
        [@ocaml.doc
          "The status of the EventRule. Values: ACTIVE The EventRule can process events. INACTIVE The EventRule may be unable to process events. CREATING The EventRule is being created. Only GET and LIST calls can be run. UPDATING The EventRule is being updated. Only GET and LIST calls can be run. DELETING The EventRule is being deleted. Only GET and LIST calls can be run."];
      reason: EventRuleStatusReason.t option
        [@ocaml.doc "A human-readable reason for EventRuleStatus."]}
    let make ?status = fun ?reason -> fun () -> { status; reason }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:EventRuleStatus.to_value));
        ("reason", (Option.map x.reason ~f:EventRuleStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:EventRuleStatusReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let status =
        (Option.map ~f:EventRuleStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?reason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" EventRuleStatusReason.of_json in
      let status = field_map json__ "status" EventRuleStatus.of_json in
      make ?reason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides additional information about the current EventRule status."]
module MediaElementType =
  struct
    type nonrec t =
      | IMAGE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | IMAGE -> "IMAGE" | Non_static_id s -> s
    let of_string = function | "IMAGE" -> IMAGE | 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 MediaElementType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MediaElementType" j)
    let to_json = simple_to_json to_value
  end
module MediaId =
  struct
    type nonrec t = string
    let context_ = "MediaId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"MediaId" j
    let to_json = simple_to_json to_value
  end
module Dimension =
  struct
    type nonrec t =
      {
      name: TextPartReference.t option
        [@ocaml.doc "The name of the dimension"];
      value: TextPartReference.t option
        [@ocaml.doc "The value of the dimension."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:TextPartReference.to_value));
        ("value", (Option.map x.value ~f:TextPartReference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TextPartReference.of_xml) (Xml.child xml_arg0 "value") in
      let name =
        (Option.map ~f:TextPartReference.of_xml) (Xml.child xml_arg0 "name") in
      make ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "value" TextPartReference.of_json in
      let name = field_map json__ "name" TextPartReference.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The key-value pair of properties for an event."]
module Resource =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "The unique identifier for the resource. At least one id or ARN is required."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. At least one id or ARN is required."];
      detailUrl: Url.t option
        [@ocaml.doc
          "The URL to the resource's detail page. If a detail page URL is unavailable, it is the URL to an informational page that describes the resource's type."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."]}
    let make ?id =
      fun ?arn ->
        fun ?detailUrl -> fun ?tags -> fun () -> { id; arn; detailUrl; tags }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("detailUrl", (Option.map x.detailUrl ~f:Url.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let detailUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "detailUrl") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?tags ?detailUrl ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let detailUrl = field_map json__ "detailUrl" Url.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?tags ?detailUrl ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A resource affected by or closely linked to an event."]
module TextByLocale =
  struct
    type nonrec t = (LocaleCode.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 ->
                            ((LocaleCode.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (LocaleCode.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:LocaleCode.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module TextPartType =
  struct
    type nonrec t =
      | LOCALIZED_TEXT 
      | PLAIN_TEXT 
      | URL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LOCALIZED_TEXT -> "LOCALIZED_TEXT"
      | PLAIN_TEXT -> "PLAIN_TEXT"
      | URL -> "URL"
      | Non_static_id s -> s
    let of_string =
      function
      | "LOCALIZED_TEXT" -> LOCALIZED_TEXT
      | "PLAIN_TEXT" -> PLAIN_TEXT
      | "URL" -> URL
      | 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 TextPartType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TextPartType" j)
    let to_json = simple_to_json to_value
  end
module TextPartValueDisplayTextString =
  struct
    type nonrec t = string
    let context_ = "TextPartValueDisplayTextString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TextPartValueDisplayTextString" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The field name where the invalid entry was detected."];
      message: String_.t option
        [@ocaml.doc
          "A message with the reason for the validation exception error."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores information about a field passed inside a request that resulted in an exception."]
module CreationTime =
  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 LastActivationTime =
  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 NotificationHubStatusSummary =
  struct
    type nonrec t =
      {
      status: NotificationHubStatus.t option
        [@ocaml.doc
          "Status information about the NotificationHub. Values: ACTIVE Incoming NotificationEvents are replicated to this NotificationHub. REGISTERING The NotificationConfiguration is initializing. A NotificationConfiguration with this status can't be deregistered. DEREGISTERING The NotificationConfiguration is being deleted. You can't register additional NotificationHubs in the same Region as a NotificationConfiguration with this status."];
      reason: NotificationHubStatusReason.t option
        [@ocaml.doc "An explanation for the current status."]}
    let make ?status = fun ?reason -> fun () -> { status; reason }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:NotificationHubStatus.to_value));
        ("reason",
          (Option.map x.reason ~f:NotificationHubStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:NotificationHubStatusReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let status =
        (Option.map ~f:NotificationHubStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?reason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" NotificationHubStatusReason.of_json in
      let status = field_map json__ "status" NotificationHubStatus.of_json in
      make ?reason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides additional information about the current NotificationHub status."]
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module AggregationEventType =
  struct
    type nonrec t =
      | AGGREGATE 
      | CHILD 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AGGREGATE -> "AGGREGATE"
      | CHILD -> "CHILD"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AGGREGATE" -> AGGREGATE
      | "CHILD" -> CHILD
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AggregationEventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AggregationEventType" j)
    let to_json = simple_to_json to_value
  end
module AggregationSummary =
  struct
    type nonrec t =
      {
      eventCount: Integer.t option
        [@ocaml.doc
          "Indicates the number of events associated with the aggregation key."];
      aggregatedBy: AggregationKeys.t option
        [@ocaml.doc
          "Indicates the criteria or rules by which notifications have been grouped together."];
      aggregatedAccounts: SummarizationDimensionOverview.t option
        [@ocaml.doc
          "Indicates the Amazon Web Services accounts in the aggregation key."];
      aggregatedRegions: SummarizationDimensionOverview.t option
        [@ocaml.doc
          "Indicates the Amazon Web Services Regions in the aggregation key."];
      aggregatedOrganizationalUnits: SummarizationDimensionOverview.t option
        [@ocaml.doc
          "Indicates the collection of organizational units that are involved in the aggregation key."];
      additionalSummarizationDimensions:
        SummarizationDimensionOverviews.t option
        [@ocaml.doc
          "List of additional dimensions used to group and summarize data."]}
    let make ?eventCount =
      fun ?aggregatedBy ->
        fun ?aggregatedAccounts ->
          fun ?aggregatedRegions ->
            fun ?aggregatedOrganizationalUnits ->
              fun ?additionalSummarizationDimensions ->
                fun () ->
                  {
                    eventCount;
                    aggregatedBy;
                    aggregatedAccounts;
                    aggregatedRegions;
                    aggregatedOrganizationalUnits;
                    additionalSummarizationDimensions
                  }
    let to_value x =
      structure_to_value
        [("eventCount", (Option.map x.eventCount ~f:Integer.to_value));
        ("aggregatedBy",
          (Option.map x.aggregatedBy ~f:AggregationKeys.to_value));
        ("aggregatedAccounts",
          (Option.map x.aggregatedAccounts
             ~f:SummarizationDimensionOverview.to_value));
        ("aggregatedRegions",
          (Option.map x.aggregatedRegions
             ~f:SummarizationDimensionOverview.to_value));
        ("aggregatedOrganizationalUnits",
          (Option.map x.aggregatedOrganizationalUnits
             ~f:SummarizationDimensionOverview.to_value));
        ("additionalSummarizationDimensions",
          (Option.map x.additionalSummarizationDimensions
             ~f:SummarizationDimensionOverviews.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalSummarizationDimensions =
        (Option.map ~f:SummarizationDimensionOverviews.of_xml)
          (Xml.child xml_arg0 "additionalSummarizationDimensions") in
      let aggregatedOrganizationalUnits =
        (Option.map ~f:SummarizationDimensionOverview.of_xml)
          (Xml.child xml_arg0 "aggregatedOrganizationalUnits") in
      let aggregatedRegions =
        (Option.map ~f:SummarizationDimensionOverview.of_xml)
          (Xml.child xml_arg0 "aggregatedRegions") in
      let aggregatedAccounts =
        (Option.map ~f:SummarizationDimensionOverview.of_xml)
          (Xml.child xml_arg0 "aggregatedAccounts") in
      let aggregatedBy =
        (Option.map ~f:AggregationKeys.of_xml)
          (Xml.child xml_arg0 "aggregatedBy") in
      let eventCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "eventCount") in
      make ?additionalSummarizationDimensions ?aggregatedOrganizationalUnits
        ?aggregatedRegions ?aggregatedAccounts ?aggregatedBy ?eventCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalSummarizationDimensions =
        field_map json__ "additionalSummarizationDimensions"
          SummarizationDimensionOverviews.of_json in
      let aggregatedOrganizationalUnits =
        field_map json__ "aggregatedOrganizationalUnits"
          SummarizationDimensionOverview.of_json in
      let aggregatedRegions =
        field_map json__ "aggregatedRegions"
          SummarizationDimensionOverview.of_json in
      let aggregatedAccounts =
        field_map json__ "aggregatedAccounts"
          SummarizationDimensionOverview.of_json in
      let aggregatedBy =
        field_map json__ "aggregatedBy" AggregationKeys.of_json in
      let eventCount = field_map json__ "eventCount" Integer.of_json in
      make ?additionalSummarizationDimensions ?aggregatedOrganizationalUnits
        ?aggregatedRegions ?aggregatedAccounts ?aggregatedBy ?eventCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides additional information about the aggregation key."]
module NotificationConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "NotificationConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:notifications::[0-9]{12}:configuration/[a-z0-9]{27}");
        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:"NotificationConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module NotificationEventArn =
  struct
    type nonrec t = string
    let context_ = "NotificationEventArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:[-.a-z0-9]{1,63}:notifications:[-.a-z0-9]{1,63}:[0-9]{12}:configuration/[a-z0-9]{27}/event/[a-z0-9]{27}");
        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:"NotificationEventArn" j
    let to_json = simple_to_json to_value
  end
module NotificationEventSummary =
  struct
    type nonrec t =
      {
      schemaVersion: SchemaVersion.t option
        [@ocaml.doc "The schema version of the Notification Event."];
      sourceEventMetadata: SourceEventMetadataSummary.t option
        [@ocaml.doc "The source event metadata."];
      messageComponents: MessageComponentsSummary.t option
        [@ocaml.doc "The message components of a notification event."];
      eventStatus: EventStatus.t option
        [@ocaml.doc
          "Provides additional information about the current status of the NotificationEvent. Values: HEALTHY All EventRules are ACTIVE. UNHEALTHY Some EventRules are ACTIVE and some are INACTIVE."];
      notificationType: NotificationType.t option
        [@ocaml.doc
          "The type of event causing the notification. Values: ALERT A notification about an event where something was triggered, initiated, reopened, deployed, or a threshold was breached. WARNING A notification about an event where an issue is about to arise. For example, something is approaching a threshold. ANNOUNCEMENT A notification about an important event. For example, a step in a workflow or escalation path or that a workflow was updated. INFORMATIONAL A notification about informational messages. For example, recommendations, service announcements, or reminders."]}
    let make ?schemaVersion =
      fun ?sourceEventMetadata ->
        fun ?messageComponents ->
          fun ?eventStatus ->
            fun ?notificationType ->
              fun () ->
                {
                  schemaVersion;
                  sourceEventMetadata;
                  messageComponents;
                  eventStatus;
                  notificationType
                }
    let to_value x =
      structure_to_value
        [("schemaVersion",
           (Option.map x.schemaVersion ~f:SchemaVersion.to_value));
        ("sourceEventMetadata",
          (Option.map x.sourceEventMetadata
             ~f:SourceEventMetadataSummary.to_value));
        ("messageComponents",
          (Option.map x.messageComponents
             ~f:MessageComponentsSummary.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("notificationType",
          (Option.map x.notificationType ~f:NotificationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationType =
        (Option.map ~f:NotificationType.of_xml)
          (Xml.child xml_arg0 "notificationType") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let messageComponents =
        (Option.map ~f:MessageComponentsSummary.of_xml)
          (Xml.child xml_arg0 "messageComponents") in
      let sourceEventMetadata =
        (Option.map ~f:SourceEventMetadataSummary.of_xml)
          (Xml.child xml_arg0 "sourceEventMetadata") in
      let schemaVersion =
        (Option.map ~f:SchemaVersion.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      make ?notificationType ?eventStatus ?messageComponents
        ?sourceEventMetadata ?schemaVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationType =
        field_map json__ "notificationType" NotificationType.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let messageComponents =
        field_map json__ "messageComponents" MessageComponentsSummary.of_json in
      let sourceEventMetadata =
        field_map json__ "sourceEventMetadata"
          SourceEventMetadataSummary.of_json in
      let schemaVersion =
        field_map json__ "schemaVersion" SchemaVersion.of_json in
      make ?notificationType ?eventStatus ?messageComponents
        ?sourceEventMetadata ?schemaVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a short summary and metadata for a NotificationEvent."]
module OrganizationalUnitId =
  struct
    type nonrec t = string
    let context_ = "OrganizationalUnitId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(Root|r-[0-9a-z]{4,32}|ou-[0-9a-z]{4,32}-[a-z0-9]{8,32})");
        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:"OrganizationalUnitId" j
    let to_json = simple_to_json to_value
  end
module AggregationDuration =
  struct
    type nonrec t =
      | LONG 
      | SHORT 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LONG -> "LONG"
      | SHORT -> "SHORT"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "LONG" -> LONG
      | "SHORT" -> SHORT
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AggregationDuration" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AggregationDuration" j)
    let to_json = simple_to_json to_value
  end
module NotificationConfigurationDescription =
  struct
    type nonrec t = string
    let context_ = "NotificationConfigurationDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[^\\u0001-\\u001F\\u007F-\\u009F]*")));
        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:"NotificationConfigurationDescription" j
    let to_json = simple_to_json to_value
  end
module NotificationConfigurationName =
  struct
    type nonrec t = string
    let context_ = "NotificationConfigurationName"
    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:"[A-Za-z0-9_\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NotificationConfigurationName" j
    let to_json = simple_to_json to_value
  end
module NotificationConfigurationStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PARTIALLY_ACTIVE 
      | INACTIVE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PARTIALLY_ACTIVE -> "PARTIALLY_ACTIVE"
      | INACTIVE -> "INACTIVE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PARTIALLY_ACTIVE" -> PARTIALLY_ACTIVE
      | "INACTIVE" -> INACTIVE
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NotificationConfigurationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotificationConfigurationStatus" j)
    let to_json = simple_to_json to_value
  end
module NotificationConfigurationSubtype =
  struct
    type nonrec t =
      | ACCOUNT 
      | ADMIN_MANAGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCOUNT -> "ACCOUNT"
      | ADMIN_MANAGED -> "ADMIN_MANAGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCOUNT" -> ACCOUNT
      | "ADMIN_MANAGED" -> ADMIN_MANAGED
      | 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 NotificationConfigurationSubtype"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotificationConfigurationSubtype" j)
    let to_json = simple_to_json to_value
  end
module MemberAccountNotificationConfigurationStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PENDING 
      | INACTIVE 
      | CREATING 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PENDING -> "PENDING"
      | INACTIVE -> "INACTIVE"
      | CREATING -> "CREATING"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PENDING" -> PENDING
      | "INACTIVE" -> INACTIVE
      | "CREATING" -> CREATING
      | "DELETING" -> DELETING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration MemberAccountNotificationConfigurationStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"MemberAccountNotificationConfigurationStatus"
           j)
    let to_json = simple_to_json to_value
  end
module AggregatedNotificationRegions =
  struct
    type nonrec t = Region.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:Region.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:Region.of_xml)
    let of_json j =
      list_of_json ~kind:"AggregatedNotificationRegions"
        ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module ManagedNotificationConfigurationOsArn =
  struct
    type nonrec t = string
    let context_ = "ManagedNotificationConfigurationOsArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:[-.a-z0-9]{1,63}:notifications::[0-9]{12}:managed-notification-configuration/category/[a-zA-Z0-9\\-]{3,64}/sub-category/[a-zA-Z0-9\\-]{3,64}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ManagedNotificationConfigurationOsArn" j
    let to_json = simple_to_json to_value
  end
module ManagedNotificationEventArn =
  struct
    type nonrec t = string
    let context_ = "ManagedNotificationEventArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:[-.a-z0-9]{1,63}:notifications::[0-9]{12}:managed-notification-configuration/category/[a-zA-Z0-9\\-]{3,64}/sub-category/[a-zA-Z0-9\\-]{3,64}/event/[a-z0-9]{27}");
        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:"ManagedNotificationEventArn" j
    let to_json = simple_to_json to_value
  end
module ManagedNotificationEventSummary =
  struct
    type nonrec t =
      {
      schemaVersion: SchemaVersion.t option
        [@ocaml.doc "The schema version of the ManagedNotificationEvent."];
      sourceEventMetadata: ManagedSourceEventMetadataSummary.t option
        [@ocaml.doc
          "Contains metadata about the event that caused the ManagedNotificationEvent."];
      messageComponents: MessageComponentsSummary.t option ;
      eventStatus: EventStatus.t option
        [@ocaml.doc
          "The managed notification event status. Values: HEALTHY All EventRules are ACTIVE. UNHEALTHY Some EventRules are ACTIVE and some are INACTIVE."];
      notificationType: NotificationType.t option
        [@ocaml.doc
          "The Type of event causing the notification. Values: ALERT A notification about an event where something was triggered, initiated, reopened, deployed, or a threshold was breached. WARNING A notification about an event where an issue is about to arise. For example, something is approaching a threshold. ANNOUNCEMENT A notification about an important event. For example, a step in a workflow or escalation path or that a workflow was updated. INFORMATIONAL A notification about informational messages. For example, recommendations, service announcements, or reminders."]}
    let make ?schemaVersion =
      fun ?sourceEventMetadata ->
        fun ?messageComponents ->
          fun ?eventStatus ->
            fun ?notificationType ->
              fun () ->
                {
                  schemaVersion;
                  sourceEventMetadata;
                  messageComponents;
                  eventStatus;
                  notificationType
                }
    let to_value x =
      structure_to_value
        [("schemaVersion",
           (Option.map x.schemaVersion ~f:SchemaVersion.to_value));
        ("sourceEventMetadata",
          (Option.map x.sourceEventMetadata
             ~f:ManagedSourceEventMetadataSummary.to_value));
        ("messageComponents",
          (Option.map x.messageComponents
             ~f:MessageComponentsSummary.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("notificationType",
          (Option.map x.notificationType ~f:NotificationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationType =
        (Option.map ~f:NotificationType.of_xml)
          (Xml.child xml_arg0 "notificationType") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let messageComponents =
        (Option.map ~f:MessageComponentsSummary.of_xml)
          (Xml.child xml_arg0 "messageComponents") in
      let sourceEventMetadata =
        (Option.map ~f:ManagedSourceEventMetadataSummary.of_xml)
          (Xml.child xml_arg0 "sourceEventMetadata") in
      let schemaVersion =
        (Option.map ~f:SchemaVersion.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      make ?notificationType ?eventStatus ?messageComponents
        ?sourceEventMetadata ?schemaVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationType =
        field_map json__ "notificationType" NotificationType.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let messageComponents =
        field_map json__ "messageComponents" MessageComponentsSummary.of_json in
      let sourceEventMetadata =
        field_map json__ "sourceEventMetadata"
          ManagedSourceEventMetadataSummary.of_json in
      let schemaVersion =
        field_map json__ "schemaVersion" SchemaVersion.of_json in
      make ?notificationType ?eventStatus ?messageComponents
        ?sourceEventMetadata ?schemaVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A short summary of a ManagedNotificationEvent. This is only used when listing managed notification events."]
module ManagedNotificationConfigurationDescription =
  struct
    type nonrec t = string
    let context_ = "ManagedNotificationConfigurationDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[^\\u0001-\\u001F\\u007F-\\u009F]*")));
        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:"ManagedNotificationConfigurationDescription" j
    let to_json = simple_to_json to_value
  end
module ManagedNotificationConfigurationName =
  struct
    type nonrec t = string
    let context_ = "ManagedNotificationConfigurationName"
    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:"[A-Za-z0-9\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ManagedNotificationConfigurationName" j
    let to_json = simple_to_json to_value
  end
module ManagedNotificationChildEventSummary =
  struct
    type nonrec t =
      {
      schemaVersion: SchemaVersion.t option
        [@ocaml.doc
          "The schema version of the ManagedNotificationChildEvent."];
      sourceEventMetadata: ManagedSourceEventMetadataSummary.t option
        [@ocaml.doc
          "Contains all event metadata present identically across all NotificationEvents. All fields are present in Source Events via Eventbridge."];
      messageComponents: MessageComponentsSummary.t option ;
      aggregationDetail: AggregationDetail.t option
        [@ocaml.doc
          "Provides detailed information about the dimensions used for event summarization and aggregation."];
      eventStatus: EventStatus.t option
        [@ocaml.doc
          "The perceived nature of the event. Values: HEALTHY All EventRules are ACTIVE and any call can be run. UNHEALTHY Some EventRules are ACTIVE and some are INACTIVE. Any call can be run."];
      notificationType: NotificationType.t option
        [@ocaml.doc
          "The Type of the event causing this notification. Values: ALERT A notification about an event where something was triggered, initiated, reopened, deployed, or a threshold was breached. WARNING A notification about an event where an issue is about to arise. For example, something is approaching a threshold. ANNOUNCEMENT A notification about an important event. For example, a step in a workflow or escalation path or that a workflow was updated. INFORMATIONAL A notification about informational messages. For example, recommendations, service announcements, or reminders."]}
    let make ?schemaVersion =
      fun ?sourceEventMetadata ->
        fun ?messageComponents ->
          fun ?aggregationDetail ->
            fun ?eventStatus ->
              fun ?notificationType ->
                fun () ->
                  {
                    schemaVersion;
                    sourceEventMetadata;
                    messageComponents;
                    aggregationDetail;
                    eventStatus;
                    notificationType
                  }
    let to_value x =
      structure_to_value
        [("schemaVersion",
           (Option.map x.schemaVersion ~f:SchemaVersion.to_value));
        ("sourceEventMetadata",
          (Option.map x.sourceEventMetadata
             ~f:ManagedSourceEventMetadataSummary.to_value));
        ("messageComponents",
          (Option.map x.messageComponents
             ~f:MessageComponentsSummary.to_value));
        ("aggregationDetail",
          (Option.map x.aggregationDetail ~f:AggregationDetail.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("notificationType",
          (Option.map x.notificationType ~f:NotificationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationType =
        (Option.map ~f:NotificationType.of_xml)
          (Xml.child xml_arg0 "notificationType") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let aggregationDetail =
        (Option.map ~f:AggregationDetail.of_xml)
          (Xml.child xml_arg0 "aggregationDetail") in
      let messageComponents =
        (Option.map ~f:MessageComponentsSummary.of_xml)
          (Xml.child xml_arg0 "messageComponents") in
      let sourceEventMetadata =
        (Option.map ~f:ManagedSourceEventMetadataSummary.of_xml)
          (Xml.child xml_arg0 "sourceEventMetadata") in
      let schemaVersion =
        (Option.map ~f:SchemaVersion.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      make ?notificationType ?eventStatus ?aggregationDetail
        ?messageComponents ?sourceEventMetadata ?schemaVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationType =
        field_map json__ "notificationType" NotificationType.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let aggregationDetail =
        field_map json__ "aggregationDetail" AggregationDetail.of_json in
      let messageComponents =
        field_map json__ "messageComponents" MessageComponentsSummary.of_json in
      let sourceEventMetadata =
        field_map json__ "sourceEventMetadata"
          ManagedSourceEventMetadataSummary.of_json in
      let schemaVersion =
        field_map json__ "schemaVersion" SchemaVersion.of_json in
      make ?notificationType ?eventStatus ?aggregationDetail
        ?messageComponents ?sourceEventMetadata ?schemaVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a short summary and metadata for a ManagedNotificationChildEvent."]
module ChannelAssociationOverrideOption =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | 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 ChannelAssociationOverrideOption"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ChannelAssociationOverrideOption" j)
    let to_json = simple_to_json to_value
  end
module ChannelType =
  struct
    type nonrec t =
      | MOBILE 
      | CHATBOT 
      | EMAIL 
      | ACCOUNT_CONTACT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MOBILE -> "MOBILE"
      | CHATBOT -> "CHATBOT"
      | EMAIL -> "EMAIL"
      | ACCOUNT_CONTACT -> "ACCOUNT_CONTACT"
      | Non_static_id s -> s
    let of_string =
      function
      | "MOBILE" -> MOBILE
      | "CHATBOT" -> CHATBOT
      | "EMAIL" -> EMAIL
      | "ACCOUNT_CONTACT" -> ACCOUNT_CONTACT
      | 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 ChannelType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChannelType" j)
    let to_json = simple_to_json to_value
  end
module EventRuleArn =
  struct
    type nonrec t = string
    let context_ = "EventRuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:notifications::[0-9]{12}:configuration/[a-z0-9]{27}/rule/[a-z0-9]{27}");
        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:"EventRuleArn" j
    let to_json = simple_to_json to_value
  end
module EventRuleEventPattern =
  struct
    type nonrec t = string
    let context_ = "EventRuleEventPattern"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EventRuleEventPattern" j
    let to_json = simple_to_json to_value
  end
module EventType =
  struct
    type nonrec t = string
    let context_ = "EventType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"([a-zA-Z0-9 \\-\\(\\)])+")));
        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:"EventType" j
    let to_json = simple_to_json to_value
  end
module ManagedRuleArns =
  struct
    type nonrec t = ManagedRuleArn.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:ManagedRuleArn.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:ManagedRuleArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ManagedRuleArns" ~of_json:ManagedRuleArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module Regions =
  struct
    type nonrec t = Region.t list
    let make i =
      let open Result in ok_or_failwith (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:Region.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:Region.of_xml)
    let of_json j = list_of_json ~kind:"Regions" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module StatusSummaryByRegion =
  struct
    type nonrec t = (Region.t * EventRuleStatusSummary.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 Region EventRuleStatusSummary"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Region.to_value x) |>
                    (fun x ->
                       (EventRuleStatusSummary.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:Region.of_string
        ~of_json:EventRuleStatusSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MediaElement =
  struct
    type nonrec t =
      {
      mediaId: MediaId.t option [@ocaml.doc "The unique ID for the media."];
      type_: MediaElementType.t option [@ocaml.doc "The type of media."];
      url: Url.t option [@ocaml.doc "The URL of the media."];
      caption: TextPartReference.t option
        [@ocaml.doc "The caption of the media."]}
    let make ?mediaId =
      fun ?type_ ->
        fun ?url ->
          fun ?caption -> fun () -> { mediaId; type_; url; caption }
    let to_value x =
      structure_to_value
        [("mediaId", (Option.map x.mediaId ~f:MediaId.to_value));
        ("type", (Option.map x.type_ ~f:MediaElementType.to_value));
        ("url", (Option.map x.url ~f:Url.to_value));
        ("caption", (Option.map x.caption ~f:TextPartReference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caption =
        (Option.map ~f:TextPartReference.of_xml)
          (Xml.child xml_arg0 "caption") in
      let url = (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "url") in
      let type_ =
        (Option.map ~f:MediaElementType.of_xml) (Xml.child xml_arg0 "type") in
      let mediaId =
        (Option.map ~f:MediaId.of_xml) (Xml.child xml_arg0 "mediaId") in
      make ?caption ?url ?type_ ?mediaId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caption = field_map json__ "caption" TextPartReference.of_json in
      let url = field_map json__ "url" Url.of_json in
      let type_ = field_map json__ "type" MediaElementType.of_json in
      let mediaId = field_map json__ "mediaId" MediaId.of_json in
      make ?caption ?url ?type_ ?mediaId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a media element."]
module Dimensions =
  struct
    type nonrec t = Dimension.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Dimension.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Dimension.of_xml)
    let of_json j =
      list_of_json ~kind:"Dimensions" ~of_json:Dimension.of_json j
    let to_json v = composed_to_json to_value v
  end
module Resources =
  struct
    type nonrec t = Resource.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:Resource.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:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"Resources" ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module SourceEventMetadataEventOriginRegionString =
  struct
    type nonrec t = string
    let context_ = "SourceEventMetadataEventOriginRegionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([a-z]{1,2})-([a-z]{1,15}-)+([0-9])")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"SourceEventMetadataEventOriginRegionString" j
    let to_json = simple_to_json to_value
  end
module SourceEventMetadataEventTypeString =
  struct
    type nonrec t = string
    let context_ = "SourceEventMetadataEventTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"SourceEventMetadataEventTypeString" j
    let to_json = simple_to_json to_value
  end
module SourceEventMetadataEventTypeVersionString =
  struct
    type nonrec t = string
    let context_ = "SourceEventMetadataEventTypeVersionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"SourceEventMetadataEventTypeVersionString" j
    let to_json = simple_to_json to_value
  end
module SourceEventMetadataRelatedAccountString =
  struct
    type nonrec t = string
    let context_ = "SourceEventMetadataRelatedAccountString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"SourceEventMetadataRelatedAccountString" j
    let to_json = simple_to_json to_value
  end
module SyntheticTimestamp_date_time =
  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 TextPartId =
  struct
    type nonrec t = string
    let context_ = "TextPartId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TextPartId" j
    let to_json = simple_to_json to_value
  end
module TextPartValue =
  struct
    type nonrec t =
      {
      type_: TextPartType.t option
        [@ocaml.doc
          "The type of text part. Determines the usage of all other fields and whether or not they're required."];
      displayText: TextPartValueDisplayTextString.t option
        [@ocaml.doc
          "A short single line description of the link. Must be hyper-linked with the URL itself. Used for text parts with the type URL."];
      textByLocale: TextByLocale.t option
        [@ocaml.doc "A map of locales to the text in that locale."];
      url: Url.t option [@ocaml.doc "The URL itself."]}
    let make ?type_ =
      fun ?displayText ->
        fun ?textByLocale ->
          fun ?url -> fun () -> { type_; displayText; textByLocale; url }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:TextPartType.to_value));
        ("displayText",
          (Option.map x.displayText
             ~f:TextPartValueDisplayTextString.to_value));
        ("textByLocale",
          (Option.map x.textByLocale ~f:TextByLocale.to_value));
        ("url", (Option.map x.url ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let url = (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "url") in
      let textByLocale =
        (Option.map ~f:TextByLocale.of_xml)
          (Xml.child xml_arg0 "textByLocale") in
      let displayText =
        (Option.map ~f:TextPartValueDisplayTextString.of_xml)
          (Xml.child xml_arg0 "displayText") in
      let type_ =
        (Option.map ~f:TextPartType.of_xml) (Xml.child xml_arg0 "type") in
      make ?url ?textByLocale ?displayText ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let url = field_map json__ "url" Url.of_json in
      let textByLocale = field_map json__ "textByLocale" TextByLocale.of_json in
      let displayText =
        field_map json__ "displayText" TextPartValueDisplayTextString.of_json in
      let type_ = field_map json__ "type" TextPartType.of_json in
      make ?url ?textByLocale ?displayText ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes text information objects containing fields that determine how text part objects are composed."]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module QuotaCode =
  struct
    type nonrec t = string
    let context_ = "QuotaCode"
    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:"QuotaCode" j
    let to_json = simple_to_json to_value
  end
module ServiceCode =
  struct
    type nonrec t = string
    let context_ = "ServiceCode"
    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:"ServiceCode" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.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:ValidationExceptionField.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:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | 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 ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"(?!aws:).{1,128}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t = string
    let context_ = "ResourceType"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceType" j
    let to_json = simple_to_json to_value
  end
module NotificationHubOverview =
  struct
    type nonrec t =
      {
      notificationHubRegion: Region.t option
        [@ocaml.doc "The Region of the resource."];
      statusSummary: NotificationHubStatusSummary.t option
        [@ocaml.doc "The status summary of the resource."];
      creationTime: CreationTime.t option
        [@ocaml.doc
          "The date and time the NotificationHubOverview was created."];
      lastActivationTime: LastActivationTime.t option
        [@ocaml.doc
          "The most recent time this NotificationHub had an ACTIVE status."]}
    let make ?notificationHubRegion =
      fun ?statusSummary ->
        fun ?creationTime ->
          fun ?lastActivationTime ->
            fun () ->
              {
                notificationHubRegion;
                statusSummary;
                creationTime;
                lastActivationTime
              }
    let to_value x =
      structure_to_value
        [("notificationHubRegion",
           (Option.map x.notificationHubRegion ~f:Region.to_value));
        ("statusSummary",
          (Option.map x.statusSummary
             ~f:NotificationHubStatusSummary.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("lastActivationTime",
          (Option.map x.lastActivationTime ~f:LastActivationTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastActivationTime =
        (Option.map ~f:LastActivationTime.of_xml)
          (Xml.child xml_arg0 "lastActivationTime") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let statusSummary =
        (Option.map ~f:NotificationHubStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let notificationHubRegion =
        (Option.map ~f:Region.of_xml)
          (Xml.child xml_arg0 "notificationHubRegion") in
      make ?lastActivationTime ?creationTime ?statusSummary
        ?notificationHubRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastActivationTime =
        field_map json__ "lastActivationTime" LastActivationTime.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let statusSummary =
        field_map json__ "statusSummary" NotificationHubStatusSummary.of_json in
      let notificationHubRegion =
        field_map json__ "notificationHubRegion" Region.of_json in
      make ?lastActivationTime ?creationTime ?statusSummary
        ?notificationHubRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an overview of a NotificationHub. A NotificationConfiguration is an account-level setting used to select the Regions where you want to store, process and replicate your notifications."]
module NotificationEventOverview =
  struct
    type nonrec t =
      {
      arn: NotificationEventArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN of the NotificationConfiguration."];
      relatedAccount: AccountId.t option
        [@ocaml.doc "The account name containing the NotificationHub."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the NotificationEvent."];
      notificationEvent: NotificationEventSummary.t option
        [@ocaml.doc
          "Refers to a NotificationEventSummary object. Similar in structure to content in the GetNotificationEvent response."];
      aggregationEventType: AggregationEventType.t option
        [@ocaml.doc
          "The NotificationConfiguration's aggregation type. Values: AGGREGATE The notification event is an aggregate notification. Aggregate notifications summarize grouped events over a specified time period. CHILD Some EventRules are ACTIVE and some are INACTIVE. Any call can be run. NONE The notification isn't aggregated."];
      aggregateNotificationEventArn: NotificationEventArn.t option
        [@ocaml.doc
          "The ARN of the aggregatedNotificationEventArn to match."];
      aggregationSummary: AggregationSummary.t option
        [@ocaml.doc
          "Provides an aggregated summary data for notification events."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The unique identifier of the organizational unit in the notification event overview."]}
    let make ?arn =
      fun ?notificationConfigurationArn ->
        fun ?relatedAccount ->
          fun ?creationTime ->
            fun ?notificationEvent ->
              fun ?aggregationEventType ->
                fun ?aggregateNotificationEventArn ->
                  fun ?aggregationSummary ->
                    fun ?organizationalUnitId ->
                      fun () ->
                        {
                          arn;
                          notificationConfigurationArn;
                          relatedAccount;
                          creationTime;
                          notificationEvent;
                          aggregationEventType;
                          aggregateNotificationEventArn;
                          aggregationSummary;
                          organizationalUnitId
                        }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:NotificationEventArn.to_value));
        ("notificationConfigurationArn",
          (Option.map x.notificationConfigurationArn
             ~f:NotificationConfigurationArn.to_value));
        ("relatedAccount",
          (Option.map x.relatedAccount ~f:AccountId.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("notificationEvent",
          (Option.map x.notificationEvent
             ~f:NotificationEventSummary.to_value));
        ("aggregationEventType",
          (Option.map x.aggregationEventType ~f:AggregationEventType.to_value));
        ("aggregateNotificationEventArn",
          (Option.map x.aggregateNotificationEventArn
             ~f:NotificationEventArn.to_value));
        ("aggregationSummary",
          (Option.map x.aggregationSummary ~f:AggregationSummary.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let aggregationSummary =
        (Option.map ~f:AggregationSummary.of_xml)
          (Xml.child xml_arg0 "aggregationSummary") in
      let aggregateNotificationEventArn =
        (Option.map ~f:NotificationEventArn.of_xml)
          (Xml.child xml_arg0 "aggregateNotificationEventArn") in
      let aggregationEventType =
        (Option.map ~f:AggregationEventType.of_xml)
          (Xml.child xml_arg0 "aggregationEventType") in
      let notificationEvent =
        (Option.map ~f:NotificationEventSummary.of_xml)
          (Xml.child xml_arg0 "notificationEvent") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let relatedAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "relatedAccount") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      let arn =
        (Option.map ~f:NotificationEventArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?organizationalUnitId ?aggregationSummary
        ?aggregateNotificationEventArn ?aggregationEventType
        ?notificationEvent ?creationTime ?relatedAccount
        ?notificationConfigurationArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let aggregationSummary =
        field_map json__ "aggregationSummary" AggregationSummary.of_json in
      let aggregateNotificationEventArn =
        field_map json__ "aggregateNotificationEventArn"
          NotificationEventArn.of_json in
      let aggregationEventType =
        field_map json__ "aggregationEventType" AggregationEventType.of_json in
      let notificationEvent =
        field_map json__ "notificationEvent" NotificationEventSummary.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let relatedAccount =
        field_map json__ "relatedAccount" AccountId.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map json__ "arn" NotificationEventArn.of_json in
      make ?organizationalUnitId ?aggregationSummary
        ?aggregateNotificationEventArn ?aggregationEventType
        ?notificationEvent ?creationTime ?relatedAccount
        ?notificationConfigurationArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a short summary of a NotificationEvent. This is only used when listing notification events."]
module NotificationConfigurationStructure =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration resource."];
      name: NotificationConfigurationName.t option
        [@ocaml.doc
          "The name of the NotificationConfiguration. Supports RFC 3986's unreserved characters."];
      description: NotificationConfigurationDescription.t option
        [@ocaml.doc "The description of the NotificationConfiguration."];
      status: NotificationConfigurationStatus.t option
        [@ocaml.doc "The current status of the NotificationConfiguration."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the NotificationConfiguration."];
      aggregationDuration: AggregationDuration.t option
        [@ocaml.doc
          "The aggregation preference of the NotificationConfiguration. Values: LONG Aggregate notifications for long periods of time (12 hours). SHORT Aggregate notifications for short periods of time (5 minutes). NONE Don't aggregate notifications."];
      subtype: NotificationConfigurationSubtype.t option
        [@ocaml.doc "The subtype of the notification configuration."]}
    let make ?arn =
      fun ?name ->
        fun ?description ->
          fun ?status ->
            fun ?creationTime ->
              fun ?aggregationDuration ->
                fun ?subtype ->
                  fun () ->
                    {
                      arn;
                      name;
                      description;
                      status;
                      creationTime;
                      aggregationDuration;
                      subtype
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:NotificationConfigurationArn.to_value));
        ("name",
          (Option.map x.name ~f:NotificationConfigurationName.to_value));
        ("description",
          (Option.map x.description
             ~f:NotificationConfigurationDescription.to_value));
        ("status",
          (Option.map x.status ~f:NotificationConfigurationStatus.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("aggregationDuration",
          (Option.map x.aggregationDuration ~f:AggregationDuration.to_value));
        ("subtype",
          (Option.map x.subtype ~f:NotificationConfigurationSubtype.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subtype =
        (Option.map ~f:NotificationConfigurationSubtype.of_xml)
          (Xml.child xml_arg0 "subtype") in
      let aggregationDuration =
        (Option.map ~f:AggregationDuration.of_xml)
          (Xml.child xml_arg0 "aggregationDuration") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let status =
        (Option.map ~f:NotificationConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:NotificationConfigurationDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:NotificationConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?subtype ?aggregationDuration ?creationTime ?status ?description
        ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subtype =
        field_map json__ "subtype" NotificationConfigurationSubtype.of_json in
      let aggregationDuration =
        field_map json__ "aggregationDuration" AggregationDuration.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let status =
        field_map json__ "status" NotificationConfigurationStatus.of_json in
      let description =
        field_map json__ "description"
          NotificationConfigurationDescription.of_json in
      let name =
        field_map json__ "name" NotificationConfigurationName.of_json in
      let arn = field_map json__ "arn" NotificationConfigurationArn.of_json in
      make ?subtype ?aggregationDuration ?creationTime ?status ?description
        ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the complete list of fields for a NotificationConfiguration."]
module MemberAccount =
  struct
    type nonrec t =
      {
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the notification configuration associated with the member account."];
      accountId: AccountId.t option
        [@ocaml.doc "The AWS account ID of the member account."];
      status: MemberAccountNotificationConfigurationStatus.t option
        [@ocaml.doc "The current status of the member account."];
      statusReason: String_.t option
        [@ocaml.doc
          "The reason for the current status of the member account."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The unique identifier of the organizational unit containing the member account."]}
    let make ?notificationConfigurationArn =
      fun ?accountId ->
        fun ?status ->
          fun ?statusReason ->
            fun ?organizationalUnitId ->
              fun () ->
                {
                  notificationConfigurationArn;
                  accountId;
                  status;
                  statusReason;
                  organizationalUnitId
                }
    let to_value x =
      structure_to_value
        [("notificationConfigurationArn",
           (Option.map x.notificationConfigurationArn
              ~f:NotificationConfigurationArn.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("status",
          (Option.map x.status
             ~f:MemberAccountNotificationConfigurationStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:MemberAccountNotificationConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      make ?organizationalUnitId ?statusReason ?status ?accountId
        ?notificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status =
        field_map json__ "status"
          MemberAccountNotificationConfigurationStatus.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      make ?organizationalUnitId ?statusReason ?status ?accountId
        ?notificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a member account."]
module ManagedNotificationEventOverview =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationEventArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationEvent."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration."];
      relatedAccount: AccountId.t option
        [@ocaml.doc
          "The account that related to the ManagedNotificationEvent."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the ManagedNotificationEvent."];
      notificationEvent: ManagedNotificationEventSummary.t option ;
      aggregationEventType: AggregationEventType.t option
        [@ocaml.doc
          "The notifications aggregation type. Values: AGGREGATE The notification event is an aggregate notification. Aggregate notifications summarize grouped events over a specified time period. CHILD Some EventRules are ACTIVE and some are INACTIVE. Any call can be run. NONE The notification isn't aggregated."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The Organizational Unit Id that an Amazon Web Services account belongs to."];
      aggregationSummary: AggregationSummary.t option ;
      aggregatedNotificationRegions: AggregatedNotificationRegions.t option
        [@ocaml.doc
          "The list of the regions where the aggregated notifications in this NotificationEvent originated."]}
    let make ?arn =
      fun ?managedNotificationConfigurationArn ->
        fun ?relatedAccount ->
          fun ?creationTime ->
            fun ?notificationEvent ->
              fun ?aggregationEventType ->
                fun ?organizationalUnitId ->
                  fun ?aggregationSummary ->
                    fun ?aggregatedNotificationRegions ->
                      fun () ->
                        {
                          arn;
                          managedNotificationConfigurationArn;
                          relatedAccount;
                          creationTime;
                          notificationEvent;
                          aggregationEventType;
                          organizationalUnitId;
                          aggregationSummary;
                          aggregatedNotificationRegions
                        }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:ManagedNotificationEventArn.to_value));
        ("managedNotificationConfigurationArn",
          (Option.map x.managedNotificationConfigurationArn
             ~f:ManagedNotificationConfigurationOsArn.to_value));
        ("relatedAccount",
          (Option.map x.relatedAccount ~f:AccountId.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("notificationEvent",
          (Option.map x.notificationEvent
             ~f:ManagedNotificationEventSummary.to_value));
        ("aggregationEventType",
          (Option.map x.aggregationEventType ~f:AggregationEventType.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value));
        ("aggregationSummary",
          (Option.map x.aggregationSummary ~f:AggregationSummary.to_value));
        ("aggregatedNotificationRegions",
          (Option.map x.aggregatedNotificationRegions
             ~f:AggregatedNotificationRegions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregatedNotificationRegions =
        (Option.map ~f:AggregatedNotificationRegions.of_xml)
          (Xml.child xml_arg0 "aggregatedNotificationRegions") in
      let aggregationSummary =
        (Option.map ~f:AggregationSummary.of_xml)
          (Xml.child xml_arg0 "aggregationSummary") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let aggregationEventType =
        (Option.map ~f:AggregationEventType.of_xml)
          (Xml.child xml_arg0 "aggregationEventType") in
      let notificationEvent =
        (Option.map ~f:ManagedNotificationEventSummary.of_xml)
          (Xml.child xml_arg0 "notificationEvent") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let relatedAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "relatedAccount") in
      let managedNotificationConfigurationArn =
        (Option.map ~f:ManagedNotificationConfigurationOsArn.of_xml)
          (Xml.child xml_arg0 "managedNotificationConfigurationArn") in
      let arn =
        (Option.map ~f:ManagedNotificationEventArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?aggregatedNotificationRegions ?aggregationSummary
        ?organizationalUnitId ?aggregationEventType ?notificationEvent
        ?creationTime ?relatedAccount ?managedNotificationConfigurationArn
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregatedNotificationRegions =
        field_map json__ "aggregatedNotificationRegions"
          AggregatedNotificationRegions.of_json in
      let aggregationSummary =
        field_map json__ "aggregationSummary" AggregationSummary.of_json in
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let aggregationEventType =
        field_map json__ "aggregationEventType" AggregationEventType.of_json in
      let notificationEvent =
        field_map json__ "notificationEvent"
          ManagedNotificationEventSummary.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let relatedAccount =
        field_map json__ "relatedAccount" AccountId.of_json in
      let managedNotificationConfigurationArn =
        field_map json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let arn = field_map json__ "arn" ManagedNotificationEventArn.of_json in
      make ?aggregatedNotificationRegions ?aggregationSummary
        ?organizationalUnitId ?aggregationEventType ?notificationEvent
        ?creationTime ?relatedAccount ?managedNotificationConfigurationArn
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an overview and metadata for a ManagedNotificationEvent."]
module ManagedNotificationConfigurationStructure =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationConfigurationOsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration."];
      name: ManagedNotificationConfigurationName.t option
        [@ocaml.doc "The name of the ManagedNotificationConfiguration."];
      description: ManagedNotificationConfigurationDescription.t option
        [@ocaml.doc
          "The description of the ManagedNotificationConfiguration."]}
    let make ?arn =
      fun ?name -> fun ?description -> fun () -> { arn; name; description }
    let to_value x =
      structure_to_value
        [("arn",
           (Option.map x.arn
              ~f:ManagedNotificationConfigurationOsArn.to_value));
        ("name",
          (Option.map x.name ~f:ManagedNotificationConfigurationName.to_value));
        ("description",
          (Option.map x.description
             ~f:ManagedNotificationConfigurationDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:ManagedNotificationConfigurationDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:ManagedNotificationConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:ManagedNotificationConfigurationOsArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description"
          ManagedNotificationConfigurationDescription.of_json in
      let name =
        field_map json__ "name" ManagedNotificationConfigurationName.of_json in
      let arn =
        field_map json__ "arn" ManagedNotificationConfigurationOsArn.of_json in
      make ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the basic structure and properties of a ManagedNotificationConfiguration."]
module ManagedNotificationChildEventOverview =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationEventArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationChildEvent."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration."];
      relatedAccount: AccountId.t option
        [@ocaml.doc
          "The account that related to the ManagedNotificationChildEvent."];
      creationTime: CreationTime.t option
        [@ocaml.doc
          "The creation time of the ManagedNotificationChildEvent."];
      childEvent: ManagedNotificationChildEventSummary.t option
        [@ocaml.doc "The content of the ManagedNotificationChildEvent."];
      aggregateManagedNotificationEventArn:
        ManagedNotificationEventArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationEvent that is associated with this ManagedNotificationChildEvent."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The Organizational Unit Id that an AWS account belongs to."]}
    let make ?arn =
      fun ?managedNotificationConfigurationArn ->
        fun ?relatedAccount ->
          fun ?creationTime ->
            fun ?childEvent ->
              fun ?aggregateManagedNotificationEventArn ->
                fun ?organizationalUnitId ->
                  fun () ->
                    {
                      arn;
                      managedNotificationConfigurationArn;
                      relatedAccount;
                      creationTime;
                      childEvent;
                      aggregateManagedNotificationEventArn;
                      organizationalUnitId
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:ManagedNotificationEventArn.to_value));
        ("managedNotificationConfigurationArn",
          (Option.map x.managedNotificationConfigurationArn
             ~f:ManagedNotificationConfigurationOsArn.to_value));
        ("relatedAccount",
          (Option.map x.relatedAccount ~f:AccountId.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("childEvent",
          (Option.map x.childEvent
             ~f:ManagedNotificationChildEventSummary.to_value));
        ("aggregateManagedNotificationEventArn",
          (Option.map x.aggregateManagedNotificationEventArn
             ~f:ManagedNotificationEventArn.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let aggregateManagedNotificationEventArn =
        (Option.map ~f:ManagedNotificationEventArn.of_xml)
          (Xml.child xml_arg0 "aggregateManagedNotificationEventArn") in
      let childEvent =
        (Option.map ~f:ManagedNotificationChildEventSummary.of_xml)
          (Xml.child xml_arg0 "childEvent") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let relatedAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "relatedAccount") in
      let managedNotificationConfigurationArn =
        (Option.map ~f:ManagedNotificationConfigurationOsArn.of_xml)
          (Xml.child xml_arg0 "managedNotificationConfigurationArn") in
      let arn =
        (Option.map ~f:ManagedNotificationEventArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?organizationalUnitId ?aggregateManagedNotificationEventArn
        ?childEvent ?creationTime ?relatedAccount
        ?managedNotificationConfigurationArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let aggregateManagedNotificationEventArn =
        field_map json__ "aggregateManagedNotificationEventArn"
          ManagedNotificationEventArn.of_json in
      let childEvent =
        field_map json__ "childEvent"
          ManagedNotificationChildEventSummary.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let relatedAccount =
        field_map json__ "relatedAccount" AccountId.of_json in
      let managedNotificationConfigurationArn =
        field_map json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let arn = field_map json__ "arn" ManagedNotificationEventArn.of_json in
      make ?organizationalUnitId ?aggregateManagedNotificationEventArn
        ?childEvent ?creationTime ?relatedAccount
        ?managedNotificationConfigurationArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an overview and metadata for a ManagedNotificationChildEvent."]
module ManagedNotificationChannelAssociationSummary =
  struct
    type nonrec t =
      {
      channelIdentifier: String_.t option
        [@ocaml.doc "The unique identifier for the notification channel."];
      channelType: ChannelType.t option
        [@ocaml.doc
          "The type of notification channel used for message delivery. Values: ACCOUNT_CONTACT Delivers notifications to Account Managed contacts through the User Notification Service. MOBILE Delivers notifications through the Amazon Web Services Console Mobile Application to mobile devices. CHATBOT Delivers notifications through Amazon Q Developer in chat applications to collaboration platforms (Slack, Chime). EMAIL Delivers notifications to email addresses."];
      overrideOption: ChannelAssociationOverrideOption.t option
        [@ocaml.doc
          "Controls whether users can modify channel associations for a notification configuration. Values: ENABLED Users can associate or disassociate channels with the notification configuration. DISABLED Users cannot associate or disassociate channels with the notification configuration."]}
    let make ?channelIdentifier =
      fun ?channelType ->
        fun ?overrideOption ->
          fun () -> { channelIdentifier; channelType; overrideOption }
    let to_value x =
      structure_to_value
        [("channelIdentifier",
           (Option.map x.channelIdentifier ~f:String_.to_value));
        ("channelType", (Option.map x.channelType ~f:ChannelType.to_value));
        ("overrideOption",
          (Option.map x.overrideOption
             ~f:ChannelAssociationOverrideOption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overrideOption =
        (Option.map ~f:ChannelAssociationOverrideOption.of_xml)
          (Xml.child xml_arg0 "overrideOption") in
      let channelType =
        (Option.map ~f:ChannelType.of_xml) (Xml.child xml_arg0 "channelType") in
      let channelIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "channelIdentifier") in
      make ?overrideOption ?channelType ?channelIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overrideOption =
        field_map json__ "overrideOption"
          ChannelAssociationOverrideOption.of_json in
      let channelType = field_map json__ "channelType" ChannelType.of_json in
      let channelIdentifier =
        field_map json__ "channelIdentifier" String_.of_json in
      make ?overrideOption ?channelType ?channelIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of channel associations for a managed notification configuration."]
module EventRuleStructure =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the EventRule. CloudFormation stack generates this ARN and then uses this ARN to associate with the NotificationConfiguration."];
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc
          "The ARN for the NotificationConfiguration associated with this EventRule."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the EventRule."];
      source: Source.t option
        [@ocaml.doc
          "The event source this rule should match with the EventBridge event sources. It must match with atleast one of the valid EventBridge event sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventType: EventType.t option
        [@ocaml.doc
          "The event type this rule should match with the EventBridge events. It must match with atleast one of the valid EventBridge event types. For example, Amazon EC2 Instance State change Notification and Amazon CloudWatch State Change. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventPattern: EventRuleEventPattern.t option
        [@ocaml.doc
          "An additional event pattern used to further filter the events this EventRule receives. For more information, see Amazon EventBridge event patterns in the Amazon EventBridge User Guide."];
      regions: Regions.t option
        [@ocaml.doc
          "A list of Amazon Web Services Regions that send events to this EventRule."];
      managedRules: ManagedRuleArns.t option
        [@ocaml.doc
          "A list of Amazon EventBridge Managed Rule ARNs associated with this EventRule. These are created by User Notifications within your account so your EventRules can function."];
      statusSummaryByRegion: StatusSummaryByRegion.t option
        [@ocaml.doc
          "A list of an EventRule's status by Region. Regions are mapped to EventRuleStatusSummary."]}
    let make ?arn =
      fun ?notificationConfigurationArn ->
        fun ?creationTime ->
          fun ?source ->
            fun ?eventType ->
              fun ?eventPattern ->
                fun ?regions ->
                  fun ?managedRules ->
                    fun ?statusSummaryByRegion ->
                      fun () ->
                        {
                          arn;
                          notificationConfigurationArn;
                          creationTime;
                          source;
                          eventType;
                          eventPattern;
                          regions;
                          managedRules;
                          statusSummaryByRegion
                        }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:EventRuleArn.to_value));
        ("notificationConfigurationArn",
          (Option.map x.notificationConfigurationArn
             ~f:NotificationConfigurationArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("eventType", (Option.map x.eventType ~f:EventType.to_value));
        ("eventPattern",
          (Option.map x.eventPattern ~f:EventRuleEventPattern.to_value));
        ("regions", (Option.map x.regions ~f:Regions.to_value));
        ("managedRules",
          (Option.map x.managedRules ~f:ManagedRuleArns.to_value));
        ("statusSummaryByRegion",
          (Option.map x.statusSummaryByRegion
             ~f:StatusSummaryByRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummaryByRegion =
        (Option.map ~f:StatusSummaryByRegion.of_xml)
          (Xml.child xml_arg0 "statusSummaryByRegion") in
      let managedRules =
        (Option.map ~f:ManagedRuleArns.of_xml)
          (Xml.child xml_arg0 "managedRules") in
      let regions =
        (Option.map ~f:Regions.of_xml) (Xml.child xml_arg0 "regions") in
      let eventPattern =
        (Option.map ~f:EventRuleEventPattern.of_xml)
          (Xml.child xml_arg0 "eventPattern") in
      let eventType =
        (Option.map ~f:EventType.of_xml) (Xml.child xml_arg0 "eventType") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      let arn =
        (Option.map ~f:EventRuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?statusSummaryByRegion ?managedRules ?regions ?eventPattern
        ?eventType ?source ?creationTime ?notificationConfigurationArn ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummaryByRegion =
        field_map json__ "statusSummaryByRegion"
          StatusSummaryByRegion.of_json in
      let managedRules =
        field_map json__ "managedRules" ManagedRuleArns.of_json in
      let regions = field_map json__ "regions" Regions.of_json in
      let eventPattern =
        field_map json__ "eventPattern" EventRuleEventPattern.of_json in
      let eventType = field_map json__ "eventType" EventType.of_json in
      let source = field_map json__ "source" Source.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map json__ "arn" EventRuleArn.of_json in
      make ?statusSummaryByRegion ?managedRules ?regions ?eventPattern
        ?eventType ?source ?creationTime ?notificationConfigurationArn ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a complete list of fields related to an EventRule."]
module ChannelArn =
  struct
    type nonrec t = string
    let context_ = "ChannelArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:(chatbot|consoleapp|notifications-contacts):[a-zA-Z0-9-]*:[0-9]{12}:[a-zA-Z0-9-_.@]+/[a-zA-Z0-9/_.@:-]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChannelArn" j
    let to_json = simple_to_json to_value
  end
module AccessStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | PENDING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | PENDING -> "PENDING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "PENDING" -> PENDING
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AccessStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccessStatus" j)
    let to_json = simple_to_json to_value
  end
module Media =
  struct
    type nonrec t = MediaElement.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:MediaElement.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:MediaElement.of_xml)
    let of_json j =
      list_of_json ~kind:"Media" ~of_json:MediaElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageComponents =
  struct
    type nonrec t =
      {
      headline: TextPartReference.t option
        [@ocaml.doc
          "A sentence long summary. For example, titles or an email subject line."];
      paragraphSummary: TextPartReference.t option
        [@ocaml.doc
          "A paragraph long or multiple sentence summary. For example, Amazon Q Developer in chat applications notifications."];
      completeDescription: TextPartReference.t option
        [@ocaml.doc
          "A complete summary with all possible relevant information."];
      dimensions: Dimensions.t option
        [@ocaml.doc
          "A list of properties in key-value pairs. Pairs are shown in order of importance from most important to least important. Channels may limit the number of dimensions shown to the notification viewer. Included dimensions, keys, and values are subject to change."]}
    let make ?headline =
      fun ?paragraphSummary ->
        fun ?completeDescription ->
          fun ?dimensions ->
            fun () ->
              { headline; paragraphSummary; completeDescription; dimensions }
    let to_value x =
      structure_to_value
        [("headline", (Option.map x.headline ~f:TextPartReference.to_value));
        ("paragraphSummary",
          (Option.map x.paragraphSummary ~f:TextPartReference.to_value));
        ("completeDescription",
          (Option.map x.completeDescription ~f:TextPartReference.to_value));
        ("dimensions", (Option.map x.dimensions ~f:Dimensions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimensions =
        (Option.map ~f:Dimensions.of_xml) (Xml.child xml_arg0 "dimensions") in
      let completeDescription =
        (Option.map ~f:TextPartReference.of_xml)
          (Xml.child xml_arg0 "completeDescription") in
      let paragraphSummary =
        (Option.map ~f:TextPartReference.of_xml)
          (Xml.child xml_arg0 "paragraphSummary") in
      let headline =
        (Option.map ~f:TextPartReference.of_xml)
          (Xml.child xml_arg0 "headline") in
      make ?dimensions ?completeDescription ?paragraphSummary ?headline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimensions = field_map json__ "dimensions" Dimensions.of_json in
      let completeDescription =
        field_map json__ "completeDescription" TextPartReference.of_json in
      let paragraphSummary =
        field_map json__ "paragraphSummary" TextPartReference.of_json in
      let headline = field_map json__ "headline" TextPartReference.of_json in
      make ?dimensions ?completeDescription ?paragraphSummary ?headline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the components of a notification message."]
module NotificationEventId =
  struct
    type nonrec t = string
    let context_ = "NotificationEventId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z0-9]{27}"); 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:"NotificationEventId" j
    let to_json = simple_to_json to_value
  end
module SourceEventMetadata =
  struct
    type nonrec t =
      {
      eventTypeVersion: SourceEventMetadataEventTypeVersionString.t option
        [@ocaml.doc "The version of the type of event."];
      sourceEventId: String_.t option [@ocaml.doc "The source event id."];
      eventOriginRegion: SourceEventMetadataEventOriginRegionString.t option
        [@ocaml.doc "The Region the event originated from."];
      relatedAccount: SourceEventMetadataRelatedAccountString.t option
        [@ocaml.doc
          "The primary Amazon Web Services account of SourceEvent."];
      source: Source.t option
        [@ocaml.doc
          "The Amazon Web Services service the event originates from. For example aws.cloudwatch."];
      eventOccurrenceTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the source event occurred. This is based on the Source Event."];
      eventType: SourceEventMetadataEventTypeString.t option
        [@ocaml.doc
          "The type of event. For example, an Amazon CloudWatch state change."];
      relatedResources: Resources.t option
        [@ocaml.doc "A list of resources related to this NotificationEvent."]}
    let make ?eventTypeVersion =
      fun ?sourceEventId ->
        fun ?eventOriginRegion ->
          fun ?relatedAccount ->
            fun ?source ->
              fun ?eventOccurrenceTime ->
                fun ?eventType ->
                  fun ?relatedResources ->
                    fun () ->
                      {
                        eventTypeVersion;
                        sourceEventId;
                        eventOriginRegion;
                        relatedAccount;
                        source;
                        eventOccurrenceTime;
                        eventType;
                        relatedResources
                      }
    let to_value x =
      structure_to_value
        [("eventTypeVersion",
           (Option.map x.eventTypeVersion
              ~f:SourceEventMetadataEventTypeVersionString.to_value));
        ("sourceEventId", (Option.map x.sourceEventId ~f:String_.to_value));
        ("eventOriginRegion",
          (Option.map x.eventOriginRegion
             ~f:SourceEventMetadataEventOriginRegionString.to_value));
        ("relatedAccount",
          (Option.map x.relatedAccount
             ~f:SourceEventMetadataRelatedAccountString.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("eventOccurrenceTime",
          (Option.map x.eventOccurrenceTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("eventType",
          (Option.map x.eventType
             ~f:SourceEventMetadataEventTypeString.to_value));
        ("relatedResources",
          (Option.map x.relatedResources ~f:Resources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedResources =
        (Option.map ~f:Resources.of_xml)
          (Xml.child xml_arg0 "relatedResources") in
      let eventType =
        (Option.map ~f:SourceEventMetadataEventTypeString.of_xml)
          (Xml.child xml_arg0 "eventType") in
      let eventOccurrenceTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "eventOccurrenceTime") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let relatedAccount =
        (Option.map ~f:SourceEventMetadataRelatedAccountString.of_xml)
          (Xml.child xml_arg0 "relatedAccount") in
      let eventOriginRegion =
        (Option.map ~f:SourceEventMetadataEventOriginRegionString.of_xml)
          (Xml.child xml_arg0 "eventOriginRegion") in
      let sourceEventId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sourceEventId") in
      let eventTypeVersion =
        (Option.map ~f:SourceEventMetadataEventTypeVersionString.of_xml)
          (Xml.child xml_arg0 "eventTypeVersion") in
      make ?relatedResources ?eventType ?eventOccurrenceTime ?source
        ?relatedAccount ?eventOriginRegion ?sourceEventId ?eventTypeVersion
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedResources =
        field_map json__ "relatedResources" Resources.of_json in
      let eventType =
        field_map json__ "eventType"
          SourceEventMetadataEventTypeString.of_json in
      let eventOccurrenceTime =
        field_map json__ "eventOccurrenceTime"
          SyntheticTimestamp_date_time.of_json in
      let source = field_map json__ "source" Source.of_json in
      let relatedAccount =
        field_map json__ "relatedAccount"
          SourceEventMetadataRelatedAccountString.of_json in
      let eventOriginRegion =
        field_map json__ "eventOriginRegion"
          SourceEventMetadataEventOriginRegionString.of_json in
      let sourceEventId = field_map json__ "sourceEventId" String_.of_json in
      let eventTypeVersion =
        field_map json__ "eventTypeVersion"
          SourceEventMetadataEventTypeVersionString.of_json in
      make ?relatedResources ?eventType ?eventOccurrenceTime ?source
        ?relatedAccount ?eventOriginRegion ?sourceEventId ?eventTypeVersion
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the metadata for a source event. For more information, see Event structure reference in the Amazon EventBridge User Guide."]
module TextParts =
  struct
    type nonrec t = (TextPartId.t * TextPartValue.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 TextPartId TextPartValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TextPartId.to_value x) |>
                    (fun x -> (TextPartValue.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:TextPartId.of_string
        ~of_json:TextPartValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "User does not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc "The resource ID that prompted the conflict error."]}
    let make ?message = fun ?resourceId -> fun () -> { message; resourceId }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updating or deleting a resource can cause an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Unexpected error during processing of request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the resource that wasn't found."]}
    let make ?message = fun ?resourceId -> fun () -> { message; resourceId }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request references a resource which does not exist."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      serviceCode: ServiceCode.t option
        [@ocaml.doc "Identifies the service being throttled."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc "Identifies the quota that is being throttled."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds a client should wait before retrying the request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" QuotaCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason why your input is considered invalid."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The list of input fields that are invalid."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when the notification event fails validation."]
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.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:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of the resource that exceeds the service quota."];
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the resource that exceeds the service quota."];
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "The code for the service quota exceeded in Service Quotas."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc "The code for the service quota in Service Quotas."]}
    let make ?message =
      fun ?resourceType ->
        fun ?resourceId ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceType; resourceId; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceId ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" QuotaCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?quotaCode ?serviceCode ?resourceId ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request would cause a service quota to be exceeded."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:4096) >>=
                  (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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module OrganizationalUnits =
  struct
    type nonrec t = OrganizationalUnitId.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:OrganizationalUnitId.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:OrganizationalUnitId.of_xml)
    let of_json j =
      list_of_json ~kind:"OrganizationalUnits"
        ~of_json:OrganizationalUnitId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOrganizationalUnitsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListOrganizationalUnitsRequestMaxResultsInteger"
           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 NotificationHubs =
  struct
    type nonrec t = NotificationHubOverview.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:NotificationHubOverview.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:NotificationHubOverview.of_xml)
    let of_json j =
      list_of_json ~kind:"NotificationHubs"
        ~of_json:NotificationHubOverview.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListNotificationHubsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:3) >>= (fun () -> check_int_min i ~min:3));
        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 ListNotificationHubsRequestMaxResultsInteger"
           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 NotificationEvents =
  struct
    type nonrec t = NotificationEventOverview.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:NotificationEventOverview.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:NotificationEventOverview.of_xml)
    let of_json j =
      list_of_json ~kind:"NotificationEvents"
        ~of_json:NotificationEventOverview.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 ListNotificationEventsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListNotificationEventsRequestMaxResultsInteger"
           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 NotificationConfigurations =
  struct
    type nonrec t = NotificationConfigurationStructure.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:NotificationConfigurationStructure.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:NotificationConfigurationStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"NotificationConfigurations"
        ~of_json:NotificationConfigurationStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListNotificationConfigurationsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListNotificationConfigurationsRequestMaxResultsInteger"
           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 MemberAccounts =
  struct
    type nonrec t = MemberAccount.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:MemberAccount.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:MemberAccount.of_xml)
    let of_json j =
      list_of_json ~kind:"MemberAccounts" ~of_json:MemberAccount.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListMemberAccountsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListMemberAccountsRequestMaxResultsInteger"
           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 ManagedNotificationEvents =
  struct
    type nonrec t = ManagedNotificationEventOverview.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:ManagedNotificationEventOverview.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:ManagedNotificationEventOverview.of_xml)
    let of_json j =
      list_of_json ~kind:"ManagedNotificationEvents"
        ~of_json:ManagedNotificationEventOverview.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListManagedNotificationEventsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListManagedNotificationEventsRequestMaxResultsInteger"
           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 ManagedNotificationConfigurations =
  struct
    type nonrec t = ManagedNotificationConfigurationStructure.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:ManagedNotificationConfigurationStructure.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:ManagedNotificationConfigurationStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"ManagedNotificationConfigurations"
        ~of_json:ManagedNotificationConfigurationStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChannelIdentifier =
  struct
    type nonrec t = string
    let context_ = "ChannelIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"ACCOUNT_PRIMARY|ACCOUNT_ALTERNATE_BILLING|ACCOUNT_ALTERNATE_OPERATIONS|ACCOUNT_ALTERNATE_SECURITY|arn:aws:(chatbot|consoleapp|notifications-contacts):[a-zA-Z0-9-]*:[0-9]{12}:[a-zA-Z0-9-_.@]+/[a-zA-Z0-9/_.@:-]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChannelIdentifier" j
    let to_json = simple_to_json to_value
  end
module ListManagedNotificationConfigurationsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListManagedNotificationConfigurationsRequestMaxResultsInteger"
           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 ManagedNotificationChildEvents =
  struct
    type nonrec t = ManagedNotificationChildEventOverview.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:ManagedNotificationChildEventOverview.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:ManagedNotificationChildEventOverview.of_xml)
    let of_json j =
      list_of_json ~kind:"ManagedNotificationChildEvents"
        ~of_json:ManagedNotificationChildEventOverview.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListManagedNotificationChildEventsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListManagedNotificationChildEventsRequestMaxResultsInteger"
           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 ManagedNotificationChannelAssociations =
  struct
    type nonrec t = ManagedNotificationChannelAssociationSummary.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:ManagedNotificationChannelAssociationSummary.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:ManagedNotificationChannelAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ManagedNotificationChannelAssociations"
        ~of_json:ManagedNotificationChannelAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListManagedNotificationChannelAssociationsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListManagedNotificationChannelAssociationsRequestMaxResultsInteger"
           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 EventRules =
  struct
    type nonrec t = EventRuleStructure.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:EventRuleStructure.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:EventRuleStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"EventRules" ~of_json:EventRuleStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListEventRulesRequestMaxResultsInteger =
  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 ListEventRulesRequestMaxResultsInteger"
           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 Channels =
  struct
    type nonrec t = ChannelArn.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:ChannelArn.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:ChannelArn.of_xml)
    let of_json j =
      list_of_json ~kind:"Channels" ~of_json:ChannelArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListChannelsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListChannelsRequestMaxResultsInteger"
           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 NotificationsAccessForOrganization =
  struct
    type nonrec t =
      {
      accessStatus: AccessStatus.t option
        [@ocaml.doc "Access Status for the Orgs Service."]}
    let make ?accessStatus = fun () -> { accessStatus }
    let to_value x =
      structure_to_value
        [("accessStatus",
           (Option.map x.accessStatus ~f:AccessStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessStatus =
        (Option.map ~f:AccessStatus.of_xml)
          (Xml.child xml_arg0 "accessStatus") in
      make ?accessStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessStatus = field_map json__ "accessStatus" AccessStatus.of_json in
      make ?accessStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Orgs Service trust for User Notifications."]
module NotificationEvent =
  struct
    type nonrec t =
      {
      schemaVersion: SchemaVersion.t option
        [@ocaml.doc "The schema version of the Notification Event."];
      id: NotificationEventId.t option
        [@ocaml.doc "The unique identifier for a NotificationEvent."];
      sourceEventMetadata: SourceEventMetadata.t option
        [@ocaml.doc "The source event metadata."];
      messageComponents: MessageComponents.t option ;
      sourceEventDetailUrl: Url.t option [@ocaml.doc "The source event URL."];
      sourceEventDetailUrlDisplayText: String_.t option
        [@ocaml.doc "The detailed URL for the source event."];
      notificationType: NotificationType.t option
        [@ocaml.doc
          "The type of event causing the notification. Values: ALERT A notification about an event where something was triggered, initiated, reopened, deployed, or a threshold was breached. WARNING A notification about an event where an issue is about to arise. For example, something is approaching a threshold. ANNOUNCEMENT A notification about an important event. For example, a step in a workflow or escalation path or that a workflow was updated. INFORMATIONAL A notification about informational messages. For example, recommendations, service announcements, or reminders."];
      eventStatus: EventStatus.t option
        [@ocaml.doc
          "The assessed nature of the event. Values: HEALTHY All EventRules are ACTIVE and any call can be run. UNHEALTHY Some EventRules are ACTIVE and some are INACTIVE. Any call can be run."];
      aggregationEventType: AggregationEventType.t option
        [@ocaml.doc
          "The aggregation type of the NotificationConfiguration. Values: AGGREGATE The notification event is an aggregate notification. Aggregate notifications summarize grouped events over a specified time period. CHILD Some EventRules are ACTIVE and some are INACTIVE. Any call can be run. NONE The notification isn't aggregated."];
      aggregateNotificationEventArn: NotificationEventArn.t option
        [@ocaml.doc
          "If the value of aggregationEventType is not NONE, this is the Amazon Resource Event (ARN) of the parent aggregate notification. This is omitted if notification isn't aggregated."];
      aggregationSummary: AggregationSummary.t option
        [@ocaml.doc
          "Provides additional information about how multiple notifications are grouped."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The notification event start time."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The end time of the event."];
      textParts: TextParts.t option [@ocaml.doc "A list of text values."];
      media: Media.t option [@ocaml.doc "A list of media elements."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The unique identifier of the organizational unit associated with the notification event."]}
    let make ?schemaVersion =
      fun ?id ->
        fun ?sourceEventMetadata ->
          fun ?messageComponents ->
            fun ?sourceEventDetailUrl ->
              fun ?sourceEventDetailUrlDisplayText ->
                fun ?notificationType ->
                  fun ?eventStatus ->
                    fun ?aggregationEventType ->
                      fun ?aggregateNotificationEventArn ->
                        fun ?aggregationSummary ->
                          fun ?startTime ->
                            fun ?endTime ->
                              fun ?textParts ->
                                fun ?media ->
                                  fun ?organizationalUnitId ->
                                    fun () ->
                                      {
                                        schemaVersion;
                                        id;
                                        sourceEventMetadata;
                                        messageComponents;
                                        sourceEventDetailUrl;
                                        sourceEventDetailUrlDisplayText;
                                        notificationType;
                                        eventStatus;
                                        aggregationEventType;
                                        aggregateNotificationEventArn;
                                        aggregationSummary;
                                        startTime;
                                        endTime;
                                        textParts;
                                        media;
                                        organizationalUnitId
                                      }
    let to_value x =
      structure_to_value
        [("schemaVersion",
           (Option.map x.schemaVersion ~f:SchemaVersion.to_value));
        ("id", (Option.map x.id ~f:NotificationEventId.to_value));
        ("sourceEventMetadata",
          (Option.map x.sourceEventMetadata ~f:SourceEventMetadata.to_value));
        ("messageComponents",
          (Option.map x.messageComponents ~f:MessageComponents.to_value));
        ("sourceEventDetailUrl",
          (Option.map x.sourceEventDetailUrl ~f:Url.to_value));
        ("sourceEventDetailUrlDisplayText",
          (Option.map x.sourceEventDetailUrlDisplayText ~f:String_.to_value));
        ("notificationType",
          (Option.map x.notificationType ~f:NotificationType.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("aggregationEventType",
          (Option.map x.aggregationEventType ~f:AggregationEventType.to_value));
        ("aggregateNotificationEventArn",
          (Option.map x.aggregateNotificationEventArn
             ~f:NotificationEventArn.to_value));
        ("aggregationSummary",
          (Option.map x.aggregationSummary ~f:AggregationSummary.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("textParts", (Option.map x.textParts ~f:TextParts.to_value));
        ("media", (Option.map x.media ~f:Media.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let media = (Option.map ~f:Media.of_xml) (Xml.child xml_arg0 "media") in
      let textParts =
        (Option.map ~f:TextParts.of_xml) (Xml.child xml_arg0 "textParts") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let aggregationSummary =
        (Option.map ~f:AggregationSummary.of_xml)
          (Xml.child xml_arg0 "aggregationSummary") in
      let aggregateNotificationEventArn =
        (Option.map ~f:NotificationEventArn.of_xml)
          (Xml.child xml_arg0 "aggregateNotificationEventArn") in
      let aggregationEventType =
        (Option.map ~f:AggregationEventType.of_xml)
          (Xml.child xml_arg0 "aggregationEventType") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let notificationType =
        (Option.map ~f:NotificationType.of_xml)
          (Xml.child xml_arg0 "notificationType") in
      let sourceEventDetailUrlDisplayText =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "sourceEventDetailUrlDisplayText") in
      let sourceEventDetailUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "sourceEventDetailUrl") in
      let messageComponents =
        (Option.map ~f:MessageComponents.of_xml)
          (Xml.child xml_arg0 "messageComponents") in
      let sourceEventMetadata =
        (Option.map ~f:SourceEventMetadata.of_xml)
          (Xml.child xml_arg0 "sourceEventMetadata") in
      let id =
        (Option.map ~f:NotificationEventId.of_xml) (Xml.child xml_arg0 "id") in
      let schemaVersion =
        (Option.map ~f:SchemaVersion.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      make ?organizationalUnitId ?media ?textParts ?endTime ?startTime
        ?aggregationSummary ?aggregateNotificationEventArn
        ?aggregationEventType ?eventStatus ?notificationType
        ?sourceEventDetailUrlDisplayText ?sourceEventDetailUrl
        ?messageComponents ?sourceEventMetadata ?id ?schemaVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let media = field_map json__ "media" Media.of_json in
      let textParts = field_map json__ "textParts" TextParts.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let aggregationSummary =
        field_map json__ "aggregationSummary" AggregationSummary.of_json in
      let aggregateNotificationEventArn =
        field_map json__ "aggregateNotificationEventArn"
          NotificationEventArn.of_json in
      let aggregationEventType =
        field_map json__ "aggregationEventType" AggregationEventType.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let notificationType =
        field_map json__ "notificationType" NotificationType.of_json in
      let sourceEventDetailUrlDisplayText =
        field_map json__ "sourceEventDetailUrlDisplayText" String_.of_json in
      let sourceEventDetailUrl =
        field_map json__ "sourceEventDetailUrl" Url.of_json in
      let messageComponents =
        field_map json__ "messageComponents" MessageComponents.of_json in
      let sourceEventMetadata =
        field_map json__ "sourceEventMetadata" SourceEventMetadata.of_json in
      let id = field_map json__ "id" NotificationEventId.of_json in
      let schemaVersion =
        field_map json__ "schemaVersion" SchemaVersion.of_json in
      make ?organizationalUnitId ?media ?textParts ?endTime ?startTime
        ?aggregationSummary ?aggregateNotificationEventArn
        ?aggregationEventType ?eventStatus ?notificationType
        ?sourceEventDetailUrlDisplayText ?sourceEventDetailUrl
        ?messageComponents ?sourceEventMetadata ?id ?schemaVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A NotificationEvent is a notification-focused representation of an event. They contain semantic information used by Channels to create end-user notifications."]
module ManagedNotificationEvent =
  struct
    type nonrec t =
      {
      schemaVersion: SchemaVersion.t option
        [@ocaml.doc "Version of the ManagedNotificationEvent schema."];
      id: NotificationEventId.t option
        [@ocaml.doc "Unique identifier for a ManagedNotificationEvent."];
      messageComponents: MessageComponents.t option ;
      sourceEventDetailUrl: Url.t option
        [@ocaml.doc
          "URL defined by Source Service to be used by notification consumers to get additional information about event."];
      sourceEventDetailUrlDisplayText: String_.t option
        [@ocaml.doc
          "Text that needs to be hyperlinked with the sourceEventDetailUrl. For example, the description of the sourceEventDetailUrl."];
      notificationType: NotificationType.t option
        [@ocaml.doc
          "The nature of the event causing this notification. Values: ALERT A notification about an event where something was triggered, initiated, reopened, deployed, or a threshold was breached. WARNING A notification about an event where an issue is about to arise. For example, something is approaching a threshold. ANNOUNCEMENT A notification about an important event. For example, a step in a workflow or escalation path or that a workflow was updated. INFORMATIONAL A notification about informational messages. For example, recommendations, service announcements, or reminders."];
      eventStatus: EventStatus.t option
        [@ocaml.doc
          "The status of an event. Values: HEALTHY All EventRules are ACTIVE and any call can be run. UNHEALTHY Some EventRules are ACTIVE and some are INACTIVE. Any call can be run."];
      aggregationEventType: AggregationEventType.t option
        [@ocaml.doc "The notifications aggregation type."];
      aggregationSummary: AggregationSummary.t option ;
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The earliest time of events to return from this call."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The end time of the notification event."];
      textParts: TextParts.t option [@ocaml.doc "A list of text values."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The Organizational Unit Id that an Amazon Web Services account belongs to."]}
    let make ?schemaVersion =
      fun ?id ->
        fun ?messageComponents ->
          fun ?sourceEventDetailUrl ->
            fun ?sourceEventDetailUrlDisplayText ->
              fun ?notificationType ->
                fun ?eventStatus ->
                  fun ?aggregationEventType ->
                    fun ?aggregationSummary ->
                      fun ?startTime ->
                        fun ?endTime ->
                          fun ?textParts ->
                            fun ?organizationalUnitId ->
                              fun () ->
                                {
                                  schemaVersion;
                                  id;
                                  messageComponents;
                                  sourceEventDetailUrl;
                                  sourceEventDetailUrlDisplayText;
                                  notificationType;
                                  eventStatus;
                                  aggregationEventType;
                                  aggregationSummary;
                                  startTime;
                                  endTime;
                                  textParts;
                                  organizationalUnitId
                                }
    let to_value x =
      structure_to_value
        [("schemaVersion",
           (Option.map x.schemaVersion ~f:SchemaVersion.to_value));
        ("id", (Option.map x.id ~f:NotificationEventId.to_value));
        ("messageComponents",
          (Option.map x.messageComponents ~f:MessageComponents.to_value));
        ("sourceEventDetailUrl",
          (Option.map x.sourceEventDetailUrl ~f:Url.to_value));
        ("sourceEventDetailUrlDisplayText",
          (Option.map x.sourceEventDetailUrlDisplayText ~f:String_.to_value));
        ("notificationType",
          (Option.map x.notificationType ~f:NotificationType.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("aggregationEventType",
          (Option.map x.aggregationEventType ~f:AggregationEventType.to_value));
        ("aggregationSummary",
          (Option.map x.aggregationSummary ~f:AggregationSummary.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("textParts", (Option.map x.textParts ~f:TextParts.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let textParts =
        (Option.map ~f:TextParts.of_xml) (Xml.child xml_arg0 "textParts") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let aggregationSummary =
        (Option.map ~f:AggregationSummary.of_xml)
          (Xml.child xml_arg0 "aggregationSummary") in
      let aggregationEventType =
        (Option.map ~f:AggregationEventType.of_xml)
          (Xml.child xml_arg0 "aggregationEventType") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let notificationType =
        (Option.map ~f:NotificationType.of_xml)
          (Xml.child xml_arg0 "notificationType") in
      let sourceEventDetailUrlDisplayText =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "sourceEventDetailUrlDisplayText") in
      let sourceEventDetailUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "sourceEventDetailUrl") in
      let messageComponents =
        (Option.map ~f:MessageComponents.of_xml)
          (Xml.child xml_arg0 "messageComponents") in
      let id =
        (Option.map ~f:NotificationEventId.of_xml) (Xml.child xml_arg0 "id") in
      let schemaVersion =
        (Option.map ~f:SchemaVersion.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      make ?organizationalUnitId ?textParts ?endTime ?startTime
        ?aggregationSummary ?aggregationEventType ?eventStatus
        ?notificationType ?sourceEventDetailUrlDisplayText
        ?sourceEventDetailUrl ?messageComponents ?id ?schemaVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let textParts = field_map json__ "textParts" TextParts.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let aggregationSummary =
        field_map json__ "aggregationSummary" AggregationSummary.of_json in
      let aggregationEventType =
        field_map json__ "aggregationEventType" AggregationEventType.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let notificationType =
        field_map json__ "notificationType" NotificationType.of_json in
      let sourceEventDetailUrlDisplayText =
        field_map json__ "sourceEventDetailUrlDisplayText" String_.of_json in
      let sourceEventDetailUrl =
        field_map json__ "sourceEventDetailUrl" Url.of_json in
      let messageComponents =
        field_map json__ "messageComponents" MessageComponents.of_json in
      let id = field_map json__ "id" NotificationEventId.of_json in
      let schemaVersion =
        field_map json__ "schemaVersion" SchemaVersion.of_json in
      make ?organizationalUnitId ?textParts ?endTime ?startTime
        ?aggregationSummary ?aggregationEventType ?eventStatus
        ?notificationType ?sourceEventDetailUrlDisplayText
        ?sourceEventDetailUrl ?messageComponents ?id ?schemaVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A notification-focused representation of an event. They contain semantic information used by AccountContacts or Additional Channels to create end-user notifications."]
module ManagedNotificationChildEvent =
  struct
    type nonrec t =
      {
      schemaVersion: SchemaVersion.t option
        [@ocaml.doc
          "The schema version of the Managed Notification Child Event."];
      id: NotificationEventId.t option
        [@ocaml.doc
          "The unique identifier for a Managed Notification Child Event."];
      messageComponents: MessageComponents.t option ;
      sourceEventDetailUrl: Url.t option [@ocaml.doc "The source event URL."];
      sourceEventDetailUrlDisplayText: String_.t option
        [@ocaml.doc "The detailed URL for the source event."];
      notificationType: NotificationType.t option
        [@ocaml.doc
          "The type of event causing the notification. Values: ALERT A notification about an event where something was triggered, initiated, reopened, deployed, or a threshold was breached. WARNING A notification about an event where an issue is about to arise. For example, something is approaching a threshold. ANNOUNCEMENT A notification about an important event. For example, a step in a workflow or escalation path or that a workflow was updated. INFORMATIONAL A notification about informational messages. For example, recommendations, service announcements, or reminders."];
      eventStatus: EventStatus.t option
        [@ocaml.doc
          "The assesed nature of the event. Values: HEALTHY All EventRules are ACTIVE. UNHEALTHY Some EventRules are ACTIVE and some are INACTIVE."];
      aggregateManagedNotificationEventArn:
        ManagedNotificationEventArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationEvent that is associated with this Managed Notification Child Event."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The notification event start time."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The end time of the event."];
      textParts: TextParts.t option [@ocaml.doc "A list of text values."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The Organizational Unit Id that an Amazon Web Services account belongs to."];
      aggregationDetail: AggregationDetail.t option
        [@ocaml.doc
          "Provides detailed information about the dimensions used for event summarization and aggregation."]}
    let make ?schemaVersion =
      fun ?id ->
        fun ?messageComponents ->
          fun ?sourceEventDetailUrl ->
            fun ?sourceEventDetailUrlDisplayText ->
              fun ?notificationType ->
                fun ?eventStatus ->
                  fun ?aggregateManagedNotificationEventArn ->
                    fun ?startTime ->
                      fun ?endTime ->
                        fun ?textParts ->
                          fun ?organizationalUnitId ->
                            fun ?aggregationDetail ->
                              fun () ->
                                {
                                  schemaVersion;
                                  id;
                                  messageComponents;
                                  sourceEventDetailUrl;
                                  sourceEventDetailUrlDisplayText;
                                  notificationType;
                                  eventStatus;
                                  aggregateManagedNotificationEventArn;
                                  startTime;
                                  endTime;
                                  textParts;
                                  organizationalUnitId;
                                  aggregationDetail
                                }
    let to_value x =
      structure_to_value
        [("schemaVersion",
           (Option.map x.schemaVersion ~f:SchemaVersion.to_value));
        ("id", (Option.map x.id ~f:NotificationEventId.to_value));
        ("messageComponents",
          (Option.map x.messageComponents ~f:MessageComponents.to_value));
        ("sourceEventDetailUrl",
          (Option.map x.sourceEventDetailUrl ~f:Url.to_value));
        ("sourceEventDetailUrlDisplayText",
          (Option.map x.sourceEventDetailUrlDisplayText ~f:String_.to_value));
        ("notificationType",
          (Option.map x.notificationType ~f:NotificationType.to_value));
        ("eventStatus", (Option.map x.eventStatus ~f:EventStatus.to_value));
        ("aggregateManagedNotificationEventArn",
          (Option.map x.aggregateManagedNotificationEventArn
             ~f:ManagedNotificationEventArn.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("textParts", (Option.map x.textParts ~f:TextParts.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value));
        ("aggregationDetail",
          (Option.map x.aggregationDetail ~f:AggregationDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregationDetail =
        (Option.map ~f:AggregationDetail.of_xml)
          (Xml.child xml_arg0 "aggregationDetail") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let textParts =
        (Option.map ~f:TextParts.of_xml) (Xml.child xml_arg0 "textParts") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let aggregateManagedNotificationEventArn =
        (Option.map ~f:ManagedNotificationEventArn.of_xml)
          (Xml.child xml_arg0 "aggregateManagedNotificationEventArn") in
      let eventStatus =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "eventStatus") in
      let notificationType =
        (Option.map ~f:NotificationType.of_xml)
          (Xml.child xml_arg0 "notificationType") in
      let sourceEventDetailUrlDisplayText =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "sourceEventDetailUrlDisplayText") in
      let sourceEventDetailUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "sourceEventDetailUrl") in
      let messageComponents =
        (Option.map ~f:MessageComponents.of_xml)
          (Xml.child xml_arg0 "messageComponents") in
      let id =
        (Option.map ~f:NotificationEventId.of_xml) (Xml.child xml_arg0 "id") in
      let schemaVersion =
        (Option.map ~f:SchemaVersion.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      make ?aggregationDetail ?organizationalUnitId ?textParts ?endTime
        ?startTime ?aggregateManagedNotificationEventArn ?eventStatus
        ?notificationType ?sourceEventDetailUrlDisplayText
        ?sourceEventDetailUrl ?messageComponents ?id ?schemaVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregationDetail =
        field_map json__ "aggregationDetail" AggregationDetail.of_json in
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let textParts = field_map json__ "textParts" TextParts.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let aggregateManagedNotificationEventArn =
        field_map json__ "aggregateManagedNotificationEventArn"
          ManagedNotificationEventArn.of_json in
      let eventStatus = field_map json__ "eventStatus" EventStatus.of_json in
      let notificationType =
        field_map json__ "notificationType" NotificationType.of_json in
      let sourceEventDetailUrlDisplayText =
        field_map json__ "sourceEventDetailUrlDisplayText" String_.of_json in
      let sourceEventDetailUrl =
        field_map json__ "sourceEventDetailUrl" Url.of_json in
      let messageComponents =
        field_map json__ "messageComponents" MessageComponents.of_json in
      let id = field_map json__ "id" NotificationEventId.of_json in
      let schemaVersion =
        field_map json__ "schemaVersion" SchemaVersion.of_json in
      make ?aggregationDetail ?organizationalUnitId ?textParts ?endTime
        ?startTime ?aggregateManagedNotificationEventArn ?eventStatus
        ?notificationType ?sourceEventDetailUrlDisplayText
        ?sourceEventDetailUrl ?messageComponents ?id ?schemaVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A ManagedNotificationChildEvent is a notification-focused representation of an event. They contain semantic information used to create aggregated or non-aggregated end-user notifications."]
module ManagedNotificationChildEventArn =
  struct
    type nonrec t = string
    let context_ = "ManagedNotificationChildEventArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:[-.a-z0-9]{1,63}:notifications::[0-9]{12}:managed-notification-configuration/category/[a-zA-Z0-9\\-]{3,64}/sub-category/[a-zA-Z0-9\\-]{3,64}/event/[a-z0-9]{27}/child-event/[a-z0-9]{27}");
        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:"ManagedNotificationChildEventArn" j
    let to_json = simple_to_json to_value
  end
module AccountContactType =
  struct
    type nonrec t =
      | ACCOUNT_PRIMARY 
      | ACCOUNT_ALTERNATE_BILLING 
      | ACCOUNT_ALTERNATE_OPERATIONS 
      | ACCOUNT_ALTERNATE_SECURITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCOUNT_PRIMARY -> "ACCOUNT_PRIMARY"
      | ACCOUNT_ALTERNATE_BILLING -> "ACCOUNT_ALTERNATE_BILLING"
      | ACCOUNT_ALTERNATE_OPERATIONS -> "ACCOUNT_ALTERNATE_OPERATIONS"
      | ACCOUNT_ALTERNATE_SECURITY -> "ACCOUNT_ALTERNATE_SECURITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCOUNT_PRIMARY" -> ACCOUNT_PRIMARY
      | "ACCOUNT_ALTERNATE_BILLING" -> ACCOUNT_ALTERNATE_BILLING
      | "ACCOUNT_ALTERNATE_OPERATIONS" -> ACCOUNT_ALTERNATE_OPERATIONS
      | "ACCOUNT_ALTERNATE_SECURITY" -> ACCOUNT_ALTERNATE_SECURITY
      | 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 AccountContactType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountContactType" j)
    let to_json = simple_to_json to_value
  end
module UpdateNotificationConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN used to update the NotificationConfiguration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("arn", (Option.map x.arn ~f:NotificationConfigurationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" NotificationConfigurationArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a NotificationConfiguration."]
module UpdateNotificationConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) used to update the NotificationConfiguration."];
      name: NotificationConfigurationName.t option
        [@ocaml.doc "The name of the NotificationConfiguration."];
      description: NotificationConfigurationDescription.t option
        [@ocaml.doc "The description of the NotificationConfiguration."];
      aggregationDuration: AggregationDuration.t option
        [@ocaml.doc
          "The aggregation preference of the NotificationConfiguration. Values: LONG Aggregate notifications for long periods of time (12 hours). SHORT Aggregate notifications for short periods of time (5 minutes). NONE Don't aggregate notifications."]}
    let context_ = "UpdateNotificationConfigurationRequest"
    let make ?name =
      fun ?description ->
        fun ?aggregationDuration ->
          fun ~arn ->
            fun () -> { name; description; aggregationDuration; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationConfigurationArn.to_value x.arn)));
        ("name",
          (Option.map x.name ~f:NotificationConfigurationName.to_value));
        ("description",
          (Option.map x.description
             ~f:NotificationConfigurationDescription.to_value));
        ("aggregationDuration",
          (Option.map x.aggregationDuration ~f:AggregationDuration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregationDuration =
        (Option.map ~f:AggregationDuration.of_xml)
          (Xml.child xml_arg0 "aggregationDuration") in
      let description =
        (Option.map ~f:NotificationConfigurationDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:NotificationConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?aggregationDuration ?description ?name ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregationDuration =
        field_map json__ "aggregationDuration" AggregationDuration.of_json in
      let description =
        field_map json__ "description"
          NotificationConfigurationDescription.of_json in
      let name =
        field_map json__ "name" NotificationConfigurationName.of_json in
      let arn =
        field_map_exn json__ "arn" NotificationConfigurationArn.of_json in
      make ?aggregationDuration ?description ?name ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a NotificationConfiguration."]
module UpdateEventRuleResponse =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to use to update the EventRule."];
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN of the NotificationConfiguration."];
      statusSummaryByRegion: StatusSummaryByRegion.t option
        [@ocaml.doc "The status of the action by Region."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 ?arn =
      fun ?notificationConfigurationArn ->
        fun ?statusSummaryByRegion ->
          fun () ->
            { arn; notificationConfigurationArn; statusSummaryByRegion }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("arn", (Option.map x.arn ~f:EventRuleArn.to_value));
        ("notificationConfigurationArn",
          (Option.map x.notificationConfigurationArn
             ~f:NotificationConfigurationArn.to_value));
        ("statusSummaryByRegion",
          (Option.map x.statusSummaryByRegion
             ~f:StatusSummaryByRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummaryByRegion =
        (Option.map ~f:StatusSummaryByRegion.of_xml)
          (Xml.child xml_arg0 "statusSummaryByRegion") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      let arn =
        (Option.map ~f:EventRuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?statusSummaryByRegion ?notificationConfigurationArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummaryByRegion =
        field_map json__ "statusSummaryByRegion"
          StatusSummaryByRegion.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map json__ "arn" EventRuleArn.of_json in
      make ?statusSummaryByRegion ?notificationConfigurationArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing EventRule."]
module UpdateEventRuleRequest =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to use to update the EventRule."];
      eventPattern: EventRuleEventPattern.t option
        [@ocaml.doc
          "An additional event pattern used to further filter the events this EventRule receives. For more information, see Amazon EventBridge event patterns in the Amazon EventBridge User Guide."];
      regions: Regions.t option
        [@ocaml.doc
          "A list of Amazon Web Services Regions that sends events to this EventRule."]}
    let context_ = "UpdateEventRuleRequest"
    let make ?eventPattern =
      fun ?regions -> fun ~arn -> fun () -> { eventPattern; regions; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (EventRuleArn.to_value x.arn)));
        ("eventPattern",
          (Option.map x.eventPattern ~f:EventRuleEventPattern.to_value));
        ("regions", (Option.map x.regions ~f:Regions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        (Option.map ~f:Regions.of_xml) (Xml.child xml_arg0 "regions") in
      let eventPattern =
        (Option.map ~f:EventRuleEventPattern.of_xml)
          (Xml.child xml_arg0 "eventPattern") in
      let arn =
        EventRuleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?regions ?eventPattern ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map json__ "regions" Regions.of_json in
      let eventPattern =
        field_map json__ "eventPattern" EventRuleEventPattern.of_json in
      let arn = field_map_exn json__ "arn" EventRuleArn.of_json in
      make ?regions ?eventPattern ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing EventRule."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
       "Untags a resource with a specified Amazon Resource Name (ARN). For more information, see Tagging your Amazon Web Services resources in the Tagging Amazon Web Services Resources User Guide."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to use to untag a resource."];
      tagKeys: TagKeys.t
        [@ocaml.doc "The tag keys to use to untag a resource."]}
    let context_ = "UntagResourceRequest"
    let make ~arn = fun ~tagKeys -> fun () -> { arn; tagKeys }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationConfigurationArn.to_value x.arn)));
        ("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 arn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~tagKeys ~arn ()
    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 arn =
        field_map_exn json__ "arn" NotificationConfigurationArn.of_json in
      make ~tagKeys ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Untags a resource with a specified Amazon Resource Name (ARN). For more information, see Tagging your Amazon Web Services resources in the Tagging Amazon Web Services Resources User Guide."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
       "Tags the resource with a tag key and value. For more information, see Tagging your Amazon Web Services resources in the Tagging Amazon Web Services Resources User Guide. This is only supported for NotificationConfigurations."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to use to tag a resource."];
      tags: TagMap.t
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."]}
    let context_ = "TagResourceRequest"
    let make ~arn = fun ~tags -> fun () -> { arn; tags }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationConfigurationArn.to_value x.arn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let arn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~tags ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let arn =
        field_map_exn json__ "arn" NotificationConfigurationArn.of_json in
      make ~tags ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tags the resource with a tag key and value. For more information, see Tagging your Amazon Web Services resources in the Tagging Amazon Web Services Resources User Guide. This is only supported for NotificationConfigurations."]
module RegisterNotificationHubResponse =
  struct
    type nonrec t =
      {
      notificationHubRegion: Region.t option
        [@ocaml.doc "The Region of the NotificationHub."];
      statusSummary: NotificationHubStatusSummary.t option
        [@ocaml.doc
          "Provides additional information about the current NotificationConfiguration status information."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The date the resource was created."];
      lastActivationTime: LastActivationTime.t option
        [@ocaml.doc "The date the resource was last activated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 ?notificationHubRegion =
      fun ?statusSummary ->
        fun ?creationTime ->
          fun ?lastActivationTime ->
            fun () ->
              {
                notificationHubRegion;
                statusSummary;
                creationTime;
                lastActivationTime
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 to_value x =
      structure_to_value
        [("notificationHubRegion",
           (Option.map x.notificationHubRegion ~f:Region.to_value));
        ("statusSummary",
          (Option.map x.statusSummary
             ~f:NotificationHubStatusSummary.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("lastActivationTime",
          (Option.map x.lastActivationTime ~f:LastActivationTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastActivationTime =
        (Option.map ~f:LastActivationTime.of_xml)
          (Xml.child xml_arg0 "lastActivationTime") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let statusSummary =
        (Option.map ~f:NotificationHubStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let notificationHubRegion =
        (Option.map ~f:Region.of_xml)
          (Xml.child xml_arg0 "notificationHubRegion") in
      make ?lastActivationTime ?creationTime ?statusSummary
        ?notificationHubRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastActivationTime =
        field_map json__ "lastActivationTime" LastActivationTime.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let statusSummary =
        field_map json__ "statusSummary" NotificationHubStatusSummary.of_json in
      let notificationHubRegion =
        field_map json__ "notificationHubRegion" Region.of_json in
      make ?lastActivationTime ?creationTime ?statusSummary
        ?notificationHubRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a NotificationConfiguration in the specified Region. There is a maximum of one NotificationConfiguration per Region. You can have a maximum of 3 NotificationHub resources at a time."]
module RegisterNotificationHubRequest =
  struct
    type nonrec t =
      {
      notificationHubRegion: Region.t
        [@ocaml.doc "The Region of the NotificationHub."]}
    let context_ = "RegisterNotificationHubRequest"
    let make ~notificationHubRegion = fun () -> { notificationHubRegion }
    let to_value x =
      structure_to_value
        [("notificationHubRegion",
           (Some (Region.to_value x.notificationHubRegion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationHubRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "notificationHubRegion") in
      make ~notificationHubRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationHubRegion =
        field_map_exn json__ "notificationHubRegion" Region.of_json in
      make ~notificationHubRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a NotificationConfiguration in the specified Region. There is a maximum of one NotificationConfiguration per Region. You can have a maximum of 3 NotificationHub resources at a time."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc "A list of tags for the specified ARN."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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 [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.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" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of tags for a specified Amazon Resource Name (ARN). For more information, see Tagging your Amazon Web Services resources in the Tagging Amazon Web Services Resources User Guide. This is only supported for NotificationConfigurations."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) to use to list tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn =
        field_map_exn json__ "arn" NotificationConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of tags for a specified Amazon Resource Name (ARN). For more information, see Tagging your Amazon Web Services resources in the Tagging Amazon Web Services Resources User Guide. This is only supported for NotificationConfigurations."]
module ListOrganizationalUnitsResponse =
  struct
    type nonrec t =
      {
      organizationalUnits: OrganizationalUnits.t option
        [@ocaml.doc
          "The list of organizational units that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use for the next page of results. If there are no additional results, this value is null."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?organizationalUnits =
      fun ?nextToken -> fun () -> { organizationalUnits; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("organizationalUnits",
           (Option.map x.organizationalUnits ~f:OrganizationalUnits.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let organizationalUnits =
        (Option.map ~f:OrganizationalUnits.of_xml)
          (Xml.child xml_arg0 "organizationalUnits") in
      make ?nextToken ?organizationalUnits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let organizationalUnits =
        field_map json__ "organizationalUnits" OrganizationalUnits.of_json in
      make ?nextToken ?organizationalUnits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of organizational units associated with a notification configuration."]
module ListOrganizationalUnitsRequest =
  struct
    type nonrec t =
      {
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the notification configuration used to filter the organizational units."];
      maxResults: ListOrganizationalUnitsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of organizational units to return in a single call. Valid values are 1-100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next page of results. Use the value returned in the previous response."]}
    let context_ = "ListOrganizationalUnitsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~notificationConfigurationArn ->
          fun () -> { maxResults; nextToken; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("notificationConfigurationArn",
           (Some
              (NotificationConfigurationArn.to_value
                 x.notificationConfigurationArn)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListOrganizationalUnitsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListOrganizationalUnitsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      make ?nextToken ?maxResults ~notificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListOrganizationalUnitsRequestMaxResultsInteger.of_json in
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      make ?nextToken ?maxResults ~notificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of organizational units associated with a notification configuration."]
module ListNotificationHubsResponse =
  struct
    type nonrec t =
      {
      notificationHubs: NotificationHubs.t option
        [@ocaml.doc "The NotificationHubs in the account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notificationHubs =
      fun ?nextToken -> fun () -> { notificationHubs; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("notificationHubs",
           (Option.map x.notificationHubs ~f:NotificationHubs.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let notificationHubs =
        (Option.map ~f:NotificationHubs.of_xml)
          (Xml.child xml_arg0 "notificationHubs") in
      make ?nextToken ?notificationHubs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let notificationHubs =
        field_map json__ "notificationHubs" NotificationHubs.of_json in
      make ?nextToken ?notificationHubs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of NotificationHubs."]
module ListNotificationHubsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListNotificationHubsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing notification hubs from the start."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListNotificationHubsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListNotificationHubsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListNotificationHubsRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of NotificationHubs."]
module ListNotificationEventsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      notificationEvents: NotificationEvents.t option
        [@ocaml.doc "The list of notification events."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?notificationEvents -> fun () -> { nextToken; notificationEvents }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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:NextToken.to_value));
        ("notificationEvents",
          (Option.map x.notificationEvents ~f:NotificationEvents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationEvents =
        (Option.map ~f:NotificationEvents.of_xml)
          (Xml.child xml_arg0 "notificationEvents") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?notificationEvents ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationEvents =
        field_map json__ "notificationEvents" NotificationEvents.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?notificationEvents ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of NotificationEvents according to specified filters, in reverse chronological order (newest first). User Notifications stores notifications in the individual Regions you register as notification hubs and the Region of the source event rule. ListNotificationEvents only returns notifications stored in the same Region in which the action is called. User Notifications doesn't backfill notifications to new Regions selected as notification hubs. For this reason, we recommend that you make calls in your oldest registered notification hub. For more information, see Notification hubs in the Amazon Web Services User Notifications User Guide."]
module ListNotificationEventsRequest =
  struct
    type nonrec t =
      {
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The earliest time of events to return from this call."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "Latest time of events to return from this call."];
      locale: LocaleCode.t option
        [@ocaml.doc
          "The locale code of the language used for the retrieved NotificationEvent. The default locale is English (en_US)."];
      source: Source.t option
        [@ocaml.doc
          "The matched event source. Must match one of the valid EventBridge sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      includeChildEvents: Boolean.t option
        [@ocaml.doc "Include aggregated child events in the result."];
      aggregateNotificationEventArn: NotificationEventArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the aggregatedNotificationEventArn to match."];
      maxResults: ListNotificationEventsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. Defaults to 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListEventRules call. Next token uses Base64 encoding."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The unique identifier of the organizational unit used to filter notification events."]}
    let make ?startTime =
      fun ?endTime ->
        fun ?locale ->
          fun ?source ->
            fun ?includeChildEvents ->
              fun ?aggregateNotificationEventArn ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun ?organizationalUnitId ->
                      fun () ->
                        {
                          startTime;
                          endTime;
                          locale;
                          source;
                          includeChildEvents;
                          aggregateNotificationEventArn;
                          maxResults;
                          nextToken;
                          organizationalUnitId
                        }
    let to_value x =
      structure_to_value
        [("startTime",
           (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("locale", (Option.map x.locale ~f:LocaleCode.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("includeChildEvents",
          (Option.map x.includeChildEvents ~f:Boolean.to_value));
        ("aggregateNotificationEventArn",
          (Option.map x.aggregateNotificationEventArn
             ~f:NotificationEventArn.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListNotificationEventsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListNotificationEventsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let aggregateNotificationEventArn =
        (Option.map ~f:NotificationEventArn.of_xml)
          (Xml.child xml_arg0 "aggregateNotificationEventArn") in
      let includeChildEvents =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "includeChildEvents") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let locale =
        (Option.map ~f:LocaleCode.of_xml) (Xml.child xml_arg0 "locale") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      make ?organizationalUnitId ?nextToken ?maxResults
        ?aggregateNotificationEventArn ?includeChildEvents ?source ?locale
        ?endTime ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListNotificationEventsRequestMaxResultsInteger.of_json in
      let aggregateNotificationEventArn =
        field_map json__ "aggregateNotificationEventArn"
          NotificationEventArn.of_json in
      let includeChildEvents =
        field_map json__ "includeChildEvents" Boolean.of_json in
      let source = field_map json__ "source" Source.of_json in
      let locale = field_map json__ "locale" LocaleCode.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      make ?organizationalUnitId ?nextToken ?maxResults
        ?aggregateNotificationEventArn ?includeChildEvents ?source ?locale
        ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of NotificationEvents according to specified filters, in reverse chronological order (newest first). User Notifications stores notifications in the individual Regions you register as notification hubs and the Region of the source event rule. ListNotificationEvents only returns notifications stored in the same Region in which the action is called. User Notifications doesn't backfill notifications to new Regions selected as notification hubs. For this reason, we recommend that you make calls in your oldest registered notification hub. For more information, see Notification hubs in the Amazon Web Services User Notifications User Guide."]
module ListNotificationConfigurationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      notificationConfigurations: NotificationConfigurations.t option
        [@ocaml.doc "The NotificationConfigurations in the account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?notificationConfigurations ->
        fun () -> { nextToken; notificationConfigurations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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:NextToken.to_value));
        ("notificationConfigurations",
          (Option.map x.notificationConfigurations
             ~f:NotificationConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfigurations =
        (Option.map ~f:NotificationConfigurations.of_xml)
          (Xml.child xml_arg0 "notificationConfigurations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?notificationConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfigurations =
        field_map json__ "notificationConfigurations"
          NotificationConfigurations.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?notificationConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of abbreviated NotificationConfigurations according to specified filters, in reverse chronological order (newest first)."]
module ListNotificationConfigurationsRequest =
  struct
    type nonrec t =
      {
      eventRuleSource: Source.t option
        [@ocaml.doc
          "The matched event source. Must match one of the valid EventBridge sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      channelArn: ChannelArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Channel to match."];
      status: NotificationConfigurationStatus.t option
        [@ocaml.doc
          "The NotificationConfiguration status to match. Values: ACTIVE All EventRules are ACTIVE and any call can be run. PARTIALLY_ACTIVE Some EventRules are ACTIVE and some are INACTIVE. Any call can be run. Any call can be run. INACTIVE All EventRules are INACTIVE and any call can be run. DELETING This NotificationConfiguration is being deleted. Only GET and LIST calls can be run."];
      subtype: NotificationConfigurationSubtype.t option
        [@ocaml.doc
          "The subtype used to filter the notification configurations in the request."];
      maxResults:
        ListNotificationConfigurationsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. Defaults to 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListEventRules call. Next token uses Base64 encoding."]}
    let make ?eventRuleSource =
      fun ?channelArn ->
        fun ?status ->
          fun ?subtype ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    eventRuleSource;
                    channelArn;
                    status;
                    subtype;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("eventRuleSource",
           (Option.map x.eventRuleSource ~f:Source.to_value));
        ("channelArn", (Option.map x.channelArn ~f:ChannelArn.to_value));
        ("status",
          (Option.map x.status ~f:NotificationConfigurationStatus.to_value));
        ("subtype",
          (Option.map x.subtype ~f:NotificationConfigurationSubtype.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListNotificationConfigurationsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListNotificationConfigurationsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let subtype =
        (Option.map ~f:NotificationConfigurationSubtype.of_xml)
          (Xml.child xml_arg0 "subtype") in
      let status =
        (Option.map ~f:NotificationConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let channelArn =
        (Option.map ~f:ChannelArn.of_xml) (Xml.child xml_arg0 "channelArn") in
      let eventRuleSource =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "eventRuleSource") in
      make ?nextToken ?maxResults ?subtype ?status ?channelArn
        ?eventRuleSource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListNotificationConfigurationsRequestMaxResultsInteger.of_json in
      let subtype =
        field_map json__ "subtype" NotificationConfigurationSubtype.of_json in
      let status =
        field_map json__ "status" NotificationConfigurationStatus.of_json in
      let channelArn = field_map json__ "channelArn" ChannelArn.of_json in
      let eventRuleSource = field_map json__ "eventRuleSource" Source.of_json in
      make ?nextToken ?maxResults ?subtype ?status ?channelArn
        ?eventRuleSource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of abbreviated NotificationConfigurations according to specified filters, in reverse chronological order (newest first)."]
module ListMemberAccountsResponse =
  struct
    type nonrec t =
      {
      memberAccounts: MemberAccounts.t option
        [@ocaml.doc
          "The list of member accounts that match the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token to use for the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?memberAccounts =
      fun ?nextToken -> fun () -> { memberAccounts; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("memberAccounts",
           (Option.map x.memberAccounts ~f:MemberAccounts.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let memberAccounts =
        (Option.map ~f:MemberAccounts.of_xml)
          (Xml.child xml_arg0 "memberAccounts") in
      make ?nextToken ?memberAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let memberAccounts =
        field_map json__ "memberAccounts" MemberAccounts.of_json in
      make ?nextToken ?memberAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of member accounts associated with a notification configuration."]
module ListMemberAccountsRequest =
  struct
    type nonrec t =
      {
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the notification configuration used to filter the member accounts."];
      maxResults: ListMemberAccountsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Valid values are 1-100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next page of results. Use the value returned in the previous response."];
      memberAccount: AccountId.t option
        [@ocaml.doc
          "The member account identifier used to filter the results."];
      status: MemberAccountNotificationConfigurationStatus.t option
        [@ocaml.doc "The status used to filter the member accounts."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The organizational unit ID used to filter the member accounts."]}
    let context_ = "ListMemberAccountsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?memberAccount ->
          fun ?status ->
            fun ?organizationalUnitId ->
              fun ~notificationConfigurationArn ->
                fun () ->
                  {
                    maxResults;
                    nextToken;
                    memberAccount;
                    status;
                    organizationalUnitId;
                    notificationConfigurationArn
                  }
    let to_value x =
      structure_to_value
        [("notificationConfigurationArn",
           (Some
              (NotificationConfigurationArn.to_value
                 x.notificationConfigurationArn)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListMemberAccountsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("memberAccount", (Option.map x.memberAccount ~f:AccountId.to_value));
        ("status",
          (Option.map x.status
             ~f:MemberAccountNotificationConfigurationStatus.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let status =
        (Option.map ~f:MemberAccountNotificationConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let memberAccount =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "memberAccount") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListMemberAccountsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      make ?organizationalUnitId ?status ?memberAccount ?nextToken
        ?maxResults ~notificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let status =
        field_map json__ "status"
          MemberAccountNotificationConfigurationStatus.of_json in
      let memberAccount = field_map json__ "memberAccount" AccountId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListMemberAccountsRequestMaxResultsInteger.of_json in
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      make ?organizationalUnitId ?status ?memberAccount ?nextToken
        ?maxResults ~notificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of member accounts associated with a notification configuration."]
module ListManagedNotificationEventsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      managedNotificationEvents: ManagedNotificationEvents.t option
        [@ocaml.doc
          "A list of Managed Notification Events matching the request criteria."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?managedNotificationEvents ->
        fun () -> { nextToken; managedNotificationEvents }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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:NextToken.to_value));
        ("managedNotificationEvents",
          (Option.map x.managedNotificationEvents
             ~f:ManagedNotificationEvents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationEvents =
        (Option.map ~f:ManagedNotificationEvents.of_xml)
          (Xml.child xml_arg0 "managedNotificationEvents") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?managedNotificationEvents ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationEvents =
        field_map json__ "managedNotificationEvents"
          ManagedNotificationEvents.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?managedNotificationEvents ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Managed Notification Events according to specified filters, ordered by creation time in reverse chronological order (newest first)."]
module ListManagedNotificationEventsRequest =
  struct
    type nonrec t =
      {
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The earliest time of events to return from this call."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "Latest time of events to return from this call."];
      locale: LocaleCode.t option
        [@ocaml.doc
          "The locale code of the language used for the retrieved NotificationEvent. The default locale is English (en_US)."];
      source: Source.t option
        [@ocaml.doc
          "The Amazon Web Services service the event originates from. For example aws.cloudwatch."];
      maxResults:
        ListManagedNotificationEventsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. Defaults to 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListManagedNotificationChannelAssociations call. Next token uses Base64 encoding."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The Organizational Unit Id that an Amazon Web Services account belongs to."];
      relatedAccount: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the Managed Notification Events."]}
    let make ?startTime =
      fun ?endTime ->
        fun ?locale ->
          fun ?source ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun ?organizationalUnitId ->
                  fun ?relatedAccount ->
                    fun () ->
                      {
                        startTime;
                        endTime;
                        locale;
                        source;
                        maxResults;
                        nextToken;
                        organizationalUnitId;
                        relatedAccount
                      }
    let to_value x =
      structure_to_value
        [("startTime",
           (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("locale", (Option.map x.locale ~f:LocaleCode.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListManagedNotificationEventsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value));
        ("relatedAccount",
          (Option.map x.relatedAccount ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "relatedAccount") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListManagedNotificationEventsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let locale =
        (Option.map ~f:LocaleCode.of_xml) (Xml.child xml_arg0 "locale") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      make ?relatedAccount ?organizationalUnitId ?nextToken ?maxResults
        ?source ?locale ?endTime ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedAccount =
        field_map json__ "relatedAccount" AccountId.of_json in
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListManagedNotificationEventsRequestMaxResultsInteger.of_json in
      let source = field_map json__ "source" Source.of_json in
      let locale = field_map json__ "locale" LocaleCode.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      make ?relatedAccount ?organizationalUnitId ?nextToken ?maxResults
        ?source ?locale ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Managed Notification Events according to specified filters, ordered by creation time in reverse chronological order (newest first)."]
module ListManagedNotificationConfigurationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      managedNotificationConfigurations:
        ManagedNotificationConfigurations.t option
        [@ocaml.doc
          "A list of Managed Notification Configurations matching the request criteria."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?managedNotificationConfigurations ->
        fun () -> { nextToken; managedNotificationConfigurations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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:NextToken.to_value));
        ("managedNotificationConfigurations",
          (Option.map x.managedNotificationConfigurations
             ~f:ManagedNotificationConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationConfigurations =
        (Option.map ~f:ManagedNotificationConfigurations.of_xml)
          (Xml.child xml_arg0 "managedNotificationConfigurations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?managedNotificationConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationConfigurations =
        field_map json__ "managedNotificationConfigurations"
          ManagedNotificationConfigurations.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?managedNotificationConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Managed Notification Configurations according to specified filters, ordered by creation time in reverse chronological order (newest first)."]
module ListManagedNotificationConfigurationsRequest =
  struct
    type nonrec t =
      {
      channelIdentifier: ChannelIdentifier.t option
        [@ocaml.doc
          "The identifier or ARN of the notification channel to filter configurations by."];
      maxResults:
        ListManagedNotificationConfigurationsRequestMaxResultsInteger.t
          option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. Defaults to 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListManagedNotificationChannelAssociations call. Next token uses Base64 encoding."]}
    let make ?channelIdentifier =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () -> { channelIdentifier; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("channelIdentifier",
           (Option.map x.channelIdentifier ~f:ChannelIdentifier.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListManagedNotificationConfigurationsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListManagedNotificationConfigurationsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let channelIdentifier =
        (Option.map ~f:ChannelIdentifier.of_xml)
          (Xml.child xml_arg0 "channelIdentifier") in
      make ?nextToken ?maxResults ?channelIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListManagedNotificationConfigurationsRequestMaxResultsInteger.of_json in
      let channelIdentifier =
        field_map json__ "channelIdentifier" ChannelIdentifier.of_json in
      make ?nextToken ?maxResults ?channelIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Managed Notification Configurations according to specified filters, ordered by creation time in reverse chronological order (newest first)."]
module ListManagedNotificationChildEventsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      managedNotificationChildEvents: ManagedNotificationChildEvents.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?managedNotificationChildEvents ->
        fun () -> { nextToken; managedNotificationChildEvents }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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:NextToken.to_value));
        ("managedNotificationChildEvents",
          (Option.map x.managedNotificationChildEvents
             ~f:ManagedNotificationChildEvents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationChildEvents =
        (Option.map ~f:ManagedNotificationChildEvents.of_xml)
          (Xml.child xml_arg0 "managedNotificationChildEvents") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?managedNotificationChildEvents ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationChildEvents =
        field_map json__ "managedNotificationChildEvents"
          ManagedNotificationChildEvents.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?managedNotificationChildEvents ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of ManagedNotificationChildEvents for a specified aggregate ManagedNotificationEvent, ordered by creation time in reverse chronological order (newest first)."]
module ListManagedNotificationChildEventsRequest =
  struct
    type nonrec t =
      {
      aggregateManagedNotificationEventArn: ManagedNotificationEventArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationEvent."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The earliest time of events to return from this call."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "Latest time of events to return from this call."];
      locale: LocaleCode.t option
        [@ocaml.doc
          "The locale code of the language used for the retrieved NotificationEvent. The default locale is English.en_US."];
      maxResults:
        ListManagedNotificationChildEventsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. Defaults to 20."];
      relatedAccount: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the Managed Notification Child Events."];
      organizationalUnitId: OrganizationalUnitId.t option
        [@ocaml.doc
          "The identifier of the Amazon Web Services Organizations organizational unit (OU) associated with the Managed Notification Child Events."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListManagedNotificationChannelAssociations call. Next token uses Base64 encoding."]}
    let context_ = "ListManagedNotificationChildEventsRequest"
    let make ?startTime =
      fun ?endTime ->
        fun ?locale ->
          fun ?maxResults ->
            fun ?relatedAccount ->
              fun ?organizationalUnitId ->
                fun ?nextToken ->
                  fun ~aggregateManagedNotificationEventArn ->
                    fun () ->
                      {
                        startTime;
                        endTime;
                        locale;
                        maxResults;
                        relatedAccount;
                        organizationalUnitId;
                        nextToken;
                        aggregateManagedNotificationEventArn
                      }
    let to_value x =
      structure_to_value
        [("aggregateManagedNotificationEventArn",
           (Some
              (ManagedNotificationEventArn.to_value
                 x.aggregateManagedNotificationEventArn)));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("locale", (Option.map x.locale ~f:LocaleCode.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListManagedNotificationChildEventsRequestMaxResultsInteger.to_value));
        ("relatedAccount",
          (Option.map x.relatedAccount ~f:AccountId.to_value));
        ("organizationalUnitId",
          (Option.map x.organizationalUnitId ~f:OrganizationalUnitId.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let organizationalUnitId =
        (Option.map ~f:OrganizationalUnitId.of_xml)
          (Xml.child xml_arg0 "organizationalUnitId") in
      let relatedAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "relatedAccount") in
      let maxResults =
        (Option.map
           ~f:ListManagedNotificationChildEventsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let locale =
        (Option.map ~f:LocaleCode.of_xml) (Xml.child xml_arg0 "locale") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let aggregateManagedNotificationEventArn =
        ManagedNotificationEventArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "aggregateManagedNotificationEventArn") in
      make ?nextToken ?organizationalUnitId ?relatedAccount ?maxResults
        ?locale ?endTime ?startTime ~aggregateManagedNotificationEventArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let organizationalUnitId =
        field_map json__ "organizationalUnitId" OrganizationalUnitId.of_json in
      let relatedAccount =
        field_map json__ "relatedAccount" AccountId.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListManagedNotificationChildEventsRequestMaxResultsInteger.of_json in
      let locale = field_map json__ "locale" LocaleCode.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let aggregateManagedNotificationEventArn =
        field_map_exn json__ "aggregateManagedNotificationEventArn"
          ManagedNotificationEventArn.of_json in
      make ?nextToken ?organizationalUnitId ?relatedAccount ?maxResults
        ?locale ?endTime ?startTime ~aggregateManagedNotificationEventArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of ManagedNotificationChildEvents for a specified aggregate ManagedNotificationEvent, ordered by creation time in reverse chronological order (newest first)."]
module ListManagedNotificationChannelAssociationsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      channelAssociations: ManagedNotificationChannelAssociations.t option
        [@ocaml.doc
          "A list that contains the following information about a channel association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?nextToken =
      fun ?channelAssociations ->
        fun () -> { nextToken; channelAssociations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("channelAssociations",
          (Option.map x.channelAssociations
             ~f:ManagedNotificationChannelAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelAssociations =
        (Option.map ~f:ManagedNotificationChannelAssociations.of_xml)
          (Xml.child xml_arg0 "channelAssociations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?channelAssociations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelAssociations =
        field_map json__ "channelAssociations"
          ManagedNotificationChannelAssociations.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?channelAssociations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Account contacts and Channels associated with a ManagedNotificationConfiguration, in paginated format."]
module ListManagedNotificationChannelAssociationsRequest =
  struct
    type nonrec t =
      {
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration to match."];
      maxResults:
        ListManagedNotificationChannelAssociationsRequestMaxResultsInteger.t
          option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. Defaults to 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListManagedNotificationChannelAssociations call."]}
    let context_ = "ListManagedNotificationChannelAssociationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~managedNotificationConfigurationArn ->
          fun () ->
            { maxResults; nextToken; managedNotificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("managedNotificationConfigurationArn",
           (Some
              (ManagedNotificationConfigurationOsArn.to_value
                 x.managedNotificationConfigurationArn)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListManagedNotificationChannelAssociationsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map
           ~f:ListManagedNotificationChannelAssociationsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let managedNotificationConfigurationArn =
        ManagedNotificationConfigurationOsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "managedNotificationConfigurationArn") in
      make ?nextToken ?maxResults ~managedNotificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListManagedNotificationChannelAssociationsRequestMaxResultsInteger.of_json in
      let managedNotificationConfigurationArn =
        field_map_exn json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      make ?nextToken ?maxResults ~managedNotificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Account contacts and Channels associated with a ManagedNotificationConfiguration, in paginated format."]
module ListEventRulesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      eventRules: EventRules.t option [@ocaml.doc "A list of EventRules."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?nextToken =
      fun ?eventRules -> fun () -> { nextToken; eventRules }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("eventRules", (Option.map x.eventRules ~f:EventRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventRules =
        (Option.map ~f:EventRules.of_xml) (Xml.child xml_arg0 "eventRules") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?eventRules ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventRules = field_map json__ "eventRules" EventRules.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?eventRules ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of EventRules according to specified filters, in reverse chronological order (newest first)."]
module ListEventRulesRequest =
  struct
    type nonrec t =
      {
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration."];
      maxResults: ListEventRulesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. The default value is 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListEventRules call. Next token uses Base64 encoding."]}
    let context_ = "ListEventRulesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~notificationConfigurationArn ->
          fun () -> { maxResults; nextToken; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("notificationConfigurationArn",
           (Some
              (NotificationConfigurationArn.to_value
                 x.notificationConfigurationArn)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListEventRulesRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListEventRulesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      make ?nextToken ?maxResults ~notificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListEventRulesRequestMaxResultsInteger.of_json in
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      make ?nextToken ?maxResults ~notificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of EventRules according to specified filters, in reverse chronological order (newest first)."]
module ListChannelsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."];
      channels: Channels.t option [@ocaml.doc "A list of Channels."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?nextToken = fun ?channels -> fun () -> { nextToken; channels }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.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
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?channels ?nextToken ()
    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
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?channels ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Channels for a NotificationConfiguration."]
module ListChannelsRequest =
  struct
    type nonrec t =
      {
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration."];
      maxResults: ListChannelsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to be returned in this call. The default value is 20."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The start token for paginated calls. Retrieved from the response of a previous ListNotificationEvents call. NextToken uses Base64 encoding."]}
    let context_ = "ListChannelsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~notificationConfigurationArn ->
          fun () -> { maxResults; nextToken; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("notificationConfigurationArn",
           (Some
              (NotificationConfigurationArn.to_value
                 x.notificationConfigurationArn)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListChannelsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListChannelsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      make ?nextToken ?maxResults ~notificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListChannelsRequestMaxResultsInteger.of_json in
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      make ?nextToken ?maxResults ~notificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Channels for a NotificationConfiguration."]
module GetNotificationsAccessForOrganizationResponse =
  struct
    type nonrec t =
      {
      notificationsAccessForOrganization:
        NotificationsAccessForOrganization.t option
        [@ocaml.doc
          "The AccessStatus of Service Trust Enablement for User Notifications to Amazon Web Services Organizations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notificationsAccessForOrganization =
      fun () -> { notificationsAccessForOrganization }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("notificationsAccessForOrganization",
           (Option.map x.notificationsAccessForOrganization
              ~f:NotificationsAccessForOrganization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationsAccessForOrganization =
        (Option.map ~f:NotificationsAccessForOrganization.of_xml)
          (Xml.child xml_arg0 "notificationsAccessForOrganization") in
      make ?notificationsAccessForOrganization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationsAccessForOrganization =
        field_map json__ "notificationsAccessForOrganization"
          NotificationsAccessForOrganization.of_json in
      make ?notificationsAccessForOrganization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the AccessStatus of Service Trust Enablement for User Notifications and Amazon Web Services Organizations."]
module GetNotificationsAccessForOrganizationRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the AccessStatus of Service Trust Enablement for User Notifications and Amazon Web Services Organizations."]
module GetNotificationEventResponse =
  struct
    type nonrec t =
      {
      arn: NotificationEventArn.t option
        [@ocaml.doc "The ARN of the resource."];
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN of the NotificationConfiguration."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the NotificationEvent."];
      content: NotificationEvent.t option
        [@ocaml.doc "The content of the NotificationEvent."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?arn =
      fun ?notificationConfigurationArn ->
        fun ?creationTime ->
          fun ?content ->
            fun () ->
              { arn; notificationConfigurationArn; creationTime; content }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("arn", (Option.map x.arn ~f:NotificationEventArn.to_value));
        ("notificationConfigurationArn",
          (Option.map x.notificationConfigurationArn
             ~f:NotificationConfigurationArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("content", (Option.map x.content ~f:NotificationEvent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:NotificationEvent.of_xml)
          (Xml.child xml_arg0 "content") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      let arn =
        (Option.map ~f:NotificationEventArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?content ?creationTime ?notificationConfigurationArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map json__ "content" NotificationEvent.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map json__ "arn" NotificationEventArn.of_json in
      make ?content ?creationTime ?notificationConfigurationArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a specified NotificationEvent. User Notifications stores notifications in the individual Regions you register as notification hubs and the Region of the source event rule. GetNotificationEvent only returns notifications stored in the same Region in which the action is called. User Notifications doesn't backfill notifications to new Regions selected as notification hubs. For this reason, we recommend that you make calls in your oldest registered notification hub. For more information, see Notification hubs in the Amazon Web Services User Notifications User Guide."]
module GetNotificationEventRequest =
  struct
    type nonrec t =
      {
      arn: NotificationEventArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationEvent to return."];
      locale: LocaleCode.t option
        [@ocaml.doc
          "The locale code of the language used for the retrieved NotificationEvent. The default locale is English en_US."]}
    let context_ = "GetNotificationEventRequest"
    let make ?locale = fun ~arn -> fun () -> { locale; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationEventArn.to_value x.arn)));
        ("locale", (Option.map x.locale ~f:LocaleCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locale =
        (Option.map ~f:LocaleCode.of_xml) (Xml.child xml_arg0 "locale") in
      let arn =
        NotificationEventArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?locale ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locale = field_map json__ "locale" LocaleCode.of_json in
      let arn = field_map_exn json__ "arn" NotificationEventArn.of_json in
      make ?locale ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a specified NotificationEvent. User Notifications stores notifications in the individual Regions you register as notification hubs and the Region of the source event rule. GetNotificationEvent only returns notifications stored in the same Region in which the action is called. User Notifications doesn't backfill notifications to new Regions selected as notification hubs. For this reason, we recommend that you make calls in your oldest registered notification hub. For more information, see Notification hubs in the Amazon Web Services User Notifications User Guide."]
module GetNotificationConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN of the resource."];
      name: NotificationConfigurationName.t option
        [@ocaml.doc "The name of the NotificationConfiguration."];
      description: NotificationConfigurationDescription.t option
        [@ocaml.doc "The description of the NotificationConfiguration."];
      status: NotificationConfigurationStatus.t option
        [@ocaml.doc "The status of this NotificationConfiguration."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the NotificationConfiguration."];
      aggregationDuration: AggregationDuration.t option
        [@ocaml.doc
          "The aggregation preference of the NotificationConfiguration. Values: LONG Aggregate notifications for long periods of time (12 hours). SHORT Aggregate notifications for short periods of time (5 minutes). NONE Don't aggregate notifications."];
      subtype: NotificationConfigurationSubtype.t option
        [@ocaml.doc
          "The subtype of the notification configuration returned in the response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?arn =
      fun ?name ->
        fun ?description ->
          fun ?status ->
            fun ?creationTime ->
              fun ?aggregationDuration ->
                fun ?subtype ->
                  fun () ->
                    {
                      arn;
                      name;
                      description;
                      status;
                      creationTime;
                      aggregationDuration;
                      subtype
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("arn", (Option.map x.arn ~f:NotificationConfigurationArn.to_value));
        ("name",
          (Option.map x.name ~f:NotificationConfigurationName.to_value));
        ("description",
          (Option.map x.description
             ~f:NotificationConfigurationDescription.to_value));
        ("status",
          (Option.map x.status ~f:NotificationConfigurationStatus.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("aggregationDuration",
          (Option.map x.aggregationDuration ~f:AggregationDuration.to_value));
        ("subtype",
          (Option.map x.subtype ~f:NotificationConfigurationSubtype.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subtype =
        (Option.map ~f:NotificationConfigurationSubtype.of_xml)
          (Xml.child xml_arg0 "subtype") in
      let aggregationDuration =
        (Option.map ~f:AggregationDuration.of_xml)
          (Xml.child xml_arg0 "aggregationDuration") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let status =
        (Option.map ~f:NotificationConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:NotificationConfigurationDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:NotificationConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?subtype ?aggregationDuration ?creationTime ?status ?description
        ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subtype =
        field_map json__ "subtype" NotificationConfigurationSubtype.of_json in
      let aggregationDuration =
        field_map json__ "aggregationDuration" AggregationDuration.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let status =
        field_map json__ "status" NotificationConfigurationStatus.of_json in
      let description =
        field_map json__ "description"
          NotificationConfigurationDescription.of_json in
      let name =
        field_map json__ "name" NotificationConfigurationName.of_json in
      let arn = field_map json__ "arn" NotificationConfigurationArn.of_json in
      make ?subtype ?aggregationDuration ?creationTime ?status ?description
        ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified NotificationConfiguration."]
module GetNotificationConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration to return."]}
    let context_ = "GetNotificationConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn =
        field_map_exn json__ "arn" NotificationConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified NotificationConfiguration."]
module GetManagedNotificationEventResponse =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationEventArn.t option
        [@ocaml.doc "The ARN of the resource."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t option
        [@ocaml.doc "The ARN of the ManagedNotificationConfiguration."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The creation time of the ManagedNotificationEvent."];
      content: ManagedNotificationEvent.t option
        [@ocaml.doc "The content of the ManagedNotificationEvent."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?arn =
      fun ?managedNotificationConfigurationArn ->
        fun ?creationTime ->
          fun ?content ->
            fun () ->
              {
                arn;
                managedNotificationConfigurationArn;
                creationTime;
                content
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("arn", (Option.map x.arn ~f:ManagedNotificationEventArn.to_value));
        ("managedNotificationConfigurationArn",
          (Option.map x.managedNotificationConfigurationArn
             ~f:ManagedNotificationConfigurationOsArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("content",
          (Option.map x.content ~f:ManagedNotificationEvent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:ManagedNotificationEvent.of_xml)
          (Xml.child xml_arg0 "content") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let managedNotificationConfigurationArn =
        (Option.map ~f:ManagedNotificationConfigurationOsArn.of_xml)
          (Xml.child xml_arg0 "managedNotificationConfigurationArn") in
      let arn =
        (Option.map ~f:ManagedNotificationEventArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?content ?creationTime ?managedNotificationConfigurationArn ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content =
        field_map json__ "content" ManagedNotificationEvent.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let managedNotificationConfigurationArn =
        field_map json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let arn = field_map json__ "arn" ManagedNotificationEventArn.of_json in
      make ?content ?creationTime ?managedNotificationConfigurationArn ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified ManagedNotificationEvent."]
module GetManagedNotificationEventRequest =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationEventArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationEvent to return."];
      locale: LocaleCode.t option
        [@ocaml.doc
          "The locale code of the language used for the retrieved ManagedNotificationEvent. The default locale is English (en_US)."]}
    let context_ = "GetManagedNotificationEventRequest"
    let make ?locale = fun ~arn -> fun () -> { locale; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (ManagedNotificationEventArn.to_value x.arn)));
        ("locale", (Option.map x.locale ~f:LocaleCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locale =
        (Option.map ~f:LocaleCode.of_xml) (Xml.child xml_arg0 "locale") in
      let arn =
        ManagedNotificationEventArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?locale ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locale = field_map json__ "locale" LocaleCode.of_json in
      let arn =
        field_map_exn json__ "arn" ManagedNotificationEventArn.of_json in
      make ?locale ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified ManagedNotificationEvent."]
module GetManagedNotificationConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationConfigurationOsArn.t option
        [@ocaml.doc
          "The ARN of the ManagedNotificationConfiguration resource."];
      name: ManagedNotificationConfigurationName.t option
        [@ocaml.doc "The name of the ManagedNotificationConfiguration."];
      description: ManagedNotificationConfigurationDescription.t option
        [@ocaml.doc
          "The description of the ManagedNotificationConfiguration."];
      category: String_.t option
        [@ocaml.doc "The category of the ManagedNotificationConfiguration."];
      subCategory: String_.t option
        [@ocaml.doc
          "The subCategory of the ManagedNotificationConfiguration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?arn =
      fun ?name ->
        fun ?description ->
          fun ?category ->
            fun ?subCategory ->
              fun () -> { arn; name; description; category; subCategory }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("arn",
           (Option.map x.arn
              ~f:ManagedNotificationConfigurationOsArn.to_value));
        ("name",
          (Option.map x.name ~f:ManagedNotificationConfigurationName.to_value));
        ("description",
          (Option.map x.description
             ~f:ManagedNotificationConfigurationDescription.to_value));
        ("category", (Option.map x.category ~f:String_.to_value));
        ("subCategory", (Option.map x.subCategory ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subCategory =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "subCategory") in
      let category =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "category") in
      let description =
        (Option.map ~f:ManagedNotificationConfigurationDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:ManagedNotificationConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:ManagedNotificationConfigurationOsArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?subCategory ?category ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subCategory = field_map json__ "subCategory" String_.of_json in
      let category = field_map json__ "category" String_.of_json in
      let description =
        field_map json__ "description"
          ManagedNotificationConfigurationDescription.of_json in
      let name =
        field_map json__ "name" ManagedNotificationConfigurationName.of_json in
      let arn =
        field_map json__ "arn" ManagedNotificationConfigurationOsArn.of_json in
      make ?subCategory ?category ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified ManagedNotificationConfiguration."]
module GetManagedNotificationConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationConfigurationOsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration to return."]}
    let context_ = "GetManagedNotificationConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn",
           (Some (ManagedNotificationConfigurationOsArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        ManagedNotificationConfigurationOsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn =
        field_map_exn json__ "arn"
          ManagedNotificationConfigurationOsArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified ManagedNotificationConfiguration."]
module GetManagedNotificationChildEventResponse =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationChildEventArn.t option
        [@ocaml.doc "The ARN of the resource."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration associated with the ManagedNotificationChildEvent."];
      creationTime: CreationTime.t option
        [@ocaml.doc
          "The creation time of the ManagedNotificationChildEvent."];
      content: ManagedNotificationChildEvent.t option
        [@ocaml.doc "The content of the ManagedNotificationChildEvent."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?arn =
      fun ?managedNotificationConfigurationArn ->
        fun ?creationTime ->
          fun ?content ->
            fun () ->
              {
                arn;
                managedNotificationConfigurationArn;
                creationTime;
                content
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("arn",
           (Option.map x.arn ~f:ManagedNotificationChildEventArn.to_value));
        ("managedNotificationConfigurationArn",
          (Option.map x.managedNotificationConfigurationArn
             ~f:ManagedNotificationConfigurationOsArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("content",
          (Option.map x.content ~f:ManagedNotificationChildEvent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:ManagedNotificationChildEvent.of_xml)
          (Xml.child xml_arg0 "content") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let managedNotificationConfigurationArn =
        (Option.map ~f:ManagedNotificationConfigurationOsArn.of_xml)
          (Xml.child xml_arg0 "managedNotificationConfigurationArn") in
      let arn =
        (Option.map ~f:ManagedNotificationChildEventArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?content ?creationTime ?managedNotificationConfigurationArn ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content =
        field_map json__ "content" ManagedNotificationChildEvent.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let managedNotificationConfigurationArn =
        field_map json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let arn =
        field_map json__ "arn" ManagedNotificationChildEventArn.of_json in
      make ?content ?creationTime ?managedNotificationConfigurationArn ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the child event of a specific given ManagedNotificationEvent."]
module GetManagedNotificationChildEventRequest =
  struct
    type nonrec t =
      {
      arn: ManagedNotificationChildEventArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationChildEvent to return."];
      locale: LocaleCode.t option
        [@ocaml.doc
          "The locale code of the language used for the retrieved ManagedNotificationChildEvent. The default locale is English en_US."]}
    let context_ = "GetManagedNotificationChildEventRequest"
    let make ?locale = fun ~arn -> fun () -> { locale; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (ManagedNotificationChildEventArn.to_value x.arn)));
        ("locale", (Option.map x.locale ~f:LocaleCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locale =
        (Option.map ~f:LocaleCode.of_xml) (Xml.child xml_arg0 "locale") in
      let arn =
        ManagedNotificationChildEventArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?locale ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locale = field_map json__ "locale" LocaleCode.of_json in
      let arn =
        field_map_exn json__ "arn" ManagedNotificationChildEventArn.of_json in
      make ?locale ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the child event of a specific given ManagedNotificationEvent."]
module GetEventRuleResponse =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t option [@ocaml.doc "The ARN of the resource."];
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN of a NotificationConfiguration."];
      creationTime: CreationTime.t option
        [@ocaml.doc "The date when the EventRule was created."];
      source: Source.t option
        [@ocaml.doc
          "The matched event source. Must match one of the valid EventBridge sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventType: EventType.t option
        [@ocaml.doc
          "The event type to match. Must match one of the valid Amazon EventBridge event types. For example, EC2 Instance State-change Notification and Amazon CloudWatch Alarm State Change. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventPattern: EventRuleEventPattern.t option
        [@ocaml.doc
          "An additional event pattern used to further filter the events this EventRule receives. For more information, see Amazon EventBridge event patterns in the Amazon EventBridge User Guide."];
      regions: Regions.t option
        [@ocaml.doc
          "A list of Amazon Web Services Regions that send events to this EventRule."];
      managedRules: ManagedRuleArns.t option
        [@ocaml.doc
          "A list of managed rules from EventBridge that are associated with this EventRule. These are created by User Notifications within your account so this EventRule functions."];
      statusSummaryByRegion: StatusSummaryByRegion.t option
        [@ocaml.doc
          "A list of an EventRule's status by Region. Regions are mapped to EventRuleStatusSummary."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?arn =
      fun ?notificationConfigurationArn ->
        fun ?creationTime ->
          fun ?source ->
            fun ?eventType ->
              fun ?eventPattern ->
                fun ?regions ->
                  fun ?managedRules ->
                    fun ?statusSummaryByRegion ->
                      fun () ->
                        {
                          arn;
                          notificationConfigurationArn;
                          creationTime;
                          source;
                          eventType;
                          eventPattern;
                          regions;
                          managedRules;
                          statusSummaryByRegion
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
        [("arn", (Option.map x.arn ~f:EventRuleArn.to_value));
        ("notificationConfigurationArn",
          (Option.map x.notificationConfigurationArn
             ~f:NotificationConfigurationArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:CreationTime.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("eventType", (Option.map x.eventType ~f:EventType.to_value));
        ("eventPattern",
          (Option.map x.eventPattern ~f:EventRuleEventPattern.to_value));
        ("regions", (Option.map x.regions ~f:Regions.to_value));
        ("managedRules",
          (Option.map x.managedRules ~f:ManagedRuleArns.to_value));
        ("statusSummaryByRegion",
          (Option.map x.statusSummaryByRegion
             ~f:StatusSummaryByRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummaryByRegion =
        (Option.map ~f:StatusSummaryByRegion.of_xml)
          (Xml.child xml_arg0 "statusSummaryByRegion") in
      let managedRules =
        (Option.map ~f:ManagedRuleArns.of_xml)
          (Xml.child xml_arg0 "managedRules") in
      let regions =
        (Option.map ~f:Regions.of_xml) (Xml.child xml_arg0 "regions") in
      let eventPattern =
        (Option.map ~f:EventRuleEventPattern.of_xml)
          (Xml.child xml_arg0 "eventPattern") in
      let eventType =
        (Option.map ~f:EventType.of_xml) (Xml.child xml_arg0 "eventType") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let creationTime =
        (Option.map ~f:CreationTime.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      let arn =
        (Option.map ~f:EventRuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?statusSummaryByRegion ?managedRules ?regions ?eventPattern
        ?eventType ?source ?creationTime ?notificationConfigurationArn ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummaryByRegion =
        field_map json__ "statusSummaryByRegion"
          StatusSummaryByRegion.of_json in
      let managedRules =
        field_map json__ "managedRules" ManagedRuleArns.of_json in
      let regions = field_map json__ "regions" Regions.of_json in
      let eventPattern =
        field_map json__ "eventPattern" EventRuleEventPattern.of_json in
      let eventType = field_map json__ "eventType" EventType.of_json in
      let source = field_map json__ "source" Source.of_json in
      let creationTime = field_map json__ "creationTime" CreationTime.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map json__ "arn" EventRuleArn.of_json in
      make ?statusSummaryByRegion ?managedRules ?regions ?eventPattern
        ?eventType ?source ?creationTime ?notificationConfigurationArn ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified EventRule."]
module GetEventRuleRequest =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the EventRule to return."]}
    let context_ = "GetEventRuleRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (EventRuleArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        EventRuleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" EventRuleArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a specified EventRule."]
module EnableNotificationsAccessForOrganizationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables service trust between User Notifications and Amazon Web Services Organizations."]
module EnableNotificationsAccessForOrganizationRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables service trust between User Notifications and Amazon Web Services Organizations."]
module DisassociateOrganizationalUnitResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
       "Removes the association between an organizational unit and a notification configuration."]
module DisassociateOrganizationalUnitRequest =
  struct
    type nonrec t =
      {
      organizationalUnitId: OrganizationalUnitId.t
        [@ocaml.doc
          "The unique identifier of the organizational unit to disassociate."];
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the notification configuration to disassociate from the organizational unit."]}
    let context_ = "DisassociateOrganizationalUnitRequest"
    let make ~organizationalUnitId =
      fun ~notificationConfigurationArn ->
        fun () -> { organizationalUnitId; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("organizationalUnitId",
           (Some (OrganizationalUnitId.to_value x.organizationalUnitId)));
        ("notificationConfigurationArn",
          (Some
             (NotificationConfigurationArn.to_value
                x.notificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      let organizationalUnitId =
        OrganizationalUnitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "organizationalUnitId") in
      make ~notificationConfigurationArn ~organizationalUnitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let organizationalUnitId =
        field_map_exn json__ "organizationalUnitId"
          OrganizationalUnitId.of_json in
      make ~notificationConfigurationArn ~organizationalUnitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between an organizational unit and a notification configuration."]
module DisassociateManagedNotificationAdditionalChannelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
       "Disassociates an additional Channel from a particular ManagedNotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module DisassociateManagedNotificationAdditionalChannelRequest =
  struct
    type nonrec t =
      {
      channelArn: ChannelArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Channel to associate with the ManagedNotificationConfiguration."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Managed Notification Configuration to associate with the additional Channel."]}
    let context_ = "DisassociateManagedNotificationAdditionalChannelRequest"
    let make ~channelArn =
      fun ~managedNotificationConfigurationArn ->
        fun () -> { channelArn; managedNotificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("channelArn", (Some (ChannelArn.to_value x.channelArn)));
        ("managedNotificationConfigurationArn",
          (Some
             (ManagedNotificationConfigurationOsArn.to_value
                x.managedNotificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationConfigurationArn =
        ManagedNotificationConfigurationOsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "managedNotificationConfigurationArn") in
      let channelArn =
        ChannelArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelArn") in
      make ~managedNotificationConfigurationArn ~channelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationConfigurationArn =
        field_map_exn json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let channelArn = field_map_exn json__ "channelArn" ChannelArn.of_json in
      make ~managedNotificationConfigurationArn ~channelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an additional Channel from a particular ManagedNotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module DisassociateManagedNotificationAccountContactResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
       "Disassociates an Account Contact with a particular ManagedNotificationConfiguration."]
module DisassociateManagedNotificationAccountContactRequest =
  struct
    type nonrec t =
      {
      contactIdentifier: AccountContactType.t
        [@ocaml.doc
          "The unique value of an Account Contact Type to associate with the ManagedNotificationConfiguration."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration to associate with the Account Contact."]}
    let context_ = "DisassociateManagedNotificationAccountContactRequest"
    let make ~contactIdentifier =
      fun ~managedNotificationConfigurationArn ->
        fun () -> { contactIdentifier; managedNotificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("contactIdentifier",
           (Some (AccountContactType.to_value x.contactIdentifier)));
        ("managedNotificationConfigurationArn",
          (Some
             (ManagedNotificationConfigurationOsArn.to_value
                x.managedNotificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationConfigurationArn =
        ManagedNotificationConfigurationOsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "managedNotificationConfigurationArn") in
      let contactIdentifier =
        AccountContactType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contactIdentifier") in
      make ~managedNotificationConfigurationArn ~contactIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationConfigurationArn =
        field_map_exn json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let contactIdentifier =
        field_map_exn json__ "contactIdentifier" AccountContactType.of_json in
      make ~managedNotificationConfigurationArn ~contactIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an Account Contact with a particular ManagedNotificationConfiguration."]
module DisassociateChannelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.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
       "Disassociates a Channel from a specified NotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module DisassociateChannelRequest =
  struct
    type nonrec t =
      {
      arn: ChannelArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Channel to disassociate."];
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The ARN of the NotificationConfiguration to disassociate."]}
    let context_ = "DisassociateChannelRequest"
    let make ~arn =
      fun ~notificationConfigurationArn ->
        fun () -> { arn; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("arn", (Some (ChannelArn.to_value x.arn)));
        ("notificationConfigurationArn",
          (Some
             (NotificationConfigurationArn.to_value
                x.notificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      let arn =
        ChannelArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~notificationConfigurationArn ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map_exn json__ "arn" ChannelArn.of_json in
      make ~notificationConfigurationArn ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a Channel from a specified NotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module DisableNotificationsAccessForOrganizationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 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
       "Disables service trust between User Notifications and Amazon Web Services Organizations."]
module DisableNotificationsAccessForOrganizationRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables service trust between User Notifications and Amazon Web Services Organizations."]
module DeregisterNotificationHubResponse =
  struct
    type nonrec t =
      {
      notificationHubRegion: Region.t option
        [@ocaml.doc "The NotificationConfiguration Region."];
      statusSummary: NotificationHubStatusSummary.t option
        [@ocaml.doc "NotificationConfiguration status information."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 ?notificationHubRegion =
      fun ?statusSummary ->
        fun () -> { notificationHubRegion; statusSummary }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("notificationHubRegion",
           (Option.map x.notificationHubRegion ~f:Region.to_value));
        ("statusSummary",
          (Option.map x.statusSummary
             ~f:NotificationHubStatusSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummary =
        (Option.map ~f:NotificationHubStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let notificationHubRegion =
        (Option.map ~f:Region.of_xml)
          (Xml.child xml_arg0 "notificationHubRegion") in
      make ?statusSummary ?notificationHubRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummary =
        field_map json__ "statusSummary" NotificationHubStatusSummary.of_json in
      let notificationHubRegion =
        field_map json__ "notificationHubRegion" Region.of_json in
      make ?statusSummary ?notificationHubRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters a NotificationConfiguration in the specified Region. You can't deregister the last NotificationHub in the account. NotificationEvents stored in the deregistered NotificationConfiguration are no longer be visible. Recreating a new NotificationConfiguration in the same Region restores access to those NotificationEvents."]
module DeregisterNotificationHubRequest =
  struct
    type nonrec t =
      {
      notificationHubRegion: Region.t
        [@ocaml.doc "The NotificationConfiguration Region."]}
    let context_ = "DeregisterNotificationHubRequest"
    let make ~notificationHubRegion = fun () -> { notificationHubRegion }
    let to_value x =
      structure_to_value
        [("notificationHubRegion",
           (Some (Region.to_value x.notificationHubRegion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationHubRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "notificationHubRegion") in
      make ~notificationHubRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationHubRegion =
        field_map_exn json__ "notificationHubRegion" Region.of_json in
      make ~notificationHubRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters a NotificationConfiguration in the specified Region. You can't deregister the last NotificationHub in the account. NotificationEvents stored in the deregistered NotificationConfiguration are no longer be visible. Recreating a new NotificationConfiguration in the same Region restores access to those NotificationEvents."]
module DeleteNotificationConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 "Deletes a NotificationConfiguration."]
module DeleteNotificationConfigurationRequest =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration to delete."]}
    let context_ = "DeleteNotificationConfigurationRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (NotificationConfigurationArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn =
        field_map_exn json__ "arn" NotificationConfigurationArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a NotificationConfiguration."]
module DeleteEventRuleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 "Deletes an EventRule."]
module DeleteEventRuleRequest =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the EventRule to delete."]}
    let context_ = "DeleteEventRuleRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (EventRuleArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        EventRuleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" EventRuleArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an EventRule."]
module CreateNotificationConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: NotificationConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration."];
      status: NotificationConfigurationStatus.t option
        [@ocaml.doc "The current status of this NotificationConfiguration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 ?arn = fun ?status -> fun () -> { arn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:NotificationConfigurationArn.to_value));
        ("status",
          (Option.map x.status ~f:NotificationConfigurationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:NotificationConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let arn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?status ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" NotificationConfigurationStatus.of_json in
      let arn = field_map json__ "arn" NotificationConfigurationArn.of_json in
      make ?status ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new NotificationConfiguration."]
module CreateNotificationConfigurationRequest =
  struct
    type nonrec t =
      {
      name: NotificationConfigurationName.t
        [@ocaml.doc
          "The name of the NotificationConfiguration. Supports RFC 3986's unreserved characters."];
      description: NotificationConfigurationDescription.t
        [@ocaml.doc "The description of the NotificationConfiguration."];
      aggregationDuration: AggregationDuration.t option
        [@ocaml.doc
          "The aggregation preference of the NotificationConfiguration. Values: LONG Aggregate notifications for long periods of time (12 hours). SHORT Aggregate notifications for short periods of time (5 minutes). NONE Don't aggregate notifications."];
      tags: TagMap.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."]}
    let context_ = "CreateNotificationConfigurationRequest"
    let make ?aggregationDuration =
      fun ?tags ->
        fun ~name ->
          fun ~description ->
            fun () -> { aggregationDuration; tags; name; description }
    let to_value x =
      structure_to_value
        [("name", (Some (NotificationConfigurationName.to_value x.name)));
        ("description",
          (Some (NotificationConfigurationDescription.to_value x.description)));
        ("aggregationDuration",
          (Option.map x.aggregationDuration ~f:AggregationDuration.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let aggregationDuration =
        (Option.map ~f:AggregationDuration.of_xml)
          (Xml.child xml_arg0 "aggregationDuration") in
      let description =
        NotificationConfigurationDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "description") in
      let name =
        NotificationConfigurationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?aggregationDuration ~description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let aggregationDuration =
        field_map json__ "aggregationDuration" AggregationDuration.of_json in
      let description =
        field_map_exn json__ "description"
          NotificationConfigurationDescription.of_json in
      let name =
        field_map_exn json__ "name" NotificationConfigurationName.of_json in
      make ?tags ?aggregationDuration ~description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new NotificationConfiguration."]
module CreateEventRuleResponse =
  struct
    type nonrec t =
      {
      arn: EventRuleArn.t option [@ocaml.doc "The ARN of the resource."];
      notificationConfigurationArn: NotificationConfigurationArn.t option
        [@ocaml.doc "The ARN of a NotificationConfiguration."];
      statusSummaryByRegion: StatusSummaryByRegion.t option
        [@ocaml.doc
          "A list of an EventRule's status by Region. Regions are mapped to EventRuleStatusSummary."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 ?arn =
      fun ?notificationConfigurationArn ->
        fun ?statusSummaryByRegion ->
          fun () ->
            { arn; notificationConfigurationArn; statusSummaryByRegion }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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
        [("arn", (Option.map x.arn ~f:EventRuleArn.to_value));
        ("notificationConfigurationArn",
          (Option.map x.notificationConfigurationArn
             ~f:NotificationConfigurationArn.to_value));
        ("statusSummaryByRegion",
          (Option.map x.statusSummaryByRegion
             ~f:StatusSummaryByRegion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusSummaryByRegion =
        (Option.map ~f:StatusSummaryByRegion.of_xml)
          (Xml.child xml_arg0 "statusSummaryByRegion") in
      let notificationConfigurationArn =
        (Option.map ~f:NotificationConfigurationArn.of_xml)
          (Xml.child xml_arg0 "notificationConfigurationArn") in
      let arn =
        (Option.map ~f:EventRuleArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?statusSummaryByRegion ?notificationConfigurationArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusSummaryByRegion =
        field_map json__ "statusSummaryByRegion"
          StatusSummaryByRegion.of_json in
      let notificationConfigurationArn =
        field_map json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map json__ "arn" EventRuleArn.of_json in
      make ?statusSummaryByRegion ?notificationConfigurationArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an EventRule that is associated with a specified NotificationConfiguration."]
module CreateEventRuleRequest =
  struct
    type nonrec t =
      {
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the NotificationConfiguration associated with this EventRule."];
      source: Source.t
        [@ocaml.doc
          "The matched event source. Must match one of the valid EventBridge sources. Only Amazon Web Services service sourced events are supported. For example, aws.ec2 and aws.cloudwatch. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventType: EventType.t
        [@ocaml.doc
          "The event type to match. Must match one of the valid Amazon EventBridge event types. For example, EC2 Instance State-change Notification and Amazon CloudWatch Alarm State Change. For more information, see Event delivery from Amazon Web Services services in the Amazon EventBridge User Guide."];
      eventPattern: EventRuleEventPattern.t option
        [@ocaml.doc
          "An additional event pattern used to further filter the events this EventRule receives. For more information, see Amazon EventBridge event patterns in the Amazon EventBridge User Guide."];
      regions: Regions.t
        [@ocaml.doc
          "A list of Amazon Web Services Regions that send events to this EventRule."]}
    let context_ = "CreateEventRuleRequest"
    let make ?eventPattern =
      fun ~notificationConfigurationArn ->
        fun ~source ->
          fun ~eventType ->
            fun ~regions ->
              fun () ->
                {
                  eventPattern;
                  notificationConfigurationArn;
                  source;
                  eventType;
                  regions
                }
    let to_value x =
      structure_to_value
        [("notificationConfigurationArn",
           (Some
              (NotificationConfigurationArn.to_value
                 x.notificationConfigurationArn)));
        ("source", (Some (Source.to_value x.source)));
        ("eventType", (Some (EventType.to_value x.eventType)));
        ("eventPattern",
          (Option.map x.eventPattern ~f:EventRuleEventPattern.to_value));
        ("regions", (Some (Regions.to_value x.regions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regions =
        Regions.of_xml (Xml.child_exn ~context:context_ xml_arg0 "regions") in
      let eventPattern =
        (Option.map ~f:EventRuleEventPattern.of_xml)
          (Xml.child xml_arg0 "eventPattern") in
      let eventType =
        EventType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventType") in
      let source =
        Source.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source") in
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      make ~regions ?eventPattern ~eventType ~source
        ~notificationConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regions = field_map_exn json__ "regions" Regions.of_json in
      let eventPattern =
        field_map json__ "eventPattern" EventRuleEventPattern.of_json in
      let eventType = field_map_exn json__ "eventType" EventType.of_json in
      let source = field_map_exn json__ "source" Source.of_json in
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      make ~regions ?eventPattern ~eventType ~source
        ~notificationConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an EventRule that is associated with a specified NotificationConfiguration."]
module AssociateOrganizationalUnitResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 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
       "Associates an organizational unit with a notification configuration."]
module AssociateOrganizationalUnitRequest =
  struct
    type nonrec t =
      {
      organizationalUnitId: OrganizationalUnitId.t
        [@ocaml.doc
          "The unique identifier of the organizational unit to associate."];
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the notification configuration to associate with the organizational unit."]}
    let context_ = "AssociateOrganizationalUnitRequest"
    let make ~organizationalUnitId =
      fun ~notificationConfigurationArn ->
        fun () -> { organizationalUnitId; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("organizationalUnitId",
           (Some (OrganizationalUnitId.to_value x.organizationalUnitId)));
        ("notificationConfigurationArn",
          (Some
             (NotificationConfigurationArn.to_value
                x.notificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      let organizationalUnitId =
        OrganizationalUnitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "organizationalUnitId") in
      make ~notificationConfigurationArn ~organizationalUnitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let organizationalUnitId =
        field_map_exn json__ "organizationalUnitId"
          OrganizationalUnitId.of_json in
      make ~notificationConfigurationArn ~organizationalUnitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an organizational unit with a notification configuration."]
module AssociateManagedNotificationAdditionalChannelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 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
       "Associates an additional Channel with a particular ManagedNotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module AssociateManagedNotificationAdditionalChannelRequest =
  struct
    type nonrec t =
      {
      channelArn: ChannelArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Channel to associate with the ManagedNotificationConfiguration. Supported ARNs include Amazon Q Developer in chat applications, the Console Mobile Application, and email (notifications-contacts)."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration to associate with the additional Channel."]}
    let context_ = "AssociateManagedNotificationAdditionalChannelRequest"
    let make ~channelArn =
      fun ~managedNotificationConfigurationArn ->
        fun () -> { channelArn; managedNotificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("channelArn", (Some (ChannelArn.to_value x.channelArn)));
        ("managedNotificationConfigurationArn",
          (Some
             (ManagedNotificationConfigurationOsArn.to_value
                x.managedNotificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationConfigurationArn =
        ManagedNotificationConfigurationOsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "managedNotificationConfigurationArn") in
      let channelArn =
        ChannelArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelArn") in
      make ~managedNotificationConfigurationArn ~channelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationConfigurationArn =
        field_map_exn json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let channelArn = field_map_exn json__ "channelArn" ChannelArn.of_json in
      make ~managedNotificationConfigurationArn ~channelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an additional Channel with a particular ManagedNotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module AssociateManagedNotificationAccountContactResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 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
       "Associates an Account Contact with a particular ManagedNotificationConfiguration."]
module AssociateManagedNotificationAccountContactRequest =
  struct
    type nonrec t =
      {
      contactIdentifier: AccountContactType.t
        [@ocaml.doc
          "A unique value of an Account Contact Type to associate with the ManagedNotificationConfiguration."];
      managedNotificationConfigurationArn:
        ManagedNotificationConfigurationOsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ManagedNotificationConfiguration to associate with the Account Contact."]}
    let context_ = "AssociateManagedNotificationAccountContactRequest"
    let make ~contactIdentifier =
      fun ~managedNotificationConfigurationArn ->
        fun () -> { contactIdentifier; managedNotificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("contactIdentifier",
           (Some (AccountContactType.to_value x.contactIdentifier)));
        ("managedNotificationConfigurationArn",
          (Some
             (ManagedNotificationConfigurationOsArn.to_value
                x.managedNotificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedNotificationConfigurationArn =
        ManagedNotificationConfigurationOsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "managedNotificationConfigurationArn") in
      let contactIdentifier =
        AccountContactType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contactIdentifier") in
      make ~managedNotificationConfigurationArn ~contactIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedNotificationConfigurationArn =
        field_map_exn json__ "managedNotificationConfigurationArn"
          ManagedNotificationConfigurationOsArn.of_json in
      let contactIdentifier =
        field_map_exn json__ "contactIdentifier" AccountContactType.of_json in
      make ~managedNotificationConfigurationArn ~contactIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an Account Contact with a particular ManagedNotificationConfiguration."]
module AssociateChannelResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `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 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
       "Associates a delivery Channel with a particular NotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]
module AssociateChannelRequest =
  struct
    type nonrec t =
      {
      arn: ChannelArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Channel to associate with the NotificationConfiguration. Supported ARNs include Amazon Q Developer in chat applications, the Console Mobile Application, and notifications-contacts."];
      notificationConfigurationArn: NotificationConfigurationArn.t
        [@ocaml.doc
          "The ARN of the NotificationConfiguration to associate with the Channel."]}
    let context_ = "AssociateChannelRequest"
    let make ~arn =
      fun ~notificationConfigurationArn ->
        fun () -> { arn; notificationConfigurationArn }
    let to_value x =
      structure_to_value
        [("arn", (Some (ChannelArn.to_value x.arn)));
        ("notificationConfigurationArn",
          (Some
             (NotificationConfigurationArn.to_value
                x.notificationConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationConfigurationArn =
        NotificationConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "notificationConfigurationArn") in
      let arn =
        ChannelArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~notificationConfigurationArn ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationConfigurationArn =
        field_map_exn json__ "notificationConfigurationArn"
          NotificationConfigurationArn.of_json in
      let arn = field_map_exn json__ "arn" ChannelArn.of_json in
      make ~notificationConfigurationArn ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a delivery Channel with a particular NotificationConfiguration. Supported Channels include Amazon Q Developer in chat applications, the Console Mobile Application, and emails (notifications-contacts)."]